+ +In order to write a note, you need a piece of blank paper (or similar), and +a pen of some sort. You can then type something like "write on the paper with +the pen", whereupon you'll be asked to type in your note at the keyboard. + +WRITE is also used to post messages to bulletin boards. Type HELP BOARDS +for more information. + +See also: BOARDS, MAIL +# +$ diff --git a/lib/text/help/index b/lib/text/help/index new file mode 100644 index 0000000..29762b0 --- /dev/null +++ b/lib/text/help/index @@ -0,0 +1,6 @@ +commands.hlp +info.hlp +socials.hlp +spells.hlp +wizhelp.hlp +$ diff --git a/lib/text/help/index.mini b/lib/text/help/index.mini new file mode 100644 index 0000000..29762b0 --- /dev/null +++ b/lib/text/help/index.mini @@ -0,0 +1,6 @@ +commands.hlp +info.hlp +socials.hlp +spells.hlp +wizhelp.hlp +$ diff --git a/lib/text/help/info.hlp b/lib/text/help/info.hlp new file mode 100644 index 0000000..fe22381 --- /dev/null +++ b/lib/text/help/info.hlp @@ -0,0 +1,421 @@ +AC + +"AC" is your armor class. It is a number from -10 to 10, roughly +defined as follows: + + + AC Roughly equivalent to +----------------------------------------------------------- + 10 Naked person + 0 Very Heavily armored (Plate mail, and "two shields") + -10 Armored battle tank + +The score command displays your armor class as a number such as 78/10; +this means 78 on a scale from -100 to 100 (i.e., 7.8 on the scale from +-10 to 10.) + +See also: SCORE +# +AREAS + + This is a listing of the areas available for exploration on this +CircleMUD. + +Limbo -- DikuMud +River Island Of Minos -- Mahatma of HexOynx +God Simplex -- CircleMUD, modified by Taz of Tazmania +The Straight Path -- Steppin of ChicagoMUD +The High Tower Of Magic -- Skylar of SillyMUD* +Midgaard -- DikuMud +The Three Of Swords -- C.A.W. +Miden'Nir -- Copper II, modified by VampLestat of MercMUD* +The Chessboard -- Exxon of SillyMUD +Mount Moria -- Redferne of DikuMud* +The Great Eastern Desert -- Rorschach +The Drow City -- Rorschach +The City Of Thalos -- Rorschach +The Great Pyramid -- Andersen of HexOynx* +New Thalos -- Duke Of SillyMUD* +The Haon-Dor Forest -- Quifael of DikuMud, extended by by Derkhil + of CircleMUD +The Orc Enclave -- C.A.W. +Arachnos -- Mahatma of HexOynx +Rand's Tower -- C.A.W. +The Dwarven Kingdom -- Depeche of DikuMud +The Sewers -- Redferne of DikuMud +Redferne's Residence -- DikuMud, modified by Cyron of VieMud +Rome -- Onivel of JediMUD +King Welmar's Castle -- CircleMUD* +Newbie Zone -- Maynard of StrangeMUD + +All those marked with * have been heavily modified by Furry of VieMud +C.A.W. stands for the Curious Areas Workshop. For more information +mail <fletchra@qsilver.queensu.ca>. + +See also: CREDITS +# +BOARDS + +Bulletin boards are the forum of inter-player communication on the MUD. +There are different bulletin boards for different purposes -- for example, +a standard mortal board, a board for immortals, a board for fun "social" +messages, etc. Naturally, not all players may be allowed to read all +types of boards. + +Type "LOOK BOARD" to see the messages already posted on a board. Type +"WRITE <subject>" to post a message to a board; terminate a message with +a '@' as the first character on a line. Type "READ <number>" to read a +post. Type "REMOVE <number>" to remove your own messages. + +Example: + + > look at board + > write Am I using these boards correctly? + [writes the message; terminates with a '@'] + > look at board + > read 6 + > remove 6 + +See also: MAIL, READ, WRITE +# +CLERIC + +Clerics have an ancient belief in not carrying sharp weapons. Hence, they can +only wield bludgeoning weapons. This class gives you the wisdom of peace, +blessing and healing, though it is possible to learn more violent spells. + +You can improve your spells by using the practice command. + +See 'help spells' for a list of spells available. + +See also: PRACTICE, SPELLS +# +EXPERIENCE XP + +Whenever you kill a monster or a player, you earn experience points. When +enough experience points are earned, you raise a level. +Things you should know about experience points: + + * When damaging a monster, you get experience points. + + * If you kill a monster of higher level than yourself, you get bonus + experience points. If killing a monster of lower level you'll gain + less experience points + +See also: GROUP, SCORE +# +FLAGS + +Players sometimes have FLAGS after their names in the WHO list. These +flags are always in parentheses, not brackets or braces. + + FLAG MEANING + ----------- --------------------------------------------------------- + (KILLER) Player is trying to kill other players. That means you + can try to kill him/her without being flagged. + (THIEF) Player is trying to steal from other players. Fire away. + (invis) Player is invisible; you can see him/her because you are + sensitive to the presence of invisible things. + (writing) Player is writing on the board; do not disturb. + (mailing) Player is writing mail; do not disturb. + (deaf) Player has chosen not to hear shouts. + (notell) Player has chosen not to accept tells. + (quest) Player is participating in a quest currently being run by + the Gods. + +See also: NOSHOUT, NOTELL, QUEST, STEAL, VISIBLE +# +GUILD + +The Guildhouse is the place where mortals may go to escape the troubles and +perils of a cruel world. Each guild is heavily guarded, so that only members +may enter the building. Guilds are also the places where people come to +learn and practice the skills of their trade. + +See also: PRACTICE +# +HOUSES + +Houses have been implemented as of CircleMUD 3.0. A house entails two things: +access control and crash protection. Only you and your guests will be allowed +to enter the house. Your house will be crash-saved every five minutes. You +can force your house to save by typing 'save' while standing in your house. +In the event of a crash, the objects in your house as of the last crash-save +will be loaded back into your house when the MUD reboots. Also, if you own +a house, and quit from the game while standing in your house, you will be +loaded into your house next time you enter the game. + +Guests of your house can be defined using the HOUSE command. See HOUSE for +more information. + +Houses are an alternative to renting. You can simply enter your house and +quit; your objects will drop to the ground and be crash-saved for when you +return. There is currently no limit to the number of objects which can be +stored in your house. Of course, players must expect to pay a much higher +premium for the convenience of houses; contact your local Implementor for +a fee schedule. + +See also: HOUSE +# +IMPLEMENTOR + +The most powerful being in existence. +# +INN INNS CRYOGENIC CRYO RECEPTION + +Inns are places where the weary traveler may rest while the innkeeper looks +after his equipment and treasure. + +Specifically, the game will save your equipment while you are logged out. +There is a daily cost for renting, based on your equipment. Each item has +a per diem charge. The per diem charge is calculated to the nearest second, +however -- if you rent at the rate of 2400 coins per day, and you come back +39 hours later, you will be charged 3900 coins. + +A CRYOGENIC CENTER will store your items for a one-time charge of four +days rent. + +Rent files are deleted if you run out of money to pay the per diem charges +or after 30 days. Cryogenic-rent files are deleted after 60 days. + +See also: OFFER, RENT +# +LINK + +A lot of players have problems with their links to the game. This can be +very hazardous to your health in the middle of a battle, of course. + + I. If your link is broken, you will automatically attempt to flee each + time someone attempts to hit you. If you manage to flee, then you + will be saved by divine forces, and put in a safe place until you + reconnect to the game. + +II. If your link jams (freezes), you have a problem. The only solution we + can give is that you break your link as quickly as possible. By + breaking the link you can hope that the above procedure is initiated. + + Do not try to get out of a fight by breaking link. You will be not + reimbursed for any experience or equipment if you purposefully + cut your link. +# +"MAGIC USER" WIZARD MAGE + +This is the class of powerful and violent magic, but the magic user do not +control the nature, and can therefore not bless and such. + +You can improve your spells by using the practice command. + +See 'help spells' for a list of spells available. + +See also: PRACTICE, SPELLS +# +MANA + +Mana is used when casting spells. You must have a certain amount of mana +in order to cast any particular spell. If you do not have enough mana to +cast the spell you must rest until you gain enough points to cast. + +See also: SPELLS +# +MIDGAARD MAP + + Temple Altar + | + | + Reading -- Temple -- Donations + Room of + Midgaard Post Reception + | Office / + Cleric | | / + Guild----Temple Square----Grunting---Bar + (Fountain) Boar Inn + Magic | + Shop Bakery | Grocer Weaponsmith + | | | | | East + <---West-----+------+----Market----+--------+--------Gate---> + Gate | | Square | | | + | Mage Armory | Pet Warrior Wally's + (Wall Guild | Shop Guild World of Water + Road) | + | | Uncle Juans's + | | | + +-(Poor-Alley)-+----Square----+(Dark-Alley)-------+ + | | | | | | + | Grubby | Thieves Levee Warehouse + | Inn | Guild | + (Wall Dump | + Road) Sewers/ | + | | + | Midgaard + <=== [Bridge] =============================== River =============> + | + | + +(Concourse)+------------+-------------+----------+ + | | | | | + | + +----Cafe +---Penny | + | | Park--v | | Lane | + | City | +--+--+ | | + | Guard----+----+----+--o--+-----+----+---City | + | HQ | | Hall | + | + +--(Emerald)--+ | + (Concourse) | | (Concourse) + | +------(Park-+-Road)-------+ | + | | | | + | +--(Emerald)-+ +---Elm | + | | | Street | + | + + | + | | | | + +-----------+------(Concourse)---------+----------+ + | + Graveyard + Entrance +# +SHOPS + +Shops are places where the adventurer may purchase equipment for his quests, +and where he may sell his treasure if he should manage to survive the perils +with his life and sanity intact. Many shops trade only in a specific type of +merchandise. Thus, a baker may well refuse to buy your armor, even if it is +of high quality! + +To some people, the prospect of obtaining the entire inventory of a shop by +murdering the keeper may appear tempting - but beware: The shopkeepers are +often rugged, capable men; roughened by years of trading and, indeed, surviving +in a world where the only safe prospect is death in the end. + +See also: BUY, SELL, LIST, VALUE +# +SPELL SPELLS + + Magic User Cleric + + (1) Magic Missile (1) Armor + (1) - (1) Cure Light + + (2) Detect Magic (2) Create Water + (2) Detect Invisible (2) Create Food + + (3) Chill Touch (3) Detect Poison + (3) Infravision (3) - + + (4) Invisibility (4) Cure Blindness + (4) Armor (4) Detect Evil + (4) - (4) Detect Alignment + + (5) Burning Hands (5) Bless + + (6) Locate Object (6) Blindness + (6) Strength (6) Detect Invisible + + (7) Shocking Grasp (7) Infravision + + (8) Sleep (8) Protection From Evil + (8) - (8) Poison + + (9) Lightning Bolt (9) Cure Critical + (9) Blindness (9) Group Armor + + (10) Detect Poison (10) Summon + (10) - (10) Remove Poison + + (11) Color Spray (11) - + + (12) - (12) Earthquake + (12) - (12) Word of Recall + + (13) Energy Drain (13) - + + (14) Curse (14) Detect Evil + (14) Poison (14) Detect Good + (14) - (14) Dispel Evil + (14) - (14) Dispel Good + + (15) Fireball (15) Call Lightning + (15) - (15) Sanctuary + + (16) Charm Person (16) Heal + + (17) Sense Life (17) Control Weather + + (19) - (19) Harm + + (22) - (22) Group Heal + + (26) Enchant Weapon (26) Remove Curse +# +THIEF THIEVES + +Thieves are known to have very special qualities, that no other class offers. +Their specialty tends to be in the darker, sneakier art. Many of these +qualities can come in handy in many situations, such as picking locks. + +You can improve you skills by using the practice command. + +Skills available to thieves: + +sneak, hide, steal, backstab, pick lock, track + +See the help on each skill for more information. + +See also: PRACTICE +# +WARRIOR FIGHTER + +Warriors are known to have more strength than the average player. This makes +them better at hand-to-hand-combat, as they possess skills of violence and +fighting unequaled by the members of any other class. However, they lack the +ability to use magic of any sort. + +You can improve your skills by using the practice command. + +Skills available to warriors: + +kick, rescue, track, bash + +See also: PRACTICE +# +CIRCLE CIRCLEMUD CREDITS + C I R C L E M U D 3 . 0 + +CircleMUD was developed from DikuMud (Gamma 0.0) by Jeremy "Ras" Elson at +Johns Hopkins University's Department of Computer Science. All code unique +to CircleMUD is protected under a copyright by the Trustees of the Johns +Hopkins University. + +Many, many people contributed to CircleMUD in one way or another throughout +the course of its development. Although it's impossible for me to remember +them all, I'd like to extend special thanks to certain people: + + -- Jeff Fink and George Greer, for submitting a veritable mountain of + excellent code. + -- Chris Epler and Chris Herringshaw for extensive beta-testing and bug + reporting. + -- Furry (Alex Fletcher), for single-handedly managing Circle's world files. + -- Fred Merkel, Ryan Watkins, Jay Levino, and Sharon Goza, for other + code and area submissions. + -- Jean-Jack Riethoven for porting the code to the Amiga, David Carver + for porting it to OS/2, and Jack Patton and Steffen Haeuser for the + Amiga port. + -- Bill Bogstad and Tim Stearns for allowing Circle to exist at JHU. + -- The DikuMud folk, and the good old WhatMUD implementors Dave & Justin, + for starting the ball rolling. + -- Bryan Jolson, Steven Lacher, Cat Stanton, and Naved Surve, for being + there in the very early days of Circle's development. + -- Sharon, Ben, Erica, Aly, and Josh, for keeping me sane. + -- Jules (hamotek sheli) for being the greatest. + +...plus everyone else in the Circle community who has submitted material! +Thanks everyone! + + Anonymous FTP: ftp.circlemud.org or ftp2.circlemud.org in pub/CircleMUD + To report bugs: bugs@circlemud.org + To get help: help@circlemud.org + URL: http://www.circlemud.org/ + Mailing List: listserv@post.queensu.ca + (write "subscribe circle <first name> <last name>") + +--Jeremy Elson (jelson@circlemud.org) + +See also: AREAS +# +$ diff --git a/lib/text/help/screen b/lib/text/help/screen new file mode 100644 index 0000000..00a6450 --- /dev/null +++ b/lib/text/help/screen @@ -0,0 +1,21 @@ +------------------------------------------------------------------------------- +Movement: | Communication: +NORTH SOUTH EAST WEST UP DOWN | SAY GSAY SHOUT HOLLER TELL ASK WHISPER +LOOK EXITS ENTER LEAVE | MAIL RECEIVE CHECK GOSSIP GRATS AUCTION +SLEEP WAKE REST SIT STAND | NOTELL NOSHOUT NOGOSSIP NOGRATS NOAUCTION +(LOCK UNLOCK OPEN CLOSE) | +------------------------------------------------------------------------------- +Objects: | Information: +GET DROP JUNK DONATE PUT GIVE WEAR | SCORE HELP INFO WHO NEWS TIME WEATHER +GRAB INVENTORY EQUIPMENT REMOVE | WHERE CONSIDER LEVELS WIZLIST IMMLIST +EXAMINE EAT DRINK TASTE SIP POUR | CREDITS TOGGLE FLAGS WIZHELP +------------------------------------------------------------------------------- +Combat: | Utility: +KILL WIELD FLEE ASSIST TRACK | ! BUG IDEA TYPO QUIT SAVE BRIEF COMPACT +(KICK BASH RESCUE BACKSTAB CAST) | TITLE NOSUMMON COMMANDS SOCIALS DISPLAY +------------------------------------------------------------------------------- +Further information available by HELP <keyword>, keyword being a command or +(for example) one of the following: + + SOCIAL SHOPS INNS CLERIC WARRIOR THIEF MAGIC SPELLS LINK +------------------------------------------------------------------------------- diff --git a/lib/text/help/socials.hlp b/lib/text/help/socials.hlp new file mode 100644 index 0000000..26dca51 --- /dev/null +++ b/lib/text/help/socials.hlp @@ -0,0 +1,35 @@ +FRENCH + +Don't you know how they kiss in France?? -- try it! +# +KISS + +Well can't you guess? +# +SMILE + +Whenever you feel like smiling... +# +SOCIALS + +Usage: <social> [<victim>] + +Socials are commands used to show your affective state to others. The +actor, victim and bystanders may receive different messages. Generally, +social commands are used only to express emotion and not to take action, +but it is possible that some mobs (or players) will take action based on +the social. (Slap a dragon lately?) + +Example: + + > shake homer + > applaud marge + > stare + +The SOCIALS command generates a canonical listing of all available socials. + + > socials + +See also: EMOTE +# +$ diff --git a/lib/text/help/spells.hlp b/lib/text/help/spells.hlp new file mode 100644 index 0000000..9c072ea --- /dev/null +++ b/lib/text/help/spells.hlp @@ -0,0 +1,557 @@ +ARMOR + +Usage : cast 'armor' [target] +Accumulative: No +Duration : 24 Hours +Level : Mage level 4, Cleric level 1. + +The Armor spell will improve your AC by 2. + +See also: AC +# +BLESS + +Usage : cast 'bless' <victim | object> +Accumulative: No +Duration : 6 Hours, permanent for objects. +Level : Cleric level 5. + +Bless on a victim will improve the victims saving throw versus spells +by 1, and furthermore improve the hitroll by 2. + +Bless on an item currently has no defined action. It is only possible +to bless non-evil items, and the object blessed may weigh no more +than five pounds per level of caster. +# +BLINDNESS + +Usage : cast 'blindness' <victim> +Accumulative: No +Duration : 2 hours. +Level : Mage level 9, Cleric level 6. + +Blindness will blind a victim failing its saving throw. +A blinded person will have -4 penalty to both hitroll and AC. + +See also: AC +# +"BURNING HANDS" + +Usage : cast 'burning hands' <victim> +Accumulative: - +Duration : Instantaneous +Level : Mage level 5. +Save : Versus spell for half damage. + +This spell is more powerful than the chill touch spell. + +See also: "CHILL TOUCH" +# +"CALL LIGHTNING" + +Usage : cast 'call lightning' <victim> +Accumulative: - +Duration : Instantaneous +Level : Cleric level 15. +Save : Versus spell for half damage. + +This spell will use the "force of nature" to make a lightning +strike the victim. It is therefore only possible to call lightning +outside, and it has to be raining (or worse). + +See also: "CONTROL WEATHER", WEATHER +# +CAST + +Usage: cast '<spell name>' [target] + +For "magical" people. If you want to throw a spell at someone or something. + +Example: + + > cast 'burning hands' <player> + Note that the name of the spell must be enclosed by "'"s. + +See also: help on each individual spell: + +Examples: + + > help cure ligh + > help ventri + > help energy drain +# +"CHARM PERSON" + +Usage : cast 'charm person' <victim> +Accumulative: No +Duration : (432/Intelligence points of person) hours +Level : Mage level 16. + +Is is not possible to charm anyone that is already charmed, if +you're charmed yourself, or if the person is higher level than +yourself. The person will get a saving throw versus "paralysation". + +A charmed person will follow you, and not be able to attack you, you +can order the charmed person using the order command. + +See also: FOLLOW, ORDER +# +"CHILL TOUCH" + +Usage : cast 'chill touch' <victim> +Accumulative: - +Duration : Instantaneous +Level : Mage level 3. +Save : Versus spell for half damage. + +This spell is more powerful than the magic missile spell. +A victim failing its saving throw will get its strength +reduced by one. + +See also: "MAGIC MISSILE" +# +COLORSPRAY "COLOR SPRAY" + +Usage : cast 'color spray' <victim> +Accumulative: - +Duration : Instantaneous +Level : Mage level 11. +Save : Versus spell for half damage. + +This spell is more powerful than the lightning bolt spell. + +See also: "LIGHTNING BOLT" + +For help on actual color, see: ANSI +# +"CONTROL WEATHER" + +Usage : cast 'control weather' <'better' | 'worse'> +Accumulative: Yes +Duration : - +Level : Cleric level 17. + +This spell will change the "course" of the current weather. + +Example: + + > cast 'control wea' worse +# +"CREATE FOOD" + +Usage : cast 'create food' +Accumulative: - +Duration : Instantaneous +Level : Cleric level 2. + +This spell instantly creates a fresh waybread. The waybread will be +filling for the next (5+level) hours, up to a maximum of 24 hours. + +See also: "CREATE WATER" +# +"CREATE WATER" + +Usage : cast 'create water' <drink container> +Accumulative: No +Duration : Instantaneous +Level : Cleric level 2. + +Expect disastrous results if cast upon a drink container which contains +another liquid than water. Empty or water containers will be filled +depending on the level of the caster. + +Double amount of water will be created if it is raining (or worse). + +See also: "CREATE FOOD" +# +"CURE BLIND" + +Usage : cast 'cure blind' <victim> +Accumulative: No +Duration : Instantaneous +Level : Cleric level 4. + +This spell will cure a person blinded by the "blindness" spell, it +can not remove blindness caused by for example cursed items. +# +"CURE CRITIC" + +Usage : cast 'cure critic' <victim> +Accumulative: - +Duration : Instantaneous +Level : Cleric level 9. + +This spell cures 3d8+3 hitpoints of damage. +# +"CURE LIGHT" + +Usage : cast 'cure light' <victim> +Accumulative: - +Duration : Instantaneous +Level : Cleric level 1. + +Cures minor wounds and scratches. +# +CURSE + +Usage : cast 'curse' <victim | object> +Accumulative: Yes +Duration : 7 Days, permanent on objects. +Level : Mage level 14. + +Curse cast on a person that fails the saving throw, will reduce their +hitroll and damage roll both by one. It will also reduce the saving +throw versus paralysation by one. + +When cast upon an object, the object will become undropable. +# +"DETECT ALIGNMENT" + +Usage : cast 'detect alignment' +Accumulative: Yes (Duration) +Duration : 12 hours + level +Level : Cleric level 4. + +Allows the caster to detect the alignment of those around them. +Evil will show as a red aura, good in a blue aura. + +See also: "DETECT INVISIBILITY" +# +"DETECT INVISIBILITY" + +Usage : cast 'detect invisibility' [self] +Accumulative: Yes (Duration) +Duration : 12 hours + level/4 +Level : Mage level 2, Cleric level 6. + +This spell enables you to see invisible items and players. +# +"DETECT MAGIC" + +Usage : cast 'detect magic' [self] +Accumulative: Yes (Duration) +Duration : 12 hours + level +Level : Mage level 2. + +This spell will let you see the magical aura surrounding magical +objects. +# +"DETECT POISON" + +Usage : cast 'detect poison' <victim | food | drink> +Accumulative: No +Duration : Instantaneous +Level : Mage level 10, Cleric level 3. + +Cast on food or drinks (drink containers) you will be able to +sense if it is poisoned. + +Cast on a person you will be able to see if that person is +poisoned. +# +"DISPEL EVIL" + +Usage : cast 'dispel evil' <victim> +Accumulative: - +Duration : Instantaneous +Level : Cleric level 14. +Save : Special + +This spell will only affect evil creatures. An evil person of level +equal or less than caster will suffer 100 damage points. + +If the victim is higher level than caster, the spell will inflict +(caster_level)d4 damage points, saving throw versus half damage. + +See also: DISPEL GOOD +# +"DISPEL GOOD" + +Usage : cast 'dispel good' <victim> +Accumulative: - +Duration : Instantaneous +Level : Cleric level 14. +Save : Special + +This spell will only affect good creatures. A good person of level +equal or less than caster will suffer 100 damage points. + +If the victim is higher level than caster, the spell will inflict +(caster_level)d4 damage points, saving throw versus half damage. + +See also: DISPEL EVIL +# +EARTHQUAKE + +Usage : cast 'earthquake' +Accumulative: - +Duration : Instantaneous +Level : Cleric level 12. +Save : - + +This spell will damage everybody except the caster by +1d8+level_of_caster hitpoints. +# +"ENCHANT WEAPON" + +Usage : cast 'enchant weapon' <weapon> +Accumulative: No +Duration : Permanent +Level : Mage level 26. + +This spell will enchant non-magical (non-modifying) weapons only. +By non-modifying weapons we refer to weapons that might alter any +ability such as for example damage. The only way to know if a weapon +is suitable for enchantment is to fully identify it. + +The enchantment will modify the weapon as: + + Level Hit Roll Damage + + 0..17 +1 +1 + 18..19 +2 +1 + 20..20+ +2 +2 +# +"ENERGY DRAIN" + +Usage : cast 'energy drain' <victim> +Accumulative: - +Duration : Instantaneous +Level : Mage level 13. +Save : Versus spell for half damage. + +This spell does not give much damage, but victims failing their +saving throws will loose up to 40,000 XP points. You will gain +a quarter of this XP. + +Beware that this spell is evil. +# +FIREBALL + +Usage : cast 'fireball' <victim> +Accumulative: - +Duration : Instantaneous +Level : Mage level 15. +Save : Versus spell for half damage. + +This spell is the most powerful spell a magic user can cast. + +See also: "COLOR SPRAY" +# +HARM + +Usage : cast 'harm' <victim> +Accumulative: - +Duration : Instantaneous +Level : Cleric level 19. +Save : Versus spell for half damage. + +This spell removes all but 1d4 hitpoints from the victim. The +maximum number of damage points are 100. It is not possible to +kill using this spell (but almost). +# +HEAL + +Usage : cast 'heal' <victim> +Accumulative: No +Duration : Instantaneous +Level : Cleric level 16. + +Heal will heal all the hitpoints from a person, except 1d4 points. +Maximum 100 points can be healed. A victim who is blinded will also +be cured by the heal spell. + +See also: "CURE BLINDNESS" +# +INFRAVISION + +Usage : cast 'infravision' +Accumulative: Yes (Duration) +Duration : 12 hours + level +Level : Mage level 3, Cleric level 7. + +Allows the caster to detect the heat given off by objects giving them +the ability to have much better vision in dark conditions. + +See also: "DETECT INVISIBILITY" +# +INVISIBILITY + +Usage : cast 'invisibility' <victim | object> +Accumulative: Yes (Duration) +Duration : 24 hours, permanent on objects. +Level : Mage level 4. + +Makes the target of the spell invisible to everyone except those who have +the "detect invisibility" spell. + +Attacking while invisible will immediately break the spell. + +See also: "DETECT INVISIBILITY" +# +"LIGHTNING BOLT" + +Usage : cast 'lightning bolt' <victim> +Accumulative: - +Duration : Instantaneous +Level : Mage level 9. +Save : Versus spell for half damage. + +This spell is more powerful than the shocking grasp spell. + +See also: "SHOCKING GRASP" +# +"LOCATE OBJECT" + +Usage : cast 'locate object' <object> +Accumulative: - +Duration : Instantaneous +Level : Mage level 6. + +If possible you will know exactly where an object is, or the +name of the person using it. If more than one object by the +same name exists, you will get a listing of several objects. +The maximum number of objects you can simultaneously locate is +your level divided by 2. +# +"MAGIC MISSILE" + +Usage : cast 'magic missile' <victim> +Accumulative: - +Duration : Instantaneous +Level : Mage level 1. +Save : Versus spell for half damage. + +Causes a bolt of magical energy to be thrown from the casters hands at the +victim. +# +POISON + +Usage : cast 'poison' <victim | food | drink> +Accumulative: Yes on persons. +Duration : Level hours, or permanent on food and drinks. +Level : Cleric Level 8, Mage level 14. + +Casting poison on food or drink (containers) will poison it. Eating +poisoned food/drinks will poison the person eating or drinking. + +A person who is poisoned will suffer damage every hour, lose strength, and +gain less points than usual. + +See also: "REMOVE POISON", "DETECT POISON" +# +"PROTECTION FROM EVIL" + +Usage : cast 'protection from evil' [self] +Accumulative: Yes (Duration) +Duration : 24 hours +Level : Cleric level 8. + +The meaning of this spell is not yet fully defined. +# +"REMOVE CURSE" + +Usage : cast 'remove curse' <victim | object> +Accumulative: No +Duration : Instantaneous +Level : Cleric level 26. + +Will remove a curse on carried objects or any persons in the room. +# +"REMOVE POISON" + +Usage : cast 'remove poison' <victim | food | drink> +Accumulative: No +Duration : Instantaneous +Level : Cleric level 10. + +Will remove the affects of poison from a victim or an object. + +See also: POISON +# +SANCTUARY + +Usage : cast 'sanctuary' [self] +Accumulative: Yes (Duration) +Duration : 4 hours +Level : Cleric level 15. + +When protected by sanctuary you will only receive 1/2 the normal damage +caused by a particular blow. + +See also: ARMOR, BLESS +# +"SHOCKING GRASP" + +Usage : cast 'shocking grasp' <victim> +Accumulative: - +Duration : Instantaneous +Level : Mage level 7. +Save : Versus spell for half damage. + +This spell is more powerful than the burning hands spell. + +See also: "BURNING HANDS" +# +"SENSE LIFE" + +Usage : cast 'sense life' +Accumulative: Yes (Duration) +Duration : Level hours. +Level : Cleric level 5, Mage level 17. + +Allows the caster to sense the presence of a player or monster in the +room which is hiding. The true identity will remain hidden however. +Invisible persons are also considered hidden. + +See also: HIDE +# +STRENGTH + +Usage : cast 'strength' <victim> +Accumulative: Yes +Duration : Level/2 + 4 +Level : Mage level 6. + +A person will gain 1 strength point per spell (2 points if level of +caster is greater than 18). Maximum strength is 18/100. +# +SUMMON + +Usage : cast 'summon' <victim> +Accumulative: - +Duration : Instantaneous +Level : Cleric level 10. + +Will summon a person of the name spoken. It is not possible to +summon someone of three or more levels above yourself. +If you attempt to summon a monster, it will get a saving throw. + +See also: NOSUMMON +# +VENTRILOQUATE + +Usage : cast 'ventriloquate' <victim | object> <text> +Accumulative: - +Duration : Instantaneous +Level : Mage level 1. +Save : Versus spell victim only sees attempted cast. + +For all people in the same room as the caster that fail a saving throw, the +spell will make the object or victim appear to say the text written. + +Example: + + > cast 'vent' Mirlen I got 399,823 coins, don't even consider killing me! +# +"WORD OF RECALL" + +Usage : cast 'word of recall' +Accumulative: - +Duration : Instantaneous +Level : Cleric level 12. + +The caster will be transferred back to his hometown sanctuary (usually the +Temple of Midgaard). +# +$ diff --git a/lib/text/help/wizhelp.hlp b/lib/text/help/wizhelp.hlp new file mode 100644 index 0000000..6a50c8e --- /dev/null +++ b/lib/text/help/wizhelp.hlp @@ -0,0 +1,728 @@ +ADVANCE + +Usage: advance <victim> <level> + +ADVANCE moves a player to a new level. If used to promote a player to an +immortal level, and if you have the autowiz program installed, the wizlist and +immlist will automatically be recreated. + +Example: + + > advance rasmussen 34 + +See also: SET +# +WIZAT + +Usage: at <room VNUM | item | mob | player name> <command> <arguments> + +AT can be used to perform an action in a location other than where you are +standing. The first argument can be a virtual room number or the name of a +character or object. The remainder of the line is passed to the command +interpreter. + +Examples: + + > at 3001 look + > at fido kill fido + > at 3.corpse get all corpse + > at catje wave catje + +See also: GOTO +# +BAN UNBAN + +Usage: ban [<all | new | select> <site>] + unban <site> + +These commands prevent anyone from a site with a hostname containing the +site substring from logging in to the game. You may ban a site to ALL, NEW +or SELECT players. Banning a site to NEW players prevents any new players +from registering. Banning a site to ALL players disallows ANY connections +from that site. Banning a site SELECTively allows only players with site-ok +flags to log in from that site. Ban with no argument returns a list of +currently banned sites. + +Unban removes the ban. + +Examples: + + > ban all whitehouse.gov + > unban ai.mit.edu + +See also: WIZLOCK +# +DATE + +Shows the current real time. (Not a social) +# +DC + +Usage: dc <descriptor number> + +DC (DisConnect) is used to disconnect a socket. If used on a playing socket, +the player will lose his/her link, but, unlike PURGE, will not extract the +player or dump the player's inventory on the ground. + +DC is also useful for disconnecting people who have accidentally left +themselves at the main menu, or connections sitting in the "Get name" state. + +See also: USERS +# +ECHO GECHO QECHO SEND + +Usage: echo <message> + gecho <message> + send <victim> <message> + qecho <message> + +ECHO displays a string to everyone in your room. +GECHO displays the string to everyone in the game. +QECHO displays the string to everyone with the QUEST flag. +SEND displays the string to a particular person. + +Examples: + + > echo Hi, everyone in the room. + > gecho Hi, everyone in the game, isn't this annoying? + > send rasmussen You are being watched. +# +FORCE + +Usage: force <victim | all> <command> <arguments> + +FORCE forces a character, either monster or player, to perform a certain +action. FORCE ALL forces everyone in the game; FORCE ROOM forces everyone in +your room. + +Example: + + > force fido drop meat + > force all save + > force room look fido + +If you are invisible to the one being forced, the force will be performed +silently. +# +FREEZE THAW + +Usage: freeze <victim> + thaw <victim> + +FREEZE, originally invented here at CircleMUD (we think), is used to prevent +a player from playing. If frozen, the game will ignore all commands entered +by the player, including QUIT, until the player is unfrozen with THAW. + +Obviously, this command should only be used in extreme disciplinary +circumstances. + +See also: SET -> FROZEN +# +GOTO TRANS WIZTELEPORT + +Usage: goto <location> + trans <victim> + teleport <victim> <location> + +These commands are used to transports yourself and others to different rooms. +GOTO allows you to go to other rooms; TRANS transports a person from wherever +they are to the room YOU are in; TELEPORT transports your victim to some other +location. + +For both GOTO and TELEPORT, the location specifier can be either a virtual +room number, or the name of a character or object. + +Examples: + + > goto 3001 + > goto rasmussen + > trans fido + > teleport fido 3001 + > teleport fido 2.fido + +See also: POOFIN, POOFOUT, SET -> ROOM, WIZAT +# +HANDBOOK + +Usage: handbook + +Guidelines for having an Immortal character -- you should read it. +# +HCONTROL + +Usage: hcontrol build <house vnum> <exit dir> <player name> + hcontrol destroy <house vnum> + hcontrol pay <house vnum> + hcontrol show + +House control, controls the addition, removal, and payments of houses. +Hcontrol show will show all the houses currently defined in the game +along with their last 'rent' payment date. + +See also: HOUSE, HOUSES +# +HOLYLIGHT + +Usage: holylight + +A toggle which allows you to see: + Invisible people and objects, even if you don't have 'detect invisibility' + Hidden people, even if you don't have 'sense life' + Dark rooms, even if you don't have a light + +It is expected most immortals will keep HOLYLIGHT on most of the time; +it exists so that you have the ability to see what mortals see for +debugging purposes. +# +IMOTD + +Usage: imotd + +Displays the Immortal message of the day. This file usually contains +new information on commands recently added, new features and other +important information that immortals should be aware of. + +See also: MOTD +# +INVIS + +Usage: invis [level] + +INVIS sets your invisibility level. With no argument, invis toggles between +making you fully visible and fully invisible. If you specify a level, only +people at and above the level you specify will be able to see you. + +Examples: + + > invis + > invis 31 + +See also: VISIBLE +# +LAST + +Usage: last <player_name> + +For checking the last time a person logged on, their sitename, and their +ID number. + +Example: + + > last ras + [ 24] [14 Cl] Ras : somesite.edu : Tue May 16 22:07:09 1995 + +See also: STAT +# +LOAD + +Usage: load <mob | obj> <virtual number> + +LOAD is used to create mobiles and objects. The first argument specifies if +you are trying to load a mobile or an object; the second is the virtual +number. + +Example: + + > load obj 3099 + You create a bulletin board. + + > load mob 3005 + You create the receptionist. + +See also: VNUM +# +MUTE + +Usage: mute <victim> + +MUTE is used to shut a player up. When muted, a player will not be able to +use most communication channels until he/she is unmuted. + +See also: FLAGS +# +NOHASSLE + +Usage: nohassle + +Toggles a flag to prevent aggressive monsters from attacking. +# +NOTITLE + +Usage: notitle <vicitim> + +Prevent players from being able to set their own titles; i.e., if the +player consistently has an offensive title. The definition of offensive +is left as an exercise for the reader. + +See also: TITLE +# +NOWIZ + +Usage: nowiz + +Allows you to hear or ignore messages coming over the wiznet. + +See also: WIZNET +# +OLC + +Usage: olc { . | set | show | obj | mob | room} [args] + + .: Repeat last modification command + set: Set OLC characteristics +show: Show OLC characteristics + obj: Modify an object + mob: Modify a mob +room: Modify a room + +OnLine Creation. A feature which will eventually allow the creation +of areas ONLINE, without having to reboot the system. + +See also: SHOW->ZONES, ZRESET +# +PAGE + +Usage: page <player | all> <message> + +PAGE is used to send a message, along with a beep, to another player. Use +PAGE ALL to send a message and a beep to everyone in the game. + +Examples: + + > page rasmussen Hey, are you still at the keyboard? + > page all GAME WILL BE SHUTTING DOWN IN 10 MINUTES + +Do not abuse this command. +# +PARDON + +Usage: pardon <victim> + +Removes killer and thief flags from a player. +# +POOFIN POOFOUT + +Usage: poofin <message> + poofout <message> + +Sets the message seen by players when you use GOTO to move to a different +room. POOFIN with no argument resets your poofin to the default "appears with +an ear-splitting bang"; POOFOUT with no argument defaults to "disappears in +a puff of smoke." + +See also: GOTO +# +PURGE + +Usage: purge [name] + +Purge destroys things. If used with no arguments, it will clear a room of all +mobiles and objects, but will not harm players. If the argument is an object, +that object (and all of its contents, if any) will be destroyed. If the +argument is a mobile, the mobile will be destroyed, leaving its inventory and +equipment lying on the ground. + +If the argument is the name of a player, the player's inventory and equipment +will drop on the ground and the player will lose his/her connection. For this +reason, PURGE should only be used on players in disciplinary situations. + +Examples: + + > purge + > purge Pom + > purge sword + > purge dragon + +See also: DC +# +RELOAD + +Usage: reload < '*' | all | file > + +Reload is used to reload text files such as the MOTD from disk into memory. +reload * reloads all the text files below. + +Valid files are: + + background (/mud_dir/lib/text/background) + credits (/mud_dir/lib/text/credits) + greetings (/mud_dir/lib/text/greetings) + handbook (/mud_dir/lib/text/handbook) + help (/mud_dir/lib/text/help) + immlist (/mud_dir/lib/text/immlist) + imotd (/mud_dir/lib/text/imotd) + news (/mud_dir/lib/text/news) + motd (/mud_dir/lib/text/motd) + info (/mud_dir/lib/text/info) + policy (/mud_dir/lib/text/policies) + wizlist (/mud_dir/lib/text/wizlist) + xhelp (/mud_dir/lib/text/help/*) +# +REROLL + +Usage: reroll <player> + +REROLL gives a player new stats (i.e., Str, Int, Wis, Dex, Con, and Cha) + +See also: STAT +# +RESTORE + +Usage: restore <player | mobile> + +RESTORE restores a player or mobile to full hit, mana, and movement points. +If used on immortals, it also sets all skill levels to 100%. +# +RETURN + +Usage: return + +RETURN returns you to your regular body if you are switched into a mob. + +See also: SWITCH +# +ROOMFLAGS + +Usage: roomflags + +Toggles a flag which causes the virtual room number and room flags, if any, +to be displayed next to room names. +# +SET + +Usage: set [ file | player ] <character> <field> <value> + +SET is an extremely powerful command, capable of setting dozens of aspects of +characters, both players and mobiles. + +SET PLAYER forces set to look for a player and not a mobile; useful for +players with names such as 'guard'. + +SET FILE lets you change players who are not logged on. If you use SET FILE +on a player who IS logged on, your change will be lost. If you wish to set +a player who is in the game but is linkless, use set twice -- once with the +FILE argument, and once without -- to make sure that the change takes. + +For toggled fields (BINARY), the value must be ON, OFF, YES, or NO. + +The following are valid fields: + +Field Level Required Who Value Type Decription +----------------------------------------------------------------------------- +age LVL_GRGOD BOTH NUMBER Character's age +brief LVL_GOD PC BINARY Brief mode +invstart LVL_GOD PC BINARY Invisible @ Start +title LVL_GOD PC MISC Player's title +nosummon LVL_GRGOD PC BINARY NOSUMMON flag +maxhit LVL_GRGOD BOTH NUMBER Max HP +maxmana LVL_GRGOD BOTH NUMBER Max mana +maxmove LVL_GRGOD BOTH NUMBER Max movement +hit LVL_GRGOD BOTH NUMBER Current HP +mana LVL_GRGOD BOTH NUMBER Current mana +move LVL_GRGOD BOTH NUMBER Current movement +align LVL_GOD BOTH NUMBER Alignment +str LVL_GRGOD BOTH NUMBER Strength +stradd LVL_GRGOD BOTH NUMBER Additional STR (18/xx) +int LVL_GRGOD BOTH NUMBER Inteligence +wis LVL_GRGOD BOTH NUMBER Wisdom +dex LVL_GRGOD BOTH NUMBER Dexterity +con LVL_GRGOD BOTH NUMBER Constitution +cha LVL_GRGOD BOTH NUMBER Charisma +sex LVL_GRGOD BOTH MISC Sex +ac LVL_GRGOD BOTH NUMBER Armor class +gold LVL_GOD BOTH NUMBER Gold (On hand) +bank LVL_GOD PC NUMBER Gold in bank +exp LVL_GRGOD BOTH NUMBER Experience points +hitroll LVL_GRGOD BOTH NUMBER To-Hit modifier +damroll LVL_GRGOD BOTH NUMBER Damage modifier +invis LVL_IMPL PC NUMBER Invisible (level) +nohassle LVL_GRGOD PC BINARY NOHASSLE flag +frozen LVL_FREEZE PC BINARY FROZEN flag +practices LVL_GRGOD PC NUMBER # of practices +lessons LVL_GRGOD PC NUMBER # of practices +drunk LVL_GRGOD BOTH MISC Drunkeness +hunger LVL_GRGOD BOTH MISC Hrs to hunger +thirst LVL_GRGOD BOTH MISC Hrs to thirst +killer LVL_GOD PC BINARY KILLER flag +thief LVL_GOD PC BINARY THIEF flag +level LVL_IMPL BOTH NUMBER Level +room LVL_IMPL BOTH NUMBER Move to room +roomflag LVL_GRGOD PC BINARY ROOMFLAGS flag +siteok LVL_GRGOD PC BINARY SITEOK flag +deleted LVL_IMPL PC BINARY DELETED flag +class LVL_GRGOD BOTH MISC Class (W/T/C/M) +nowizlist LVL_GOD PC BINARY Not Wizlistable flag +quest LVL_GOD PC BINARY QUESTING flag +loadroom LVL_GRGOD PC MISC Room to load in (#/off) +color LVL_GOD PC BINARY COLOR flag +idnum LVL_IMPL PC NUMBER ID Number +passwd LVL_IMPL PC MISC Player password +nodelete LVL_GOD PC BINARY Undeletable flag + +See also: STAT +# +SHOW + +Usage: show <mode> [argument] + +Valid Modes: + +death errors godrooms houses +player rent shops stats +zones + +The SHOW command displays information. Some modes of show require additional +information, such as a player name. + + death: Shows all death traps in the game. + errors: Shows errant rooms. +godrooms: Shows the rooms in the 'god zone'. + houses: Shows the houses that are currently defined. + player: Shows player summary information, simply provide a player name. + rent: Shows the filename and path to a players rent file. + shops: Shows all the shops in the game and their buy/sell parameters. + stats: Shows game status information including players in game, mobs etc. + zones: Shows all the zones in the game and their current reset status. + An age of -1 means it is in the 'to be reset next' queue. + +See also: STAT, ZRESET +# +SHUTDOWN + +Usage: shutdown [reboot | die | pause] + +SHUTDOWN shuts the MUD down. The SHUTDOWN command works in conjunction with +CircleMUD's 'autorun' script. If you are not using autorun, the arguments are +meaningless. If you are using autorun, the following arguments are available: + +REBOOT Pause only 5 seconds instead of the normal 40 before trying to + restart the MUD. + +DIE Kill the autorun script; the MUD will not reboot until autorun is + explicitly run again. + +PAUSE Create a file called 'paused' in Circle's root directory; do not + try to restart the MUD until 'paused' is removed. +# +SKILLSET + +Usage: skillset <name> '<skill>' <value> + +Sets the specified skill to the specified value. + +See also: SET +# +SLOWNS + +Usage: slowns + +Toggles whether or not IP addresses are resolved into readable site names. +If slow nameserver is enabled, USERS will show only IP addresses. +(128.123.222.111 etc). + +See also: USERS +# +SNOOP + +Usage: snoop [player] + +Snoop allows you to listen in on another player's session; everything the +player sees or types will be displayed on your terminal preceded by a '%'. + +Obviously, there are many ethical considerations to the use of this command; +snoop should be used minimally, and only for disciplinary purposes. + +Type snoop <your name> or just snoop to stop snooping. +# +SNOWBALL + +Snowball is just a social -- it prints a funny message, and nothing more. +# +STAT + +Usage: stat [player | object | mobile | file] <name> + +Gives information about players, monsters, and objects in the game. The type +argument is optional. + +STAT PLAYER will search only for players; useful for statting people with +names such as Red or Cityguard. + +STAT OBJECT will search only for objects. + +STAT MOBILE will search only for monsters. + +STAT FILE is used to stat players who are not logged in; the information +displayed comes from the playerfile. + +Examples: + + > stat fido + > stat player red + > stat mobile red + > stat file niandra + > stat object thunderbolt + +See also: VSTAT +# +STRING + +Usage: string <type> <name> <field> [<string> | <keyword>] + +For changing the text-strings associated with objects and characters. The +format is: + +Type is either 'obj' or 'char'. + +Field is one of the following(the names may be abbreviated): + +Name (the call-name of an obj/char - kill giant) +Short (for inventory lists (obj's) and actions (char's)) +Long (for when obj/character is seen in room) +Title (for players) +Description (For look at. For obj's, must be followed by a keyword) +Delete-description (only for obj's. Must be followed by keyword) + +Where a string is expected as the last argument, a newline will make you enter +a string mode, and the game will prompt you for new lines to the string until +you exceed the maximum length for the string or you end a line with a '@'. + +Mobiles and objects currently cannot be strung. +# +SWITCH + +Usage: switch <monster> + +SWITCH is used to take over the body of mobiles; useful for interactive +adventures. If the monster in which you are switched is killed you will be +returned to your own body. + +See also: RETURN +# +SYSLOG + +Usage: syslog [off | brief | normal | complete] + +The SYSLOG command controls how detailed of an on-line system log you see. +Messages surrounded by '[' and ']' are syslog messages and are in green +if you have color on. + +The messages you receive are level dependent. + +Examples: + + > syslog complete + > syslog off + +See also: COLOR +# +UNAFFECT + +Usage: unaffect <victim> + +Removes all affections (i.e., spell effects) from a player. + +See also: STAT +# +UPTIME + +Usage: uptime + +Displays when the game was booted and calculates how long ago that was. +# +USERS + +Usage: users [switches] + +USERS gives a list of all sockets (i.e., connections) currently active on the +MUD. The multi-column display shows the socket number (used by DC), class, +level, and name of the player connected, connection state, idle time, and +hostname. + +The following switches are available: + +-k or -o Show only outlaws (killers and thieves). +-p Show only sockets in the playing sockets. +-d Show only non-playing (deadweight) sockets. +-l min-max Show only sockets whose characters are from level min to max. +-n <name> Show the socket with <name> associated with it. +-h <host> Show all sockets from <host>. +-c list Show only sockets whose characters' classes are in list. + +See also: DC, SLOWNS +# +VNUM + +Usage: vnum <mob | obj> <name> + +Gives a list of the virtual numbers of objects or mobiles which have the +specified name. + +Examples: + + > vnum obj ring + 1. [ 904] a platinum ring + 2. [ 2543] a seashell ring + 3. [ 2588] a small emerald ring + + > vnum mob dragon + 1. [ 1] Puff + 2. [ 908] the dragon turtle + 3. [ 2548] the Master of Illusions +# +VSTAT + +Usage: vstat < mob | obj > <virtual number> + +Used to stat a prototypical mobile or object by virtual number. + +Examples: + + > vstat obj 3000 + > vstat mob 3001 + +See also: LOAD, STAT, VNUM +# +WIZHELP + +Usage: wizhelp + +Gives a list of the special commands available at your level. +# +WIZLOCK + +Usage: wizlock [value] + +WIZLOCK allows you to restrict the game. WIZLOCK 1 prevents new characters +from being created. WIZLOCK n, 2 <= n <= 34, prevents new characters and +allows only characters level n and above to log on. WIZLOCK with no argument +displays the current WIZLOCK level. + +See also: BAN +# +WIZNET ; + +The immortal communication channel. + +Usage: wiznet [ '@' | '+' | '-' | '#' ] [<text>] + +Examples: + + >; <text> - just sends text + >; @ - shows all gods that are on and visible to you + - also shows if the gods who are visible to you are writing + +This code was provided by Gnort. + +See also: NOWIZ +# +ZRESET + +Usage: zreset < zone | '*' | '.' > + +Used to force a zone to reset. '*' forces all zones to reset. '.' forces +the zone you are in to reset. + +See also: SHOW -> ZONES +# +$ diff --git a/lib/text/immlist b/lib/text/immlist new file mode 100644 index 0000000..0ed9fc2 --- /dev/null +++ b/lib/text/immlist @@ -0,0 +1,9 @@ + ************************************************************************* + * The following people have reached immortality on CircleMUD. They are * + * to be treated with respect and awe. Occasional prayers to them are * + * advisable. Annoying them is not recommended. Stealing from them is * + * punishable by immediate death. * + ************************************************************************* + + Immortals + ~~~~~~~~~ diff --git a/lib/text/imotd b/lib/text/imotd new file mode 100644 index 0000000..bff0d72 --- /dev/null +++ b/lib/text/imotd @@ -0,0 +1,18 @@ +(lib/text/imotd) + +Welcome to the long-awaited, oft-belated, highly-rated CircleMUD 3.1! + +This is the immortal MOTD -- the file that immortals will see when they +log in to the game. You should change it to something more interesting +when you get a chance (as well as most of the other files in lib/text.) + +If you need help with CircleMUD, please write to help@circlemud.org + +If you would like to report a bug, please write to bugs@circlemud.org + +For all other general discussion, you might want to join the CircleMUD +Mailing List. If you wish to subscribe to the mailing list, send mail +to <listserv@post.queensu.ca> with: + subscribe circle <first name> <last name> +in the body of the message. + diff --git a/lib/text/info b/lib/text/info new file mode 100644 index 0000000..30f2cf1 --- /dev/null +++ b/lib/text/info @@ -0,0 +1,46 @@ +(lib/text/info) + +[Note: Further information can be gained on the capitalized words by using the +HELP-command] + +Classes, skills, and guilds: + +When you enter the game the first time, you are asked to select a class; either +THIEF, WARRIOR, CLERIC, or MAGIC user. Characters belonging to each of these +classes have their own qualities, abilities, and handicaps. + It is not unusual that people belonging to different classes, by joining +their efforts and combining their skills, find their chances of survival and +progress greatly improved. Indeed, a team consisting of members from all four +classes can be an extremely powerful unit; capable of opening doors without +keys, creating food supplies out of nothing, and destroying an enemy in +several different ways. It is not advisable for a new player to offend the +members of such a group! + +In order to learn the tricks of your specific trade, you need to find your +GUILD, which may take a little exploring. However, you can usually find a +guild in any reasonably populated city. Once you've found it, you need to +look up your guildmaster and PRACTICE. + +Equipment: + +It is never wise to travel without the proper equipment. You may purchase this +in the SHOPS found in any larger city, or you may be lucky and find some left +around, dropped by someone who doesn't need it anymore, for one reason or +another. + +About Staying Fit - Eating and Drinking: + +At one time or another, you'll see the message "You are hungry". This means +that it's time to find something edible before too long. People don't starve +to death in this world, so have no fear. However, when you are hungry, you do +not build up lost energy, so eventually you'll be unable to do anything but sit +around and feel sorry for yourself, until someone comes by. Then, you can only +hope that it's a benevolent person, rather than a greedy thief or a warrior +lusting for blood. + +General hints: + + See help on the group command. + See help on the consider command. + See help on resting. + See help on your class (magic user, cleric, warrior or thief). diff --git a/lib/text/motd b/lib/text/motd new file mode 100644 index 0000000..d7c59e4 --- /dev/null +++ b/lib/text/motd @@ -0,0 +1,8 @@ +(lib/text/motd) + + Welcome to + + C I R C L E M U D 3 . 0 + "We addict players for their own enjoyment." + Created by Jeremy Elson (jelson@circlemud.org) + diff --git a/lib/text/news b/lib/text/news new file mode 100644 index 0000000..fd0ec98 --- /dev/null +++ b/lib/text/news @@ -0,0 +1,63 @@ +(lib/text/news) + + THE CIRCLEMUD HERALD + "We addict players for their own enjoyment." + September 19, 1993 + + +NEW COMMANDS AND NEW MUD BEHAVIOR: +--------------------------------- + +** Your character no longer gains move points with age. However, age + does still affect your HMV gains. Also, move point modifier objects + now work correctly. + +** You can now use "all" and "all.x" very generally with the get, put, + drop, junk, donate, give, wear and remove commands. Type HELP GET + for more info. + +** The "track" function will show you the first step on the shortest + path to anyone in the game. + +** If you drop your link for more than 1 hour, you will be force-rented + at 25% greater than normal rent prices. If you don't have enough + money to rent with, your most valuable items will be junked until + the money you have can cover your items. + +** You can now remove your own messages from the board. Also, if you + put someone else's name in parentheses in the message header, they + will be able to remove the message too. + +** The MIDGAARD MAIL SYSTEM is now complete. The Post Office is north + of the entrance to the Grunting Boar inn. Stamps cost 150 coins. + +** Fountains have now been implemented. You can drink from fountains + or fill containers from fountains using the FILL command. + +** The SHOUT command, as always, only reaches people in your zone (you + can see who these people are by typing WHERE). The HOLLER command + reaches everyone in the game but costs 10 movement points. + +** When you are writing a message, you will now not be interrupted + by tells, shouts, emotes, socials, and even people talking in the + same room. + +** The WIMPY command has been upgraded so you can set at how many hit + points you flee. Type HELP WIMPY for more info. + +***************************************************************************** + IF YOU LEAVE THE GAME FOR MORE THAN AN HOUR, either by renting or plain + quitting, your hit points, move points, and mana will be fully restored + when you come back! This doesn't work if you're poisoned. +***************************************************************************** + +** Use the ASSIST command to engage in mortal combat with someone in the + room who is getting pummeled. + +** Use the SPLIT command to split gold among the members of your group + (including yourself) who are in the room. i.e. If you are in a group + with 4 other people who are in the room with you, type "SPLIT 100" + to give each of them 20 coins. + +** You can use the VISIBLE command to break a spell of invisibility before + it expires. diff --git a/lib/text/policies b/lib/text/policies new file mode 100644 index 0000000..fa57ee2 --- /dev/null +++ b/lib/text/policies @@ -0,0 +1,9 @@ +(lib/text/policies) + +This file should list, in no uncertain terms, the policies you must abide +by on this MUD. + +Bug the higher-ups to make some policies and write them in this file, lest +a political disaster ensue... + + diff --git a/lib/text/wizlist b/lib/text/wizlist new file mode 100644 index 0000000..6677297 --- /dev/null +++ b/lib/text/wizlist @@ -0,0 +1,16 @@ + ************************************************************************* + * The following people have reached immortality on CircleMUD. They are * + * to be treated with respect and awe. Occasional prayers to them are * + * advisable. Annoying them is not recommended. Stealing from them is * + * punishable by immediate death. * + ************************************************************************* + + Implementors + ~~~~~~~~~~~~ + + Greater Gods + ~~~~~~~~~~~~ + + Gods + ~~~~ + diff --git a/lib/world/README b/lib/world/README new file mode 100644 index 0000000..59a9d00 --- /dev/null +++ b/lib/world/README @@ -0,0 +1,35 @@ +CircleMUD - World Files + + Contained in this lovely archive is the present shape of the world +for Circle. Everything should be in the form of ASCII flags for easy +addition and removal of flags. All of the shop files are in the +CircleMUD style (and they make good examples since there is a bit of +everything, from wandering shops through to shops that dislike certain +alignments or classes). + + Feedback on the world is more than welcome. This includes +listing things that people like and things that people do not +like. Why do you like it or dislike it? + + The zone files have been formatted into a consistent format +with comments and ordering. This allows readers of the files to +have a much quicker grasp of what is going on in the file. All +of the world files have been indented with three (3) characters +to begin all paragraphs. This makes the overall format of the +world much more similar. + + If you are comparing the world to the CircleMUD 2.x world, you +will notice that some areas have been removed, others have been +added, and some have been shifted about a little bit. + + Also, please note the 'zone.lst' file in this directory, which +shows all of the zone numbers that are currently in use, and what +is using them. Finally, full credit should be in all of the zone +files (please leave it there in case you ever release your mud code +and world), and can also be found in 'info.hlp' under 'AREAS ZONES' +which gives a current list of zones used in CircleMUD. Please ensure +that all credits in there remain, and if you add new areas, please +credit them properly. + +Furry/Alex Fletcher +<furry@circlemud.org> diff --git a/lib/world/README.CAW b/lib/world/README.CAW new file mode 100644 index 0000000..b3f3021 --- /dev/null +++ b/lib/world/README.CAW @@ -0,0 +1,42 @@ +C.A.W. + +The Curious Area Workshop was created for the creation and +distribution of DikuMud areas to the public. + +Why? + +The individuals involved in the initial creation of C.A.W. were tired +of seeing their work disappear on muds that come and go as quickly as +a summer rain. C.A.W. gives them, and others, the chance to +distribute their efforts to the general community -- a chance to give +back to the mudding community in a small way. + +Would you like to see us personally on your mud? You won't. We don't +want free wizzes/favors for our work here. In fact, we will state +categorically that if anyone comes on your mud claiming to be +associated with us, they aren't. + +There is one exception, one only. Caw exists as an entity on VieMud +mud, our pre-release testing grounds. If you need to get in contact +with us for any reason, you can reach us on VieMud, directly at +<fletchra@qsilver.queensu.ca>, or at our web page at: +http://qsilver.queensu.ca/~fletchra/Caw/ + +We welcome criticism, ideas, challenges, bug/typo reports, and advice. +If you use one of our areas in your mud, and want to be put on our +mailing list for updates, announcements, and errata, drop us a line! + +------------------------------------------------- +Legal Matters + +All files mentioned in the section, 'Manifest', have been copyrighted +as per United States copyright laws. + +Permission is given to modify, change, and otherwise make use of these +files in any manner desired, as long as proper credit for the original +concept, design, and work is given to the Curious Area Workshop +(C.A.W.) and C.A.W. is notified of such use. Redistribution of the +files must contain at least this file however, and C.A.W. must be +notified if this occurs. + +------------------------------------------------- diff --git a/lib/world/mob/0.mob b/lib/world/mob/0.mob new file mode 100644 index 0000000..3614a34 --- /dev/null +++ b/lib/world/mob/0.mob @@ -0,0 +1,65 @@ +#1 +Puff dragon fractal~ +Puff~ +Puff the Fractal Dragon is here, contemplating a higher reality. +~ +Is that some type of differential curve involving some strange, and +unknown calculus that she seems to be made out of? +~ +anopqr dkp 1000 E +26 1 -1 5d10+550 4d6+3 +10000 155000 +8 8 2 +BareHandAttack: 12 +E +#10 +clone~ +the clone~ +A boring old clone is standing here. +~ +This clone is nothing to look at. No, really, it is quite boring. +~ +b 0 0 S +1 0 0 1d1+1 1d1+1 +0 0 +8 8 0 +#11 +zombie undead humanoid~ +the zombie~ +A strange humanoid is here. How odd, its flesh seems to be falling off! +~ +This strange humanoid is moving rather slowly, and appears to be +a corpse, a walking corpse! It must be a zombie or something of +the sort. +~ +b 0 0 E +1 0 0 1d1+1 1d1+1 +0 0 +8 8 0 +BareHandAttack: 7 +E +#19 +aerial servant shape~ +the aerial servant~ +An amorphous shape is floating in the air. +~ +As you stare at this amorphous shape, it begins to appear to take +the shape of a cloud-like humanoid. +~ +b 0 0 S +1 0 0 1d1+1 1d1+1 +0 0 +8 8 0 +#20 +elemental~ +the elemental~ +An elemental is standing patiently here. +~ +This creature is the essence of the elements, and appears to be +waiting patiently for something to occur. +~ +b 0 0 S +1 0 0 1d1+1 1d1+1 +0 0 +8 8 0 +$ diff --git a/lib/world/mob/12.mob b/lib/world/mob/12.mob new file mode 100644 index 0000000..3b3a559 --- /dev/null +++ b/lib/world/mob/12.mob @@ -0,0 +1,37 @@ +#1200 +innkeeper~ +the Immortal Innkeeper~ +The Immortal Innkeeper is organizing her books here. +~ +She appears to be having no problem tallying things up. +~ +ab p 0 S +30 0 -10 1d49+901 4d8+5 +0 0 +8 8 2 +#1201 +postmaster master post~ +the Immortal Postmaster~ +The Immortal Postmaster is hard at work here. +~ +Scary... a postal worker... working? +~ +ab p 0 S +30 0 -10 1d49+901 4d8+5 +0 0 +8 8 2 +#1202 +being amorphous spirit wandering~ +the wandering spirit~ +A strange amorphous being wanders these halls eternally cleaning. +~ +This spirit, having lived out its days in the mortal world, now +works off its final sins by doing menial labour in this realm's +purgatory. In this case, those chores seem to be cleaning up +after the immortals of the land. +~ +acgq dkps 0 S +30 0 -10 1d49+901 4d8+5 +0 0 +8 8 0 +$ diff --git a/lib/world/mob/120.mob b/lib/world/mob/120.mob new file mode 100644 index 0000000..a1c8e2c --- /dev/null +++ b/lib/world/mob/120.mob @@ -0,0 +1,489 @@ +#12000 +judge adjudicator~ +the adjudicator~ +An adjudicator is watching the games intently. +~ +The adjudicator is a retired gladiator and scars cover all exposed parts of +his body. Although he is getting on in years, he remains healthy and fit. +~ +bl h 100 S +12 9 2 3d7+140 1d7+4 +2000 13000 +8 8 1 +#12001 +scorekeeper~ +the scorekeeper~ +A scorekeeper has one eye on his stopwatch and the other on a clipboard. +~ +The scorekeeper is a young man of about 25 years of age and is very intently +studying his clipboard. +~ +bl 0 100 S +7 14 4 3d5+80 1d4+3 +500 2250 +8 8 1 +#12003 +spectator fan~ +the spectator~ +A spectator is here watching the games. +~ +The spectator is filthy, half drunk and screaming his head off. +~ +b 0 -100 S +5 16 5 2d6+65 2d4+0 +100 900 +6 6 0 +#12004 +noble nobleman~ +the nobleman~ +A nobleman stands here looking aloof. +~ +The nobleman is dressed in fine clothes and jewelry and has a very snobbish +attitude. While he is getting old and his hair and beard are streaked with +gray, he is by no means an easy target. +~ +bhl d 500 S +12 9 2 4d6+140 1d7+5 +3500 13000 +8 8 1 +#12005 +slave~ +the slave~ +A slave stands here, wishing that she was free. +~ +A very pretty young woman who was captured instead of being killed when +the Roman legions subjugated her land. +~ +b 0 0 S +3 18 7 3d6+30 1d7+0 +10 350 +8 8 2 +#12006 +gladiator~ +the gladiator~ +There is a gladiator standing here. +~ +A well muscled man who is very heavily armored and armed to the teeth. He +lives for combat. +~ +b 0 -250 S +14 5 0 4d7+150 1d8+6 +700 19500 +8 8 1 +#12007 +driver~ +the chariot driver~ +There is a chariot driver here. +~ +You see a very slight and small individual whose whole life is centered around +nothing but horses and speed. +~ +b 0 100 S +10 11 2 3d7+120 2d6+1 +1200 9000 +8 8 1 +#12008 +coach trainer~ +the coach~ +There is a coach standing here, going over last minute strategy. +~ +As you try to look over his shoulder and listen in on his mumbling, +he looks up at you and gives you a glare that chills you to the +bone. +~ +bl 0 0 S +11 10 2 4d5+130 2d6+1 +500 11000 +8 8 1 +#12009 +healer~ +the healer~ +A healer is standing here. +~ +You see a young man, still learning about magical healing, wearing a white +coat and using a stethoscope. +~ +abel d 900 S +14 7 1 2d7+170 1d7+6 +1500 18000 +8 8 1 +#12010 +herbalist young lady beautiful~ +the herbalist~ +There is a beautiful young lady here, carrying herbs to help the healer with. +~ +The herbalist is a very beautiful young lady who is about 22 years old. She +has deep brown eyes and shoulder-length chestnut hair. Her body is perfectly +proportioned and she stands about 5' 5" tall. +~ +bhl d 1000 S +10 11 2 3d4+110 1d7+4 +500 8000 +8 8 2 +#12011 +shopkeeper~ +Titus' shopkeeper~ +Titus' shopkeeper is here, minding the store. +~ +The shopkeeper is an older man in his middle to late fifties and looks like +he enjoys the quiet life. There is a long scar running from the edge of his +mouth to his right ear, making it look like he is always smiling. +~ +bl hd 750 S +23 0 -2 4d10+400 3d8+12 +5000 80000 +8 8 1 +#12012 +peddler~ +the peddler~ +A poor peddler is standing here, trying to support his meager existence. +~ +You see a small, dirty man who doesn't look very healthy. +~ +bghn 0 250 S +4 17 6 3d4+40 1d8+0 +100 600 +8 8 1 +#12013 +page~ +the page~ +A page stands here, waiting to run an errand. +~ +You see a young boy who looks very strong and very fast. He has the look of +a scholar about him. +~ +b 0 0 S +6 15 4 3d6+75 2d4+1 +0 1600 +8 8 1 +#12014 +plaintiff~ +the plaintiff~ +The plaintiff stands here, pleading his case. +~ +He looks pitiful. Absolutely pitiful. +~ +b 0 0 S +11 10 2 3d6+140 2d6+3 +1000 12000 +8 8 1 +#12015 +master~ +the ticket master~ +A ticket master is here, looking at you expectantly. +~ +He seems to be waiting for you to either buy a ticket or to get out +of his way so that he can sell tickets to people that actually want +them. +~ +bl 0 100 S +17 4 1 4d8+210 1d6+11 +4000 28000 +8 8 1 +#12016 +vendor~ +the stadium vendor~ +A stadium vendor is walking here, selling overpriced hotdogs and beer. +~ +The vendor is a scruffy looking man who isn't afraid of a fight and looks +like he has had just about enough of smart-mouthed spectators. +~ +g 0 -150 S +8 13 3 2d4+13000 2d5+15 +500 3700 +8 8 1 +#12017 +citizen~ +the citizen~ +A citizen of Rome is standing here. +~ +It appears to be your ordinary citizen going about his business. +~ +gl 0 900 S +5 16 5 1d4+85 1d8+1 +100 1000 +8 8 1 +#12018 +gateguard guard~ +the gateguard~ +A gateguard stands here, tending the gate. +~ +You see a strong, loyal public defender. +~ +abcel 0 1000 S +11 10 2 3d6+130 1d6+5 +500 11000 +8 8 1 +#12019 +soldier~ +the soldier~ +A soldier on leave is walking around looking for entertainment. +~ +You see a member of one of the Emperor's elite legions. He looks VERY strong. +You have this vague feeling that his entertainment isn't going to be a very +wholesome activity. +~ +gl 0 300 S +17 4 -1 3d5+220 1d6+9 +1281 28000 +8 8 1 +#12020 +emperor julius caesar~ +Julius Caesar~ +Julius Caesar, the Emperor of Rome, is sitting here. +~ +You see a man who is dressed in the finest of clothes, has eaten the best of +foods and lived in the most opulent palace that Rome has ever known. +~ +abl dhp 990 S +27 0 -7 10d5+650 3d7+15 +24763 150000 +8 8 1 +#12021 +guard royal bodyguard~ +the royal bodyguard~ +There is a royal bodyguard here, ready to die for the Emperor, if necessary. +~ +The bodyguard is dressed in the finest of armor and wields only the +deadliest of weapons. He is very strong and would put up one hell +of a fight. He has been trained to be suspicious of all but the +most innocent visitors, and likely to take offense of anyone with +less than pure intentions. +~ +abikl d 990 E +18 2 0 3d6+220 1d6+6 +5000 35000 +8 8 1 +BareHandAttack: 6 +Str: 18 +StrAdd: 90 +E +#12022 +judge justice~ +the judge~ +A judge is standing here, reading a case. +~ +He seems to be quite interested in the case, perhaps you shouldn't +disturb him now, later would probably be a better time. +~ +bl 0 990 S +21 0 -1 20d5+260 1d7+11 +5000 50000 +6 6 1 +#12023 +master scheduler~ +the master scheduler~ +The master scheduler is here, writing in an appointment book. +~ +As you look at him, he looks up at you and asks, 'Do you have an +appointment?' He waits for a few seconds and then asks, 'Would +you like one?' +~ +bl 0 900 S +17 3 0 4d4+210 1d6+9 +3000 28000 +8 8 1 +#12024 +slimeball slime ball green~ +the slimeball~ +A green ball of slime is hanging over you, oozing downward. +~ +There is a green 'ball' of slime oozing from the coating on the walls. +~ +bcfqr dfk -500 E +12 9 2 3d4+145 2d6+2 +0 13000 +8 8 0 +BareHandAttack: 9 +Int: 1 +E +#12025 +froboz wizard~ +Froboz~ +Froboz the wizard is standing here, working on a new spell. +~ +You see a middle-aged man whose knowledge of magic, both offensive and +defensive, is legendary. He literally glows with a pink aura. +~ +abelno dh 300 S +23 0 -3 5d10+425 1d8+14 +32000 95000 +8 8 1 +#12026 +titus andronicus~ +Titus Andronicus~ +Titus Andronicus is standing here, polishing a few swords. +~ +As you look at him, he suddenly swings a newly sharpened sword +at you! Watch out! +~ +beflno dh 500 E +24 0 -5 1d5+450 1d8+14 +31000 85000 +8 8 1 +BareHandAttack: 3 +E +#12027 +senator~ +the senator~ +A senator is here, waiting for debate to begin. +~ +He seems to be quite bored and is playing with the edge of his toga. +~ +bl 0 350 S +10 11 2 3d5+120 2d6+1 +500 9000 +8 8 1 +#12028 +bailiff~ +the bailiff~ +The bailiff stands here, keeping order in the courtroom. +~ +He is a very stern man and insists on absolute quiet in his courtroom +unless the judge has given someone permisson to speak. +~ +bl d 900 S +16 5 1 1d5+200 2d7+4 +1000 24000 +8 8 1 +#12029 +defendant~ +the defendant~ +The defendant stands here, pleading her case. +~ +She looks to be well organized and full of confidence. +~ +bl 0 200 S +11 9 1 3d6+130 2d7+1 +500 11000 +8 8 2 +#12030 +jupiter king god~ +Jupiter~ +Jupiter, King of the Gods, is watching over his realm here. +~ +He is the strongest of the Gods, and certainly no easy mark! His powers +transcend the plane of the physical, and could easily kill an unprepared +mortal. +~ +abeilnopqr dhkp 1000 E +34 0 -10 20d15+950 8d6+50 +250000 550000 +8 8 1 +BareHandAttack: 10 +Str: 25 +Int: 25 +Wis: 25 +Dex: 25 +Con: 25 +Cha: 25 +E +#12031 +venus goddess~ +Venus~ +Venus, the Goddess of Beauty and Knowledge, is resting here. +~ +Venus is probably one of the most beautiful women you have ever seen +if not THE most beautiful. She is very powerful and tough under that +outer image of beauty. +~ +abelnopqr dhkp 1000 E +28 0 -6 5d10+650 6d6+12 +80000 310000 +5 5 2 +BareHandAttack: 12 +Str: 20 +Int: 20 +Wis: 20 +Dex: 20 +Con: 20 +Cha: 25 +E +#12032 +mars god~ +Mars~ +Mars, the God of War and State, is sitting down here. +~ +Mars is a tall God with burning, hateful eyes and a large scowl on +his face. +~ +abelnopqr dhkp 1000 E +27 0 -9 15d10+630 8d6+14 +60000 200000 +6 6 1 +BareHandAttack: 7 +Str: 25 +Int: 20 +Wis: 20 +Dex: 20 +Con: 20 +Cha: 20 +E +#12033 +mercury messenger god~ +Mercury~ +Mercury, the messenger of the Gods, is standing here. +~ +Mercury is a handsome, youthful God and wears a large grin on his face. +~ +belnopqr dkp 1000 E +26 0 -10 5d10+550 4d6+8 +25000 155000 +8 8 1 +BareHandAttack: 13 +Str: 20 +Int: 20 +Wis: 20 +Dex: 25 +Con: 20 +Cha: 23 +E +#12034 +shopkeeper~ +Froboz' shopkeeper~ +Froboz' shopkeeper is here, minding the store. +~ +The shopkeeper is an older man in his middle to late fifties and looks like +he enjoys the quiet life. There is a long scar running from the edge of his +mouth to his right ear, making it look like he is always smiling. +~ +blno dh 650 S +23 0 -2 4d10+400 1d8+14 +5000 80000 +8 8 1 +#12035 +executioner~ +the executioner~ +The executioner stands here, waiting to torture some sorry soul. +~ +You see a burly man who is wearing a black hood that obscures his face. He +has a very sadistic attitude and clearly loves his work. +~ +bcfno d -1000 S +20 1 0 2d6+260 2d2+14 +1000 40000 +8 8 1 +#12036 +baker~ +the baker~ +The baker looks at you calmly, wiping flour from his face with one hand. +~ +A fat, nice looking baker. But you can see that he has many scars on his +body. +~ +bl d 900 S +33 0 -10 6d10+30000 2d8+22 +2000 80000 +8 8 1 +#12037 +grocer~ +the grocer~ +A grocer stands at the counter, with a slightly impatient look on his face. +~ +A tall grocer, who moves two 200 pounds bag of flour around on his shoulders. +~ +bl d 900 S +33 0 -10 1d1+30000 2d8+22 +20000 80000 +8 8 1 +$ diff --git a/lib/world/mob/15.mob b/lib/world/mob/15.mob new file mode 100644 index 0000000..9557d34 --- /dev/null +++ b/lib/world/mob/15.mob @@ -0,0 +1,309 @@ +#1500 +allah god yahweh~ +Allah~ +You resist the urge to avert your eyes from the sight of the one true God. +~ +The sight is for each man a different, a mirror into the true nature of +each person's body and soul. At first a proud, bitter old man, but just +as easily a gentle extended hand, a smile, and gardens... gardens. +~ +beilnopqr h 1000 S +30 -10 -10 1d1+2999 8d8+9 +0 400000 +8 8 1 +#1501 +michael angel archangel~ +Michael~ +The archangel Michael turns and begins to look you over. +~ +At first you see nothing but a bright and comforting glow; then the +image sharpens suddenly, and you see a face, eyes, hands, but then +that too fades, and you see nothing. +~ +bl h 1000 S +29 -6 -7 1d100+1900 6d7+7 +0 280000 +8 8 1 +#1502 +gabriel angel archangel~ +Gabriel~ +The archangel Gabriel smiles, and begins to tell you something. +~ +Known as the Messenger, it is this angel that has brought the Divine Word +to the chosen prophets, and in turn brought the Seal of the Prophets on a +miraculous journey to the holy city of Jerusalem. +~ +bl h 1000 S +29 -6 -7 1d100+1900 6d7+7 +0 280000 +8 8 1 +#1503 +raphael angel archangel~ +Raphael~ +The archangel Raphael looks up and frowns at you in disapproval. +~ +It is impossible to get a solid glance at the archangel. He is nothing +that is human, and with a mere whisper, he dispels every image that you +attempt to create in your mind. +~ +bl h 1000 S +29 -6 -7 1d100+1900 6d7+7 +0 280000 +8 8 1 +#1504 +uriel angel archangel~ +Uriel~ +Uriel, the angel of darkness, stands here guarding the way forward. +~ +After the Fall of the bringer of light, the Lord had need for the +service of a fourth, and it was this angel, Uriel, that rose to the +highest ranks. +~ +bl h 1000 S +29 -6 -7 1d100+1900 6d7+7 +0 280000 +8 8 1 +#1505 +cherub cherubin cherubim~ +the cherubin~ +The cherubin of the blazing sword looks at you and begins to chuckle. +~ +The monster before you seems to be nothing more than a baby or young +child, wrapped in a glowing white cloth, but as you try to walk past, +the beast grins and cackles, drawing its sword and blocking the way. +~ +bf h 0 S +17 1 0 10d5+260 3d6+4 +0 40000 +8 8 0 +#1506 +jester~ +the jester~ +A mad, drunken jester is sitting here, lost in his deepening stupor. +~ +He is dimly aware of your gaze. Chuckling softly, you hear him mutter +something obscure: dragons, the temple, the falling of great empires. +He laughs at you and takes another drink. +~ +b 0 -300 S +13 6 1 10d2+180 2d8+2 +3450 21000 +6 6 1 +#1507 +jinn sprite~ +the jinn~ +One of the jinn dances in and out of the air before your eyes, taunting you. +~ +You have heard legends of these creatures, the mischievous little demons +said to be trapped in lamps and bottles, capable of granting all kinds of +powerful wishes. To you, it looks like nothing more than an annoying little +sprite. +~ +cg b 0 S +23 0 -2 25d2+400 3d9+3 +0 70000 +8 8 0 +#1508 +man old~ +the slumped old man~ +A slumped, shaking old man stands up and begins to yell at the world. +~ +He wears a faded uniform, decorated with honors of his own creation, +slackened jaws and pasty white bags sagging under his ugly, hating eyes. +A tuft of reckless dark hair scatters across his forehead, and his right +hand shakes and shakes. +~ +bf dk -1000 S +26 -4 -5 4d10+840 4d9+6 +34000 180000 +8 8 1 +#1509 +caliph hakim al-hakim~ +al-Hakim~ +The mad Caliph al-Hakim is here, dissecting a young boy. +~ +The darkest skin, and eyes so white. Covered only in a shoddy woolen +tunic, he has not bathed in months nor eaten in days, and yet his smile, +so charming. +~ +bf dk -1000 S +26 -4 -5 4d10+840 4d9+6 +34000 180000 +8 8 1 +#1510 +judas escariot apostle~ +Judas Escariot~ +The wayward apostle approaches slowly, extending his arms in a hug. +~ +You see nothing but the sadness of a man who would sell his own God. +~ +bc dk -1000 S +25 -3 -4 5d10+650 4d6+5 +1 145000 +8 8 1 +#1511 +pharoah~ +Pharoah~ +Pharoah has been sent here in retribution for a lifetime of evils. +~ +Richly clothed and postured in arrogance and love of power, he looks at +you with nothing more than a smirk of contempt. +~ +b dk -1000 S +25 -3 -4 5d10+650 4d6+5 +25000 145000 +8 8 1 +#1512 +abu bakr first caliph~ +Abu Bakr~ +Abu Bakr, first of the Rashidun, mourns over the death of the Prophet. +~ +You see a simple man, dressed in dark and unadorned robes, bent over and +pensive, reliving the memories of a man he never thought would die. +~ +b dk 1000 S +25 -3 -4 5d10+650 4d6+5 +25000 145000 +8 8 1 +#1513 +umar second caliph~ +Umar~ +You see Umar, second of the Rashidun, the successors of the Prophet. +~ +You are amazed at the piety of the man. He looks at you in sadness, +saying: "I do not wish to fight you, but if you refuse the truth of +the Word, then I must." +~ +b dk 1000 S +25 -3 -4 5d10+650 4d6+5 +25000 145000 +8 8 1 +#1514 +uthman third caliph~ +Uthman~ +The third of the rightly-guided Caliphs, Uthman, stands before you. +~ +He was chosen as leader by a clique of jealous rivals who could agree +upon no other. The memory of the Prophet fading quickly from the minds +of the faithful, he could do little, and was in the end killed by his +enemies. +~ +bf dk 1000 S +26 -4 -5 4d10+840 4d9+6 +34000 180000 +8 8 1 +#1515 +ali fourth last caliph~ +Ali~ +You have come before Ali, fourth and last of the Rashidun. +~ +Some view him as the closest to God among all of the Caliphs, the one +most deserving of our respect and reverence. Still others saw him as +a schismatic, a heretic, one to be killed and forgotten. To look at +him now is for you to decide for yourself. +~ +bf dk 1000 S +26 -4 -5 4d10+840 4d9+6 +34000 180000 +8 8 1 +#1516 +angel beautiful iblis~ +Iblis~ +You gaze in awe at the most beautiful of all angels, Iblis, the Fallen. +~ +He smiles calmly, and begins to tell you of the time when he would not +kneel, would not prostrate himself before the first human beings. And +then he gestures at you, smiling, and conjures an image of all the +temptations that will be yours if you in turn but follow him. +~ +bcf dk -1000 S +25 -3 -4 10d5+650 4d6+5 +25000 145000 +8 8 1 +#1517 +iblis satan devil voice~ +the Temptation~ +You pause nervously as a voice whispers at you from over your shoulder. +~ +There is no physical figure attached to the presence that dominates this +place, just tormented laughter, moaning, screaming, and begging. +~ +bcf dk -1000 S +25 -3 -4 10d5+650 4d6+5 +25000 145000 +8 8 1 +#1518 +serpent dragon devil iblis~ +the raging dragon~ +A raging dragon turns to you in violent lust for your soul. +~ +The serpent of babylon, the aged and violet hued monster that has +watched all of mankind succumb before its power, turns to you as +its last victim. +~ +bcf dk -1000 S +27 -4 -5 75d2+825 4d8+5 +40000 180000 +8 8 1 +#1519 +demon fire~ +the demon~ +The hell-fire around you is dominated by a massive, burning demon. +~ +You see nothing but the inexorably red and burning anger of the +lord of the underworld that you fear to be your fate. +~ +bcf dk -1000 S +27 -4 -5 75d2+825 4d8+5 +40000 180000 +8 8 1 +#1520 +baby innocent~ +the innocent baby~ +Lying on the ground wrapped in blankets is the most innocent of babies. +~ +The baby is barely aware of your presence, lost in a sleepy and +contented yawn. +~ +b dk 1000 S +22 -3 -4 5d10+150 4d6+4 +20000 145000 +4 4 1 +#1521 +boy teenage~ +the teenage boy~ +You stop in surprise at the sight of a teenage boy staring off to the distance. +~ +He is young, and has not yet seen the bloodiness of this world. You follow +his gaze and notice that he is gazing in wonderment at the fullness of the +moon. +~ +b dk 1000 S +24 -3 -4 5d10+680 4d6+5 +22000 145000 +8 8 1 +#1522 +man~ +the man~ +A middle-aged man is here, kneeling in prayer. +~ +He is tired, the lines of age marking his face, but in his robe, +kneeling, he is the image of perfect contentment. +~ +bl dk 1000 S +26 -4 -5 75d2+820 4d8+5 +40000 180000 +5 5 1 +#1523 +soul~ +the bodyless soul~ +You are overwhelmed by the presence of a soul that has transcended its body. +~ +You sense certain tastes and smells, the winds through the gardens. +Nothing can explain or describe this perfection, this utter bliss. +~ +bf dk 1000 S +28 -4 -5 100d2+820 4d8+5 +0 190000 +8 8 1 +$ diff --git a/lib/world/mob/150.mob b/lib/world/mob/150.mob new file mode 100644 index 0000000..a3c0047 --- /dev/null +++ b/lib/world/mob/150.mob @@ -0,0 +1,424 @@ +#15000 +gwydion guard royal~ +Gwydion~ +Gwydion the Royal Guard is here on duty. +~ +As all members of the Guard, Gwydion wears the chain mail required +of them as uniform. He seems very well trained, and moves like an +experienced fighter. +~ +abg 0 800 S +11 9 2 3d6+130 1d8+4 +400 11000 +8 8 1 +#15001 +king welmar~ +King Welmar~ +The wise King Welmar sits here in his throne. +~ +In his later middle-age, with his beard starting to grey, King Welmar +is still very powerfully built, and wouldn't take kindly to an attack. +Despite that, you know he is well-loved throughout the land, and has +a reputation as a wise and just ruler. +~ +ab dh 1000 S +33 0 -10 3d60+1480 4d8+16 +35000 1000000 +6 8 1 +#15002 +ghost horrible~ +the horrible ghost~ +You hear a frightening wail, and see a horrible ghost approaching. +~ +The ghost is almost translucent, and looks really SCARY! +~ +bcefnopqr dks -700 S +15 6 -6 9d6+150 2d8+2 +3000 22000 +8 8 0 +#15003 +jim guard royal~ +Jim~ +Jim the Royal Guard is here on duty. +~ +As all members of the Guard, Jim wears the chain mail required of +them as uniform. He seems very well trained, and moves like an +experienced fighter. +~ +ag 0 800 S +11 9 2 3d6+130 1d8+4 +400 11000 +8 8 1 +#15004 +brian guard royal~ +Brian~ +Brian the Royal Guard is here, training with the Master. +~ +As all members of the Guard, Brian wears the chain mail required of +them as uniform. He seems very well trained, and moves like an +experienced fighter. +~ +abg 0 800 S +11 9 2 3d6+130 1d8+4 +400 11000 +8 8 1 +#15005 +mick guard royal~ +Mick~ +Mick the Royal Guard is here, training with the Master. +~ +As all members of the Guard, Mick wears the chain mail required of +them as uniform. He seems very well trained, and moves like an +experienced fighter. +~ +abg 0 800 S +11 9 2 3d6+130 1d8+4 +400 11000 +8 8 1 +#15006 +matt guard royal~ +Matt~ +Matt the Royal Guard is here on duty. +~ +As all members of the Guard, Matt wears the chain mail required of +them as uniform. He seems very well trained, and moves like an +experienced fighter. +~ +ag 0 800 S +11 9 2 3d6+130 1d8+4 +400 11000 +8 8 1 +#15007 +jochem guard royal~ +Jochem~ +Jochem the Royal Guard sits here, off duty. +~ +As all members of the Guard, Jochem wears the chain mail required of +them as uniform. He seems very well trained, and moves like a fighter +who has seen more than one battle, and longs to see the next! +~ +ag 0 900 S +13 7 2 3d6+150 1d8+5 +400 16000 +6 6 1 +#15008 +anne guard royal~ +Anne~ +Anne the Royal Guard is here on duty. +~ +As all members of the Guard, Anne wears the chain mail required of +them as uniform. She seems very well trained, and moves like a fighter +who has seen more than one battle, and longs to see the next! +~ +ag 0 900 S +13 7 2 3d6+150 1d8+5 +400 16000 +8 8 2 +#15009 +andrew guard royal~ +Andrew~ +Andrew the Royal Guard is here on duty. +~ +As all members of the Guard, Andrew wears the chain mail required of +them as uniform. He seems very well trained, and moves like a fighter +who has seen more than one battle, and longs to see the next! +~ +ag 0 900 S +13 7 2 3d6+150 1d8+5 +400 16000 +8 8 1 +#15010 +bertram bert guard royal~ +Bertram~ +Bertram the Royal Guard is here on duty. +~ +As all members of the Guard, Bertram wears the chain mail required of +them as uniform. He seems very well trained, and carries his scars +with pride. This guy seems tough... +~ +ag 0 900 S +15 5 1 3d6+175 1d8+7 +400 21000 +8 8 1 +#15011 +jeanette guard royal~ +Jeanette~ +Jeanette the Royal Guard is here on duty. +~ +As all members of the Guard, Jeanette wears the chain mail required of +them as uniform. She seems very well trained, and carries her scars +with pride. This girl could be nasty if she wanted to... +~ +ag 0 900 S +15 5 1 3d6+175 1d8+7 +400 21000 +8 8 2 +#15012 +peter captain guard royal~ +Peter, the Captain of the Royal Guard~ +Peter, the Captain of the Royal Guard, walks around inspecting. +~ +As all members of the Guard, Peter wears the chain mail required of +them as uniform. Even though all the other guards seem well trained, +you realise none of them would stand a chance against this man in a +fight. He stands at least two metres tall, but still moves with an +almost feline grace. He actually radiates strength and confidence, +and you have to fight a sudden urge to come to attention as you see +him. +~ +ag 0 900 S +19 1 -1 3d6+240 2d6+8 +1000 35000 +8 8 1 +#15013 +master trainingmaster~ +the Training Master~ +The Training Master is here, supervising. +~ +Aged, but experienced, the Training Master is skilled in the use +of virtually every weapon type invented by Man. +~ +abg 0 950 S +18 1 1 2d6+220 1d8+8 +1000 30000 +8 8 1 +#15014 +herald royal~ +the Royal Herald~ +The Royal Herald is standing here. +~ +This is a young, powerfully built man, whose primary function +is to make Royal Announcements. +~ +0 0 800 S +18 1 -1 3d6+220 1d8+9 +500 30000 +8 8 1 +#15015 +ergan murderer~ +Ergan the Murderer~ +Slumped in a corner you see Ergan, aka the Murderer of Townsbridge. +~ +You remember a time almost a decade ago, when the news of the day +was how this man had slaughtered the entire population of the little +village of Townsbridge. He was imprisoned, and here he is - a shadow +of the undoubtedly great warrior he once was, but still to be reckoned +with. +~ +acefhno sp -1000 S +13 8 2 3d6+155 2d8+2 +0 18000 +6 6 1 +#15016 +butler james~ +James the Butler~ +James the Butler is standing here, looking pompous. +~ +The typical perfect butler: upper middle age, a bit bald and with +an impressive belly. +~ +ag 0 500 S +8 13 3 1d6+100 1d9+2 +200 3750 +8 8 1 +#15017 +woman cleaning~ +the Cleaning Woman~ +There is a Cleaning Woman here, trying not be noticed. +~ +Although she has a menial job, she seems to like it. +~ +ag 0 800 S +1 20 9 4d6+1 1d5+0 +10 100 +8 8 2 +#15018 +cockroach roach~ +the cockroach~ +A large cockroach is crawling by the wall. +~ +Very large indeed, and they say cockroaches are hard to kill... +~ +eqr 0 -250 S +4 20 3 2d6+120 1d3+0 +5 750 +8 8 0 +#15019 +astrologer~ +the Astrologer~ +The Astrologer is sitting here, studying a book. +~ +He is old and white-haired, with a long beard. As you see him, +you can almost believe the rumours about stars deciding Fate, +and that astrology is capable of seeing the future. +~ +abelno 0 900 S +23 0 -2 1d1+30000 3d8+30 +2000 80000 +6 6 1 +#15020 +tim guard lifeguard~ +Tim, the King's Lifeguard~ +Tim, the King's Lifeguard, is standing here. +~ +This guy looks just like his twin, Tom. There seems to be no +doubt that he is completely prepared to give his life for the +King, if necessary. +~ +ab d 900 S +17 4 1 3d6+205 1d8+8 +1000 28000 +8 8 1 +#15021 +tom guard lifeguard~ +Tom, the King's Lifeguard~ +Tom, the King's Lifeguard, is standing here. +~ +This guy looks just like his twin, Tim. There seems to be no +doubt that he is completely prepared to give his life for the +King, if necessary. +~ +ab d 900 S +17 4 1 3d6+205 1d8+8 +1000 28000 +8 8 1 +#15022 +chef cook~ +the Chef~ +The Chef is here, shouting orders to the other cooks. +~ +It seems he has been tasting his own food a bit too enthusiastically. +He is, in other words, a bit fat. +~ +behlno 0 500 S +19 4 -1 2d6+1283 4d4+14 +1000 40000 +8 8 1 +#15023 +cook~ +the cook~ +There is a cook here, making himself busy with a pot. +~ +A junior cook, eager to do the Chef's bidding. +~ +bh 0 300 S +4 17 6 2d7+46 1d8+0 +50 600 +8 8 1 +#15024 +david man guard~ +David~ +David, a big, mean-looking man, stands here, guarding the door. +~ +He really is big, and you get the feeling he wouldn't take kindly +to an attempt to get past him. +~ +ab d 250 S +19 2 0 2d6+235 1d7+10 +2000 35000 +8 8 1 +#15025 +dick man guard~ +Dick~ +Dick, a big, mean-looking man, stands here, guarding the door. +~ +He really is big, and you get the feeling he wouldn't take kindly +to an attempt to get past him. +~ +ab d 250 S +19 2 0 2d6+235 1d7+10 +2000 35000 +8 8 1 +#15026 +jerry guard royal~ +Jerry~ +Jerry the Royal Guard is here off duty, playing dice. +~ +As all members of the Guard, Jerry wears the chain mail required +of them as uniform. He seems very well trained, and moves like +an experienced fighter. +~ +ag 0 800 S +11 9 2 3d6+130 1d8+4 +400 11000 +5 5 1 +#15027 +michael guard royal~ +Michael~ +Michael the Royal Guard is here off duty, playing dice. +~ +As all members of the Guard, Michael wears the chain mail required +of them as uniform. He seems very well trained, and moves like an +experienced fighter. +~ +ag 0 800 S +11 9 2 3d6+130 1d8+4 +400 11000 +5 5 1 +#15028 +hans guard royal~ +Hans~ +Hans the Royal Guard is here on duty. +~ +As all members of the Guard, Hans wears the chain mail required +of them as uniform. He seems very well trained, and moves like +a fighter who has seen more than one battle, and longs to see +the next! +~ +ag 0 900 S +13 7 2 3d6+150 1d8+5 +400 16000 +8 8 1 +#15029 +boris guard royal~ +Boris~ +Boris the Royal Guard is here on duty. +~ +As all members of the Guard, Boris wears the chain mail required of +them as uniform. He seems very well trained, and carries his scars +with pride. This guy seems tough... +~ +ag 0 900 S +15 5 1 3d6+175 1d8+7 +400 21000 +8 8 1 +#15030 +zombie villager~ +the zombie~ +A zombie is shambling over some corpses here, moving quite silently. +~ +It is entirely possible that this zombie was once one of the villagers +of Townsbridge who has been brought to an undead life by a fuelling +desire for revenge. +~ +befnpr dfks 0 S +11 6 3 4d4+95 2d4+8 +0 10000 +8 8 0 +#15031 +skeleton villager~ +the skeleton~ +A skeleton is moving about with a loud clatter here, climbing over corpses. +~ +It is entirely possible that this skeleton was once one of the villagers +of Townsbridge who has been brought to an undead life by a fuelling desire +for revenge. +~ +befnpr dfk 0 S +10 8 3 4d4+80 2d3+6 +0 8000 +8 8 0 +#15032 +pit fiend demon~ +the pit fiend~ +A large demon surrounded by flames rises out of the dark pool. +~ +It is a horrifying thing, this demonic creature from the depths of the +Abyss. It glares down at you through blood-red eyes, and bares its huge +white fangs and its razor-sharp talons. +~ +abeflnopqr dfhk 1000 S +33 0 -10 3d60+1480 4d8+16 +35000 1000000 +6 8 1 +$ diff --git a/lib/world/mob/186.mob b/lib/world/mob/186.mob new file mode 100644 index 0000000..beaf494 --- /dev/null +++ b/lib/world/mob/186.mob @@ -0,0 +1,192 @@ +#18601 +pitbeast pit-beast~ +the pit beast~ +The big, ugly pit-beast is standing here sizing you up. +~ +Ick... what a disgusting creature! It is black and green and slimy +and it is drooling everywhere... looks mean too. +~ +6 0 -750 S +5 17 5 4d6+42 1d5+1 +100 1200 +8 8 0 +#18602 +newbie monster~ +the newbie monster~ +The newbie monster stands here looking confused. Kill him! Kill him! +~ +What an odd looking little beast. He looks harmless, but you never can +tell. He is only about 4 feet tall, but he pretty muscular looking... +maybe you should ask if he needs help? Nah... kill him. +~ +68 0 0 S +2 19 9 2d4+16 1d4+1 +250 400 +8 8 1 +#18603 +dragon baby~ +the baby dragon~ +Someone's little pet dragon has gotten loose, and is sniffing about here. +~ +Awwww... how cute! A little baby dragon. He's about 3 feet long and you +just want to cuddle him to death... no, you really want to kill him to tell +the truth. But, remember, even a little dragon can be a big problem. +~ +0 0 100 S +4 17 6 1d4+50 1d6+1 +0 1000 +8 8 1 +#18604 +keeper guard monster~ +the Newbie Guard~ +The Newbie Guard is here wondering where that dragon went. +~ +The Guard also had the job of taking care of the Alchemist's pet dragon, +but he doesn't seem to be doing a good job of it. He looks at you and +says, 'Have you seen that dragon? Master will have my head if I don't find +him.' +~ +2 0 0 S +3 18 7 2d6+34 1d7+0 +500 800 +8 8 1 +#18605 +alchemist newbie~ +the Newbie Alchemist~ +The Newbie Alchemist is here trying to make something. +~ +He is a funny looking, furry little dude. He looks really busy trying to +mix up a batch of something or other. +~ +2 0 0 S +5 16 5 4d6+38 2d4+0 +1000 1200 +8 8 0 +#18606 +crawler creepy bug thing~ +the creepy crawler~ +A creepy little crawling thing is scuttling along the floor at your feet. +~ +Yuck! If they'd ever clean this place maybe it wouldn't attract vermin +like this disgusting, little, six-legged, brown bug. +~ +64 0 -250 S +1 20 10 1d4+8 1d4+0 +0 100 +8 8 0 +#18607 +newbie zombie~ +the zombiefied newbie~ +A VERY gaunt looking newbie... it looks like a zombie! +~ +This guy has been lost in here too long... it is more zombie than man +now. You would feel sorry for it, but it is moving in to attack! +~ +100 0 -500 S +4 17 5 1d8+46 2d4+0 +300 600 +8 8 0 +#18608 +quasit imp thing~ +the quasit~ +A funny little imp-like thing (a quasit perhaps?) is sneaking about here. +~ +Little green, vaguely humoniod shaped creature, with a long pointed tail. +It is hard to say because before you ever get a good look at it, it darts +back into the shadows. +~ +228 0 -800 S +3 19 7 1d10+30 1d4+1 +0 300 +8 8 1 +#18609 +minotaur~ +the massive Minotaur~ +The Great Minotaur is wondering just what you'll taste like. +~ +A massive man, with the head of a bull. He looks as strong as bull too, +but not nearly as smart. Actually, now that you consider it... he looks +a heck of a lot meaner than any bull you have ever seen... and he is +coming this way! +~ +1600 0 -1000 S +7 15 5 3d5+85 2d4+1 +1000 3000 +8 8 1 +#18610 +spectre ghost~ +the dark spectre~ +The dark spectre is lurking in the shadows. +~ +The soul of a long since passed on adventurer... it lurks here waiting for +a chance to bring death to any who cross its path. +~ +2122 524298 -850 S +6 16 3 3d5+62 2d4+0 +0 1600 +8 8 0 +#18611 +newbie annoying jerk~ +the annoying newbie~ +A newbie is here annoying the hell out of you. +~ +What a jerk! He won't shut up, and he keeps making the most irritating +comments about everything. Better silence him with cold, tempered steel +MUHAHAHAHAHAHAHAHAHAHA! +~ +68 0 -500 S +2 18 10 2d4+20 1d3+1 +250 500 +8 8 1 +#18612 +newbie clueless moron~ +the clueless newbie~ +A newbie is here looking terribly confused. +~ +What a moron! Every question that is answered in the help files, he will +ask and he will probably ask 2 or 3 times too. This guy just doesn't get +it, best put him out of his misery. +~ +68 0 0 S +1 20 10 1d1+19 1d3+1 +50 220 +8 8 1 +#18613 +newbie talkative~ +the talkative newbie~ +A newbie is here talking a lot. +~ +Well, at least this gal seems pretty cool. Talks a lot, but she's a +friendly, interesting sort. Seems to have a clue what she's doing also, +unlike some others you might see. +~ +64 0 100 S +3 18 8 6d5+22 1d7+1 +700 600 +8 8 2 +#18614 +newbie lost~ +the lost newbie~ +A newbie is here wandering about aimlessly. +~ +Hmmm... looks like he has been around a while, but he wandered a little +too far from home this time. Don't think he knows quite where he is, +maybe you should help him out? +~ +64 0 300 S +4 17 6 8d5+20 1d6+1 +250 500 +8 8 1 +#18615 +newbie smart~ +the smart newbie~ +A newbie is here, and he looks quite sure of himself. +~ +Here is a guy who has it all together. Nice equipment too, must have read +the help files, Eh? +~ +68 0 500 S +5 15 9 10d5+20 2d3+2 +1100 1000 +8 8 1 +$ diff --git a/lib/world/mob/25.mob b/lib/world/mob/25.mob new file mode 100644 index 0000000..6763a8c --- /dev/null +++ b/lib/world/mob/25.mob @@ -0,0 +1,769 @@ +#2500 +shadow guardian~ +the shadow guardian~ +A shadow guardian screams a challenge and attacks. +~ +It seems to be made of nothing more than darkness... +~ +cfglmnopqr dfks -350 S +9 10 1 9d9+90 2d5+5 +100 4000 +8 8 0 +#2501 +adventurer~ +the lost adventurer~ +An emaciated adventurer is here looking lost and hopeless. +~ +He looks haggard and sickly; no doubt he's been lost here for quite some time. +~ +ah k 400 S +8 12 6 10d10+10 2d4+4 +286 1500 +6 8 1 +#2502 +edgar~ +Edgar~ +Edgar the Human Swordpupil is standing here, looking quite lost. +~ +Edgar says 'pardon me, can you tell me where to buy cups?' + +You see before you, one of Midgaard's finest fighting elite, the mighty +bunny slayer himself, Edgar the Horrible! +~ +ch k 1000 S +1 20 10 3d9+10 1d8+1 +23 100 +8 8 1 +#2503 +diamond golem~ +the diamond golem~ +A huge diamond golem is standing guard here. +~ +It looks quite strong. +~ +beglnopqr dk 500 S +23 5 -10 23d23+230 3d6+15 +985 15000 +8 8 0 +#2504 +mage young~ +the mage~ +A young mage wanders about, oblivious to all. +~ +He seems to be contemplating life, love and the mysteries of the universe. +Then again, he may just have a headache. +~ +agh dk 450 S +10 10 -1 10d10+100 1d8+8 +436 3500 +8 8 1 +#2505 +strick bartender~ +Strick the bartender~ +Strick is here levitating drinks to his customers. +~ +He looks rather harmless, but then again so does a sleeping dragon. +~ +b dk 750 S +25 1 -6 1d1+30000 3d7+20 +2000 20000 +8 8 1 +#2506 +tatorious wizard~ +Tatorious~ +Tatorious the wizard is here counting his earnings. +~ +Tatorious winks at you mischievously. +~ +b dk 900 S +25 0 -8 1d1+30000 3d7+21 +5000 24000 +8 8 1 +#2507 +ezmerelda cook~ +Ezmerelda~ +Ezmerelda the cook is here stirring a large pot of something. +~ +She does not look like the typical cook you would find in a kitchen, +but she certainly fits what you would expect in a tower fulls of +mages. +~ +ab dk -500 S +20 6 -1 20d20+200 3d4+8 +1092 31300 +8 8 2 +#2508 +assistant mage cook~ +the cook's assistant~ +The cook's assistant is here assisting the cook. +~ +This young man is busy adding strange ingredients to the large pot. +~ +abghm dk -200 S +11 8 1 11d11+110 3d4+4 +116 4600 +8 8 1 +#2509 +prisoner~ +the prisoner~ +A prisoner is chained to the wall here. +~ +Though his clothes are all in rags, you can see that at one time they +must have been fine garments. A metal muzzle has been fitted over the +poor wretch's mouth, whether to keep him from screaming, or to silence +his spell casting you cannot tell. + +He looks quite mad, no doubt he has been mistreated horribly. +~ +bgh 0 100 S +16 6 2 3d30+30 2d4+9 +0 1800 +8 8 1 +#2510 +jailor mage~ +the Jailor~ +The Jailor is here enjoying a comfortable nap. +~ +He looks rather dirty. +~ +ab dk 100 S +17 5 -3 17d17+170 3d5+10 +1326 12000 +4 4 1 +#2511 +broom~ +the broom~ +A straw broom is here leaning against the wall. +~ +The broom screams 'Take that you lout!' +~ +abefgnopqr dfk 50 S +7 10 2 7d7+70 2d4+4 +0 1600 +8 8 0 +#2512 +lesser guardian hands~ +the pair of disembodied hands~ +A pair of disembodied hands floats in the air here. +~ +The hands twitch with anticipation of strangling someone. +~ +fgpqr dfk -400 S +9 7 -5 9d9+90 2d4+5 +0 3100 +8 8 0 +#2513 +guardian greater eyes~ +the pair of disembodied eyes~ +A pair of disembodied eyes floats here glaring at you. +~ +The eyes smoulder with hatred. +~ +fgpq dfk -600 S +15 5 -9 15d15+150 3d4+8 +0 9100 +8 8 0 +#2514 +mage visitor~ +the mage~ +A visiting mage is here snoring away in peaceful slumber. +~ +He looks quite sleepy. +~ +abcgh dk 250 S +12 8 -2 12d12+120 2d4+5 +726 6200 +4 4 1 +#2515 +apprentice young~ +the young apprentice magic user~ +A young apprentice magic user is here doing magical studies. +~ +She looks quite intent on her studies. +~ +abcgh dk 400 S +7 7 2 7d6+25 2d4+5 +369 2950 +6 6 2 +#2516 +apprentice young~ +the young apprentice~ +A young apprentice is here mumbling words of magic to himself. +~ +He looks to be oblivious to all but the spell he is memorizing. +~ +abcgh dk 380 S +7 6 2 7d6+25 2d4+5 +487 2750 +8 8 1 +#2517 +apprentice young~ +the young apprentice~ +A young apprentice is sleeping here. +~ +He seems to be dreaming. +~ +abcgh dk 350 S +7 7 2 7d6+25 2d4+4 +211 2650 +4 4 1 +#2518 +apprentice young~ +the young apprentice~ +A young apprentice is here teasing a cornered kitten. +~ +He looks like a mischievous youth. +~ +abcgh dk -200 S +7 7 1 7d6+25 2d4+5 +382 2300 +8 8 1 +#2519 +kitten~ +the small kitten~ +A small kitten is here meowing in terror. +~ +The little ball of fur looks very unhappy. Singed fur and a few minor +burns mark its mottled coat. +~ +bcgh dk 500 S +1 20 1 1d1+10 1d4+1 +0 11 +8 8 2 +#2520 +student~ +the student~ +A student of spells is here looking quite bored. +~ +The student yawns. +~ +abcgh dk 350 S +8 9 1 8d8+80 2d4+6 +263 3000 +6 6 1 +#2521 +instructor teacher mage~ +the instructor of magic~ +The instructor screams at your interruption and attacks you. +~ +He looks quite angry at your interruption. +~ +abfh dk 300 S +14 6 -2 14d14+140 3d4+8 +880 18500 +8 8 1 +#2522 +student~ +the student of spells~ +A student of spells is here trying to master invisibility. +~ +He blinks in and out of existence, trying to master the spell. +~ +abcgh bdk 400 S +8 8 -2 8d8+80 2d4+6 +198 2200 +8 8 1 +#2523 +teacher mage~ +the spell teacher~ +A spell teacher screams at your interruption and attacks. +~ +The teacher is quite fierce and rather frightening. +~ +abfh dk 300 S +15 5 -4 15d15+150 3d4+9 +1256 20500 +8 8 1 +#2524 +student~ +the student of spells~ +A student of spells has fallen asleep at her desk here. +~ +She looks to have collapsed from sheer boredom. +~ +abcgh dk 400 S +9 11 -2 9d9+90 2d4+7 +567 3800 +4 4 2 +#2525 +wizard speaker mage~ +the wizard~ +An old wizard is here making a speech here. +~ +This wizzened old man looks like he could easily pass for the oldest +living man. Of course, having heard stories about some of the magic +available to the people living here, and what toll the magic draws... +this man might be as young as you. +~ +abcgh dk 400 S +18 4 -5 18d18+180 3d4+8 +2468 31000 +8 8 1 +#2526 +mage young~ +the young mage~ +A young mage is here learning hand to hand combat. +~ +This young fellow looks quite confident in his abilities to defend +himself. +~ +abcgh dk 300 S +9 11 -1 9d9+90 2d4+8 +695 3800 +8 8 1 +#2527 +mistress battle~ +the battle mistress~ +The battle mistress is here teaching the fine uses of a dagger. +~ +She looks quite rugged. In fact, she more resembles a warrior than a magic +user. +~ +abfhlq dk 200 S +17 2 -2 17d17+170 3d5+8 +3211 23050 +8 8 2 +#2528 +mage teacher~ +the spell teacher~ +A spell teacher is here relaxing. +~ +The teacher looks to be worn out by a long day of magic working, difficult +spells, and inattentive students. +~ +abg dk 200 S +15 5 1 15d15+150 3d4+4 +1002 15800 +5 5 1 +#2529 +wizard~ +the aged wizard~ +An aged wizard is sleeping here. +~ +Dreams of magic and power are probably flowing through his head right +now, better not wake him up. +~ +afgh dk 350 S +20 5 -5 20d20+200 3d4+9 +1567 37500 +4 8 1 +#2530 +scribe mage~ +the scribe~ +A scribe is here working on some manuscripts. +~ +He appears to be copying out some spell ingredients or components right +now. +~ +abcgh dk 400 S +14 6 -1 14d14+140 3d4+4 +312 14850 +8 8 1 +#2531 +scribe mage~ +the scribe~ +A scribe is here working diligently on some translations. +~ +She is quite cute. Too bad her only interest seems to be the words of +lore she is translating. +~ +abcgh dk 500 S +15 6 -1 15d15+150 2d4+10 +684 16550 +8 8 2 +#2532 +master scribe~ +the Master Scribe~ +The Master Scribe is here looking a little upset +~ +He seems to be so old, his skin has become nothing but a giant wrinkle. +The master scribe screams 'How dare you interrupt my important work???' +~ +abfgh dk 100 S +22 4 -5 22d22+220 3d5+8 +5634 29500 +8 8 1 +#2533 +assistant scribe~ +the scribe's assistant~ +The scribe's assistant is here folding parchments. +~ +You can tell that he isn't trusted with the more important documents, +since those ones are rolled and sealed with wax. +~ +abfgh dk 100 S +16 6 -2 16d16+160 3d4+6 +1050 21300 +8 8 1 +#2534 +master enchanter mage~ +the Enchanter~ +The Enchanter is here placing a dweomer upon well made sword. +~ +The Enchanter is hard at work, concentrating on a spell which could +either destroy the weapon or make it many times more powerful than +it already is. +~ +abfh dk -200 S +23 4 -5 23d23+230 3d5+6 +6812 30500 +8 8 1 +#2535 +sword dancing~ +the dancing sword~ +A well crafted sword lies on the work table here. +~ +It looks quite sharp. +~ +bfhlnopqr dk -500 S +10 1 -10 10d10+100 3d5+5 +0 4000 +8 8 0 +#2536 +alchemist~ +the Mad Alchemist~ +The Mad Alchemist babbles something incomprehensible and attacks. +~ +He looks like he has been quaffing too many potions. His eyes dart +around wildly, and he starts to drool. + +The Mad Alchemist throws back his head and cackles with insane glee! +~ +abfgh dk 150 S +24 4 -4 24d24+240 3d5+10 +2346 31500 +8 8 1 +#2537 +master summoner~ +the Master Summoner~ +The Master Summoner is here holding gateways open to other planes. +~ +The Summoner looks to be hard at work, concentrating on keeping control +over the gateway before he loses his soul to the creatures on the other +side of it. +~ +abfgh dk -200 S +22 5 -2 22d22+220 3d5+6 +1019 27050 +8 8 1 +#2538 +master charmer~ +the Master Charmer~ +The Master Charmer utters the words, 'uuuzzldctz'. +~ +The Master Charmer sizes you up, always looking for a new pet. +~ +abf dk -400 S +23 4 -4 23d23+230 3d5+10 +4672 31050 +8 8 1 +#2539 +golem wooden~ +the wooden golem~ +A wooden golem stands a silent vigil here, guarding the stairs. +~ +He looks flammable. +~ +bfgmnopqr dk 100 S +16 7 -5 16d16+160 1d10+10 +1000 17500 +8 8 0 +#2540 +master spellbinder~ +the Master Spellbinder~ +The Master Spellbinder is here re-charging a blackened wand. +~ +The Master Spellbinder snarls at you and attacks. +~ +abfgh dk -500 S +23 5 -4 23d23+230 3d5+8 +2315 30500 +8 8 1 +#2541 +master maker~ +the Golem Maker~ +The Golem Maker is here chiseling some stone. +~ +The Golem Master appears to be very meticulous about his work, to +the point of fussing over it. +~ +abfh dk 300 S +21 6 -2 21d21+210 3d5+5 +2678 26850 +8 8 1 +#2542 +golem granite~ +the granite golem~ +A granite golem stands here waiting to do its master's bidding. +~ +It looks like a statue, until you see it shamble towards you. +~ +bfgmnopqr dk 300 S +20 7 -6 20d20+200 4d5+10 +0 25600 +8 8 0 +#2543 +golem bronze~ +the bronze golem~ +A bronze golem stands here shining in the light. +~ +He looks rather dim witted. +~ +bfgmnopqr dk 350 S +18 8 -3 18d18+180 4d5+5 +0 22350 +8 8 0 +#2544 +golem flesh~ +the flesh golem~ +A flesh golem stands guard here +~ +It looks to be made of a potpourri of different body parts; some don't +even resemble anything human. +~ +bfgmnopqr dk 200 S +12 9 -1 12d12+120 4d4+4 +0 8520 +8 8 0 +#2545 +golem cloth~ +the cloth golem~ +A cloth golem wanders around here. +~ +It looks like a bunch of old rags, quite surprising it can actually walk. +~ +bfgmnopqr dk 350 S +8 10 1 8d8+80 3d4+1 +0 2100 +8 8 0 +#2546 +golem adamantite~ +the adamantite golem~ +An adamantite golem stands here looking very dangerous. +~ +It seems to be forged of dark metal. It looks strong and durable, +but somewhat un-intelligent. +~ +bfgmnopqr dk 350 S +25 0 -10 25d25+250 3d7+3 +10000 35650 +8 8 0 +#2547 +golem clay~ +the clay golem~ +A clay golem stands guard here. +~ +This large golem almost looks like it is made of dirt. +~ +bfgmnopqr dk 200 S +15 5 -1 15d15+150 4d5+3 +0 18320 +8 8 0 +#2548 +master illusionist mage dragon~ +the Master of Illusions~ +An enormous multi-colored three-headed dragon growls at you. +~ +The image of an ugly dragon flickers slightly, and where the dragon +was now stands a small harmless looking old man. +~ +abcgh dk 150 S +21 6 -4 21d21+210 3d5+5 +2345 26450 +8 8 1 +#2549 +necromancer master~ +the Necromancer~ +The Necromancer is here raising undead servants. +~ +Attired all in black, the Necromancer is tall and gangly, but still quite +an imposing figure. A dark cowl shrouds most of his face, but two blazing +embers which serve as eyes can be seen through the shadow. +The Necromancer shrieks some obscenities and orders his minions to attack. +~ +abfgh dk -950 S +25 0 -8 25d25+250 3d7+7 +11684 35250 +8 8 1 +#2550 +skeleton undead~ +the animated skeleton~ +An animated skeleton screams silently and attacks. +~ +It feels no pain, and hacks at you ruthlessly. +~ +bfhnopr dk -500 S +15 5 -2 15d15+150 3d4+10 +0 16500 +8 8 0 +#2551 +undead giant~ +the undead giant~ +An undead giant lumbers towards you. +~ +This thing seems to be the reanimated corpse of a giant, creating an +enormous zombie. +~ +cfgnopr dk -500 S +18 5 -4 18d18+180 3d5+10 +0 22000 +8 8 0 +#2552 +witch hag~ +the ugly witch~ +An ugly witch is here scrying out secrets. +~ +She has no face at all, just blank skin, rather disturbing. From about +where her mouth should be, comes a disgusting giggling sound that makes +your skin crawl with revulsion. +~ +acfg dk -450 S +20 5 -2 20d20+200 3d6+5 +2150 26850 +8 8 2 +#2553 +librarian mage~ +the Librarian~ +The Librarian has fallen asleep at his desk here. +~ +He looks like a rather peaceful old man. +~ +abfgh dk 450 S +23 3 -6 23d23+230 3d6+5 +1287 29500 +4 8 1 +#2554 +apprentice~ +the Master's apprentice~ +The Master's apprentice leaps to halt your passage. +~ +A powerful wizard in his own right, the apprentice of the master of balance +has given up his station in the mage guild hierarchy in order to serve the +Great Master in hopes of gleaning secrets one could never hope to uncover +alone. +~ +abcfg dhk 0 S +24 -3 -12 24d24+240 3d6+6 +6723 30750 +8 8 1 +#2555 +cat grey familiar~ +the grey cat~ +A grey cat is lounging lazily here. +~ +The grey cat cocks an ear towards you, sensing your scrutiny, then purrs +contentedly. It looks rather harmless, until you notice its very large +claws. +~ +bg dks 0 S +15 5 -5 15d15+150 5d5+5 +0 18750 +8 8 2 +#2556 +master guildmaster grey~ +the Master of Neutrality~ +The Master of Neutrality is here contemplating the balance of the Universe. +~ +He looks quite peaceful. +~ +abcgijl dkh 0 S +30 -10 -20 30d30+300 2d5+20 +15350 150000 +8 8 1 +#2557 +apprentice black~ +the black robed apprentice~ +A black robed apprentice jumps from the shadows and attacks. +~ +She bears a wicked looking scar down the side of her face, though once +she must have been beautiful, now the scar combined with what seems to +be a permanent scowl make her looks quite fearsome. +~ +abcfg dk -750 S +20 2 -6 20d20+200 3d6+6 +13876 27800 +8 8 2 +#2558 +cat black familiar~ +the black cat~ +A black cat with its fur up hisses at you. +~ +It looks both mean and dangerous. Petting seems to be completely out of +the question. +~ +bg dks -800 S +16 5 -4 16d16+160 3d7+3 +0 19950 +8 8 0 +#2559 +master guildmaster black~ +the Master of the Black Robes~ +The Master of the Black Robes is here plotting vile deeds. +~ +The Master glares at you. +~ +abcgjkl dkh -1000 S +30 -10 -20 30d30+300 2d5+20 +22100 150000 +8 8 1 +#2560 +apprentice white~ +the white robed apprentice~ +A white robed apprentice screams at your desecration of goodness. +~ +He looks like a fanatic. +The white robed apprentice screams 'Thou art unworthy of this honour!' +~ +abcfh dk 750 S +20 2 -6 20d20+200 3d6+6 +7400 27850 +8 8 1 +#2561 +cat white familiar~ +the white cat~ +A white cat is here preening its fur. +~ +It seems to be nothing more than a large ball of fluff with claws. +~ +bg dks 800 S +15 4 -4 15d8+10 3d7+3 +0 7950 +8 8 0 +#2562 +master guildmaster white~ +the Master of Goodness~ +The Master of Goodness is here frowning at your intrusion. +~ +He looks like a self-righteous bastard. +~ +abcgikl dkh 1000 S +30 -10 -20 30d30+300 2d5+20 +21900 150000 +8 8 1 +#2563 +cat calico familiar~ +the calico cat~ +A large calico cat is lounging about here. +~ +It looks incredibly large for a cat, no doubt a giant of its species. +A beautiful jewel encrusted collar about its neck is its only adornment. +~ +bg dks 0 S +25 1 -9 25d25+250 5d5+10 +0 30000 +8 8 0 +#2564 +guildmaster grand mistress~ +the Grand Mistress~ +The Grand Mistress of Magic is sitting here. +~ +She looks quite comfortable on her emerald throne. Amazingly young and +pretty for one of such stature in the guild, no doubt she has kept her +youthful appearance through the use of strong magics. +The Grand Mistress pets her familiar and smiles at you in confidence. +~ +abcgl dkh 0 S +50 -20 -30 50d50+500 3d4+20 +50000 500000 +8 8 2 +$ diff --git a/lib/world/mob/30.mob b/lib/world/mob/30.mob new file mode 100644 index 0000000..f0d20dd --- /dev/null +++ b/lib/world/mob/30.mob @@ -0,0 +1,528 @@ +#3000 +wizard~ +the wizard~ +A wizard walks around behind the counter, talking to himself. +~ +The wizard looks old and senile, and yet he looks like a very powerful +wizard. He is equipped with fine clothing, and is wearing many fine +rings and bracelets. +~ +ablno d 900 S +33 2 2 1d1+30000 2d8+18 +30000 160000 +8 8 1 +#3001 +baker~ +the baker~ +The baker looks at you calmly, wiping flour from his face with one hand. +~ +A fat, nice looking baker. But you can see that he has many scars on his +body. +~ +ablno d 900 S +33 0 -10 1d1+30000 2d8+18 +100 160000 +8 8 1 +#3002 +grocer~ +the grocer~ +A grocer stands at the counter, with a slightly impatient look on his face. +~ +A tall grocer, who moves two 200 pounds bag of flour around on his shoulders. +~ +ablno d 900 S +33 0 -10 1d1+30000 2d8+18 +30000 160000 +8 8 1 +#3003 +weaponsmith~ +the weaponsmith~ +A weaponsmith is standing here. +~ +He is a young weaponsmith, who still has lots to learn but he is still +eager to sell you his latest implements of carnage and destruction. +~ +ablno d 900 S +33 0 -10 1d1+30000 2d8+18 +30000 160000 +8 8 1 +#3004 +armourer~ +the armourer~ +An armourer stands here displaying his new (and previously owned) armours. +~ +An old but very strong armourer. He has made more suits of armour in his +life than you have ever seen. +~ +ablno d 900 S +33 0 -10 1d1+30000 2d8+18 +28500 160000 +8 8 1 +#3005 +receptionist~ +the receptionist~ +A receptionist is standing behind the counter here, smiling at you. +~ +You notice a tired look in her face. She looks like she isn't paid well +enough to put up with any crap from mud players with attitudes. +~ +abelnop dfp 900 S +33 0 -10 1d1+30000 2d8+32 +0 0 +8 8 2 +#3006 +captain stolar~ +Captain Stolar~ +A retired captain stands here, selling boats. +~ +This captain has eaten more sharks than you have killed peas. +~ +ablno d 900 S +33 2 2 1d1+30000 2d8+12 +2000 160000 +8 8 1 +#3007 +sailor~ +the sailor~ +A sailor stands here, waiting to help you. +~ +He looks like a strong, fit sailor. +~ +blno 0 900 S +33 0 -10 1d1+30000 2d8+12 +2000 160000 +8 8 1 +#3008 +uncle juan~ +Uncle Juan~ +Uncle Juan is here ready to take your order. +~ +He looks like he may or may not have a green card. +~ +ablno 0 900 S +33 0 -10 1d1+30000 2d8+18 +2000 160000 +8 8 1 +#3009 +wally watermaster~ +Wally the Watermaster~ +Wally the Watermaster is standing behind the counter. +~ +Wally is a bit pudgy but looks very strong. He has a glass of Midgaard +Natural Spring Water in his hand. When he notices you, he proudly +displays his fine collection of contemporary waters. +~ +ablno d 800 S +33 0 -10 1d1+30000 1d8+18 +1000 160000 +8 8 1 +#3010 +postmaster post master~ +the postmaster~ +The head postmaster is standing here, waiting to help you with your mail. +~ +The Postmaster seems like a happy old man, though a bit sluggish. He +worries about the reputation of the MMS (Midgaard Mail Service), as many +people seem to think that it is slow. Perhaps if he were to brush the +cobwebs from his uniform it would help to make a better impression. +~ +ablnopr dp 1000 S +33 0 -10 1d1+30000 1d8+18 +2000 0 +8 8 1 +#3020 +guildmaster master mage~ +the mages' guildmaster~ +Your guildmaster is studying a spellbook while preparing to cast a spell. +~ +Even though your guildmaster looks old and tired, you can clearly see the +vast amount of knowledge she possesses. She is wearing fine magic clothing, +and you notice that she is surrounded by a blue shimmering aura. +~ +abelnop dh 1000 S +34 0 -10 6d10+640 1d8+24 +18794 100000 +8 8 2 +#3021 +guildmaster master priest~ +the priests' guildmaster~ +Your guildmaster is prayer to your God here. +~ +You are in no doubt that this guildmaster is truly close to your God; he +has a peaceful, loving look. You notice that he is surrounded by a white +aura. +~ +abelnop dh 1000 S +34 0 -10 6d10+640 1d8+24 +18794 100000 +8 8 1 +#3022 +guildmaster master beggar thief~ +the thieves' guildmaster~ +A beggar is sitting here, could she be a guildmaster? +~ +You realize that whenever your guildmaster moves, you fail to notice it - +the way of the true thief. She is to be dressed in poor clothing, having +the appearance of a beggar. +~ +abelnop dh 1000 S +34 0 -10 6d10+640 1d8+34 +18794 100000 +8 8 2 +#3023 +guildmaster master~ +the fighters' guildmaster~ +Your guildmaster is standing here sharpening an axe. +~ +This is your master. Big and strong with bulging muscles. Several scars +across his body proves that he was using arms before you were born. He +has a calm look on his face. +~ +abelnop 0 1000 S +34 0 -10 6d10+740 1d8+34 +18794 100000 +8 8 1 +#3024 +sorcerer~ +the sorcerer~ +A sorcerer is guarding the entrance. +~ +He is an experienced mage who has specialized in the field of Combat Magic. +He is here to guard the Mage's Guild and his superior knowledge of offensive +as well as defensive spells make him a deadly opponent. +~ +ablnop dh 900 S +33 0 -5 6d10+990 1d8+22 +2000 60000 +8 8 1 +#3025 +knight templar~ +the knight templar~ +A knight templar is guarding the entrance. +~ +He is a specially trained warrior belonging to the military order of the +Faith. His duty is to protect the faithful from persecution and infidel +attacks and his religious devotion combined with his superior skill makes +him a deadly opponent. +~ +ablnop dh 1000 S +33 0 -5 6d10+990 1d8+22 +2000 160000 +8 8 1 +#3026 +assassin~ +the assassin~ +An assassin is guarding the entrance. +~ +He is a thief who has specialized in killing others as effectively as +possible, using all sorts of weapons. His superior knowledge of how +and where to use them combined with his extraordinary stealth makes +him a deadly opponent. +~ +ablnop dfhst 400 S +33 0 -10 6d10+990 1d8+25 +2000 160000 +8 8 1 +#3027 +knight~ +the knight~ +A knight is guarding the entrance. +~ +He is an expert warrior who has attained knighthood through countless +chivalrous deeds. His duty is to protect the Guild of Swordsmen and his +extreme skill combined with his experience in warfare makes him a deadly +opponent. +~ +ablnop dh 800 S +33 0 -8 6d10+990 1d8+40 +2000 160000 +8 8 1 +#3040 +bartender~ +the bartender~ +A bartender watches you calmly, while he skillfully mixes a drink. +~ +A tired looking Bartender who hates trouble in his bar. +~ +bno 0 900 S +24 2 2 6d10+390 1d8+12 +2000 80000 +8 8 1 +#3041 +waiter~ +the waiter~ +A waiter is going around from one place to another. +~ +A tired looking waiter. +~ +bno 0 900 S +23 2 2 6d10+390 1d8+12 +2000 80000 +8 8 1 +#3042 +waiter~ +the waiter~ +A man now leads a quiet, peaceful life as a waiter is standing here. +~ +This man was obviously a famous sorcerer in his younger days as you +instantly recognize his face. +~ +bno 0 600 S +23 1 2 6d10+390 1d8+12 +2000 80000 +8 8 1 +#3043 +waiter~ +the waiter~ +A waiter who seems to have reached contact with his God is standing here. +~ +This waiter almost makes you feel like you should drop to your knees +and begin to worship your God. Naaah. +~ +bno 0 600 S +23 1 2 6d10+390 1d8+12 +2000 80000 +8 8 1 +#3044 +waiter~ +the waiter~ +A waiter who knows where all his customers keep their money is standing here. +~ +Hmmm... wonder where he got that coin he is playing with. +~ +bno 0 600 S +23 1 2 6d10+390 1d8+12 +2000 80000 +8 8 1 +#3045 +waiter~ +the waiter~ +A waiter is here. +~ +This guy looks like he could easily kill you while still carrying +quite a few firebreathers. +~ +bno 0 600 S +23 1 2 6d10+390 1d8+12 +2000 80000 +8 8 1 +#3046 +filthy~ +Filthy~ +Filthy is standing here, eager to serve you a special drink. +~ +Filthy looks real, ehm, dirty. He likes to keep his customers happy, +but do not mess with him or else he'll get upset. +~ +belno d 600 S +33 1 -10 1d1+30000 1d8+22 +2000 80000 +8 8 1 +#3059 +keeper peacekeeper~ +the Peacekeeper~ +A Peacekeeper is standing here, ready to jump in at the first sign of trouble. +~ +He looks very strong and wise. Looks like he doesn't answer to ANYONE. +~ +aeglm d 1000 E +17 3 0 5d6+225 3d3+13 +2500 30000 +8 8 1 +BareHandAttack: 10 +E +#3060 +cityguard guard~ +the cityguard~ +A cityguard stands here. +~ +A big, strong, helpful, trustworthy guard. +~ +aglm d 1000 S +10 10 1 1d12+123 1d8+5 +500 9000 +8 8 1 +#3061 +janitor~ +the janitor~ +A janitor is walking around, cleaning up. +~ +What a tough job he has. +~ +agl 0 800 S +1 20 9 2d6+10 1d5+0 +34 100 +8 8 1 +#3062 +fido dog~ +the beastly fido~ +A beastly fido is mucking through the garbage looking for food here. +~ +The fido is a small dog that has a foul smell and pieces of rotted meat +hanging around his teeth. +~ +afghq p -200 E +0 20 10 1d6+4 1d4+0 +0 25 +8 8 1 +BareHandAttack: 4 +E +#3063 +mercenary~ +the mercenary~ +A mercenary is waiting for a job here. +~ +He looks pretty mean, and you imagine he'd do anything for money. +~ +bl 0 -330 S +5 15 5 2d6+60 1d6+1 +87 900 +8 8 1 +#3064 +drunk~ +the drunk~ +A singing, happy Drunk. +~ +A drunk who seems to be too happy, and to carry too much money. +~ +b 0 400 S +2 19 8 2d6+22 1d6+0 +53 200 +8 8 1 +#3065 +beggar~ +the beggar~ +A beggar is here, asking for a few coins. +~ +The beggar looks like she is fed up with life. +~ +b 0 400 S +1 20 9 2d6+10 1d5+0 +0 100 +8 8 2 +#3066 +odif yltsaeb~ +the odif yltsaeb~ +An odif yltsaeb is here, walking backwards. +~ +The odif is a small god that has been reversed by some dog. +~ +afghq p -200 E +0 20 10 1d6+4 1d4+0 +0 25 +8 8 1 +BareHandAttack: 4 +E +#3067 +cityguard guard~ +the cityguard~ +A cityguard is here, guarding the gate. +~ +A big, strong, helpful, trustworthy guard. +~ +abglm 0 1000 S +10 10 1 1d12+123 1d8+5 +500 9000 +8 8 1 +#3068 +green gelatinous blob~ +the green gelatinous blob~ +An oozing green gelatinous blob is here, sucking in bits of debris. +~ +A horrid looking thing; it is huge, greenish, and looks like the blob. +~ +aeghlnopqr d 0 E +20 0 0 1d11+325 3d6+5 +1000 40000 +8 8 0 +BareHandAttack: 6 +E +#3089 +pet shop boy~ +the Pet Shop Boy~ +There is a Pet Shop Boy standing here cuddleing something furry in his hands. +~ +As you look at him, he opens his hands to reveal a rat! +~ +blno 0 1000 S +10 10 1 1d1+30000 20d4+10 +500 9000 +8 8 1 +#3090 +kitten~ +the kitten~ +A small loyal kitten is here. +~ +The kitten looks like a cute, little, fierce fighter. +~ +bco 0 0 E +1 20 9 1d6+11 1d4+0 +0 100 +8 8 0 +BareHandAttack: 8 +E +#3091 +puppy~ +the puppy~ +A small loyal puppy is here. +~ +The puppy looks like a cute, little, fierce fighter. +~ +bco 0 0 E +1 20 9 1d6+13 1d4+0 +0 125 +8 8 0 +BareHandAttack: 8 +E +#3092 +beagle~ +the beagle~ +A small, quick, loyal beagle is here. +~ +The beagle looks like a fierce fighter. +~ +bco 0 0 E +2 19 8 1d12+22 1d6+0 +0 200 +8 8 0 +BareHandAttack: 4 +E +#3093 +rottweiler~ +the rottweiler~ +A large, loyal rottweiler is here. +~ +The rottweiler looks like a strong, fierce fighter. +~ +bco 0 0 E +3 18 7 1d12+35 1d7+0 +0 800 +8 8 0 +BareHandAttack: 4 +E +#3094 +wolf~ +the wolf~ +A large, trained wolf is here. +~ +The wolf looks like a strong, fearless fighter. +~ +bco 0 0 E +4 17 6 1d12+47 1d8+0 +0 1600 +8 8 0 +BareHandAttack: 4 +E +#3095 +cryogenicist cryo~ +the cryogenicist~ +The cryogenicist is here, playing with a canister of liquid nitrogen. +~ +You notice a tired look in her face. She looks like she isn't paid well +enough to put up with any crap from mud players with attitudes. +~ +ablno dfp 900 S +33 0 -10 1d1+30000 2d8+32 +0 0 +8 8 2 +$ diff --git a/lib/world/mob/31.mob b/lib/world/mob/31.mob new file mode 100644 index 0000000..a344189 --- /dev/null +++ b/lib/world/mob/31.mob @@ -0,0 +1,126 @@ +#3100 +maid~ +the Maid~ +The Maid is waiting for your order. +~ +She is very beautiful with golden hair, and deep blue eyes. A good reason +for coming here more often, you think to yourself. +~ +ablno d 1000 S +33 0 -10 1d1+30000 1d8+22 +2000 80000 +8 8 2 +#3101 +sexton~ +the Sexton~ +A Sexton is sitting here, drinking hot tea. +~ +The Sexton looks like he is relaxing after another gravedigging job. +~ +b 0 800 S +3 18 7 2d6+35 1d7+0 +13 300 +6 6 1 +#3102 +chief guard~ +the Chief Guard~ +The Chief Guard is looking very upset. +~ +A very angry chief. +~ +bcf d 800 S +17 3 1 1d12+210 1d8+18 +0 28000 +8 8 1 +#3103 +cityguard guard~ +the upset cityguard~ +A cityguard stands here, looking very upset. +~ +A big, strong, angry guard. +~ +bcf 0 1000 S +10 10 2 1d12+123 1d8+3 +0 9000 +8 8 1 +#3104 +secretary~ +the Secretary~ +A secretary is sitting at the desk, typing away on the typewriter. +~ +She looks very busy. + +The Secretary says 'Sorry, but the Mayor is extremely busy today.' +The Secretary says 'Please sit down and have a seat in the meantime.' +~ +b 0 900 S +12 9 2 1d12+148 2d7+1 +100 13000 +8 8 2 +#3105 +mayor~ +the Mayor~ +The Mayor is sitting in his huge chair, snoring loudly. +~ +He is a stocky, middle-aged man with thin, grey hair. +~ +ablno d 1000 S +24 0 -4 6d10+790 1d8+18 +1000 130000 +4 4 1 +#3106 +crier~ +the Town Crier~ +The Town Crier is here, weeping quietly. +~ +He is very good at his job - completely dissolved in tears. +~ +h 0 900 S +1 20 9 2d6+10 1d5+0 +34 100 +8 8 1 +#3120 +swan~ +the swan~ +A swan is swimming around in the pond. +~ +The white swan is very elegant. +~ +b 0 1000 S +1 20 9 2d6+10 1d5+0 +0 100 +8 8 0 +#3121 +duckling~ +the duckling~ +A duckling is swimming around in the pond. +~ +The duckling is adorable, it looks most of all like a tiny furball. +~ +b 0 1000 S +0 20 10 1d1+0 1d1+0 +0 1 +8 8 0 +#3122 +sparrow~ +the sparrow~ +A sparrow is flapping around on the ground. +~ +The sparrow looks like it is enjoying life. +~ +gh 0 1000 S +0 20 10 2d6+0 1d3+0 +0 25 +8 8 0 +#3123 +duck~ +the duck~ +A duck is here, quacking happily. +~ +The duck is quite fat. It looks like it is enjoying life. +~ +g 0 1000 S +1 20 10 2d6+5 1d4+0 +0 75 +8 8 0 +$ diff --git a/lib/world/mob/33.mob b/lib/world/mob/33.mob new file mode 100644 index 0000000..58c6df3 --- /dev/null +++ b/lib/world/mob/33.mob @@ -0,0 +1,278 @@ +#3300 +farmer~ +the farmer~ +A farmer walks around, looking for something to do. +~ +This farmer is a resident of Stanneg by the Mountains, +and as such, is one of the most boring people on earth. +~ +cgh 0 500 S +7 14 4 3d5+83 2d4+1 +1000 2250 +8 8 1 +#3301 +storekeeper~ +the storekeeper~ +A bored storekeeper waits for you to do something. +~ +The bored storekeeper keeps a lazy eye on you as he +waits for you to buy something. Whee. +~ +b 0 750 S +20 1 -40 3d5+245 3d6+6 +10000 40000 +8 8 1 +#3302 +cowgirl~ +the cowgirl~ +A cowgirl stand here ready to defend her horses... +~ +This woman seems ready for anything you might do... +she is truly a woman to be reckoned with... +~ +blm dst 750 S +20 1 -60 3d5+245 3d6+4 +8000 40000 +8 8 2 +#3303 +horse~ +the horse~ +A horse does horsely things here. +~ +This horse looks like a nice horse. It looks at you +with soft brown eyes and you want to give it a carrot. +~ +b 0 250 E +5 16 5 1d10+60 2d4+0 +0 1000 +8 8 1 +BareHandAttack: 4 +E +#3304 +farmer's wife~ +the farmer's wife~ +A farmer's wife offers you some vegetables. +~ +This woman has many different types of fruits and +vegetables for you to buy. She looks bored, though. +~ +b 0 500 S +20 1 -40 3d5+245 3d6+6 +10000 40000 +8 8 2 +#3305 +aglandiir dragon~ +Aglandiir~ +The Dragon Prince, Aglandiir, sits here looking at you curiously. +~ +Aglandiir is a prince of his kind, and he didn't get where +he is today by letting people steal from his horde! +~ +beflnopqr dh 750 E +30 0 -100 1d1+1499 8d5+5 +500000 1000000 +8 8 1 +BareHandAttack: 8 +Str: 25 +Int: 25 +Wis: 25 +Dex: 25 +Con: 25 +Cha: 16 +E +#3306 +cyclops~ +the Cyclops~ +A Cyclops is here, trying to judge range with no depth perception. +~ +This Cyclops throws rocks real good. With one eye though, +hitting the target is another matter. He looks at you and +growls as he misses again! +~ +bcflnq 0 -500 E +16 8 0 3d5+295 2d8+2 +10000 24000 +8 8 1 +BareHandAttack: 13 +E +#3307 +salle woman~ +Salle~ +A woman ignores you completely, so intent is she upon her sword. +~ +She is a stunning woman, all hair and eyes, it seems. +Her clothing is of the same tawny brown of her skin and +hair. Her blue eyes look at you appraisingly, seemingly +to show great intelligence. Her mouth twitches into a +sneer... +~ +bm 0 -600 S +15 6 -30 3d5+200 2d6+6 +6500 24000 +8 8 2 +#3308 +duwick man~ +Duwick~ +A truly immense man laughs at you, and draws his knife! +~ +This has to be one of the biggest men you've ever seen. He is +a full seven feet toe to head, and weighs a good three hundred +pounds -- mostly on his biceps and pectorals it appears. An +ornate scabbard slaps by his side, with the pommel of a silvered +dagger sticking out... a tiny weapon for such a large man! +~ +bm 0 -900 S +22 0 -70 3d5+400 3d6+10 +15000 70000 +8 8 1 +#3309 +receptionist~ +the Receptionist~ +A receptionist offers you a room. +~ +He looks like a retired farmer now making an honest living in an inn. +More power to him! +~ +b 0 400 S +12 9 -30 3d5+140 2d7+1 +8000 8000 +8 8 1 +#3310 +innkeeper~ +the innkeeper~ +An aged innkeeper greets you as you enter. +~ +He is old and greying, but seems to have been able to +keep his mental faculties through the years. A large +woolen sweater is wrapped about him for warmth. His +blue eyes dance with amusement as he notices your weapons, +but he doesn't seem too terribly startled. +~ +b 0 750 S +10 11 20 3d5+120 2d6+1 +2000 9000 +8 8 1 +#3311 +hunter~ +the hunter~ +A hunter walks through the town streets on his own time. +~ +He looks mean, as if the very personality of the mountains +had infected him with hardness. His stride is purposeful, +his face weathered, his eyes cold and dark. Others are +standing out of his way as he walks on by. +~ +cgm 0 500 S +11 10 -20 3d5+133 2d6+2 +1200 11000 +8 8 1 +#3312 +waiter~ +a waiter~ +A waiter rushes by, intent on his business. +~ +He looks harried from the way he hastily takes orders and +rushes in the back to get food, and to the bar for drinks. +He doesn't even spare you a glance as he passes by. +~ +b 0 0 S +5 16 70 3d5+60 2d4+0 +500 850 +8 8 1 +#3313 +waitress~ +a waitress~ +A waitress rushes by, intent on her business. +~ +She looks harried from the way she hastily takes orders and rushes +in the back to get food, and to the bar for drinks. She doesn't +even spare you a glance as she passes by. +~ +b 0 0 S +5 16 70 3d5+60 2d4+0 +500 850 +8 8 2 +#3314 +bartender~ +a bartender~ +A bartender washes a glass idly here. +~ +He nods, smiles, and asks you what you would like to drink. +As you decide, he slowly polishes a glass with an old bar +rag. The glass is completely clean, but he polishes it anyway. +Go figure. +~ +b 0 200 S +15 6 10 3d5+180 2d8+2 +10000 21000 +8 8 1 +#3315 +bandit~ +the bandit~ +A bandit springs into action upon seeing you. +~ +Whew! Has this guy ever seen a bath? His face, hands, arms... +nearly every bit of him is covered with grime, dust, dirt and +decay. His sword is polished and cleaned though... +~ +chjk 0 -500 S +16 5 -20 3d5+195 2d8+3 +1000 25000 +8 8 1 +#3316 +bandit guard~ +the bandit guard~ +A bandit guard stands at attention here. +~ +He may be a bandit, but he's no slacker. You wonder +who would be able to keep these bandits in line enough +to pull a good guard duty... + +(boy is this guy DIRTY!!!) +~ +bjk 0 -500 S +18 3 -30 3d5+220 3d6+2 +2400 32000 +8 8 1 +#3317 +miner worker slave~ +the slave~ +A slave here is mining out a new passageway. +~ +The slave looks up at you with pleading eyes. He +wants his freedom. The chains around his ankles are +tight, and you wonder if you should set him free, and +if you even can. +~ +bh 0 1000 S +6 15 100 3d5+70 1d8+1 +0 1500 +8 8 1 +#3318 +farmer~ +the farmer~ +A farmer walks around, looking for something to do. +~ +This farmer is a resident of Stanneg by the Mountains, +and as such, is one of the most boring people on earth. +~ +bcgh 0 500 S +7 14 4 3d5+83 2d4+1 +1000 2250 +8 8 1 +#3319 +hunter~ +the hunter~ +A hunter walks through the town streets on his own time. +~ +He looks mean, as if the very personality of the mountains +had infected him with hardness. His stride is purposeful, +his face weathered, his eyes cold and dark. Others are +standing out of his way as he walks on by. +~ +bcgm 0 500 S +11 10 -20 3d5+133 2d6+2 +1200 11000 +8 8 1 +$ + diff --git a/lib/world/mob/35.mob b/lib/world/mob/35.mob new file mode 100644 index 0000000..5ed7fd0 --- /dev/null +++ b/lib/world/mob/35.mob @@ -0,0 +1,98 @@ +#3500 +wyvern~ +the wyvern~ +A monstrous wyvern slowly circles just above your head. +~ +This huge winged creature looks really menacing as it circles only inches +above your head, flapping its wings and squawking very loudly. +~ +bgjq 0 -700 S +8 13 3 2d10+90 2d6+1 +0 3575 +8 8 0 +#3501 +goblin mountain~ +the goblin~ +A mountain goblin is wandering around mumbling to himself... +~ +You see before you a small and twisted creature with knotted muscles and +disgustingly green skin. Doesn't look like the type you'd invite to dinner. +~ +fglm k -250 S +4 17 6 1d1+55 1d8+0 +50 600 +8 8 1 +#3502 +goblin lieutenant~ +the goblin lieutenant~ +A goblin lieutenant stands here, attempting to get his men in order. +~ +The goblin lieutenant is rather angry, and looking for one of his men to +beat up upon, but maybe you will do just fine... +~ +gjlm dk -600 S +7 15 3 1d12+100 2d5+1 +300 2000 +8 8 1 +#3503 +goblin leader~ +the goblin leader~ +The goblin leader surveys the room. +~ +The leader doesn't look too happy that you have found him here. He grabs +for his shortsword and lunges for your neck. +~ +bcjlm dk -900 S +9 10 1 1d12+120 2d5+3 +1000 8000 +8 8 1 +#3504 +boy small~ +the small boy~ +A small boy sits here, licking his wounds. +~ +The poor boy has numerous cuts and scratches, but appears to be all right. +He is apparently the only survivor of the ambush. +~ +bh 0 500 S +4 17 6 1d12+47 1d8+0 +0 600 +5 5 1 +#3505 +innkeeper~ +the Innkeeper~ +The Innkeeper stands here, cleaning glasses. +~ +The Innkeeper now spends most of his days waiting for customers, while the +nights are spent watching out for goblins. His inn is no longer the happy +place that is used to be in days past. +~ +bglm 0 400 S +10 8 1 1d12+200 2d8+1 +1500 7000 +8 8 1 +#3506 +bard~ +the bard~ +A sullen bard is here, drinking away his problems. +~ +You can smell the alcohol on his breath from across the room. This poor +bard has been sitting here quite a while, drinking himself into oblivion. +~ +bglm d 600 S +8 13 3 1d12+110 2d6+0 +1500 3750 +6 6 1 +#3507 +horseman dark~ +the dark horseman~ +A dark horseman is here, mounted on his black steed. +~ +The man is obviously an outlaw, and has no qualms about slashing you into +little bits. +~ +ghm sp -900 S +8 12 4 1d12+97 1d5+7 +1000 4000 +8 8 1 +$ diff --git a/lib/world/mob/36.mob b/lib/world/mob/36.mob new file mode 100644 index 0000000..987a723 --- /dev/null +++ b/lib/world/mob/36.mob @@ -0,0 +1,149 @@ +#3600 +black pawn~ +the Pawn of the Black Court~ +You see a pawn standing here waiting for orders. +~ +The Black Pawn looks quite like a small knight without his powerful steed. +His armor is shiny and black. He stands ready to give his life for the +Crown. +~ +bcgh d -400 S +6 2 5 5d4+50 2d4+2 +500 1000 +8 8 1 +#3601 +white pawn~ +the Pawn of the White Court~ +You see a pawn standing here waiting for orders. +~ +The White Pawn looks quite like a small knight without his powerful steed. +His armor is spotless and white. He stands ready to give his life for the +Crown. +~ +bcgh d 400 S +6 2 5 5d4+50 2d4+2 +500 1000 +8 8 1 +#3602 +black rook castle~ +the Black Rook~ +In the corner you see a large, black, stone castle on wheels. +~ +The Black Rook is a very large man-made tomb on wheels. Just +from the looks of it, it will probably be YOUR tomb. +~ +bpqr d -600 S +27 11 1 2d6+500 3d8+5 +5000 85000 +8 8 0 +#3603 +white rook castle~ +the White Rook~ +In the corner you see a large, white, stone castle on wheels. +~ +The White Rook is a very large man-made tomb on wheels. Just +from the looks of it, it will probably be YOUR tomb. +~ +bpqr d 600 S +27 11 1 2d6+500 3d8+5 +5000 85000 +8 8 0 +#3604 +black knight~ +the Black Knight~ +Here stands a magnificent knight of the dark realm. +~ +The Black Knight is here, riding his ebony black war horse. His eyes +flash behind his visor in vengence. +~ +bf d -400 S +18 8 0 4d8+350 2d8+1 +3000 22500 +8 8 0 +#3605 +white knight~ +the White Knight~ +Here stands a magnificent knight of the light realm. +~ +The White Knight is here, riding his ivory white war horse. His eyes +gleam behind his visor in joy. +~ +bf d 400 S +18 8 0 4d8+350 2d8+1 +3000 22500 +8 8 0 +#3606 +black bishop priest~ +the Black Bishop~ +A dark priest stands here. +~ +The Black Bishop seems willing to help you straight into your grave so +he can bless you properly. +~ +b d -500 S +24 11 1 2d5+350 3d6+13 +4000 43500 +8 8 0 +#3607 +white bishop priest~ +the White Bishop~ +A light priest stands here. +~ +The White Bishop seems willing to help you in any possible so that he can +attain a higher spirituality. +~ +b d 500 S +24 11 1 2d5+350 3d6+13 +4000 43500 +8 8 0 +#3608 +black queen~ +the Black Queen~ +The Black Queen stands here. +~ +The Black Queen is a strikingly beautiful woman with pale skin and a +mass of dark hair that crowns her head like a black cloud. If looks +could kill, you would already be dead. +~ +bcfl dh -750 S +32 11 -3 5d10+900 4d6+13 +10000 200000 +8 8 0 +#3609 +white queen~ +the White Queen~ +The White Queen stands here. +~ +The White Queen is a stunningly beautiful woman with dark skin and a mass +of light hair that frames her head like the sun. This is surely love at +first sight for you. +~ +bcfl dh 750 S +32 11 -3 5d10+900 4d6+13 +10000 200000 +8 8 0 +#3610 +black king~ +the Black King~ +The Black King stands here. +~ +The Black King is a menacing figure. You can easily understand why he +is the king and you are not. +~ +bcefl dh -999 S +36 14 -6 10d10+2000 5d8+20 +20000 300000 +8 8 0 +#3611 +white king~ +the White King~ +The White King stands here. +~ +The White King is a stately figure. You can easily understand why he +is the king and you are not. +~ +bcefl dh 999 S +36 14 -6 10d10+2000 5d8+20 +20000 300000 +8 8 0 +$ diff --git a/lib/world/mob/40.mob b/lib/world/mob/40.mob new file mode 100644 index 0000000..2f62453 --- /dev/null +++ b/lib/world/mob/40.mob @@ -0,0 +1,257 @@ +#4000 +snake large~ +the snake~ +A large dreadful snake is at your feet, hissing at you. +~ +It looks hungry. +~ +abf dk -200 S +11 7 4 5d10+50 3d6+0 +0 12000 +8 8 0 +#4001 +snake green~ +the green snake~ +A small green snake is here, and it doesn't look too friendly... +~ +It looks harmless. +~ +ab 0 -100 S +7 12 4 3d10+30 2d6+1 +0 2500 +8 8 0 +#4002 +centipede~ +the centipede~ +A small centipede is here, making its way across the floor. +~ +It looks completely harmless. +~ +b 0 100 S +3 20 6 2d10+20 1d6+0 +0 400 +8 8 0 +#4003 +kobold~ +the kobold~ +An ugly kobold is here, searching for dinner. +~ +It looks ugly. +~ +cg k -100 S +4 16 5 2d10+40 1d8+1 +50 800 +8 8 0 +#4004 +orc~ +the orc~ +The orc walks around, looking for someone to kill. +~ +You notice an evil look in its eyes... +~ +cfg k -400 S +5 15 5 2d10+60 2d4+0 +100 900 +8 8 0 +#4005 +orc large~ +the orc~ +A large orc is here, looking really mean. +~ +He looks dreadful. +~ +cg k -500 S +7 11 2 3d20+75 2d6+2 +200 3000 +8 8 1 +#4050 +warrior~ +the warrior~ +A tall warrior is here. He has more scars than anyone you have ever seen. +~ +He seems to be a strong, brainless fighter. +~ +bcfg k -300 S +12 8 4 10d10+50 2d8+1 +1000 12000 +8 8 1 +#4051 +warrior~ +the warrior~ +A tall warrior is here. +~ +He seems to know his way with weapons. +~ +cfg k -400 S +7 13 5 3d10+80 2d5+0 +200 2500 +8 8 1 +#4052 +hobgoblin~ +the hobgoblin~ +A small hobgoblin stands here. +~ +The hobgoblin looks quite lost. +~ +cg k -300 S +6 12 6 3d8+70 2d4+0 +100 1500 +8 8 1 +#4053 +snake~ +the snake~ +A brown snake watches you. +~ +The snake looks quite mean. +~ +abf k -600 S +10 10 4 4d10+60 3d5+1 +0 12000 +8 8 0 +#4054 +centipede~ +the centipede~ +A white centipede is here. +~ +The centipede doesn't really seem to notice you. +~ +b 0 -100 S +5 17 5 1d10+50 1d7+0 +0 1000 +8 8 0 +#4055 +hobgoblin~ +the hobgoblin~ +A large hobgoblin is here. +~ +The hobgoblin looks quite dangerous. +~ +cg k -500 S +10 8 2 1d16+120 2d6+3 +300 10000 +8 8 1 +#4056 +orc~ +the orc~ +An orc is here, looking for something (or perhaps someone?) to eat. +~ +Well, he doesn't seem to be friendly. +~ +cfg k -800 S +8 13 2 3d10+100 2d5+2 +150 4000 +8 8 1 +#4057 +lion mountain~ +the mountain lion~ +A mountain lion is here, growling at you viciously. +~ +The lion looks very nasty with huge claws and big teeth. +~ +fg k -100 S +5 16 5 1d10+60 2d4+0 +0 900 +8 8 1 +#4058 +giant hill~ +the hill giant~ +A hill giant is here, tossing some rocks around. +~ +The hill giant looks like he's about 9 feet tall. By his actions you +quickly come to the conclusion that he isn't very intelligent. +~ +gq k 0 S +13 8 2 1d10+160 2d10+0 +1000 16500 +8 8 1 +#4100 +mage~ +the mage~ +A small intelligent looking mage is standing here. +~ +His IQ makes almost any normal person look stupid... +It looks like he knows his way with magic. +~ +abcf dk -100 S +13 10 2 3d20+100 2d6+0 +2500 21000 +8 8 1 +#4101 +troll~ +the troll~ +A large mean-looking troll is here. +~ +Well, it looks dangerous! +~ +bcf k -800 S +12 8 1 2d10+100 2d7+1 +500 13000 +8 8 1 +#4102 +snake~ +the snake~ +A large green snake is here, looks like a guardian for an evil force. +~ +You see a evil creature. +~ +abcf k -700 S +10 8 5 6d10+50 3d5+2 +0 9000 +8 8 1 +#4103 +thief~ +the thief~ +A thief is here, all dressed in black. +~ +He seems to be counting a handful of coins. Maybe you ought to count YOUR +gold too... +~ +acg dkst -400 S +8 13 3 1d10+100 2d5+2 +100 4000 +8 8 1 +#4104 +orc ugly~ +the orc~ +A ugly orc is standing here. +~ +It is quite disgusting to look at. +~ +cfgh dkp -200 S +7 14 4 1d5+90 2d4+1 +200 2250 +8 8 1 +#4105 +centipede~ +the centipede~ +A small harmless centipede is here. +~ +Well it doesn't seem to pay any attention to you. +~ +b 0 300 S +6 15 4 3d10+50 1d8+1 +0 1500 +8 8 0 +#4106 +warrior~ +the warrior~ +A human warrior is here. He has a evil grin in his face. +~ +He doesn't look friendly at all... +~ +cfg k -300 S +9 10 3 3d10+100 2d6+2 +500 9000 +8 8 1 +#4107 +kobold~ +the kobold~ +A green kobold is here. +~ +It looks slimy.. +~ +cfg k -100 S +7 14 4 4d10+25 1d9+1 +20 3000 +8 8 1 +$ diff --git a/lib/world/mob/50.mob b/lib/world/mob/50.mob new file mode 100644 index 0000000..ee47775 --- /dev/null +++ b/lib/world/mob/50.mob @@ -0,0 +1,198 @@ +#5000 +dervish raggity~ +the dervish~ +A raggity dervish walks on aimlessly. +~ +Dressed in loose fitting rags, this man looks like he could use some rest. +~ +cgh st 900 S +5 15 5 1d10+60 2d4+0 +70 1000 +8 8 1 +#5001 +dervish large~ +the dervish~ +A large dervish watches for signs of trouble. +~ +Dressed in loose fitting rags, this man looks like he could use LOTS of +rest. +~ +fg st 650 S +8 12 3 2d6+100 2d6+1 +150 7000 +8 8 1 +#5002 +snake coral~ +the coral snake~ +A brightly colored snake slithers along the sands. +~ +This relatively harmless snake has bright alternating bands of red, yellow +and black. +~ +g 0 -10 S +4 17 4 1d6+40 1d9+0 +0 600 +8 8 0 +#5003 +scorpion small~ +the small scorpion~ +A small, red scorpion scuttles away at your approach. +~ +The little tail is mighty dangerous for such a small creature. +~ +g 0 -50 S +3 17 1 1d6+40 1d8+0 +0 500 +8 8 0 +#5004 +worm giant purple~ +the sand worm~ +A giant, purple sand worm thrusts up out of the sand and attacks! +~ +He's big, mean, and purple. Watch out! +~ +abeflpr dfk -300 S +21 0 3 2d10+320 3d7+14 +2540 65000 +8 8 0 +#5005 +dragon brass~ +the brass dragon~ +A very large brass dragon steps out of the darkness and says 'Hello.' +~ +Then adds to it, 'Prepare to die, have a nice day!' +~ +abefq dhkp 950 S +20 1 0 2d6+500 3d6+4 +1500 45000 +8 8 2 +#5006 +nomad leader~ +the nomad leader~ +The nomad leader sits silently in prayer. +~ +He is clad in silk robes lined with gold thread. At his side is a large, +engraved cutlass. He has an especially haughty air about him. +~ +bhl d 950 S +14 7 0 2d6+170 2d8+5 +1000 18000 +6 6 1 +#5007 +nomad commander~ +the nomad commander~ +The nomad commander stands here staring at you suspiciously. +~ +This is the nomad leader's second in command. His clothes are richly woven +of silk and gold thread. A nasty cutlass hangs at his side. +~ +bhl 0 900 S +12 8 1 2d6+135 2d5+3 +600 14000 +8 8 1 +#5008 +nomad warrior~ +the nomad warrior~ +A proud nomad warrior stands here. +~ +This warrior is dressed in typical nomad clothing and looks quite mean. +~ +b 0 700 S +10 11 2 1d6+105 2d6+1 +300 7000 +8 8 1 +#5009 +slave young~ +the slave~ +A young slave sits here staring at you with pleading eyes. +~ +She looks quite thin and weak. +~ +bh 0 1000 S +3 18 9 1d4+25 1d5+0 +0 300 +5 5 2 +#5010 +dracolich lich~ +the dracolich~ +A pile of bones rises up to form a skeletal dracolich. +~ +The dracolich is now only bone with pieces of flesh hanging from it. +Obviously it no longer fears death. +~ +abeflnopq bdfhkp -1000 S +24 0 -6 1d12+520 3d5+35 +75000 125000 +8 8 0 +#5011 +drider~ +the drider~ +The drider looks at you viciously while it draws its sword. +~ +This half-spider, half-drow creature is a formidable opponent. +~ +fg dkp -1000 S +8 12 2 1d6+95 2d6+2 +200 4000 +8 8 0 +#5012 +duergar dark dwarf~ +the dark dwarf~ +A duergar is here mining precious stones with his pick. +~ +The duergar could probably crush your head as easily as he does those +rocks. +~ +fg dkp -850 S +5 16 3 1d11+60 2d5+1 +170 1250 +8 8 1 +#5013 +myconoid~ +the myconoid~ +A myconoid lumbers along peacefully. +~ +The myconoid looks something like a giant mushroom (and probably has the +same effect). +~ +gh dk 850 S +6 15 4 1d12+68 2d7+0 +50 600 +8 8 1 +#5014 +myconoid shaman~ +the myconoid shaman~ +A rather large myconoid stands here chanting in a strange tongue. +~ +The shaman shoots spores into the air. +~ +acil dhk 950 S +14 7 1 1d12+173 2d7+2 +2500 18000 +8 8 1 +#5015 +dustdigger oasis~ +the dustdigger~ +A small oasis invites you to dive in. +~ +Looking a little closer at this oasis, you begin to wonder why +it seems to be moving about... +~ +bcfqr 0 -200 S +7 10 1 1d6+85 3d4+0 +450 2250 +8 8 0 +#5017 +camel~ +the camel~ +A very dangerous creature, a camel, snorts at you. +~ +It is advisable not to mess with this creature. After all, you +have heard many a horror story about experiences with camels. +Bad experiences. +~ +bfq 0 -351 S +5 12 6 1d6+60 2d4+3 +270 900 +8 8 0 +$ diff --git a/lib/world/mob/51.mob b/lib/world/mob/51.mob new file mode 100644 index 0000000..9a71f4a --- /dev/null +++ b/lib/world/mob/51.mob @@ -0,0 +1,133 @@ +#5100 +goblin slave~ +the goblin slave~ +A goblin slave lies here asleep. +~ +The defenseless goblin begs for mercy. +~ +bh 0 350 S +1 20 9 1d11+11 1d5+0 +0 100 +4 4 1 +#5101 +drow commoner~ +the Drow commoner~ +A drow commoner is here, walking around on guard duty. +~ +I doubt he is the type to give directions. +~ +fglm dk -1000 S +10 12 0 1d10+130 13d1+3 +300 10750 +8 8 1 +#5102 +drow noble warrior~ +the drow warrior~ +A drow warrior stands here guarding his home. +~ +He looks kind of annoyed! +~ +bflm dk -1000 S +12 9 0 1d5+160 14d1+7 +1000 15000 +8 8 1 +#5103 +drow noble mage~ +the drow mage~ +A drow mage is here protecting his home. +~ +The mage prepares to cast a spell... at you!! +~ +abflm dk -1000 S +15 8 2 1d12+190 8d2+2 +2000 21000 +8 8 1 +#5104 +drow priestess~ +the drow priestess~ +A drow priestess is here shouting orders. +~ +I wouldn't want go get on her bad side! +~ +abflm dk -1000 S +17 5 0 1d11+205 14d1+4 +4000 28000 +8 8 2 +#5105 +drow master~ +the drow master~ +A drow master stares at you angrily. +~ +The drow master is ALWAYS ready for a fight. +~ +bflm dk -1000 S +21 0 0 1d12+248 18d1+4 +10000 60000 +8 8 1 +#5106 +drow weaponsmaster~ +the weaponsmaster~ +A drow weaponsmaster is here shadow boxing. +~ +He definitely know his way around in combat. +~ +bflm dkp -1000 S +23 0 -2 1d25+405 12d2+4 +15000 80000 +8 8 1 +#5107 +drow matron mother~ +the Matron Mother~ +The Matron Mother of the house is standing here. +~ +She looks really and truly annoyed that you have found your way here. +~ +abfl dhkp -1000 S +24 0 -3 1d50+450 15d2+4 +30000 130000 +8 8 2 +#5108 +drow matron mother~ +the Matron Mother~ +The Matron Mother of the first house is waiting for you. +~ +She looks like she is about to rip your head of and eat it. +~ +abfl dhkp -1000 S +25 0 -4 5d10+350 12d2+24 +40000 150000 +8 8 2 +#5109 +drider~ +the drider~ +The drider looks at you viciously while it draws its sword. +~ +This half-spider, half-drow creature is a formidable opponent. +~ +fgno dkp -1000 S +8 12 2 1d6+195 2d6+2 +200 4000 +8 8 0 +#5110 +drider~ +the drider~ +The drider looks at you viciously while it draws its sword. +~ +This half-spider, half-drow creature is a formidable opponent. +~ +bfgno dhkp -1000 S +11 10 0 1d6+295 3d6+8 +0 7000 +8 8 0 +#5111 +yochlol~ +the yochlol~ +A yochlol forms out of a swirling mist... +~ +The yochlol is not in a good mood. +~ +beflnoqr dfhkp -1000 S +23 0 -6 25d2+450 15d2+30 +60000 80000 +8 8 2 +$ diff --git a/lib/world/mob/52.mob b/lib/world/mob/52.mob new file mode 100644 index 0000000..1d5df10 --- /dev/null +++ b/lib/world/mob/52.mob @@ -0,0 +1,123 @@ +#5200 +beholder~ +the mighty beholder~ +You meet a beholder's deadly gaze! +~ +It has a large central eye that projects an anti-magic ray and ten +eyestalks atop the round body which can do anything from charm you +to disintegrate you. Beholders are not known for their personality. +~ +abflnoq dhkp -870 S +25 6 0 1d14+450 6d9+5 +28560 134000 +8 8 0 +#5201 +lamia beast~ +the lamia~ +A strange lamia stands here waiting for her next meal. +~ +This is a creature with the upper torso of a beautiful woman, but the lower +body of a four-legged beast. She licks her lips as she looks at you greedily. +~ +acgj 0 -1000 S +12 12 3 1d10+120 2d5+1 +1500 10500 +8 8 2 +#5202 +mimic chest~ +the mimic~ +A strong chest lies in one corner of the room. +~ +A strong, wooden chest bound with iron straps and a heavy padlock on the +front. +~ +bqr 0 10 S +11 10 1 1d20+130 2d7+0 +0 13000 +8 8 0 +#5203 +mimic boulder skeleton skeletons~ +the mimic~ +Two skeletons lie crushed under a large boulder. +~ +This large boulder seems to have been dropped here at some point, since +there aren't any boulders native to this area. The two skeletons beneath +it are simply that, bones... no rags or anything else appears to be +attached to them. +~ +bqr 0 -10 S +14 7 1 3d15+150 3d5+1 +0 20000 +8 8 0 +#5204 +mimic floor~ +the mimic~ +The stone floor of this house has been ripped apart. +~ +What a mess, you wonder to yourself what could have caused this rampant +destruction. +~ +bqr 0 -140 S +11 11 3 2d6+110 2d6+0 +0 10500 +8 8 0 +#5205 +mimic pottery shards~ +the mimic~ +Some broken shards of pottery lie strewn about the floor. +~ +The pottery shards appear to have been part of a large vase at one point, +probably before the city fell. +~ +bqr 0 200 S +11 14 0 1d8+100 2d5+3 +0 9800 +8 8 0 +#5206 +mimic planks wooden~ +the mimic~ +A few wooden planks lie stacked on a low shelf. +~ +The fact that these planks still rest on this shelf leads you to believe +that someone has been here before you... +~ +bqr 0 0 S +11 9 0 1d12+110 4d3+1 +0 12000 +8 8 0 +#5207 +lizard horned~ +the horned lizard~ +A small horned lizard flicks his tongue and slithers away. +~ +A cute little lizard -- that is, if you like reptiles! +~ +h 0 300 S +3 17 4 1d14+30 2d4+0 +0 500 +8 8 0 +#5208 +golem stone~ +the stone golem~ +In the corner you see a large, stone golem faithfully standing watch. +~ +It is a big chunk of rock that has been magically formed into a giant stone +creature. He stands here still guarding the city. +~ +bilnopqr dfk 800 S +25 0 -5 6d6+500 4d7+3 +4250 145000 +8 8 0 +#5209 +lamia beast~ +the lamia~ +A strange lamia stands here waiting for her next meal. +~ +This is a creature with the upper torso of a beautiful woman, but the lower +body of a four-legged beast. She licks her lips as she looks at you greedily. +~ +abfg f -500 S +9 10 3 1d12+120 1d4+5 +1500 7000 +8 8 2 +$ diff --git a/lib/world/mob/53.mob b/lib/world/mob/53.mob new file mode 100644 index 0000000..52355ab --- /dev/null +++ b/lib/world/mob/53.mob @@ -0,0 +1,236 @@ +#5300 +asp snake~ +the horrible asp~ +A small, poisonous asp slithers over your feet. +~ +The asp is a small, smooth-scaled snake the color of worn pottery. +The poison bite of this snake has felled many a mighty pharoah. +~ +afg 0 0 S +5 14 8 5d5+50 1d6+1 +10 1000 +8 8 0 +#5301 +cobra snake~ +the hooded cobra snake~ +A cobra snake rears up and opens its fearsome hood. +~ +The cobra snake waves back and forth before you, its hood displaying brilliant +colors designed to serve notice to its prey that it is about to strike. +~ +afg 0 0 S +7 13 7 7d7+70 2d4+2 +25 2000 +8 8 0 +#5302 +mongoose~ +the wily little mongoose~ +A small mongoose slinks along the ground, hunting snakes. +~ +The mongoose is a wily rodent, a quick hunter of nasty poisonous snakes. +She sniffs you and appears to be looking for food in your hand. +~ +fg k 10 S +11 10 6 11d11+110 3d5+3 +100 10000 +8 8 2 +#5303 +pyramid watcher~ +the pyramid watcher~ +The pyramid watcher protects the tombs from intruders. +~ +The pyramid watcher has made a pledge to destroy any would-be looters of +the tombs of the pharoahs. He is clad from head to foot in utilitarian +sand-colored clothing. +~ +bem p 250 S +8 12 5 8d8+80 2d6+2 +200 3750 +8 8 1 +#5304 +thief tomb~ +the tomb thief~ +A sneaky tomb thief moves about in search of treasure. +~ +The thief brushes against you briefly, then slinks back into the shadows. +~ +agh pst -250 S +10 10 5 10d10+100 2d6+3 +500 9000 +8 8 1 +#5305 +ali baba thief~ +Ali Baba~ +Ali Baba is here, hunting for the pharoah's tomb. +~ +You see a tall, full-bearded man with a mischevious glint in his eye. Ali Baba +has made his life from stealing things from others, including many items stolen +recently from under the nose of the hapless guardians of this pyramid. Someday +he might get caught, but not today... +~ +acegl ps -300 S +18 2 0 18d18+180 3d8+2 +1000 30000 +8 8 1 +#5306 +magic carpet~ +the magic carpet~ +A small woven carpet lies under your feet. +~ +The carpet is simply beautiful, made from intricately woven silken material. +It seems to rise up at the touch of your feet. Wait, it is rising, a few feet +above the ground! In fact, it seems to be ALIVE! +~ +belnopqr dkp 500 S +9 11 7 9d9+90 2d5+2 +250 6000 +8 8 0 +#5307 +mummy corpse~ +the mummy~ +A mummy reaches for you, disturbed by your presence. +~ +You only see the disfigured, rotting features of decaying human flesh, +animated by the distempered spirit of a long-deceased person. +~ +fgnopr dfkp -600 S +12 8 4 12d12+120 1d6+6 +750 15000 +8 8 0 +#5308 +sand man sandman~ +the sandman~ +A sandman rises up from the desert floor. +~ +The sandman is exactly that -- some sort of strange being formed from the sands +of the desert floor. It seems quite large and strong and at home in the heat +and sandy winds. +~ +efglnopr dkp 0 S +14 6 2 14d14+140 2d7+4 +1500 18000 +8 8 1 +#5309 +efreeti efreet~ +the efreeti~ +The efreeti stands here, sheathed in a column of fire. +~ +The efreeti is a mighty being formed from living fire. He gazes down at +you with disdain and scorn, arms folded across his mighty chest. +~ +abeflnopqr dkp -600 S +20 0 -1 20d20+200 4d6+4 +11000 40000 +8 8 1 +#5310 +caryatid column~ +the caryatid~ +A sandstone column stands here, carved into a feminine figure. +~ +The column has been carved into a set of four shapely women, each facing +outward into the room. The sandstone of the caryatid is smooth with age, +but you can still make out a deadly stone sword in the hands of each figure. +~ +belmnopqr kp 0 S +24 -4 -3 24d24+240 4d6+8 +35000 100000 +8 8 2 +#5311 +djinn genie~ +the djinn~ +The djinn issues forth from the confines of a small lamp. +~ +The djinn is a mighty being formed from the air itself and frequently +imprisoned in a small lamp, used to do the bidding of those who find him. +He smiles down at you congenially, arms folded across his blue-tinged +skin, and strokes his goatee. +~ +abelnopqr dkp 600 S +28 -8 -6 28d28+280 6d6+12 +60000 310000 +8 8 1 +#5312 +hieracosphinx sphinx~ +the hieracosphinx~ +A hieracosphinx looks at you cunningly. +~ +The hieracosphinx are cunning, small, but nasty creatures, having the heads +of birds, mighty wingspans, and a full set of four paws to rend their victims +to pieces. They tend to be quite jealous of the sharper wits of their older +cousins. +~ +efglnoq kkp -200 S +15 5 3 15d15+150 1d10+5 +7500 21000 +8 8 0 +#5313 +gynosphinx sphinx~ +the gynosphinx~ +A gynosphinx sits here, befuddled by a riddle. +~ +The gynosphinx is a crafty but gentle creature, having the body of a +beautiful dark-skinned woman from the waist up, a feathery set of wings +and the hind legs of a mighty cat. Right now she is confused, having +just heard a puzzling riddle from a cousin criosphinx. +~ +abelnoq dkp 100 S +19 1 0 19d19+190 2d10+10 +10000 35000 +8 8 2 +#5314 +criosphinx sphinx~ +the criosphinx~ +A criosphinx calmly watches you. +~ +The criosphinx is a calm and friendly creature, having the head of a ram atop +the body of a well-furred feline with eagle-like wings. He delights in riddles, +and in poking occasional fun at his easily confused lesser cousins. +~ +abelnoq dkp 300 S +23 -3 -2 23d23+230 3d10+15 +25000 80000 +8 8 1 +#5315 +androsphinx sphinx~ +the androsphinx~ +A mighty androsphinx tosses its lion-like mane. +~ +The mighty androsphinx is a huge creature, with the body of a lion whose +face is quite man-like, perhaps even handsome, and a massive pair of feathered +wings. Tales are told of pharoahs that were rendered permanently deaf by the +mighty roar of this sphinx. +~ +abelnoq dkp 400 S +27 -7 -6 27d27+270 4d10+20 +50000 200000 +8 8 0 +#5316 +great sphinx~ +the great sphinx~ +A mighty sphinx rests here in the sand, dormant now for centuries. +~ +The great sphinx towers tens of feet above you, resting here in a state of +dormancy. It has become almost indistinguishable from the sand that surrounds +it, although you can still make out the features of the handsome face that once +advised many rulers. +~ +abelnopqr dhkp 500 S +41 -21 -20 41d41+410 5d10+25 +125000 1500000 +8 8 0 +#5317 +ramses mummy~ +Ramses the Damned~ +You have awakened the mighty servant to the pharoahs, Ramses. +~ +As your light spills over his face and body, you can see his features +begin to fill out, swell, and harden, until an apparently healthy man +stands before you, clad only in the raiments he was left in when he last +slept. His hair is a soft black, his skin a deep chocolate, and his +tall frame is totally still, his chest not even moving to breathe. +~ +abelnopr dhkp 150 S +38 -18 -18 38d38+380 8d5+40 +88000 1000000 +8 8 1 +$ diff --git a/lib/world/mob/54.mob b/lib/world/mob/54.mob new file mode 100644 index 0000000..40d90ab --- /dev/null +++ b/lib/world/mob/54.mob @@ -0,0 +1,1047 @@ +#5400 +mage guildmaster~ +the guildmaster~ +Your guildmaster stands here. +~ +An old man peering through ancient tomes rests here. +~ +blno dhk 1000 S +16 -10 -10 1d1+10000 5d5+5 +1 0 +8 8 1 +#5401 +cleric guildmaster~ +the guildmaster~ +Your guildmaster stands here. +~ +An older man wrapped in purple, long-flowing robes meditates here. +~ +blno dhk 1000 S +16 -10 -10 1d1+10000 5d5+5 +1 0 +8 8 1 +#5402 +warrior guildmaster~ +the guildmaster~ +Your guildmaster stands here. +~ +A smaller man dressed in black robes stands here waiting to train you. +~ +blno dhk 1000 S +16 -10 -10 1d1+10000 5d5+5 +1 0 +8 8 1 +#5403 +thief guildmaster~ +the guildmaster~ +Your guildmaster stands here. +~ +A small human dressed in black rests in the corner. As you enter he grabs +a knife and throws it at you. It lands in the wall next to your left ear. +'We will now begin', is all he says. +~ +blno dhk 1000 S +16 -10 -10 1d1+10000 5d5+5 +1 0 +8 8 1 +#5404 +receptionist woman~ +the receptionist~ +A dark skinned, veiled woman greets you from behind the desk. +~ +This Arabian beauty is obviously the daughter of some high ranking +official. As you attempt to sneak a peek under her veil you notice +a small moon-shaped birthmark on her left cheek. +~ +ablno d 800 S +10 -10 -10 1d1+1871 10d20+10 +1 5000 +6 6 2 +#5405 +bartender man mage old~ +the old withered man~ +An old withered man leans against the bar. +~ +He looks distracted as he pours five drinks at once without error. +~ +blno d 0 S +35 9 -1 1d1+12000 1d5+3 +1 1000 +8 8 1 +#5406 +john brother singer lead~ +Brother John~ +Brother John, lead singer for the Lokettes stands on stage. +~ +You see the lead singer of the Lokettes lip synching to an old Zochan +tune. +~ +bg 0 0 S +15 4 0 3d5+150 2d5+3 +21 1350 +8 8 1 +#5407 +panhandler~ +the panhandler~ +A panhandler rests here. +~ +A small skinny man rests here hoping to find a warm heart. +~ +cgh 0 -20 S +2 19 10 10d1+1 1d4+2 +1 5 +5 5 1 +#5408 +panhandler~ +the panhandler~ +A panhandler rests here. +~ +A small skinny man rests here staring at your clothes. +~ +cgh 0 -20 S +3 19 10 10d1+1 1d3+3 +1 5 +5 5 1 +#5409 +beggar~ +the beggar~ +A grubby beggar sits here in the filth. +~ +This poor soul seems down on his luck, perhaps you might spare a dime? +~ +cgh 0 -20 S +1 19 10 10d1+1 1d2+2 +1 0 +8 8 1 +#5410 +baker~ +the baker~ +The baker stands here playing solitaire. +~ +You see a large man in a white apron covered in flour from head to toe. +~ +blno d 100 S +35 0 0 1d1+30000 2d10+2 +1 2000 +8 8 1 +#5411 +shopkeeper~ +the shopkeeper~ +The shopkeeper stands here. +~ +You see a half-elf sitting on a stool behind his counter. +~ +blno d 100 S +35 0 0 1d1+30000 2d10+2 +1 2000 +8 8 1 +#5412 +banker~ +the banker~ +A banker stands here waiting to help you. +~ +This small halfling seems adept at counting money. +~ +blno d 0 S +10 1 0 1d1+30000 3d6+2 +1 0 +8 8 1 +#5413 +ahkeem tailor~ +Ahkeem the tailor~ +Ahkeem the tailor welcomes you to his store. +~ +This middle-aged man looks over you with disdain and quickly suggests a +new wardrobe. +~ +blno d 0 S +35 10 5 1d1+30000 1d5+5 +1 200 +8 8 1 +#5414 +vera lady~ +Vera the veggie lady~ +Vera the veggie lady beems as you look over her stand. +~ +A tall slender woman stands before you smiling broadly. +~ +blno d 0 S +35 10 5 1d1+30000 1d5+5 +1 2000 +8 8 2 +#5415 +butch~ +Butch the meatcutter~ +Butch the meatcutter stands here in his bloodied apron. +~ +This stocky dwarf has a mad glint in his eye as he twirls his clever +carelessly into the air. +~ +blno d 0 S +35 10 5 1d1+30000 1d5+5 +1 2000 +8 8 1 +#5416 +abdul armorer~ +Abdul the armorer~ +Abdul stands here, waiting to help you. +~ +Abdul returns your gaze with a steady eye. You quickly glance away +under his cold stare and place your order. +~ +blno d 0 S +35 10 5 1d1+30000 1d5+5 +1 2000 +8 8 1 +#5417 +igor weaponsmith~ +Igor the weaponsmith~ +Igor stands here doing... something. +~ +You see a small dwarf with a large hump on his left shoulder. +~ +blno d 0 S +35 10 5 1d1+30000 1d5+5 +1 2000 +8 8 1 +#5418 +cassandra~ +Cassandra~ +Cassandra stands proudly over her selection. +~ +You see a happy weather-worn face whose lines suggest many years on +the open sea. It is only through years of fishing that she is able +to withstand the smell that permeates the air. +~ +blno d 0 S +35 0 0 1d1+30000 1d5+5 +1 2000 +8 8 2 +#5419 +foreman man~ +the foreman~ +The foreman stands here screaming at the workers. +~ +A worried working dwarf stands here constantly making notes in his +book and looking at his watch. +~ +bg 0 0 S +15 6 -2 3d10+40 1d8+2 +1 100 +8 8 1 +#5420 +construction worker~ +the construction worker~ +A construction worker steadily works here. +~ +A large sweaty looking man doesn't even return your glance. +~ +bg 0 10 S +10 12 0 3d8+35 2d5+2 +1 50 +8 8 1 +#5421 +statue brahman~ +the statue of Brahman~ +The statue of Brahman stands here. +~ +The statue made of solid marble depicts the mighty God defeating Siva +in magical combat. +~ +abelnopqr dhk 1000 S +15 -10 -10 1d1+1200 6d10+10 +1200 12000 +8 8 0 +#5422 +statue siva~ +the statue of Siva~ +The statue of Siva stands here. +~ +The statue of the High Lord of Destruction stands here beings attacked +by Brahman in magical combat. +~ +abelnopqr dhk -1000 S +15 -10 -10 1d1+1200 6d10+10 +1200 12000 +8 8 0 +#5423 +statue indra~ +the statue of Indra~ +The statue of Indra stands here. +~ +This statue looks like an enormous elephant. +~ +abelnopqr dhk 1000 S +15 -10 -10 1d1+1200 6d10+10 +1200 12000 +8 8 0 +#5424 +statue yama~ +the statue of Yama~ +The statue of Yama stands here. +~ +This is a statue of the God of Death. It is covered with odd runes. +~ +abelnopqr dhk 0 S +15 -10 -10 1d1+1200 6d10+10 +1200 12000 +8 8 0 +#5425 +statue surya~ +the statue of Surya~ +The statue of Surya stands here. +~ +The statue of Surya, the God in charge of the Sun, almost glows +with a firey aura. +~ +abelnopqr dhk 1000 S +15 -10 -10 1d1+1200 6d10+10 +1200 12000 +8 8 0 +#5426 +statue kali~ +the statue of Kali~ +The statue of Kali stands here. +~ +The statue of the Black Mother, Kali, is made of black marble and +is covered with silver runes. +~ +abelnopqr dhk -1000 S +15 -10 -10 1d1+1200 6d10+10 +1200 12000 +8 8 0 +#5427 +statue brihaspati~ +the statue of Brihaspati~ +The statue of Brihaspati stands here. +~ +The statue of Brihaspati, the God of Scholars and Knowledge is made +of a weathered marble. +~ +abelnopqr dhk 0 S +15 -10 -10 1d1+1200 6d10+10 +1200 12000 +8 8 0 +#5428 +statue puchan~ +The statue of Puchan~ +The statue of Puchan stands here. +~ +The statue of Puchan, God of Travellers, is covered with dust and worn +as if it had been dragged a long way down a dusty road. +~ +abelnopqr dhk 1000 S +15 -10 -10 1d1+1200 6d10+10 +1200 12000 +8 8 0 +#5429 +aziz human canon~ +Aziz~ +Aziz the Human Canon stands here. +~ +This big and burly man grins at you as he draws his sword. +~ +gh d 0 S +11 14 0 2d11+40 2d5+2 +1 384 +8 8 1 +#5430 +mustafah human robber~ +Mustafah~ +Mustafah the Human Robber stands here. +~ +This man is lithe and has an evil smirk upon his face. +~ +gh d 0 S +7 17 30 3d8+41 2d4+1 +1 99 +8 8 1 +#5431 +fatima elf invoker~ +Fatima~ +Fatima the Elven Invoker stands here. +~ +This female elf has dusky skin and black hair. A combination you don't +see very often on elves. +~ +gh d 0 S +9 18 50 2d6+25 3d3+0 +1 93 +8 8 2 +#5432 +kareem dwarf mercenary~ +Kareem~ +Kareem the Dwarven Mercenary stands here. +~ +This short stocky fellow has a chest the girth of a barrel. +~ +gh d 0 S +12 9 0 4d4+50 2d6+5 +1 939 +8 8 1 +#5433 +nomad merchant~ +the nomad merchant~ +A nomad merchant looks you over. +~ +This robust fellow returns your gaze with a smile, but something inside +tells you not to trust him very far. +~ +cghlmno 0 -100 S +35 11 20 1d1+1500 1d8+2 +15000 800 +8 8 1 +#5434 +bodyguard guard~ +the Sultan's Bodyguard~ +A bodyguard sizes you up. +~ +The large half-orc quickly glances you over and returns to his duties. +~ +abeflm dk 0 S +12 10 3 3d10+100 1d6+3 +1 400 +8 8 1 +#5435 +kid thief~ +the skinny kid~ +A skinny kid wanders around. +~ +This small child sees you looking at him and quickly looks away. +~ +ch 0 100 S +7 12 1 14d1+1 2d5+1 +1 100 +8 8 1 +#5436 +dockworker~ +the dockworker~ +A strong dockworker walks by moving crates. +~ +Although seemingly dull witted, this hulking mass carries the huge +crates from the boats like it was a box of lilies. +~ +g 0 0 S +12 9 20 3d5+65 1d8+5 +1 550 +8 8 1 +#5437 +man taxcollector~ +the taxcollector~ +A small man walks around scribbling in a notebook. +~ +The city's taxcollextor walks from store to store collecting the +Sultan's fee for living in his grand city. +~ +gh 0 0 S +5 16 50 10d2+45 2d3+1 +15 431 +8 8 1 +#5438 +gord~ +Gord~ +Gord the Rogue stand here. +~ +~ +ch dhk 1000 S +15 0 -3 5d3+105 2d6+4 +1 1000 +8 8 1 +#5439 +chulainn knight~ +Chulainn~ +Chulainn the Knight stands here. +~ +This large man does not seem to be surprised at your approach and +looks at you quizically. +~ +chlm dk 800 S +15 0 -10 4d1+231 2d8+5 +650 8700 +8 8 1 +#5440 +daghdha~ +Daghdha~ +Daghdha the Arch-Magi stands here. +~ +This man is dressed in long brown robes and has a penetrating gaze. +~ +ag dhk 200 S +15 5 3 5d2+180 1d6+2 +0 8700 +8 8 1 +#5441 +curley greenleaf~ +Curley GreenLeaf~ +Curley GreenLeaf stands here. +~ +~ +ch 8 0 S +15 0 0 3d5+120 3d4+1 +1 1000 +8 8 1 +#5442 +man wandering prophet~ +the wandering prophet~ +A small grey-haired man walks around spouting gospel. +~ +This sad case may have been an evangelist in another lifetime. He is known +to stand on corners and accost passers-by with his doomsday preaching. +~ +h 0 0 S +7 16 50 1d1+1 1d5+1 +1 10 +8 8 1 +#5443 +alley cat~ +the alley cat~ +A small harmless feline searches for food. +~ +You see a small starved cat. +~ +h 0 -10 S +2 18 70 1d2+5 2d2+1 +1 0 +8 8 1 +#5444 +vulture~ +the vulture~ +A vulture circles above you. +~ +As you look up at this bird, you see the only thing it wants is a corpse. +~ +gh 0 -200 S +2 18 7 1d3+1 1d6+1 +1 10 +8 8 1 +#5445 +old man~ +the old man~ +An old man sits here playing chess. +~ +He seems intent on winning. +~ +h 0 200 S +4 17 80 2d3+1 1d3+1 +1 20 +6 6 1 +#5446 +lugh librarian~ +Lugh the Librarian~ +Lugh the Librarian sits behind a desk. +~ +The huge hulking mass rises as someone asks him a question. +~ +belno 0 300 S +10 1 0 10d10+430 3d6+5 +1231 23000 +6 6 1 +#5447 +dirt dust devil~ +the dirt devil~ +The wind kicks up some dust. +~ +What you see before you is really a baby air elemental. +~ +cf 0 -1000 S +1 19 90 2d2+1 2d3+1 +1 10 +8 8 1 +#5448 +lamia beast~ +the lamia~ +A strange lamia stands here waiting for her next meal. +~ +This is a creature with the upper torso of a beautiful woman, but the +lower body of a four-legged beast. She licks her lips as she looks at +you greedily. +~ +cj 0 -500 S +12 12 3 1d10+120 2d5+1 +1500 10500 +8 8 2 +#5449 +dervish~ +the raggety dervish~ +A raggety dervish stands here. +~ +This man looks like he could use a lot of rest. +~ +fg 32768 -750 S +8 12 3 4d4+20 2d6+1 +1 105 +8 8 1 +#5450 +sultan~ +the Sultan~ +The Sultan rests here on his throne. +~ +You see a large wealthy man in red robes smiling at you. +~ +beilno dhk 200 S +10 5 -4 6d6+830 1d6+0 +1200 25000 +5 5 1 +#5451 +harem girl~ +a harem girl~ +A lovely, veiled harem girl stands here. +~ +You see a dark skinned beauty, wearing almost transparent silks and +light blue veil. Her loyalty to the Sultan is unwavering. +~ +b 0 0 S +3 17 7 1d1+15 1d6+1 +0 40 +8 8 2 +#5452 +jailer~ +the jailer~ +The Jailer sleeps here, snoring loudly. +~ +You see a pathetic soul lying here. Probably some ex-nobleman that has +fallen out of grace with the Sultan. +~ +bch 0 -100 S +18 4 0 3d4+100 1d6+6 +157 1200 +4 4 1 +#5453 +eunich~ +a eunich~ +A eunich stands here watching over the girls. +~ +You see a large man whose only duty is to protect the harem. He has been +castrated for the ladies' safety. +~ +bf dk 0 S +12 8 0 5d1+130 2d4+4 +0 1300 +8 8 0 +#5454 +sultans favorite girl nichole~ +Nichole, the Sultan's favorite~ +Nichole, the Sultan's favorite girl rests on a mound of pillows. +~ +You see the most beautiful Arabian girl that has ever meet your eyes. +Too bad she is about to kill you. +~ +bf dk 100 S +10 3 -2 1d1+54 2d5+2 +0 150 +5 5 2 +#5455 +allah~ +Allah~ +Allah is here. +~ +You see the all-knowing Allah. +~ +abeiklnopqr dhks 1000 S +11 0 0 2d3+2300 2d20+20 +0 45000 +5 5 0 +#5456 +mage guildguard~ +the guildguard~ +The Guard for the Guild of Mages stand here. +~ +This man looks like a mage/warrior, I wouldn't mess with him. +~ +blno dhk 0 S +8 -1 -10 2d5+500 3d8+10 +0 500 +8 8 1 +#5457 +cleric guildguard~ +the guildguard~ +The Guard for the Guild of Clerics stands here. +~ +This man looks like a cleric/warrior, I wouldn't mess with him. +~ +blno dhk 0 S +8 -1 -10 2d5+500 3d8+10 +0 500 +8 8 1 +#5458 +warrior guildguard~ +the guildguard~ +The Guard for the Guild of Warriors stands here. +~ +The man looks like Conan's cousin, I wouldn't mess with him. +~ +blno dhk 0 S +8 -1 -10 2d5+500 3d8+10 +0 500 +8 8 1 +#5459 +thief guildguard~ +the guildguard~ +The Guard for the Guild of theives stands here. +~ +You see a thief dressed all in black, he quickly stands as you +enter and steps to bar your way. You notice his hands resting +on two sheathes. +~ +blno dhk -100 S +8 -1 -10 2d5+500 3d8+10 +0 500 +8 8 1 +#5460 +servant boy~ +the servant boy~ +A servant boy is here running errands. +~ +You see a small boy running around the halls of the palace. +~ +g 0 0 S +2 19 90 10d1+1 1d4+1 +1 10 +8 8 1 +#5461 +sultans guard~ +the Sultan's Guard~ +A guard stands here, protecting the innocent. +~ +You see a trained fighter, ready to help those in need. +~ +agh 0 1000 S +10 10 9 2d4+120 1d8+0 +150 2500 +8 8 1 +#5462 +sultans guard~ +the Sultan's Guard~ +A guard stands here, watching the gate. +~ +You see a trained fighter, ready to defend the city. +~ +abg 0 1000 S +10 10 8 2d4+120 1d8+1 +150 2500 +8 8 1 +#5463 +sultans guard chief~ +the Chief Guard~ +The Chief of the Sultan's Guard stands here. +~ +You see a large man skilled in hunting and killing. +~ +ag d 1000 S +15 0 0 4d5+251 2d8+1 +435 5000 +8 8 1 +#5464 +mercenary~ +the mercenary~ +A mercenary stands here waiting for a job. +~ +You see an assassin down on his luck looking to be freelanced out. +~ +g 0 0 S +5 15 9 1d8+14 1d4+2 +1 50 +8 8 1 +#5465 +shipwright captain~ +the shipwright~ +An old captain rests here carving on a stick. +~ +You see the shipwright of New Thalos, waiting to make someone a boat. He +beams a smile at you through his beard as you walk in. +~ +blno 0 0 S +35 0 0 1d1+30000 5d5+5 +1 2000 +8 8 1 +#5466 +blacksmith~ +the blacksmith~ +The blacksmith stands here pumping air into his fire. +~ +You see a large human, dripping in sweat, standing before you. He takes +a break from his swealtering work to bid you welcome. +~ +blno 0 0 S +35 0 0 1d1+30000 4d4+4 +1 2000 +8 8 1 +#5467 +horse~ +the horse~ +A horse stands here. +~ +You see one of the fine Arabian beasts known about the land. +~ +bgh 0 0 S +4 20 50 10d1+1 2d4+2 +0 10 +8 8 1 +#5468 +tourist~ +the tourist~ +A tourist stands here looking lost. +~ +You see a small, rotund man, with a strange object around his neck and +a nose guard. He is looking at a small map that he seems to be holding +upside down. +~ +cgh 0 0 S +5 18 80 2d10+15 1d8+2 +500 650 +8 8 1 +#5469 +ixitxachitl ray~ +the ixitxachitl~ +A very large ray with a wicked looking tail swims here. +~ +You see a large ray with sharp fangs and a barbed tail. +~ +bflpqr dgk -500 S +10 0 -5 3d3+120 3d4+1 +0 2000 +8 8 0 +#5470 +cryohydra~ +the cryohydra~ +The cryohydra stands here. +~ +A grey-brown reptillian creature with amber eyes stands before you. +~ +fglpq k 0 S +8 9 5 10d1+1 1d10+0 +0 100 +8 8 1 +#5471 +minotaur lizard~ +the minotaur lizard~ +the minotaur lizard stands here. +~ +A huge lizard like reptile with horns like a minotaur. +~ +fg k 0 S +8 8 5 1d10+55 3d5+0 +0 100 +8 8 1 +#5472 +dog death~ +the death dog~ +The death dog stands here. +~ +A large two-headed hound barks at you vicously. +~ +fgl k 0 S +4 19 7 1d15+76 1d10+1 +0 900 +8 8 0 +#5473 +lion spotted~ +the spotted lion~ +The spotted lion stands here. +~ +A large fierce dapple skinned lion glares at you. +~ +fg k 0 S +5 17 6 5d5+45 1d8+1 +0 1500 +8 8 1 +#5474 +behir~ +the behir~ +A behir slithers on the ground. +~ +You see a large snake-like reptile with more than a dozen legs. +~ +fglpq kp -300 S +12 9 4 4d3+146 2d8+4 +0 1000 +8 8 0 +#5475 +chimera creature lion goat dragon~ +the chimera~ +A creature with three heads: lion, goat, and dragon stands here. +~ +The chimera is still a mystery, better left unexplored. This creature +has the hindquarters of a goat, the forepaws of a lion and the body of +a red dragon. +~ +bflq dgkp -500 S +9 5 0 5d5+261 3d4+4 +0 3500 +8 8 0 +#5476 +couatl~ +the couatl~ +A couatl hovers here. +~ +A beautiful creature with the body of a serpent and feathered wings the +colour of the rainbow. +~ +belnoq dghkp 300 S +15 10 1 10d5+130 2d4+2 +0 2400 +8 8 0 +#5477 +giant hornet~ +the giant hornet~ +The giant hornet hovers here. +~ +It is a hornet, what else can be said? +~ +eqr dgk 300 S +5 15 4 1d1+5 1d4+0 +0 45 +8 8 0 +#5478 +pegasus~ +the pegasus~ +The pegasus stands here, flexing its wings. +~ +A magnificant winged steed, this horse looks much like the Arabian +thoroughbreds you have seen in stables. +~ +bglmpq dgk 1000 S +10 4 0 1d5+700 2d10+5 +0 6500 +8 8 0 +#5479 +elriva~ +Elriva~ +Elriva stands here mixing a love potion. +~ +You see a very healthy female dressed in black, with long flowing +hair to match her outfit. +~ +blno 0 0 S +35 10 0 1d1+30000 1d10+10 +1 2000 +8 8 2 +#5480 +braheem~ +Braheem~ +Braheem stands here talking to the walls. +~ +You see a powerful but slighty insane mage. +~ +blno 0 0 S +35 -10 -10 1d1+30000 10d10+40 +1 2000 +8 8 1 +#5481 +high priest~ +the high priest~ +The high priest rests here meditating, well he WAS meditating. +~ +He does NOT look real happy that you have disturbed him. +~ +bgh dhk 1000 S +8 2 0 10d5+1200 2d8+5 +15000 35000 +8 8 1 +#5482 +royal guard elite~ +the Royal Guard~ +An Elite Royal Guard stands here smiling happily. +~ +You see one of the Royal Guards of New Thalos who seems to have undergone +some heavy training. +~ +abelmno dhk 1000 S +15 0 -6 5d20+900 1d10+6 +1500 25000 +8 8 1 +#5483 +patch bartender~ +Patch the bartender~ +A large half-orc with a patch over one eye pours beer behind the counter. +~ +You see a really big guy here who seems to have lost an eye in one manner +or another. +~ +blno d -500 S +35 0 -10 1d1+30000 3d8+10 +1 2000 +8 8 1 +#5484 +stitch~ +Stitch, the leather dude~ +Stitch, the leather dude reclines in his chair. +~ +You see a small hobbit with his feet kicked up on his desk waiting for +some sucker, uhm, customer to walk in his store. +~ +blno d -500 S +35 -10 -5 1d1+30000 3d6+6 +1 2000 +8 8 1 +#5485 +gardener elf~ +the gardener~ +A small elf stands here tending the garden. +~ +A young elf stands here in dirt covered overalls. He seems to be +weeding his garden. +~ +b 0 0 S +10 10 6 5d5+100 2d8+2 +56 1500 +8 8 1 +#5486 +nightmare demon horse~ +the nightmare~ +A large horse, black as night, stands here. +~ +You see the largest horse you have ever seen before. Standing 10' +at the shoulder it breathes flame from his nostrils and leaps to +attack you. +~ +blno dfghkps 1000 S +10 0 -5 3d9+300 3d5+7 +0 5500 +8 8 0 +#5487 +wolverine wolf~ +the wolverine~ +A large wolf like creature leaps out from the darkness. +~ +You see a half wolf, half human beast wearing a glove with long thin +blades on it. +~ +bf kps -351 S +15 0 0 10d2+230 2d10+10 +0 5000 +8 8 0 +#5488 +mimic painting~ +the mimic~ +You see an incredibly life-like painting of the Sultan's mother. +~ +Boy is she ugly. +~ +b 0 0 S +10 10 0 5d8+321 2d8+4 +0 6000 +8 8 1 +#5489 +mayor rabbit~ +the mayor~ +The Mayor of New Thalos stands here. +~ +You see a chubby rabbit dressed in his best suit. +~ +g 0 1000 S +10 0 0 2d8+600 3d6+6 +1200 15675 +8 8 1 +#5490 +chef~ +the chef~ +The chef stands here making dinner. +~ +You see a very large human who seems to taste everything he makes. +~ +b 0 400 S +14 6 6 10d2+5 2d10+5 +16 40 +8 8 1 +$ diff --git a/lib/world/mob/60.mob b/lib/world/mob/60.mob new file mode 100644 index 0000000..aea7e34 --- /dev/null +++ b/lib/world/mob/60.mob @@ -0,0 +1,238 @@ +#6000 +john lumberjack~ +John the Lumberjack~ +John the Lumberjack is here, looking for some trees to chop down. +~ +He is six feet tall and looks quite strong, muscles bulging under his heavy, +chequered shirt. His features are worn with hard work and his expression is +one of a peaceful man leading a simple life. +~ +cglm f 370 S +5 15 6 1d12+60 1d4+3 +100 1050 +8 8 1 +#6001 +rabbit small~ +the rabbit~ +A small rabbit is foraging in the bushes here. +~ +It is a small, furry creature with long ears and big feet. +~ +g 0 0 S +0 20 6 1d4+1 1d4+0 +0 60 +8 8 0 +#6002 +bear brown~ +the brown bear~ +A big, brown, angry-looking bear is here. +~ +The bear is a big, brown, furry animal with very large claws and very sharp +teeth. It doesn't resemble those cute little dolls from toy shops at all. +~ +fg 0 -50 S +8 13 3 1d12+98 2d6+2 +0 4000 +4 8 0 +#6003 +rabbit ferocious~ +the ferocious rabbit~ +A ferocious rabbit is here, glaring hungrily at you. +~ +This small, furry creature with long ears and big feet has been attacked +by the dreaded rabbit rabies, a horrible disease that turns helpless and +innocent rabbits into ferocious and bloodthirsty monsters. +~ +fg 0 -150 S +3 17 6 1d4+26 1d8+0 +0 350 +4 8 0 +#6004 +deer fallow~ +the fallow deer~ +A fallow deer is grazing peacefully here. +~ +She is a graceful creature on long, slender legs, and with large, brown eyes +looking back at you with an air of watchful interest. +~ +gh d 350 S +2 19 5 2d8+8 1d6+0 +0 230 +8 8 2 +#6005 +fox brown~ +the brown fox~ +A brown fox is stalking rabbits through the underbrush here. +~ +It is a large fox with beautiful, red-brown fur and a long, thick bushy tail. +~ +g 0 -50 S +2 18 6 1d4+18 1d6+0 +0 225 +8 8 0 +#6006 +bird large~ +the bird~ +A large bird with a broken wing has been cornered here. +~ +The bird isn't going to live much longer, by the looks of it. +~ +b 0 0 S +0 17 10 2d3+1 1d2+1 +0 25 +8 8 0 +#6007 +bobcat cat~ +the bobcat~ +A medium sized bobcat is stalking a bird here. +~ +The bobcat has sharp claws and teeth, and will probably eat you instead of +the bird if you give it the chance. +~ +bf dk -150 S +5 15 5 1d12+60 2d4+3 +0 1100 +8 8 0 +#6008 +sparrow~ +the sparrow~ +A sparrow is flapping around by the ground. +~ +The sparrow looks like it is enjoying life. +~ +g 0 200 S +0 20 9 3d3+1 1d4+0 +0 25 +8 8 0 +#6009 +robin~ +the robin~ +A robin is hopping around looking for bugs to eat. +~ +The robin looks quite intent on finding a bug or worm to eat. +~ +g 0 200 S +0 20 9 3d3+1 1d4+0 +0 25 +8 8 0 +#6010 +squirrel~ +the squirrel~ +A squirrel is here seeking refuge in its nest. +~ +It peers out of its nest at you anxiously, seeming to plead silently with +you to leave it alone. +~ +b st 200 S +1 20 8 1d7+9 1d5+0 +0 120 +8 8 0 +#6011 +badger~ +the sleepy badger~ +A furry brown badger is curled up under a log here. +~ +The badger is slowly awakening and peering up at you from its burrow. You +know that it won't be moving this slow for long. Its sharp claws and teeth +catch your attention when you consider killing it. +~ +b t 50 S +4 17 5 1d5+48 2d3+2 +0 650 +8 8 0 +#6012 +grey squirrel~ +the grey squirrel~ +A grey squirrel with a bushy tail is foraging for nuts here. +~ +This happy creature seems to pay you no heed as it goes about its search for +nuts among the leaves and twigs on the ground here. +~ +g s 150 S +2 19 8 1d12+22 1d6+0 +0 200 +8 8 0 +#6013 +chipmunk~ +the small chipmunk~ +A small brown-red chipmunk dashes from tree to tree here. +~ +The absolute zenith of hyperactivity, this small rodent seems to never tire +of running up, down, and around the trees in this area. If you could ever +catch it, you imagine it would make an easy meal. +~ +g s 170 S +0 20 5 2d5+3 1d4+0 +0 40 +8 8 0 +#6014 +crow black bird~ +the large black crow~ +A large black bird flits about here, picking at bits of carrion. +~ +The bird eyes you warily, but continues with its meal. +~ +bch 0 -20 S +2 19 8 1d12+22 1d5+1 +3 200 +8 8 0 +#6015 +grotesque vulture~ +the grotesque vulture~ +A grotesque vulture covered in blood and gore is here feeding madly. +~ +It sickens you to even look at this foul bird. Bits of dried gore stick to +its beak, and unidentifiable organs hang from its talons and feathers. +It sees you and attacks, protecting its horrible feast! +~ +bcf dhk -700 S +6 15 4 1d12+68 2d3+2 +14 1750 +8 8 0 +#6016 +buck deer~ +the young buck~ +A young 5-point buck is drinking from the lake here. +~ +This young male deer is drinking from the edge of the lake and watching you +warily. His antlers are not full size yet, and will no doubt be quite +impressive in a few years. +~ +bg d 350 S +4 17 4 1d12+48 1d5+3 +0 750 +8 8 1 +#6017 +fish~ +the fish~ +A fish is swimming about here. +~ +The fish looks about the right size for a meal. +~ +b g 100 S +0 20 10 2d5+0 1d3+0 +0 30 +8 8 0 +#6018 +duckling~ +the duckling~ +A duckling is swimming around in the pond. +~ +The duckling is adorable, it looks most of all like a tiny furball. +~ +b 0 1000 S +0 20 10 1d1+0 1d1+0 +0 1 +8 8 0 +#6019 +duck~ +the duck~ +A duck is here, quacking happily. +~ +The duck is quite fat. It looks like it is enjoying life. +~ +g 0 1000 S +1 20 10 2d6+5 1d4+0 +0 75 +8 8 0 +$ diff --git a/lib/world/mob/61.mob b/lib/world/mob/61.mob new file mode 100644 index 0000000..71aee82 --- /dev/null +++ b/lib/world/mob/61.mob @@ -0,0 +1,156 @@ +#6100 +warg vicious~ +the vicious warg~ +A vicious warg is here, snarling angrily at you. +~ +It is an exceptionally large wolf with thick, black fur. Saliva is dripping +quickly from its long, white fangs. It looks quite dangerous and very angry. +~ +fg k -350 S +5 16 5 1d12+60 2d4+0 +0 1000 +8 8 0 +#6101 +warg ferocious~ +the ferocious warg~ +A ferocious warg is here, snarling angrily at you. +~ +It is an exceptionally large wolf with thick, black fur. Saliva is dripping +quickly from its long, white fangs. It looks quite dangerous and very angry. +~ +fg k -350 S +5 16 5 1d12+80 2d4+4 +0 1000 +8 8 0 +#6102 +wolf grey~ +the large, grey wolf~ +A large, grey wolf is here, glaring hungrily at you. +~ +The large, grey wolf eyes you with interest while licking its lips. +~ +fg k -150 S +3 18 7 1d12+35 1d7+0 +0 450 +8 8 0 +#6103 +wolf black~ +the large, black wolf~ +A large, black wolf is here, glaring hungrily at you. +~ +The large, black wolf eyes you with interest while licking its lips. +~ +fg k -150 S +3 18 7 1d12+45 1d7+3 +0 450 +8 8 0 +#6110 +tree ancient~ +the ancient tree~ +A huge, ancient tree towers above you. +~ +Its roots are extremely big and large parts of them are above ground. +Something about it makes you think that this is not a normal oak tree. + +The enormous grey trunk shivers slightly, as if sighing deeply. +~ +glnopqr dfkstp 0 S +30 0 -10 1d1+1299 4d4+22 +0 500000 +8 8 0 +#6111 +tree ancient~ +the ancient tree~ +A huge, ancient tree towers above you. +~ +Its roots are extremely big and large parts of them are above ground. +Something about it makes you think that this is not a normal oak tree. + +The enormous grey trunk emits a deep, moaning sound. +~ +glnopqr dfkstp 0 S +30 0 -10 1d1+999 4d4+18 +0 400000 +8 8 0 +#6112 +dragon green~ +the green dragon~ +A huge green dragon is here, its narrow yellow eyes glowing with rage. +~ +This enormous winged serpent has dark green scales covering most of its +colossal body. Numerous holes in its heavy wings tell of many fights as +does the nicks in the horns on its head. It smells as disgusting as only +dragons do. +~ +afgnoq dk -1000 S +20 1 0 1d12+248 2d6+9 +0 40000 +8 8 0 +#6113 +spider poisonous~ +the huge, poisonous spider~ +A huge, poisonous spider is here. +~ +This disgusting creature is at the size of a human crawling on all four. It +has eight hairy legs that gives it a tremendous speed on almost any surface +and sharp poisonous fangs to paralyze or kill its prey. +~ +abfg dk -350 S +8 13 2 1d12+98 2d5+1 +0 4000 +8 8 0 +#6114 +queen spider~ +the Queen spider~ +The huge, bulky Queen spider is here. +~ +This disgusting creature is at the size of a small elephant. It has eight +huge, hairy legs that would give it a tremendous speed on almost any surface +if it wasn't so immensely fat. Its large, bulbous eyes stare back at you. +~ +abgjl dfkp -1000 S +15 6 1 1d12+185 2d8+3 +0 31000 +8 8 2 +#6115 +shargugh brownie~ +Shargugh~ +Shargugh the Forest Brownie is here, grinning broadly at you. +~ +This little fellow is only three foot tall with wild matted brown hair and +long tangled brown beard. He wears ragged brown and green clothing and looks +as if he is having great fun. +~ +acghl bdfgkstp 1000 S +10 1 -10 1d12+47 1d8+0 +1000 11000 +8 8 1 +#6116 +elder druid~ +the Elder druid~ +The Elder druid is here. He looks very upset about your presence in his home. +~ +The druid looks quite old. You would think of him as venerable but yet you +know he would be a tough foe. +~ +abij dfk 0 S +19 2 0 1d12+236 3d6+4 +5000 45000 +8 8 1 +#6117 +isha elf~ +Isha the Dark Elf~ +Isha the Dark Elf is here, observing you silently. +~ +She is no less than beautiful, skin as dark as the night and hair +shining like silver in the moonlight. Her slender body is adorned +with a sleeveless shirt and a short skirt made from black scales +joined with silver threads. Her back is covered by a large, hooded +cloak as black as her skin and in her broad silver belt hangs a long, +slender sword in a silver scabbard. +~ +abml dks -1000 S +20 1 0 1d12+245 3d6+4 +5000 40000 +8 8 2 +$ diff --git a/lib/world/mob/62.mob b/lib/world/mob/62.mob new file mode 100644 index 0000000..6aa56a4 --- /dev/null +++ b/lib/world/mob/62.mob @@ -0,0 +1,170 @@ +#6200 +deer~ +the deer~ +A deer looks at you with fear in its eyes. +~ +That is one nice looking deer! +~ +h 0 0 S +3 18 10 3d5+33 1d7+0 +0 350 +8 8 0 +#6201 +rabbit~ +the rabbit~ +A small rabbit nibbles at a leaf here. +~ +It is a small, furry rodent with big ears. +~ +h 0 0 S +0 20 30 1d5+3 1d3+0 +0 25 +8 8 0 +#6202 +squirrel~ +the squirrel~ +A squirrel spots you and runs around a tree! +~ +It is a small, brown squirrel. Kind of like a +fuzzy high-tension spring. +~ +h 0 0 S +0 20 -10 1d3+0 1d1+1 +0 10 +8 8 0 +#6203 +orc hunter~ +the orc hunter~ +An orc hunter looks at you with hateful eyes. +~ +He looks angry, desperate, and maybe a little sick. +His green skin is definitely mottled, and he seems to +limp a little bit... +~ +fm k -350 S +7 14 50 3d5+83 2d3+2 +0 2250 +8 8 1 +#6204 +orc chief~ +the orc chief~ +An orc chief growls at you! +~ +He wears a crown of oak leaves to show he is a leader. He +carries a club to show he is a warrior. You wonder how good +he is at both. +~ +bflm k -600 S +10 11 20 3d5+120 2d7+2 +17 9000 +8 8 1 +#6205 +orc woman~ +the orc woman~ +An orc woman stands here, frightened of you. +~ +As you stare her down, she raises her hands slowly, as if to +say, 'Don't kill me'. +~ +h k -50 S +5 16 70 3d5+58 2d4+0 +0 900 +8 8 2 +#6206 +orc child~ +the orc child~ +An orc child frantically searches for her mother. +~ +She is raggedy, and seems to be covered with sores. +~ +h k 50 S +3 18 90 3d5+30 1d7+0 +0 350 +8 8 2 +#6207 +orc woman~ +the orc woman~ +A pregnant orc woman tries to stand to flee from you. +~ +She is too far gone to move very quickly. You could +kill her easily. +~ +bh k -50 S +5 16 100 3d5+58 1d4+0 +0 750 +6 6 2 +#6208 +orc mutant mutated~ +the mutant orc~ +A mutant orc lies here, barely alive. +~ +Its body has been twisted beyond all hope. It is dying, and +nothing will stop that. +~ +0 k 0 S +6 20 100 1d1+0 1d1+0 +0 1 +5 5 0 +#6209 +orc mutant mutated~ +the mutant orc~ +A horribly mutated orc stands here, gibbering. +~ +It doesn't even appear to have registered your arrival... it is +just talking to itself. Its body is a twisted wreck of orc, man, +beast, and what-not. +~ +0 k 0 S +6 20 100 3d5+60 1d1+0 +0 10 +8 8 0 +#6210 +wizard elf elven Elstar~ +Elstar~ +An elven wizard is here. He looks angry. +~ +He looks at you archly as he wonders why you have +invaded his domain. No matter... it shouldn't be +too hard for him to destroy you, no? +~ +bfl dk -1000 S +15 6 -75 3d5+183 2d8+2 +10000 21000 +8 8 1 +#6211 +child elf elven apprentice~ +the elven child~ +An elven child casts his fishing pole into the river. +~ +He looks young and innocent. You wonder what he is doing here. +~ +b k 600 S +3 18 60 3d5+35 2d4+0 +0 400 +8 8 1 +#6212 +mutant thing~ +the mutant thing~ +A mutant... thing rushes at you! +~ +It might've been an orc, once. Now it is a living terror, +pushing everything out of its way to get at you. +~ +fl k -800 S +12 9 -20 3d5+170 2d7+4 +0 15000 +8 8 0 +#6213 +mutant thing~ +the mutant thing~ +A mutant... thing tries to get you, but cannot move into range! +~ +It might have been an orc, once. Now it is a living terror, +pushing everything out of its way to get at you. +~ +bl k -800 S +12 9 -20 3d5+170 2d7+4 +0 15000 +8 8 0 +$ + diff --git a/lib/world/mob/63.mob b/lib/world/mob/63.mob new file mode 100644 index 0000000..9d5f4d6 --- /dev/null +++ b/lib/world/mob/63.mob @@ -0,0 +1,204 @@ +#6301 +spider young~ +the young spider~ +The young spider is ballooning by you. +~ +He looks freshly hatched and sprightly. His young fangs are just +growing in as of late. +~ +cg dk 0 S +3 18 7 1d12+40 1d7+0 +80 350 +8 8 1 +#6302 +yevaud dragon usurper~ +Yevaud~ +Yevaud, the Usurper of Midgaard is here, grinning evilly at you. +~ +Old, scaly, but still with a lot of bite in him left. +~ +abcjkl dk -1000 S +24 0 -3 5d4+450 4d7+7 +20000 120000 +8 8 1 +#6303 +spider wolf~ +the wolf spider~ +The wolf spider is here, licking its bloody fangs. +~ +The wolf spider is hairy, very hairy. +~ +bf 0 -300 S +6 12 6 3d8+70 2d5+3 +1250 6000 +8 8 2 +#6304 +orc~ +the orc~ +The orc is stuck in the web and he can't get out. +~ +You notice an evil look in his eyes, but he seems quite drained of life, +and all he can do is glare at you while he's stuck in this web. +~ +b 0 -400 S +2 19 8 2d10+10 2d3+0 +10 300 +6 6 1 +#6305 +wasp queen~ +the queen wasp~ +The queen wasp is here, thinking how tasty you look. +~ +You notice a glazed look in her eyes. +~ +bf 0 -800 S +14 7 1 1d12+172 2d8+1 +2000 18000 +8 8 2 +#6306 +spider drone~ +the drone spider~ +A drone spider walks around doing its master's bidding. +~ +An ordinary drone spider. +~ +cg 0 -200 S +6 14 4 3d8+70 2d4+1 +200 1600 +8 8 0 +#6307 +spider ethereal~ +the ethereal spider~ +An ethereal spider strides here, traveling to different worlds. +~ +She winks in and out of reality. It looks like it'd be difficult to hit her +without a magical weapon. +~ +cg bcfgs 300 S +13 9 -2 1d12+163 2d4+4 +1250 16000 +8 8 2 +#6308 +slave human~ +the slave~ +A human slave of Arachnos works here relentlessly. +~ +The slave does not mind you, but will fight like a warrior if attacked. +He serves the spider Empress, Arachnos, though whether it is by choice +or because he was beguiled, you are not fully certain. +~ +cgl 0 -50 S +11 8 4 1d12+130 2d7+1 +1000 13500 +8 8 1 +#6309 +quasit~ +the quasit~ +A quasit blinks in and out, grinning at you. +~ +Demoniac in nature, but more mischievous. He twiddles his thumbs +and creates a magical treasure! +~ +acgh bdfs -300 S +10 1 -10 1d12+47 1d8+0 +1500 11000 +8 8 1 +#6310 +spider bird~ +the bird spider~ +The bird spider snaps its powerful jaws. +~ +The Bird Spider has very powerful jaws. +~ +bf dk -800 S +14 7 1 1d8+100 2d9+2 +1750 18000 +8 8 2 +#6311 +hermit~ +the hermit~ +The hermit sits here and warns, 'Go back before it is too late!' +~ +A dishevelled veteran warrior in disguise is what he is, but he +means well. +~ +bcl dk 750 S +7 13 4 3d10+90 2d5+2 +750 2500 +8 8 1 +#6312 +donjonkeeper keeper~ +the Donjonkeeper~ +The Donjonkeeper eyes you and wonders how pure your soul is. +~ +He delves deeper into you as you stare at him. Only those free of taint +will be allowed to remain here safely. +~ +abcil dk 1000 S +25 0 -1 1d12+600 2d8+8 +16000 125000 +8 8 1 +#6313 +guardian~ +the guardian~ +The guardian is obviously not doing his job. +~ +He looks like a lazy bum who sleeps half the time. +~ +fg dks 250 S +17 4 1 1d12+200 2d8+8 +1000 24000 +4 4 1 +#6314 +arachnos spider empress~ +Arachnos~ +Arachnos the Empress of Spiders welcomes you with an evil smile. +~ +She is a very attractive spider with an ornate gown. She tempts you +into being one of her many slaves. She does not possess the venomous +fangs of normal spiders, but then, as you realize, she does not need +them. +~ +abcjnolq dfhkp -1000 S +26 0 -2 6d10+650 1d8+25 +30000 155000 +8 8 2 +#6315 +ki-rin~ +the Ki-Rin~ +The Ki-Rin smiles good-naturedly to you. +~ +She is the last bastion of good in this realm. Her mission is to +someday free the slaves of the Empress. She has been trapped here for +time eternal, and now the evil power of Arachnos feeds upon her intense +magical energies. She will never give up here fight against evil, +though, and will continue her work in whatever manner presents itself. +~ +abcilno dk 1000 S +26 0 -4 10d8+2500 4d4+22 +15000 170000 +8 8 2 +#6316 +dragon wormkin young~ +the young wormkin~ +A wormkin with no teeth plays here. +~ +It is a rather small dragon, and you almost feel sad about killing it. +~ +b dk 50 S +9 12 3 5d4+110 2d5+2 +1000 6500 +8 8 1 +#6317 +dragon wormkin elder~ +the elder wormkin~ +A wormkin that has grown a bit stares at you inquisitively. +~ +A medium-sized dragon -- seems it hasn't killed anything yet by itself, +though there is a first time for everything... +~ +b dk -300 S +16 5 1 5d4+210 2d6+4 +5000 24000 +8 8 1 +$ diff --git a/lib/world/mob/64.mob b/lib/world/mob/64.mob new file mode 100644 index 0000000..5f6a111 --- /dev/null +++ b/lib/world/mob/64.mob @@ -0,0 +1,81 @@ +#6400 +goat mountain~ +the mountain goat~ +A mountain goat nibbles at a piece of grass here. +~ +This goat is acclimated to the rugged terrain of the +mountains. It looks at you and shies away a little. +~ +gh k 0 E +8 13 3 3d5+95 2d5+1 +0 4000 +8 8 1 +BareHandAttack: 4 +E +#6401 +demon decay~ +the Demon of Decay~ +A cloaked and clawed demon of decay comes at you viciously! +~ +This demon has pure malevolence for anything living. +Oops! You're living! I guess that means you! +~ +beflmnopr dk -1000 E +12 9 2 3d5+145 2d7+1 +0 10000 +8 8 0 +BareHandAttack: 8 +E +#6402 +book monster guardian~ +the Book Monster~ +A mound of books rise up into a human shape and tries to hit you! +~ +Ironically enough, the book-monster's head is War and +Peace. Hmm. +~ +beflmnopqr dk 0 S +14 7 1 1d1+199 2d8+2 +0 18000 +8 8 0 +#6403 +bad feeling~ +a Bad Feeling~ +A bad feeling chokes your throat. +~ +It resembles a lot of other bad feelings you've had, +but a lot more tangible... magic? +~ +beflmnopqr dk 0 S +18 3 0 1d1+249 3d8+0 +0 40000 +8 8 0 +#6404 +nightmare~ +Your Worst Nightmare~ +Your worst nightmare coalesces in front of you and attacks! +~ +It looks like you deepest, darkest fears personified. +Wait a minute! It IS your deepest, darkest fears +personified! +~ +beflmnopqr dk 0 S +19 2 0 1d1+299 3d8+2 +0 45000 +8 8 0 +#6405 +guardian~ +the Guardian~ +A guardian guards the door. It looks at you and attacks! +~ +The guardian guards the door. That's about all its +brain can handle: guarding. +~ +beflmnopr dk 0 E +18 3 0 1d1+249 3d6+2 +0 35000 +8 8 0 +BareHandAttack: 9 +E +$ + diff --git a/lib/world/mob/65.mob b/lib/world/mob/65.mob new file mode 100644 index 0000000..f7052b9 --- /dev/null +++ b/lib/world/mob/65.mob @@ -0,0 +1,166 @@ +#6500 +guard dwarf dwarven~ +the dwarf guard~ +A dwarven guard is here. +~ +The guard looks very tough and mean. He wears his beard long, and he +smells like he hasn't bathed in over a month. +~ +ablm dhk 1000 S +21 0 -1 4d20+336 2d8+9 +10000 60000 +8 8 1 +#6501 +worker dwarf dwarven~ +the dwarf worker~ +A dwarven mining worker is here. +~ +He is very dirty, and looks extremely over-worked. +~ +glm 0 900 S +13 7 2 25d5+170 2d4+6 +3500 16000 +8 8 1 +#6502 +wraith~ +the wraith~ +A wraith is awaiting your first move here. +~ +A black, almost transparent wraith. +~ +abfnopr dfk -900 S +25 4 -6 9d7+500 4d5+25 +45708 125000 +8 8 1 +#6503 +storekeeper~ +the Hide & Tooth storekeeper~ +The Hide & Tooth storekeeper is standing here, waiting patiently. +~ +The storekeeper is very rotund, but looks in excellent condition. +~ +ablm d 1000 S +33 0 -10 1d1+30000 2d8+32 +33500 800000 +8 8 1 +#6504 +baker granite head~ +Granite Head the baker~ +Granite Head, the baker, is waiting for a customer here. +~ +Granite Head is covered with flour and grains. +~ +ablm d 900 S +33 0 -10 1d1+30000 2d8+22 +55000 800000 +8 8 1 +#6505 +lizard giant~ +the giant lizard~ +A giant lizard is foraging for food along the cavern floor here. +~ +This scaly creature looks like it is well adapted to its underground +habitat. He looks very powerful. +~ +g dk 100 S +21 0 1 4d20+340 3d7+4 +200 55000 +8 8 1 +#6506 +giant~ +the giant~ +A giant is wandering around the mountainside here. +~ +The giant is about 18 feet tall, with arms of steel, and looks in +excellent physical condition. +~ +gl k 600 S +19 2 0 4d20+300 3d3+8 +2000 45000 +8 8 1 +#6507 +mineworker dwarven dwarf miner worker~ +the dwarven mineworker~ +A dwarven mineworker is here. +~ +The mineworker is very tired, and very dirty, and he has bulging muscles. +~ +bl k 500 S +4 16 7 3d13+40 1d3+2 +600 700 +8 8 1 +#6508 +mineleader dwarven dwarf mine leader~ +the mine leader~ +A dwarven mine leader is here, supervising the work. +~ +The mine leader is very big and very strong, though he must be fairly +bright also, to have gotten this job. +~ +bl k 700 S +19 1 0 50d2+270 3d4+6 +18000 35000 +8 8 1 +#6509 +doctor dwarven healer~ +the dwarven doctor~ +The dwarven doctor is here, aiding the sick of his people. +~ +He is a very skilled healer, and extremely faithful to his god. +~ +abl dhk 999 S +22 0 -1 9d4+375 3d8+4 +20000 60000 +8 8 1 +#6510 +peon dwarven~ +the dwarven peon~ +A dwarven peon is awaiting help here. +~ +~ +bm k 500 S +3 18 7 10d3+35 2d3+2 +75 350 +8 8 1 +#6511 +dwarf~ +the Dwarf~ +A dwarf is here. +~ +~ +b k 500 S +6 15 4 1d15+70 3d3+1 +625 1500 +8 8 1 +#6514 +guard barrack~ +the barrack guard~ +A barrack guard is here, lounging around while off duty. +~ +~ +bm k 100 S +14 6 1 5d10+170 2d5+4 +1300 20000 +8 8 1 +#6516 +mazekeeper keeper~ +the mazekeeper~ +A mazekeeper is here. +~ +He looks VERY tough. +~ +abfl dhk -1000 S +29 0 -7 250d4+2000 4d3+5 +2000 1700000 +8 8 1 +#6517 +snake giant~ +the giant snake~ +There is a giant snake here. +~ +~ +bf k -1000 S +33 0 -10 300d6+600 4d4+22 +3000 800000 +8 8 1 +$ diff --git a/lib/world/mob/70.mob b/lib/world/mob/70.mob new file mode 100644 index 0000000..af0b8b0 --- /dev/null +++ b/lib/world/mob/70.mob @@ -0,0 +1,234 @@ +#7000 +mudmonster mud monster~ +the horrifying Mudmonster~ +A horrifying Mudmonster is slowly evolving from the mud... +~ +It sure looks like something out of a horror movie. It strongly resembles +a huge figure made up from mud alone, and it sure looks like it had human +flesh for breakfast and is strongly intent on having the same for dinner +- Perhaps you? +~ +gqr sk -250 S +12 9 2 4d6+140 2d5+3 +100 13000 +6 8 0 +#7001 +bat small fierce~ +the small bat~ +The small fierce-looking bat is hanging from the ceiling, obviously sleeping. +~ +You have never in your entire life seen such a mean looking small creature, +though it looks rather peaceful, hanging there, sleeping. The thought of +arousing this cruel creature doesn't sit well in your bones. +~ +fgr sk -500 S +1 20 5 5d2+6 1d5+0 +0 150 +4 8 0 +#7002 +rat sewer~ +the sewer rat~ +The huge hungry-looking sewer rat sits here. +~ +This creature is fairly large for a rat, but not so big that it could +be called a giant rat. Sewer water drips off of its grey fur as it +looks at you with black glistening eyes. +~ +f k -1000 S +5 16 5 1d12+48 2d4+0 +30 1000 +8 8 0 +#7003 +spider small hairy~ +the small Spider~ +The small hairy Spider is here, busy with its web. +~ +This small spider seems to pay you no attention at all as it builds +its intricately designed web. +~ +f sk -700 S +1 20 3 1d12+8 1d4+0 +1 100 +8 8 0 +#7004 +beetle giant earth~ +the giant earth beetle~ +The giant, mean-looking earth beetle is here. +~ +Now, you've seen beetles, but this one is enormous. It stretches +perhaps two feet from head to tail. As it notices you, it waves +its six legs about and makes some strange skittering noises at you. +~ +0 k -300 S +8 13 3 2d10+98 2d4+2 +1000 3750 +4 8 0 +#7005 +maggot giant~ +the maggot~ +The giant maggot is here, simply existing. +~ +This large mound of grotesque flesh is just lying here quivering, +almost as if it can sense your warm blood nearby. +~ +qr k 300 S +3 17 9 2d5+35 1d7+0 +2 350 +8 8 0 +#7006 +snake~ +the snake~ +The snake slithers towards you. It looks very mean. +~ +This snake is of a variety that you do not recall seeing recently. +It has near black skin with small white diamond shaped spots all +over its head and upper body. A thin green stripe stretches along +each side of its body. +~ +af k -500 S +4 16 7 2d5+40 1d9+0 +1 1000 +8 8 0 +#7007 +wanderer evil~ +the evil wanderer~ +The evil wanderer stares at you with a piercing gaze. +~ +The evil wanderer is very thin. He is dressed in a grey cloak. He +doesn't look like he'd be your first choice as a travelling companion. +~ +ch f -1000 S +10 11 2 4d10+100 2d6+1 +300 9500 +8 8 1 +#7008 +homunculus creature~ +the creature homunculus~ +The creature homunculus is here, looking at you with an evil look. +~ +The homunculus appears in a man-like form, about eighteen inches tall, +has a greenish, reptilian skin, leathery wings, and a batlike mouth, +with teeth dripping with a greenish sludge. +~ +nop df -780 S +11 10 1 6d3+130 2d6+2 +500 11500 +8 8 0 +#7009 +morkoth shadowy~ +the shadowy morkoth~ +The morkoth are standing here, waiting for someone to KILL! +~ +It is a five foot tall, shadow monster. This has the shape between +a human and a rat. It breaths very heavily while staring at you. +~ +afh f -900 S +10 12 3 1d20+120 2d6+0 +1 9000 +8 8 0 +#7010 +chr-eff'n chreffn~ +the evil chr-eff'n~ +The chr-eff'n are crawling here, looking around with its yellow eyes. +~ +The head and torso of a chr-eff'n is copper-covered, with yellow, +glowing eyes. The lower body is in an orange shading. +~ +ch dks -830 S +12 9 2 2d26+148 2d7+1 +1500 13000 +8 8 0 +#7040 +dragon red~ +the red dragon~ +The fierce-looking red dragon stares at you angrily. +~ +The red dragon stares at you, angrily, as it wakes when you arrive. +It says 'Oh, human YOU woke me up... Hsssss', while it moves closer, +'Can one NEVER sleep in peace... Hssss... ' +~ +befnoq dhkp -1000 S +19 2 0 5d4+230 3d6+3 +16842 40000 +8 8 0 +#7041 +hag sea~ +the sea hag~ +A sea hag is here, swimming around. +~ +The sea hag is so ghastly looking that you feel the deepest fear: Big +yellow eyes and sharp teeth. Its ears are very big, and it has small +sharp horns. This beast is obviously a hater of beauty. +~ +f k -800 S +14 7 1 1d8+172 2d8+1 +0 18000 +8 8 2 +#7042 +naga guardian~ +the guardian naga~ +The guardian naga looks kindly at you. +~ +The naga are a snake-liked creature. She is covered in green-gold scales +with silvery triangles along her back. Her eyes are golden. She notices +that you are staring at her, and she says 'Watch out. This way leads to +some evil creatures.' +~ +b k 700 S +12 9 2 1d18+148 2d7+1 +100 13500 +8 8 2 +#7043 +basilisk scaled~ +the scaled basilisk~ +The scaled basilisk crawls towards you slowly. +~ +The basilisk is a reptilian monster. It has eight legs, and a strong, +toothy jaws. It is dull brown with yellowish underbelly. Its eyes are +glowing pale green. +~ +c dfk -250 S +13 11 0 1d12+160 2d7+2 +350 16000 +8 8 0 +#7044 +lemure blob~ +the lemure~ +The lemure blob slithers towards you for an attack! +~ +This looks like a vaguely human blob. Big black yellow eyes, and a mouth +going a little bit out from the face. The lemure does not look interested +in you at all, but it attacks anyway. It looks like its mind has been +burned out. +~ +fnq k -500 S +5 16 6 3d5+57 2d4+0 +0 1000 +8 8 0 +#7045 +jones cruncher ettin~ +Jones 'cruncher' ettin~ +Jones is standing here glaring at you. +~ +At the first sight you thought Jones was an Orc, but when he came closer you +see his second head. He wears an animal skin dress, filthy and moth eaten. +Jones really stinks... +~ +c k -480 S +10 11 2 1d5+130 2d6+2 +60 11000 +5 5 1 +#7046 +herald mouse killer ettin~ +Herald 'the mouse-killer' ettin~ +Herald is standing here looking confused at you. +~ +When you look at Herald, you feel pity. His clothes are really poor, and +one of his heads hangs down. At the rope around his stomach hangs dead +mice and rats. He does not smell good. +~ +c k +200 S +6 14 4 3d5+70 1d8+0 +40 1500 +5 5 1 +$ diff --git a/lib/world/mob/72.mob b/lib/world/mob/72.mob new file mode 100644 index 0000000..765dead --- /dev/null +++ b/lib/world/mob/72.mob @@ -0,0 +1,64 @@ +#7200 +mindflayer master mind~ +the master mindflayer~ +The master mindflayer is here, looking at you with an evil look. +~ +It is a seven foot tall humanoid dressed in a purple cloak, and swinging a +black and purple rod above its head as if it was going to attack you any +moment now. In the middle of its head are four tentacles with sharp points. +~ +aceflm dfk -800 S +14 7 0 1d10+170 3d4+4 +0 20000 +8 8 0 +#7201 +mindflayer senior mind~ +the senior mindflayer~ +The senior mindflayer walks around here, looking for something useful. +~ +This is a horrifying monster indeed, 6'6" high. Dressed in purple and black, +and carrying a large mace in its hand. In the center of its head are four +large tentacles with very sharp points. +~ +acejklm dfk -600 S +8 13 2 1d10+100 2d4+3 +400 4500 +8 8 0 +#7202 +mindflayer junior mind~ +the junior mindflayer~ +The junior mindflayer is here, watching you carefully from the corner. +~ +This mindflayer is six feet high. It has a small mace in its belt, and is +dressed in purple and black cloth. It has four small tentacles in the center +of its head. +~ +acehlm dfk -350 S +6 15 4 1d10+75 1d4+2 +200 1500 +8 8 0 +#7203 +wererat rat~ +the ugly wererat~ +An ugly wererat is here, looking at you with a strange flick in his eyes. +~ +The wererat is about four feet tall. It looks very much like rat, except +that it is standing. +~ +cgjlk k -700 S +6 15 3 4d6+69 2d4+2 +50 1500 +8 8 0 +#7204 +rat gigantic~ +the gigantic rat~ +There is a gigantic rat here, looking at you with a hungry look. +~ +The gigantic rat is about ten feet long from head to tail and has claws the +size of your head, looking very nasty. +~ +bf k -800 S +12 9 2 1d10+150 2d6+2 +2513 13000 +8 8 1 +$ diff --git a/lib/world/mob/79.mob b/lib/world/mob/79.mob new file mode 100644 index 0000000..dbeefa5 --- /dev/null +++ b/lib/world/mob/79.mob @@ -0,0 +1,40 @@ +#7900 +paladin grand knight~ +the Grand Knight of Paladins~ +The Grand Knight is standing here, waiting for someone to help. +~ +The Knight is standing here, smiling at you. He is dressed all in white, +blue and silver. He looks VERY strong, as he stands here, ready to help +the innocent. +~ +abcilno dhk 1000 S +26 0 -2 10d8+550 2d6+16 +31570 170000 +8 8 1 +#7901 +rat large~ +the large rat~ +There is a large rat here, poking through the foodstuffs lying around. +~ +The large rat is about two feet long from head to tail and has claws the +size of your fingers, looking very nasty. It seems to be quite occupied +with all the chewed open foodstuffs lying about the room. +~ +bf k -800 S +12 9 2 1d10+150 2d6+2 +2513 13000 +8 8 0 +#7902 +cleaver~ +the Cleaver~ +The Cleaver is here eyeing you hungrily in anticipation of its next meal. +~ +The Cleaver is a huge spidery chittinous creature with four large +spindly arms ending in cleaverlike talons that will surely cut you +to ribbons. +~ +efglnopqr dhkp 0 S +20 3 -1 5d8+340 8d4+4 +2000 65000 +8 8 0 +$ diff --git a/lib/world/mob/9.mob b/lib/world/mob/9.mob new file mode 100644 index 0000000..0c34df5 --- /dev/null +++ b/lib/world/mob/9.mob @@ -0,0 +1,136 @@ +#900 +homba~ +the homba~ +The homba flits about. +~ +Part kestrel, part bear, part wolf. Parts is parts, and makes an ugly whole. +~ +bflm bdgkp -100 S +4 16 5 2d10+40 1d8+4 +100 1500 +8 8 0 +#901 +swordsman~ +the swordsman~ +The greatest swordsman in the land is standing here with a sneer on his face. +~ +This is the ultimate swordsman. +~ +bflm dkp -400 S +7 12 3 3d10+80 2d5+2 +250 3000 +8 8 1 +#902 +mummy rabscuttle~ +the Mummy of Rabscuttle~ +The Mummy of Rabscuttle wanders here, hands aloft, walking towards you. +~ +All bandages, no personality. +~ +bflm dkp -780 S +11 10 1 6d3+130 2d6+2 +750 10500 +8 8 0 +#903 +lizard giant~ +the giant lizard~ +A giant lizard is here. +~ +This scaly creature looks like it is well adapted to its underground +habitat. He looks very powerful. +~ +bflm dkp 100 S +16 6 2 10d2+220 3d4+5 +1200 26000 +8 8 1 +#904 +woundwort general demon~ +General Woundwort~ +General Woundwort, the dark demon of Minos, awaits to maul you to shreds. +~ +He looks vaguely like a rabbit, but sure doesn't act like one. +~ +bflm dhkp -1000 S +25 0 -1 10d8+520 3d5+12 +10000 120000 +8 8 1 +#905 +franz henchman~ +Franz the Henchman~ +Franz, Minos' henchman, is here ready to pump you up. +~ +Franz is no girlie man. He is very muscular and looks as if he could +squeeze your head like a grapefruit. +~ +bflm dhkp -300 S +12 7 4 5d10+120 2d8+4 +1000 14000 +8 8 1 +#906 +hanz henchman~ +Hanz the Henchman~ +Hanz is here flexing his muscles and squeezing grapefruits. +~ +Hanz is no girlie man. He is very muscular and looks as if he could +lift a large dragon. +~ +bflm dhkp -300 S +12 7 4 5d10+120 2d8+4 +1000 14000 +8 8 1 +#907 +minos king minotaur~ +King Minos the Minotaur~ +King Minos the Minotaur is ready and waiting to gore you to death. +~ +He smells something awful. +~ +bflmnoq dfhkp -1000 S +26 0 -2 12d8+590 4d6+10 +0 160000 +8 8 1 +#908 +turtle dragon~ +the dragon turtle~ +A large dragon turtle breaks the surface churning the water into huge waves. +~ +The turtle's shell is the size of a small house and looks as hard as rock. +~ +fgq dkp -200 S +22 4 -5 12d6+350 1d20+5 +10000 80000 +8 8 1 +#909 +hag sea~ +the sea hag~ +You notice the face of an ugly hag in the sea weeds. +~ +The sea hag is terribly fightful and has razor sharp teeth. +~ +fg dkp -700 S +4 16 6 4d4+35 2d5+0 +100 750 +8 8 2 +#910 +merman~ +the merman~ +There is a merman swimming here brandishing his trident at you! +~ +The merman has a powerful tail fin instead of legs. +~ +bflmnoq dkpst 350 S +5 14 5 5d5+65 2d4+2 +1500 1000 +8 8 1 +#911 +crab crusty~ +the crusty crab~ +A crusty looking crab is crawling around here searching for food. +~ +It looks like a crab... what more can be said? +~ +hfq dkp 0 S +2 18 4 5d2+25 1d5+0 +0 150 +8 8 0 +$ diff --git a/lib/world/mob/index b/lib/world/mob/index new file mode 100644 index 0000000..23944d1 --- /dev/null +++ b/lib/world/mob/index @@ -0,0 +1,29 @@ +0.mob +9.mob +12.mob +15.mob +25.mob +30.mob +31.mob +33.mob +35.mob +36.mob +40.mob +50.mob +51.mob +52.mob +53.mob +54.mob +60.mob +61.mob +62.mob +63.mob +64.mob +65.mob +70.mob +72.mob +79.mob +120.mob +150.mob +186.mob +$ diff --git a/lib/world/mob/index.mini b/lib/world/mob/index.mini new file mode 100644 index 0000000..571f6d9 --- /dev/null +++ b/lib/world/mob/index.mini @@ -0,0 +1,4 @@ +0.mob +12.mob +30.mob +$ diff --git a/lib/world/obj/0.obj b/lib/world/obj/0.obj new file mode 100644 index 0000000..aeb39df --- /dev/null +++ b/lib/world/obj/0.obj @@ -0,0 +1,31 @@ +#0 +bug~ +a bug~ +This object is BAD! If you see it, there must be a bug in the game. Please +report it immediately using the BUG command.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +#1 +wings~ +a pair of wings~ +A pair of wings is sitting here.~ +~ +9 0 17 +6 0 0 0 +0 0 200 +#10 +waybread bread~ +a waybread~ +Some waybread has been put here.~ +~ +19 g 1 +24 0 0 0 +1 50 50 +E +waybread bread~ +The waybread is the traditional feed of elves when travelling, they +call it lembas. It is said to refresh the weary traveler greatly. +~ +$ diff --git a/lib/world/obj/120.obj b/lib/world/obj/120.obj new file mode 100644 index 0000000..fecad92 --- /dev/null +++ b/lib/world/obj/120.obj @@ -0,0 +1,387 @@ +#12000 +ring pewter~ +a pewter ring~ +There is a pewter ring lying here.~ +~ +11 fg 3 +0 0 0 0 +5 15000 2500 +A +13 10 +A +2 1 +#12001 +belt bronze~ +a bronze belt~ +There is a bronze belt on the ground here.~ +~ +9 f 2049 +4 0 0 0 +5 10000 500 +A +1 -2 +A +18 1 +#12002 +helmet roman combat~ +a Roman combat helmet~ +A Roman combat helmet has been left here.~ +~ +9 a 17 +8 0 0 0 +25 12000 8000 +A +2 -2 +A +18 1 +#12003 +whistle coach~ +a coach's whistle~ +A coach's whistle has been left here.~ +~ +8 h 5 +0 0 0 0 +1 1000 200 +#12004 +stethoscope object~ +a stethoscope~ +There is an odd object laying on the ground here.~ +~ +11 i 5 +0 0 0 0 +1 15000 2000 +A +18 4 +A +19 -3 +#12005 +hairpin~ +a hairpin~ +A woman's hairpin is lying here.~ +~ +11 i 17 +0 0 0 0 +1 3000 500 +A +1 -1 +A +3 1 +#12006 +apple~ +an apple~ +A delicious looking apple has been left here.~ +~ +19 0 1 +4 0 0 0 +1 5 5 +#12007 +orange~ +an orange~ +A sun-ripened orange has been left here.~ +~ +19 0 1 +6 0 0 0 +1 6 6 +#12008 +sandals leather~ +a pair of leather sandals~ +A pair of leather sandals has been dropped here.~ +~ +9 0 65 +2 0 0 0 +2 250 41 +#12010 +hotdog frank dog~ +a hotdog~ +A hotdog loaded with chili and onions has been left here.~ +~ +19 0 1 +8 0 0 0 +1 11 11 +#12011 +bracelet silver gold~ +a silver and gold bracelet~ +A bracelet, made from silver and gold, has been carelessly left here.~ +~ +11 bh 4097 +0 0 0 0 +14 10000 8000 +A +12 25 +A +19 -3 +#12012 +ring sapphire~ +a sapphire ring~ +A sapphire ring has been left here.~ +~ +11 0 3 +0 0 0 0 +20 35000 5500 +A +18 2 +A +17 -10 +#12013 +pendant jade~ +a jade pendant~ +A beautiful jade pendant has been left here.~ +~ +11 0 5 +0 0 0 0 +30 16500 6000 +A +3 1 +A +4 2 +#12014 +robe froboz~ +Froboz' robe~ +Froboz' robe has been dropped here.~ +~ +11 0 1024 +0 0 0 0 +5 15000 2500 +A +17 -6 +A +24 -4 +#12015 +sword tempered~ +a tempered sword~ +A nasty looking tempered sword is lying here.~ +~ +5 bmn 8193 +0 3 8 3 +16 15000 5000 +A +18 -2 +#12016 +sword quenched~ +a quenched sword~ +A very bloody, but quenched, sword has been left here.~ +~ +5 fmn 24577 +0 3 5 3 +14 10000 4000 +#12017 +bracers moorish~ +a pair of Moorish bracers~ +A pair of Moorish bracers has been dropped here.~ +~ +9 a 257 +8 0 0 0 +15 25000 10000 +A +2 -2 +A +19 2 +#12018 +plate breast roman combat~ +a Roman combat breast plate~ +A piece of military combat plate has been left here.~ +~ +9 a 9 +8 0 0 0 +135 50000 9500 +A +2 1 +A +18 -2 +#12019 +boots combat~ +a pair of Roman combat boots~ +A pair of combat boots have been left here.~ +~ +9 a 65 +8 0 0 0 +45 8750 9000 +A +1 2 +A +19 -1 +#12020 +thunderbolt jupiter~ +Jupiter's Thunderbolt~ +Jupiter's Thunderbolt has been left here.~ +~ +5 bgkmn 8193 +0 4 6 6 +22 100000 25000 +A +18 3 +A +19 3 +#12021 +loincloth red mars~ +a red loincloth~ +Mars' red loincloth is resting here.~ +~ +9 bk 2049 +15 0 0 0 +30 100000 20000 +A +1 2 +A +2 2 +#12022 +necklace crystal venus~ +a crystal necklace~ +Someone has left the crystal necklace of knowledge here.~ +~ +11 b 5 +0 0 0 0 +35 50000 12000 +A +3 3 +A +4 2 +#12023 +sandals winged mercury~ +a pair of winged sandals~ +Mercury's winged sandals have been left here.~ +~ +9 al 65 +8 0 0 0 +14 75000 13000 +A +2 2 +A +14 100 +#12024 +scroll dark grey~ +a dark grey scroll~ +A scroll has been carelessly left here.~ +~ +2 fp 16385 +20 4 15 1 +2 5000 2000 +#12025 +scroll ornate~ +an ornate scroll~ +An ornate scroll has been left here.~ +~ +2 p 16385 +18 10 10 16 +2 7000 3000 +#12026 +scroll plain~ +a plain scroll~ +A plain scroll is lying on the ground.~ +~ +2 p 16385 +15 7 15 1 +2 8000 2200 +#12027 +bag herbs~ +a bag of herbs~ +There is a small, sweet-smelling bag here on the ground.~ +~ +3 b 16385 +30 4 4 43 +5 15000 2000 +#12028 +staff kodarta~ +a Kodarta staff~ +A Kodarta staff has been carelessly left here.~ +~ +4 0 16385 +17 3 3 15 +6 35000 4000 +#12029 +wand prototype~ +a prototype wand~ +There is a prototype of a new magical wand lying here.~ +~ +3 jfh 16385 +30 4 3 26 +26 20000 13000 +A +18 -3 +A +24 8 +#12030 +flask potion blaze orange~ +a flask~ +There is a flask, containing a blaze orange potion, resting here.~ +~ +10 0 1 +9 4 17 33 +8 1000 100 +#12031 +mace executioner~ +an executioner's mace~ +An executioner's mace is lying here.~ +~ +5 hmo 8193 +0 5 1 7 +13 3000 18 +A +2 -2 +A +1 -2 +#12032 +mug beer~ +a mug~ +A frosty mug has been left on the ground here.~ +~ +17 0 1 +3 3 1 0 +3 10 5 +#12033 +key rusted~ +a rusted key~ +There is a rusted key here.~ +~ +18 c 1 +12033 0 0 0 +1 0 0 +#12034 +key double~ +a double sided key~ +A double sided key has been left here.~ +~ +18 c 1 +12034 0 0 0 +10 0 0 +#12035 +key diamond~ +a diamond studded key~ +A diamond studded key is sitting on the ground.~ +~ +18 c 1 +12035 0 0 0 +30 0 0 +#12036 +key pearl~ +a key with a pearl handle~ +A key with a pearl handle is sitting on the ground.~ +~ +18 c 1 +12036 0 0 0 +10 0 0 +#12037 +key aquamarine~ +an aquamarine key~ +There is an aquamarine colored key here.~ +~ +18 c 1 +12037 0 0 0 +10 0 0 +#12038 +key opal~ +an opal key~ +An opal key has been left here.~ +~ +18 c 1 +12038 0 0 0 +20 0 0 +#12039 +key steel~ +a steel key~ +A steel key is lying on the ground.~ +~ +18 c 1 +12039 0 0 0 +1 0 0 +$ diff --git a/lib/world/obj/15.obj b/lib/world/obj/15.obj new file mode 100644 index 0000000..2f03432 --- /dev/null +++ b/lib/world/obj/15.obj @@ -0,0 +1,223 @@ +#1500 +scales justice scale~ +the Scales of Justice~ +Two beautiful plates shaped like scales have been left here.~ +~ +12 ak ao +0 0 0 0 +10 15000 2200 +A +3 1 +A +4 2 +E +scales justice scale~ +As you look at the scales, you notice that they seem to sway back and forth +of their own accord, as if weighing something that is to you still unseen. +~ +#1501 +scroll parchment~ +the Scroll of the Messenger~ +You see a solid and silver-lined scroll resting on the ground.~ +~ +12 g ao +0 0 0 0 +1 500 500 +A +14 15 +A +19 -1 +E +scroll parchment~ +It seems to be some sort of spell designed to transport its user across +vast distances, but how to make use of it is impossible to tell. +~ +#1502 +sword blazing~ +a blazing sword~ +You are startled by the sight of a sword that glows as you approach it.~ +~ +5 abgkn an +0 3 4 11 +10 5000 900 +A +13 -5 +E +sword blazing~ +The edge of the blade is lined with writing, religious verse apparently, in +a fine, silver-laced and flowing script. +~ +#1503 +protector faithful shield~ +the Protector of the Faithful~ +A weighty looking shield has been abandoned by one unworthy to hold it.~ +~ +9 kn aj +15 0 0 0 +20 5000 1500 +E +protector faithful shield~ +It evades your attempts to focus on it, deflecting your gaze as it deflects +the weapons that will try to kill you. +~ +#1504 +armband band faded~ +a faded armband~ +A ragged and faded looking piece of cloth has been left here, forgotten.~ +~ +12 j ai +0 0 0 0 +0 15 50 +A +6 2 +A +5 -1 +E +armband faded band~ +It has some sort of militia insignia on it, perhaps an indication of a rank +or award in some military order unknown to you. +~ +#1505 +scimitar jeweled~ +a jeweled scimitar~ +A stunning curved blade glistens on the ground.~ +~ +5 akn an +0 7 1 3 +5 5000 500 +E +scimitar jeweled~ +The entire rim and edge of the scimitar's handle is bedecked in a gorgeous +array of stones and precious metals. +~ +#1506 +ember charred~ +a charred ember~ +You glance briefly at a smouldering ember that rests at your feet.~ +~ +1 ajnop ao +0 0 -1 0 +0 5 2500 +A +18 2 +A +12 10 +E +ember charred~ +It glares back at you, almost angrily. +~ +#1507 +ethereal flame~ +an ethereal flame~ +The entire room is aglow from the flame at your feet.~ +~ +1 ajkop ao +0 0 -1 0 +0 5 2500 +A +12 8 +A +13 10 +E +ethereal flame~ +Even being near it fills you with a peaceful and comforted feeling. +~ +#1508 +key gates~ +the Key to the Gates~ +You have found at last the Key to the Gates of eternity.~ +~ +18 aikl ao +1508 0 0 0 +0 1000 500 +A +3 2 +E +key gates~ +There are no gates. They are inside of you. +~ +#1509 +history burnt book~ +a burnt history~ +You have found a burnt book, some forgotten history lying on the ground.~ +~ +13 0 ao +0 0 0 0 +2 10 500 +A +4 2 +E +history burnt book~ +So this is the jester's joke. All of our works have turned to dust, +and will end in nothing. It is for this that he laughs. +~ +#1510 +surah book~ +a surah of the book~ +You notice a thin parchment, with flowing script and rich decorative trim.~ +~ +1 dklmn ao +0 0 -1 0 +0 500 8000 +A +18 3 +A +19 3 +E +surah book~ +Al-Kafirun +Say: "Oh ye that reject the Faith, I do not worship what you worship, nor +do you worship what I worship. To you be your Way, and to me mine." +~ +#1511 +forge unity~ +the Forge of Unity~ +It is surely the best of men who has left these gloves to aid you.~ +~ +9 iklmn ah +5 0 0 0 +5 12000 4000 +A +19 2 +A +13 10 +#1512 +ankh~ +an Ankh~ +You see a beautiful pendant of ancient and noble craftsmanship.~ +~ +11 al ac +0 0 0 0 +3 5000 2000 +A +12 10 +A +12 5 +E +ankh~ +It is an even earlier version of the old Christian cross, an oval loop +above the crossed arms of white gold. +~ +#1513 +amulet ra~ +the Amulet of Ra~ +You have found a beautiful gleaming disc with a golden image of the sun god.~ +~ +11 ag ac +0 0 0 0 +5 7500 1500 +A +3 2 +A +4 2 +#1514 +image azathoth graven~ +a graven image of Azathoth~ +You frown in disgust at the hideous icon of a false god that you have found.~ +~ +1 jlq ao +0 0 0 0 +2 1000 500 +A +6 2 +$ diff --git a/lib/world/obj/150.obj b/lib/world/obj/150.obj new file mode 100644 index 0000000..7002902 --- /dev/null +++ b/lib/world/obj/150.obj @@ -0,0 +1,253 @@ +#15000 +nothingness universal~ +Sapowox's Universal Nothingness~ +You are quite unable to perceive Sapowox's Universal Nothingness here.~ +~ +5 bcg 8193 +0 6 4 1 +40 0 200000 +E +nothingness universal~ +You are not sure, but you do not seem not able to figure out what +it isn't, because it doesn't much resemble anything you haven't +ever seen. You feel a bit of mortal confusion, but you notice a +small inscription on it. +~ +E +text writing inscription~ +It just says: ' (void *) ' +Not very enlightening, is it? +~ +A +18 2 +A +19 2 +#15001 +gold coins~ +the gold~ +A lot of gold is here.~ +~ +20 0 1 +32385 0 0 0 +0 32385 0 +#15002 +sceptre royal golden~ +a golden sceptre~ +A golden Royal sceptre lies on the ground.~ +~ +12 gk 16385 +0 0 0 0 +20 15000 3000 +A +18 2 +#15003 +crown golden~ +a golden crown~ +A magnificently jewelled golden crown has been left here.~ +~ +9 gk 17 +7 0 0 0 +40 12000 10000 +A +12 30 +A +3 1 +#15004 +apple golden~ +a golden apple~ +There is a golden apple here.~ +~ +1 gk 16385 +0 0 -1 0 +5 8000 400 +#15005 +telescope scope~ +a large telescope~ +There is a large telescope here, pointing at the sky.~ +~ +12 0 0 +0 0 0 0 +0 0 0 +E +telescope scope~ +A small sign says: + +Made in Siberia. + +~ +#15006 +sword training~ +a training sword~ +A training sword with blunt edges is leaned against a wall.~ +~ +5 0 8193 +0 1 4 3 +7 300 5 +A +18 -2 +#15007 +key huge~ +a huge key~ +There is a huge, heavy-looking key on the floor here.~ +~ +18 c 16385 +15007 0 0 0 +1 0 0 +#15008 +Verminator sword~ +Verminator~ +A strange looking sword is lying upon the ground here.~ +~ +5 adjmnoq 8193 +0 3 4 11 +2 1 4000 +E +verminator sword~ +This strange sword seems to be made of black metal, an eerie green glow +surrounds the blade. +~ +#15009 +key butlers butler~ +the Butler's key~ +The Butler's key is here.~ +~ +18 c 16385 +15009 0 0 0 +3 0 0 +#15010 +key small~ +a small key~ +A small key lies here.~ +~ +18 c 16385 +15010 0 0 0 +1 0 100 +#15011 +chest wooden~ +a large wooden chest~ +A large wooden chest stands here in a corner.~ +~ +15 0 1 +800 13 15010 0 +450 400 100 +E +chest~ +It is equipped with a small lock, that any self-respecting thief +should be able to pick. +~ +#15012 +vial large potion brown~ +a large vial~ +A large vial has been left here.~ +~ +10 g 1 +15 15 -1 -1 +14 2000 2000 +E +vial large brown potion~ +It is filled with a disgusting brown liquid. +~ +#15013 +banner royal~ +a royal banner~ +The royal banner has been firmly planted in the ground here.~ +~ +12 0 0 +0 0 0 0 +0 0 0 +E +banner royal standard~ +It is large and very heavy. On top of it flutters King Welmar's flag +proudly. +~ +E +flag~ +On the flag is the symbol of King Welmar's house, the rampant stag. +~ +#15014 +key~ +a key~ +A key lies on the floor.~ +~ +18 c 1 +15014 0 0 0 +13 0 0 +E +key~ +It has a finely carved letter 'W' inscribed on it. +~ +#15015 +hauberk mail chain~ +a guard's chain mail hauberk~ +A chain mail hauberk lies on the floor~ +~ +9 0 9 +5 0 0 0 +60 2000 500 +#15016 +broadsword sword large~ +a large broadsword~ +There is a large broadsword lying here.~ +~ +5 0 8193 +0 2 6 3 +14 1300 3000 +#15017 +key cell~ +the cell key~ +A key lies on the floor.~ +~ +18 c 1 +15017 0 0 0 +3 0 0 +E +key cell~ +This appears to be the key for the cells of the castle. +~ +#15018 +corpse~ +a corpse~ +There is a corpse lying in the middle of the floor of the building here.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +#15019 +lobster~ +a delicious-looking lobster~ +A delicious-looking lobster is lying here, tempting your appetite.~ +~ +19 0 1 +7 0 0 0 +5 100 10 +#15020 +caviar~ +some Russian caviar~ +There is some delicious-looking Russian caviar here, making your mouth water.~ +~ +19 0 1 +2 0 0 0 +1 250 20 +#15021 +glow~ +the glow from the west~ +There is a strange glow coming from the west.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +E +glow~ +The glow from the west appears to be quite strong, but it does not +give enough light to see by here, nor can you see the source of the +glow. +~ +#15022 +wail sound~ +the wailing sound from the east~ +There is an eerie wailing sound coming from the house to the east.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +$ diff --git a/lib/world/obj/186.obj b/lib/world/obj/186.obj new file mode 100644 index 0000000..9eadd16 --- /dev/null +++ b/lib/world/obj/186.obj @@ -0,0 +1,141 @@ +#18601 +sword newbie~ +a shiny newbie sword~ +A shiny newbie sword is lying here waiting to be possessed.~ +~ +5 65 8193 +0 1 5 3 +4 0 0 +A +19 1 +#18602 +vest newbie~ +a bright green newbie vest~ +A bright green newbie vest is lying here looking for a body to hug.~ +~ +9 0 9 +4 0 0 0 +4 0 0 +#18603 +helm helmet newbie~ +a bright newbie helm~ +A bright newbie helm is hoping a loose head will wander by.~ +~ +9 65 17 +3 0 0 0 +4 0 0 +A +5 1 +#18604 +cloak dark newbie~ +a dark newbie cloak~ +A dark newbie cloak is lying here hoping to smother you.~ +~ +9 65 1025 +0 0 0 0 +2 100 0 +A +17 -3 +A +4 1 +#18605 +ring signet newbie~ +a newbie signet ring~ +A newbie signet ring is lying in the dust here.~ +~ +9 96 3 +0 0 0 0 +1 500 0 +A +17 -2 +#18606 +dagger newbie~ +a shiny newbie dagger~ +A shiny newbie dagger is lying here looking for a back to stab.~ +~ +5 65 24577 +0 1 4 11 +1 0 0 +A +19 1 +#18607 +collar dragon~ +a pet dragon collar~ +Someone's pet dragon has escaped and left his collar here.~ +~ +9 64 5 +0 0 0 0 +1 0 0 +A +18 1 +A +17 -1 +#18608 +key newbie~ +a wee little key~ +A key with the newbie crest on it is here.~ +~ +18 4 1 +1 0 0 0 +1 0 0 +#18609 +light jar~ +a brightly glowing jar~ +A jar of glowing fluid wants to brighten your day.~ +~ +1 65 1 +0 0 -1 0 +2 0 0 +A +24 -1 +#18610 +horns horn~ +the horns of the Minotaur~ +The horns of the great Minotaur lie here.~ +~ +9 8192 17 +2 0 0 0 +8 100 0 +A +1 1 +#18611 +hide skin~ +the smelly hide of the Minotaur~ +The hide of the great Minotaur is lying here.~ +~ +11 8192 1033 +0 0 0 0 +6 100 0 +A +17 -6 +A +13 15 +#18612 +leggings newbie~ +some cool newbie leggings~ +A pair of neat looking leggings are here.~ +~ +9 0 33 +4 0 0 0 +4 200 0 +#18613 +sleeves newbie~ +some cool newbie sleeves~ +A set of nifty sleeves is here.~ +~ +9 0 257 +4 0 0 0 +3 400 0 +A +3 1 +#18614 +mace newbie~ +a glowing newbie mace~ +A finely crafted newbie mace is waiting for a worthy owner.~ +~ +5 65 8193 +0 2 6 7 +8 300 0 +A +17 -2 +$ diff --git a/lib/world/obj/25.obj b/lib/world/obj/25.obj new file mode 100644 index 0000000..48eca2b --- /dev/null +++ b/lib/world/obj/25.obj @@ -0,0 +1,907 @@ +#2500 +key diamond~ +a diamond key~ +A glinting key of diamond has been left here.~ +~ +18 cdq 16385 +2500 0 0 0 +2 0 0 +#2501 +oven black~ +an oven~ +~ +~ +15 0 0 +1000 5 -1 0 +1000 1000 1000 +#2502 +locker~ +a meat locker~ +~ +~ +15 0 0 +1000 5 -1 0 +1000 1000 1000 +E +locker~ +You just had the horrid thought that a cadaver might be in there. +~ +#2503 +rack spice~ +a spice rack~ +~ +~ +15 0 1 +50 0 -1 0 +10 1500 500 +#2504 +slice bread traveller~ +a slice of traveller's bread~ +A slice of traveller's bread is here looking very tasty.~ +~ +19 0 1 +15 0 0 0 +1 12 3 +#2505 +chunk meat~ +a large chunk of meat~ +A large chunk of meat is here.~ +~ +19 0 1 +24 0 0 1 +2 20 5 +#2506 +sandwich~ +a finger sandwich~ +A finger sandwich is here.~ +~ +19 q 1 +20 0 0 0 +2 15 5 +E +sandwich finger~ +It would look quite tasty if someone had first removed the fingernails! +~ +#2507 +broom straw~ +a straw broom~ +A straw broom is here leaning against the wall.~ +~ +22 d 16385 +0 0 0 0 +5 5 600 +E +broom straw~ +A magical flying broomstick? Nah! Not here. +~ +#2508 +cabinet~ +a cabinet~ +A cabinet is here.~ +~ +15 0 0 +5000 5 -1 0 +10000 10 10 +#2509 +bar silver~ +a bar of silver~ +A bar of silver has been left here.~ +~ +8 0 1 +0 0 0 0 +10 1000 500 +#2510 +bar gold~ +a bar of gold~ +A bar of gold has been left here.~ +~ +8 0 1 +0 0 0 0 +11 2000 750 +#2511 +bar mithril~ +a bar of mithril~ +A bar of mithril has been left here.~ +~ +8 0 1 +0 0 0 0 +12 3000 950 +#2512 +bar adamantite~ +a bar of adamantite~ +A bar of adamantite has been left here.~ +~ +8 0 1 +0 0 0 0 +15 5000 1000 +#2513 +hammer mithril~ +a mithril hammer~ +a mithril hammer has been left here~ +~ +5 g 8193 +0 2 6 7 +19 10000 1000 +A +18 2 +A +1 1 +#2514 +chest~ +a chest~ +A chest is here.~ +~ +15 a 0 +5000 15 1316 0 +1000 1000 1000 +#2515 +key~ +a small key~ +A small key has been left here.~ +~ +18 cdq 1 +2515 0 0 0 +1 0 0 +#2516 +long sword~ +a long sword~ +A long sword has been left here.~ +~ +5 0 8193 +0 1 8 3 +8 10000 1000 +A +18 1 +A +19 2 +#2517 +dagger silver~ +a silver dagger~ +A finely crafted dagger made of silver is on the ground here.~ +~ +5 0 8193 +0 3 3 11 +5 15000 1200 +A +18 2 +A +19 2 +#2518 +scimitar~ +a curved scimitar~ +A curved scimitar is here in a jewel-covered sheath.~ +~ +5 0 8193 +0 2 7 3 +10 17500 1950 +A +13 3 +#2519 +staff wooden~ +a wooden staff~ +A wooden staff is against the wall here.~ +~ +5 0 8193 +0 1 4 8 +6 10 5 +#2520 +cabinet silver~ +a silver chased cabinet~ +A large cabinet with a silver finish is here.~ +~ +15 0 0 +5000 15 2523 0 +10000 1 1 +#2521 +cabinet silver~ +a silver chased cabinet~ +A large cabinet with a silver finish is here.~ +~ +15 0 0 +5000 15 2523 0 +10000 1 1 +#2522 +key old~ +an old key~ +An old key is here~ +~ +18 cdq 1 +2522 0 0 0 +1 0 0 +#2523 +key silvery~ +a silvery key~ +A silvery key has been left here.~ +~ +18 cdq 1 +2523 0 0 0 +1 0 0 +#2524 +key silvery~ +a silvery key~ +A silvery key has been left here.~ +~ +18 cdq 1 +2524 0 0 0 +1 0 0 +#2525 +staff red white~ +a red and white staff~ +a red and white staff is leaning against the wall here~ +~ +4 0 16385 +20 3 3 28 +8 5500 500 +#2526 +staff burnt~ +a burnt staff~ +A burnt staff is leaning against the wall here.~ +~ +4 0 16385 +20 4 4 4 +6 1100 600 +#2527 +rod black~ +a black rod~ +A black rod has been left here.~ +~ +3 0 16385 +20 3 3 22 +4 1200 200 +#2528 +wand wooden~ +a wooden stick~ +a wooden stick is here~ +~ +3 0 16385 +20 10 10 3 +4 600 60 +#2529 +wand metal~ +a metal wand~ +A metal wand is here.~ +~ +3 0 16385 +20 20 4 25 +5 2000 350 +#2530 +cauldron black~ +a black cauldron~ +A large black cauldron is here bubbling.~ +~ +15 0 0 +1000 0 -1 0 +5000 5000 500000 +#2531 +wings bat~ +a small pair of bat wings~ +A small pair of bat wings is here.~ +~ +13 0 1 +0 0 0 0 +2 1 1 +#2532 +eyeball eye~ +an eyeball~ +An eyeball has been left here~ +~ +13 0 16385 +0 0 0 0 +1 1 1 +#2533 +book tome~ +the book of magic~ +An enormous book is lying open here~ +~ +15 ag 0 +500 0 -1 0 +5000 0 0 +#2534 +spectacles glasses~ +a pair of spectacles~ +A pair of wire-rimmed spectacles has been left here.~ +~ +9 g 17 +0 0 0 0 +4 10000 5000 +A +3 1 +A +4 1 +#2535 +altar~ +a golden altar~ +~ +~ +15 0 0 +1000 5 -1 0 +5000 1 1 +#2536 +medallion heart~ +a heart shaped medallion~ +A heart shaped medallion is here.~ +~ +9 bdei 5 +0 0 0 0 +3 10000 1000 +A +4 2 +A +5 -1 +#2537 +chest~ +a large chest~ +A large chest is here.~ +~ +15 ag 0 +2000 15 2538 0 +5000 500000 5000000 +#2538 +key intricate~ +an intricately carved key~ +An intricately carved key has been left here.~ +~ +18 acdgq 16385 +2538 0 0 0 +1 0 0 +A +24 -1 +#2539 +a pile of coins~ +a pile of coins is here~ +A pile of coins is here.~ +~ +20 0 1 +23574 0 0 0 +23 23574 0 +#2540 +cloak brown~ +a brown cloak~ +A travel worn cloak has carelessly been left here.~ +~ +9 0 5 +0 0 0 0 +5 2000 250 +A +17 -5 +A +24 -3 +#2541 +chameleon poncho cloth~ +a chameleon poncho~ +Some multicolored cloth is on the ground here~ +~ +9 g 1025 +0 0 0 0 +4 15000 5000 +A +2 2 +A +17 -3 +#2542 +boots worn~ +a pair of old boots~ +A pair of old boots is here, they look very comfortable.~ +~ +9 g 65 +0 0 0 0 +2 3500 900 +A +14 15 +#2543 +ring seashell~ +a seashell ring~ +A small seashell has been left here.~ +~ +22 g 3 +0 0 0 0 +2 6500 1100 +#2544 +backpack leather~ +a leather backpack~ +A leather backpack is here.~ +~ +15 0 1025 +750 0 -1 0 +9 750 50 +#2545 +cup brew herbal tea~ +a herbal brew~ +A herbal brew is here.~ +~ +17 0 1 +5 5 11 1 +2 11 5 +#2546 +waybread~ +a waybread~ +A loaf of waybread has been left here.~ +~ +19 0 1 +32 0 0 0 +3 65 5 +#2547 +cleaver~ +a meat cleaver~ +A meat cleaver is sticking in the wall here.~ +~ +5 0 8193 +0 3 4 1 +8 600 100 +#2548 +shackles chain~ +some chain shackles~ +Some chain shackles have been discarded here~ +~ +13 gh 2049 +0 0 0 0 +15 750 1000 +A +12 -100 +A +14 -82 +#2549 +dagger silvery~ +a silvery dagger~ +A long dagger that seems to be made of silver is here.~ +~ +5 g 8193 +0 2 4 11 +5 1200 500 +A +18 1 +#2550 +scroll~ +a scroll~ +A scroll is here.~ +~ +2 0 16385 +21 4 17 38 +5 3000 1000 +#2551 +scroll bound~ +a bound scroll~ +A bound scroll is here blowing in the breeze.~ +~ +2 g 16385 +16 1 2 34 +3 9500 3000 +A +17 -6 +#2552 +tube cylinder~ +a long cylindrical tube~ +A long cylindrical tube is rolling around here.~ +~ +15 g 1 +100 5 -1 0 +8 500 50 +#2553 +scroll old~ +an old scroll~ +An old scroll has been left here.~ +~ +2 0 16385 +10 12 -1 -1 +2 500 100 +#2554 +scroll blue~ +a scroll written on blue paper~ +A blue scroll has been left here.~ +~ +2 g 16385 +24 24 -1 -1 +5 20000 15000 +#2555 +pouch leather~ +a leather pouch~ +A leather pouch is on the ground here.~ +~ +15 g 16385 +150 0 -1 0 +2 1750 50 +#2556 +spoon silver~ +a silver stirring spoon~ +A silver stirring spoon has been left here.~ +~ +12 g 16385 +0 0 0 0 +1 5650 900 +A +24 -1 +#2557 +potion blue~ +a blue potion~ +A blue potion is here.~ +~ +10 g 16385 +24 27 27 27 +2 9000 500 +#2558 +potion red~ +a bright red potion~ +A bright red potion is here.~ +~ +10 g 16385 +15 15 -1 -1 +2 1500 500 +#2559 +potion green~ +a green potion~ +A green potion is here.~ +~ +10 g 16385 +20 4 2 14 +2 1500 150 +#2560 +potion effervescent~ +an effervescent potion~ +An effervescent potion is bubbling away here~ +~ +10 g 16385 +16 18 19 20 +2 1000 150 +E +potion effervescent~ +Ahh! Schwepes Sparkling Soda a refreshing drink. +~ +#2561 +white milky potion~ +a milky white potion~ +A milky white potion is here.~ +~ +10 0 16385 +14 42 -1 -1 +2 750 50 +#2562 +staff black~ +a black staff~ +A black staff is leaning against the wall here.~ +~ +4 g 16385 +18 2 2 2 +5 500 50 +#2563 +flute golden~ +a golden flute~ +A golden flute has been left here.~ +~ +4 fg 16385 +22 1 1 7 +4 15000 5000 +A +3 -6 +#2564 +figurine humanoid small~ +a small figurine~ +A small figurine in the shape of a humanoid is standing here.~ +~ +4 g 16385 +21 10 10 32 +4 6000 650 +#2565 +belt holster~ +a holstered belt~ +A holstered belt is here.~ +~ +15 0 2049 +20 0 -1 0 +4 290 29 +#2566 +wand~ +a blackened wand~ +A blackened wand is here.~ +~ +3 g 16385 +17 5 1 26 +4 2500 500 +#2567 +chisel runed~ +a runed chisel~ +A runed chisel is here.~ +~ +5 ag 8193 +0 2 3 11 +6 1500 500 +A +2 1 +#2568 +pouch belt beltpouch~ +a beltpouch~ +A beltpouch is here.~ +~ +15 0 2049 +50 0 -1 0 +5 750 50 +#2569 +dust~ +some sparkling dust~ +Some sparkling dust is in a pile here.~ +~ +4 0 16385 +20 1 1 38 +2 1000 150 +#2570 +cowl dark~ +a dark cowl~ +A dark cowl is here.~ +~ +9 abgj 5 +0 0 0 0 +5 1200 400 +A +17 -8 +A +24 -3 +#2571 +wand ashen~ +an ashen wand~ +An ashen wand is here~ +~ +3 j 16385 +20 4 4 5 +4 2000 600 +#2572 +club spiked~ +a huge spiked club~ +A huge spiked club has been left here.~ +~ +5 0 8193 +0 3 5 8 +29 750 200 +#2573 +robe grey~ +a grey robe~ +A pile of grey cloth has been left here.~ +~ +15 gjk 1025 +50 0 -1 0 +8 5000 750 +A +17 -9 +A +24 -2 +#2574 +bracelet silver~ +a glinting silver bracelet~ +A glinting hoop of silvery metal is here.~ +~ +9 gjk 4097 +0 0 0 0 +5 5000 500 +A +17 -5 +#2575 +cloak grey~ +a long grey cloak~ +A pile of grey cloth has been left here.~ +~ +9 gjk 5 +0 0 0 0 +7 12000 1200 +A +17 -12 +A +24 -3 +#2576 +staff~ +an iron shod staff~ +A grey piece of wood shod in iron has been left here.~ +~ +5 gjk 8193 +0 2 7 8 +7 9000 3000 +A +18 3 +#2577 +minor ward cube clear~ +a ward minor~ +A small clear cube is sitting here.~ +~ +9 ag 16385 +0 0 0 0 +5 5000 1000 +A +17 -5 +#2578 +robe black~ +a black robe~ +A pile of black cloth is on the ground here.~ +~ +15 gjl 1025 +50 0 -1 0 +8 5000 750 +A +17 -9 +A +24 -2 +#2579 +bracelet onyx~ +an onyx bracelet~ +A hoop of black onyx is here.~ +~ +9 gjl 4097 +0 0 0 0 +6 8500 850 +A +19 2 +#2580 +cloak black dark~ +a dark black cloak~ +A pile of black cloth is on the ground here.~ +~ +9 gjl 5 +0 0 0 0 +8 9000 950 +A +17 -12 +A +24 -3 +#2581 +shard black obsidian~ +a sharp shard of obsidian~ +A piece of black glass is here.~ +~ +5 gjl 8193 +0 2 7 1 +8 12000 2000 +A +19 3 +#2582 +robe white~ +a white robe~ +A pile of white cloth is on the ground here.~ +~ +15 gkl 1025 +50 0 -1 0 +7 7500 750 +A +17 -9 +A +24 -2 +#2583 +bracelet white gold~ +a white gold bracelet~ +A hoop of silvery metal is here.~ +~ +9 gkl 4097 +0 0 0 0 +5 5000 1000 +A +18 2 +#2584 +cloak white~ +a white cloak~ +A pile of white cloth is on the ground here.~ +~ +9 gikl 5 +0 0 0 0 +7 9000 1500 +A +17 -12 +A +24 -3 +#2585 +ivory dagger~ +an ivory hilted dagger~ +An ivory hilted dagger has been left here~ +~ +5 gikl 8193 +0 2 6 11 +8 12000 1500 +A +18 1 +A +19 2 +#2586 +collar spiked~ +a spiked collar~ +A small spiked collar is here.~ +~ +9 g 5 +0 0 0 0 +9 10000 5000 +A +17 -2 +A +19 3 +#2587 +cloak shimmering~ +a shimmering cloak of many colors~ +A multi-colored pile of cloth is here.~ +~ +15 ag 5 +100 0 -1 0 +8 25000 5500 +A +17 -15 +A +24 -5 +#2588 +emerald ring~ +a small emerald ring~ +A small ring with a green gemstone is here.~ +~ +9 g 3 +0 0 0 0 +5 50000 10000 +A +12 20 +#2589 +bracelet emerald~ +an emerald bracelet~ +A beautifully crafted hoop of emerald is here.~ +~ +9 g 4097 +0 0 0 0 +5 30000 3500 +A +17 -5 +A +3 1 +#2590 +ward major clear crystal~ +a ward major~ +A large clear crystal cube is here.~ +~ +9 ag 16385 +0 0 0 0 +6 20000 2000 +A +17 -10 +A +24 -2 +#2591 +ebony kris~ +the ebony kris~ +A wavy bladed knife made of ebony is here.~ +~ +5 g 8193 +0 3 4 11 +9 60000 5000 +A +2 2 +A +19 5 +#2592 +green scale shirt~ +a tight fitting green dragon scale shirt~ +Some green dragon scales which have been sewn together are here.~ +~ +9 g 9 +10 0 0 0 +9 10000 1000 +E +green scale shirt~ +this Green dragon scale shirt was made from a poor unfortunate green dragon. +~ +A +2 3 +A +17 -5 +#2593 +key grey metal~ +a grey key~ +A key made of a strange grey metal has been left here.~ +~ +18 cdq 16385 +2593 0 0 0 +2 0 0 +#2594 +key black obsidian~ +a black key~ +A key made of black obsidian has been left here.~ +~ +18 cdq 16385 +2594 0 0 0 +2 0 0 +#2595 +key white ivory~ +a white key~ +A key made of white ivory has been left here.~ +~ +18 cdq 16385 +2595 0 0 0 +2 0 0 +$ diff --git a/lib/world/obj/30.obj b/lib/world/obj/30.obj new file mode 100644 index 0000000..c74e67a --- /dev/null +++ b/lib/world/obj/30.obj @@ -0,0 +1,595 @@ +#3000 +barrel beer~ +a barrel~ +A beer barrel has been left here.~ +~ +17 0 1 +50 50 1 0 +65 300 100 +#3001 +bottle beer~ +a bottle~ +A beer bottle has been left here.~ +~ +17 0 1 +8 8 1 0 +10 20 8 +#3002 +bottle dark ale~ +a bottle~ +A dark bottle of ale has been left here.~ +~ +17 0 1 +8 8 3 0 +10 10 3 +#3003 +bottle firebreather~ +a bottle~ +A bottle of firebreather has been left here.~ +~ +17 0 1 +8 8 7 0 +10 50 17 +#3004 +bottle local~ +a bottle~ +A dark bottle has been left here.~ +~ +17 0 1 +8 8 8 0 +10 20 7 +#3005 +key dull metal~ +a key of dull metal~ +A key made of a dull metal is lying on the ground here.~ +~ +18 cdq 16385 +3005 0 0 0 +1 0 0 +#3009 +waybread bread~ +a waybread~ +Some waybread has been put here.~ +~ +19 0 1 +24 0 0 0 +1 50 50 +E +waybread bread~ +The waybread is the traditional feed of elves when travelling, they +call it lembas. It is said to refresh the weary traveler greatly. +~ +#3010 +bread loaf~ +a bread~ +A loaf of bread has been left here.~ +~ +19 0 1 +12 0 0 0 +1 10 10 +#3011 +danish pastry~ +a danish pastry~ +A nice looking delicious danish pastry has been placed here.~ +~ +19 0 1 +5 0 0 0 +1 5 5 +#3012 +taco mexican~ +a Mexican taco~ +A tasty looking Mexican taco has been dropped here.~ +~ +19 0 1 +15 0 0 0 +1 15 15 +#3013 +burrito hot~ +a spicy hot burrito~ +A spicy looking burrito has been set here.~ +~ +19 0 1 +10 0 0 0 +1 10 10 +#3014 +nachos nacho~ +some nachos with cheese~ +Some nachos have been left here.~ +~ +19 0 1 +5 0 0 0 +1 5 5 +E +nachos nacho~ +They have cheese on them. Looks like one of Uncle Juan's specials. +~ +#3015 +meat chunk~ +a piece of meat~ +A rather dubious looking piece of meat is on the ground here.~ +~ +19 0 1 +14 0 0 0 +5 24 10 +E +meat chunk~ +It isn't so much that the meat looks poisoned or anything, but that you +just are not sure of its origins. You doubt that a hunter would drop a +side of venison or rabbit meat... what in the world could this meat have +come from, you wonder... +~ +#3020 +dagger~ +a dagger~ +A dagger with a long thin blade is here.~ +~ +5 n 8193 +0 1 4 11 +1 10 10 +#3021 +sword small~ +a small sword~ +A small sword lies here.~ +~ +5 n 8193 +0 1 6 11 +3 60 10 +E +sword small~ +The small sword seems to have an inscription of some sort inscription... +~ +E +inscription~ +It says: 'May this sword be a good companion.' +~ +#3022 +sword long~ +a long sword~ +A long sword has been left here.~ +~ +5 n 8193 +0 1 8 3 +8 600 10 +#3023 +club wooden~ +a wooden club~ +A simple looking wooden club is here.~ +~ +5 0 8193 +0 1 3 7 +3 12 10 +#3024 +warhammer hammer~ +a warhammer~ +A medium sized warhammer is here.~ +~ +5 0 8193 +0 1 5 7 +6 50 10 +#3025 +flail large~ +a flail~ +A large flail is here.~ +~ +5 0 8193 +0 2 4 7 +6 625 10 +#3030 +torch~ +a torch~ +A large torch.~ +~ +1 0 16185 +0 0 24 0 +1 10 10 +#3031 +lantern brass~ +a lantern~ +A brass lantern is here.~ +~ +1 0 16185 +0 0 96 0 +1 50 10 +#3032 +bag~ +a bag~ +A small bag is here.~ +~ +15 0 16385 +50 0 0 0 +2 20 10 +#3033 +box~ +a box~ +A small box is here.~ +~ +15 0 16385 +10 0 0 0 +5 50 10 +#3034 +atm teller bank machine~ +an automatic teller machine~ +An automatic teller machine has been installed in the wall here.~ +~ +12 cdeg 0 +0 0 0 0 +5000 0 0 +E +atm teller bank machine~ +There is a small note on the machine which says: + +To use, type 'BALANCE', 'WITHDRAW <amount>', or 'DEPOSIT <amount>'. +Please report any strange occurrences to the bank manager. + +~ +#3035 +fountain water~ +the large fountain~ +A large fountain carved from blue-streaked marble is here, bubbling merrily.~ +~ +23 cdeg 0 +9999 9999 15 0 +9999 0 0 +E +marble blue streaked~ +It is a well crafted fountain, carved from a single piece of very beautiful +white marble shot through with electric blue streaks that look almost like +lightning dancing along the sides of the fountain. It seems to be enchanted +in some manner, as the water level seems to never lower. +~ +#3036 +cashcard card atm~ +a cashcard~ +A handy dandy cashcard is sitting on the ground here.~ +~ +12 cdeg 16385 +0 0 0 0 +1 10000 10 +E +cashcard card atm~ +There is some writing on the back of the card which reads: + +To use, type 'BALANCE', 'WITHDRAW <amount>', or 'DEPOSIT <amount>'. +Please report any strange occurrences to the bank manager. + +~ +#3037 +candle~ +a candle~ +A candle lies here, unlit.~ +~ +1 0 16385 +0 0 4 0 +1 5 1 +E +candle~ +A home-made candle, how quaint! +~ +#3038 +nail~ +a nail~ +A penny nail lies in the dust.~ +~ +5 0 8193 +0 1 1 11 +1 5 1 +E +nail~ +Its a common iron nail, used for carpentry work. +~ +#3039 +pot~ +a pot~ +A cast-iron pot sits on the ground.~ +~ +15 0 1 +10 0 0 0 +10 100 20 +E +pot~ +It is a nice pot. You could use it, if you ever settled down. +~ +#3040 +plate breast~ +a breast plate~ +A breast plate is lying on the ground.~ +~ +9 0 9 +7 0 0 0 +100 18000 150 +#3041 +shirt chain mail~ +a chain mail shirt~ +A chain mail shirt is lying on the ground.~ +~ +9 0 9 +5 0 0 0 +60 2500 50 +#3042 +shield wooden~ +a shield~ +A small wooden shield is lying on the ground.~ +~ +9 0 513 +2 0 0 0 +3 100 10 +#3043 +jacket soft leather~ +a leather jacket~ +A soft leather jacket is lying on the ground.~ +~ +9 0 9 +2 0 0 0 +10 200 10 +#3044 +jacket studded leather~ +a studded leather jacket~ +A studded leather jacket is lying on the ground.~ +~ +9 0 9 +3 0 0 0 +20 500 10 +#3045 +jacket scale mail~ +a scale mail jacket~ +A scale mail jacket is lying on the ground.~ +~ +9 0 9 +4 0 0 0 +40 1000 10 +#3046 +plate bronze breast~ +a bronze breast plate~ +A bronze breast plate is lying on the ground.~ +~ +9 0 9 +6 0 0 0 +80 7000 100 +#3050 +scroll identify~ +a scroll of identify~ +A scroll has carelessly been left here.~ +~ +2 g 16385 +12 201 -1 -1 +1 2001 10 +E +scroll identify~ +The scroll has a magic formula drawn upon it: + + ??? + ? ? + ? + ? + ? + * + +~ +#3051 +potion yellow~ +a yellow potion of see invisible~ +A small yellow potion has carelessly been left here.~ +~ +10 g 16385 +12 19 -1 -1 +1 400 10 +E +potion yellow~ +The potion has a small label 'Detect The Invisible'. +~ +#3052 +scroll recall~ +a scroll of recall~ +A scroll has carelessly been left here.~ +~ +2 g 16385 +12 42 -1 -1 +4 2001 10 +E +scroll recall~ +The scroll has written a formulae of 'Word of Recall' upon it. +~ +#3053 +wand grey~ +a grey wand of invisibility~ +A grey wand has carelessly been left here.~ +~ +3 g 16385 +12 2 2 29 +2 4000 100 +E +wand grey~ +The wand is an old dark grey stick. You notice a small symbol etched at +the base of the wand. It looks like this: + + \ / + - O - + / \ + +~ +#3054 +staff gnarled~ +a gnarled staff~ +A gnarled staff has carelessly been left here.~ +~ +4 g 16385 +12 1 1 38 +17 7000 5000 +E +staff gnarled~ +The staff is made of old oak, and is around five feet long. It fits +perfectly into your hand. You notice a small symbol etched at the +base of the staff, it looks like: + + ZZZZZ + Z + Z + Z + ZZZZZ z z + +~ +#3055 +staff metal~ +a metal staff~ +A metal staff has carelessly been left here.~ +~ +4 g 16385 +10 8 8 15 +7 8500 300 +E +staff metal~ +The staff is made of metals unknown to you. +~ +#3060 +raft~ +a raft~ +A raft has been left here.~ +~ +22 0 1 +0 0 0 0 +75 400 10 +E +raft~ +The raft looks very primitive. +~ +#3061 +canoe~ +a canoe~ +A canoe has been left here.~ +~ +22 0 1 +0 0 0 0 +32 1000 100 +E +canoe~ +The canoe is fairly light. +~ +#3070 +gauntlets bronze~ +a pair of bronze gauntlets~ +A pair of bronze gauntlets is lying on the ground.~ +~ +9 0 129 +6 0 0 0 +8 1750 100 +#3071 +gloves leather~ +a pair of leather gloves~ +A pair of leather gloves is lying on the ground.~ +~ +9 0 129 +3 0 0 0 +3 75 10 +#3075 +helmet bronze~ +a bronze helmet~ +A bronze helmet is lying on the ground.~ +~ +9 0 17 +6 0 0 0 +8 3500 100 +#3076 +cap leather~ +a leather cap~ +A leather cap is lying on the ground.~ +~ +9 0 17 +3 0 0 0 +3 150 10 +#3080 +leggings bronze~ +a pair of bronze leggings~ +A pair of bronze leggings is lying on the ground.~ +~ +9 0 33 +6 0 0 0 +8 3500 100 +#3081 +pants leather~ +a pair of leather pants~ +A pair of leather pants is lying on the ground.~ +~ +9 0 33 +3 0 0 0 +8 150 10 +#3085 +sleeves bronze~ +a pair of bronze sleeves~ +A pair of bronze sleeves is lying on the ground.~ +~ +9 0 257 +6 0 0 0 +8 1750 100 +#3086 +sleeves leather~ +a pair of leather sleeves~ +A pair of leather sleeves is lying on the ground.~ +~ +9 0 257 +2 0 0 0 +4 75 10 +#3096 +board social bulletin~ +a social bulletin board~ +A large, sociable bulletin board is mounted on a wall here.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +E +board~ +If you can read this, the board is not working. +~ +E +social bulletin~ +Use 'look board' to read the board. +~ +#3097 +board frozen bulletin~ +a frozen bulletin board~ +A large bulletin board is here, carved from a block of ice.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +E +board~ +If you can read this, the board is not working. +~ +E +freeze bulletin~ +Use 'look board' to read the board. +~ +#3098 +board holy bulletin~ +a holy bulletin board~ +A large bulletin board is mounted on a wall here. It glows with a faint aura.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +E +board~ +If you can read this, the board is not working. +~ +E +holy bulletin~ +Use 'look board' to read the board. +~ +#3099 +board bulletin~ +a bulletin board~ +A large bulletin board is mounted on a wall here.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +E +board~ +If you can read this, the board is not working. +~ +E +bulletin~ +Use 'look board' to read the board. +~ +$ diff --git a/lib/world/obj/31.obj b/lib/world/obj/31.obj new file mode 100644 index 0000000..1532526 --- /dev/null +++ b/lib/world/obj/31.obj @@ -0,0 +1,225 @@ +#3100 +cup tea~ +a cup~ +A cup has been set here.~ +~ +17 0 1 +8 8 11 0 +1 5 1 +E +cup~ +It is a small simple cup. +~ +#3101 +cup coffee~ +a cup~ +A cup has been set here.~ +~ +17 0 1 +8 8 12 0 +1 7 1 +E +cup~ +It is a small simple cup. +~ +#3102 +cup water~ +a cup~ +A cup has been set here.~ +~ +17 0 1 +12 12 15 0 +1 2 1 +E +cup~ +It is a large simple cup. +~ +#3103 +bottle water~ +a bottle~ +A bottle of Evian natural spring water is here.~ +~ +17 0 1 +24 24 15 0 +1 10 6 +E +label~ +You've been ripped off! It says here at the bottom of the label, in really +really small letters, 'Bottled in the Midgaard branch of Evian Inc. This +water is from the natural, mostly clean River of Midgaard.' +~ +E +bottle~ +It is a large, clean bottle. There is a large label pasted on the side. +~ +#3104 +canteen water~ +a canteen~ +A canteen has been set on the ground here.~ +~ +17 0 1 +80 80 15 0 +20 45 15 +E +canteen~ +It is a fairly big canteen. Looks like it can hold a lot of liquid. +~ +#3105 +key iron~ +an iron key~ +An iron key has been left here.~ +~ +18 c 1 +0 0 0 0 +1 0 10 +E +key iron~ +The iron key is not special. In fact, it is quite boring. +~ +#3106 +key rusty~ +a rusty key~ +A rusty key has been left here.~ +~ +18 c 1 +0 0 0 0 +1 0 10 +E +key rusty~ +The key is a fairly large rusty key. You notice a lot of dirt it. +~ +#3107 +key wooden~ +a wooden key~ +A wooden key has been left here.~ +~ +18 c 1 +0 0 0 0 +1 0 10 +E +key wooden~ +The wooden key is not special. In fact it is just about the most boring +key you've ever seen in your life. +~ +#3108 +key brass~ +a brass key~ +A brass key has been left here.~ +~ +18 c 1 +0 0 0 0 +1 0 10 +E +key brass~ +The brass key is small and looks like it fits a very complicated lock. +~ +#3109 +desk drawer~ +the desk~ +A desk is set against the western wall.~ +~ +15 0 0 +34 15 3107 0 +100 0 0 +E +desk~ +The desk looks very sparse, there is a drawer in the left side. +~ +E +drawer~ +You notice a keyhole in the drawer. +~ +#3110 +safe~ +the safe~ +A safe is placed in a dark corner of the room.~ +~ +15 0 0 +34 15 3108 0 +999 0 0 +E +safe~ +The safe is very heavy and has a keyhole. +~ +#3111 +bench~ +the Bench~ +A white-painted wooden bench is standing here.~ +~ +12 0 0 +0 0 0 0 +100 600 200 +E +bench~ +It is a quite heavy but very comfortable bench. It is placed with its front +towards the river so you can sit and watch the river and the houses on the +other side. +~ +#3112 +key city~ +the City Key~ +The very big City Key is lying here.~ +~ +18 c 1 +0 0 0 0 +30 10000 500 +E +key city~ +It is probably the biggest key you have seen in your life. It is made from +polished gold and has various patterns on it along with the Midgaard Coat of +Arms. +~ +#3113 +fountain water~ +a fountain~ +A small white fountain is standing here, gurgling happily.~ +~ +23 0 0 +999 999 15 0 +999 0 0 +E +fountain water~ +It is very nice. Made from fine white marble. +~ +#3114 +coins gold~ +a small pile of gold coins~ +A small pile of gold coins lies here.~ +~ +20 0 1 +37 0 0 0 +0 0 0 +#3115 +gold coins~ +the gold~ +A lot of gold is here.~ +~ +20 0 1 +32385 0 0 0 +0 32385 0 +#3116 +candlestick candle stick pewter~ +a candlestick~ +A pewter candlestick is standing here.~ +~ +1 0 16385 +0 0 24 0 +5 150 10 +E +candlestick~ +It is a rather old-looking three-armed candlestick made from pewter. Its +candles are a yellowish white color. +~ +#3117 +tree elm~ +an elm tree~ +An old elm tree grows here.~ +~ +13 0 0 +0 0 0 0 +0 0 0 +E +elm tree~ +The fresh young leaves of the elm tree wave gently in the wind. +~ +$ diff --git a/lib/world/obj/33.obj b/lib/world/obj/33.obj new file mode 100644 index 0000000..1c308bb --- /dev/null +++ b/lib/world/obj/33.obj @@ -0,0 +1,303 @@ +#3300 +orange~ +an orange~ +An orange lies on the ground here.~ +~ +19 0 1 +8 0 0 0 +1 8 8 +E +orange~ +You wonder how it got here, seeing how +oranges are non-migratory. +~ +#3301 +bale wheat~ +a bale of wheat~ +There is a bale of wheat here.~ +~ +19 0 1 +24 0 0 0 +100 1000 1000 +E +bale wheat~ +It doesn't look appetizing to you, but +a horse might enjoy this... +~ +#3302 +zither~ +a big zither~ +A HUGE zither made of gold rests in the corner~ +~ +8 0 1 +0 0 0 0 +40 200000 20000 +E +zither~ +Someone truly huge with big fingers might be +able to play this. You can't. +~ +#3303 +barrel perfume~ +a barrel of perfume~ +You can smell a barrel on the other side of the room from here.~ +~ +8 0 1 +0 0 0 0 +20 100000 10000 +E +barrel perfume~ +Smells good...the label reads: + + "Somewhere between GPA and MUD there lies... + OBSESSION" +~ +#3304 +statue~ +a statue~ +There is a statue of Aglandiir here, made of solid gold.~ +~ +8 0 1 +0 0 0 0 +30 150000 15000 +E +statue~ +He's a pretty striking chap, for a dragon. +~ +#3305 +halberd~ +a halberd~ +A runed halberd lies on the ground here.~ +~ +5 g 8193 +0 1 12 3 +16 10000 3000 +A +18 5 +E +halberd~ +The runes glow with a bright light, making you +think that this might be a pretty decent weapon. +~ +#3306 +potion protection dun vial~ +a potion of protection~ +A vial of a dun fluid is here.~ +~ +10 a 1 +20 36 1 3 +1 10000 2000 +E +potion protection dun vial~ +Looks thick, and brownish-grey (dun). Ick! +~ +#3307 +crown~ +a dragon's crown~ +Aglandiir's crown sits here, radiating a shield.~ +~ +8 a 0 +0 0 0 0 +400 0 0 +E +crown~ +The shield repulses you, making you wonder how +you're going to get your hands on this huge, valuble +chunk of gold... +~ +#3308 +apple~ +an apple~ +A scrawny red apple sits here.~ +~ +19 0 1 +4 0 0 0 +1 5 2 +E +apple~ +It is not wormy... yet. +~ +#3309 +bread loaf~ +a loaf of bread~ +A fresh loaf of bread lies here.~ +~ +19 0 1 +12 0 0 0 +1 10 5 +E +bread loaf~ +Mmmm... Rye! +~ +#3310 +melon~ +a melon~ +A melon sits here, discarded evidently.~ +~ +19 0 1 +8 0 0 0 +3 8 3 +E +melon~ +Wow! Look at the size of that melon! +~ +#3311 +knife~ +a knife~ +An exquisitely crafted knife rests here.~ +~ +5 dn 24577 +0 3 5 11 +8 1000000 20000 +E +knife~ +The craftsmanship... it takes your breath away! +This knife... it had to have been forged by the +legendary smith Gabadiel. It must be worth a +fortune! +~ +A +18 3 +A +2 2 +#3312 +sword long~ +a long sword~ +A superb long sword sticks in the earth.~ +~ +5 dmn 24577 +0 2 7 3 +15 750000 15000 +E +sword long~ +This sword is light, but the heft is perfectly +balanced. Such an incredible weapon can only have +be crafted by the legendary smith Gabadiel, and +as such be worth a fortune! +~ +A +18 2 +A +1 1 +#3313 +sword short~ +a short sword~ +A short sword lies here... a work of art!~ +~ +5 adimn 24577 +0 4 6 3 +10 10000000 30000 +E +sword short~ +It brings tears to your eyes. This must have +been Gabadiel the smith's masterpiece; his final +work. Simply invaluble. +~ +A +18 4 +A +2 3 +#3314 +corpse~ +a dismembered and burnt corpse~ +A dismembered and burnt corpse lies on the ground here.~ +~ +13 0 0 +0 0 0 0 +1 1 1 +E +corpse~ +It is still smouldering a little; the culprits can't +be far off! +~ +#3315 +scimitar~ +a scimitar~ +A scimitar as long as your arm lies here.~ +~ +5 0 8193 +0 1 7 3 +10 500 50 +E +scimitar~ +This weapon really isn't of too high a quality. +~ +#3316 +crate~ +a crate~ +A crate is stacked here.~ +~ +15 0 1 +200 5 0 0 +50 100 20 +E +crate~ +It's a standard wooden crate. +~ +#3317 +bow hunting~ +a hunting bow~ +A hunting bow lies here, unwanted~ +~ +5 0 8193 +0 1 5 11 +6 400 40 +E +bow hunting~ +This is the type of weapon you would use to bag +some deer or rabbits, but not the type you'd take +into battle... +~ +A +19 1 +#3318 +vest leather~ +a leather vest~ +A nice leather vest lies here.~ +~ +9 g 9 +6 0 0 0 +6 5000 500 +E +vest leather~ +The seams are delicately sewn with a enruned thread... +~ +#3319 +glass beer~ +a glass~ +A glass of beer sits forgotten here.~ +~ +17 0 16385 +1 1 1 0 +2 5 1 +E +glass~ +This is a nice glass filled with homebrew. There doesn't seem to +be too much stuff floating in it. +~ +#3320 +glass mead ale~ +a glass~ +A big glass of mead sits here, cool and frosty.~ +~ +17 0 16385 +1 1 3 0 +2 8 3 +E +glass mead~ +Looks good. Looks warm. Doesn't matter; it still looks good. +~ +#3321 +shot whisky~ +a shot~ +A shot of whisky is sitting here.~ +~ +17 0 16385 +1 1 5 0 +1 10 5 +E +shot~ +Whew! Looks like potent stuff! +~ +$ + diff --git a/lib/world/obj/35.obj b/lib/world/obj/35.obj new file mode 100644 index 0000000..7f3cd68 --- /dev/null +++ b/lib/world/obj/35.obj @@ -0,0 +1,97 @@ +#3500 +sword small~ +a small sword~ +A small sword lies here.~ +~ +5 0 8193 +0 1 6 11 +3 60 10 +#3501 +sword long~ +a fine long sword~ +A long sword has been left here.~ +~ +5 an 8193 +0 1 9 3 +8 600 10 +A +19 2 +#3502 +club wooden~ +a wooden club~ +A simple looking wooden club is here.~ +~ +5 0 8193 +0 1 3 7 +3 12 10 +#3503 +jacket studded leather~ +a studded leather jacket~ +A studded leather jacket is lying on the ground.~ +~ +9 0 9 +5 0 0 0 +20 500 10 +#3504 +spear small~ +a small spear~ +A small spear lies here.~ +~ +5 m 8193 +0 5 1 11 +15 500 120 +#3505 +corpse mutilated~ +a mutilated corpse~ +A mutilated corpse has been left on the ground here.~ +~ +15 0 0 +20 0 -1 0 +25 0 0 +E +corpse mutilated~ +Looks to be an aftermath of whatever caused this carnage. +~ +#3506 +corpse mutilated~ +a mutilated corpse~ +A mutilated corpse has been left on the ground here.~ +~ +15 0 0 +20 0 -1 0 +25 0 0 +E +corpse mutilated~ +Looks to be an aftermath of whatever caused this carnage. +~ +#3507 +dagger ornate~ +an ornate dagger~ +A beautiful looking dagger is stuck in the ground.~ +~ +5 dfghkmnpq 8193 +0 3 3 11 +4 1000 500 +E +dagger ornate~ +The hilt of this dagger looks to be two intertwined snakes. At the end of +it, there is a small red ruby. +~ +A +18 5 +A +19 -3 +#3508 +gyroscope toy~ +the gyroscope~ +A small toy is spinning about on the ground here.~ +~ +9 b 16387 +5 0 0 0 +1 25 600 +E +gyroscope toy~ +As the gyroscope spins around and around you find yourself almost +hypnotized by its movement. +~ +$ diff --git a/lib/world/obj/36.obj b/lib/world/obj/36.obj new file mode 100644 index 0000000..64943ed --- /dev/null +++ b/lib/world/obj/36.obj @@ -0,0 +1,177 @@ +#3600 +armour black pawn~ +some Black Pawn Armour~ +A pile of black armour is here.~ +~ +9 j 9 +1 0 0 0 +13 300 1 +#3601 +armour white pawn~ +some White Pawn Armour~ +A pile of white armour is here.~ +~ +9 k 9 +1 0 0 0 +13 300 1 +#3602 +sword black pawn~ +a Black Pawn's Sword~ +The sword of a Black Pawn lies here.~ +~ +5 j 8193 +0 3 4 3 +10 100 1 +#3603 +sword white pawn~ +a White Pawn's Sword~ +The sword of a White Pawn lies here.~ +~ +5 k 8193 +0 3 4 3 +10 100 1 +#3604 +armour black rook~ +some Black Rook Armour~ +Some armour made from the remains of a black rook lies heaped on the floor.~ +~ +9 ahj 9 +2 0 0 0 +60 17000 5 +A +17 2 +A +5 1 +#3605 +armour white rook~ +some White Rook Armour~ +Some armour made from the remains of a white rook lies heaped on the floor.~ +~ +9 agk 9 +2 0 0 0 +60 17000 5 +A +17 2 +A +5 1 +#3606 +lance black knight~ +the Lance of the Black Knight~ +The Lance of the Black Knight lies here, waiting to rust.~ +~ +5 bgj 8193 +0 3 6 6 +18 10000 3 +A +19 2 +A +23 5 +#3607 +lance white knight~ +the Lance of the White Knight~ +The Lance of the White Knight lies here, waiting to rust.~ +~ +5 bgk 8193 +0 3 6 6 +18 10000 3 +A +19 2 +A +23 5 +#3608 +staff black bishop~ +the Staff of the Black Bishop~ +The Black Bishop's Staff is lying here.~ +~ +4 agj 16385 +20 5 5 36 +3 20000 6 +#3609 +staff white bishop~ +the Staff of the White Bishop~ +The White Bishop's Staff is lying here.~ +~ +4 agk 16385 +20 5 5 36 +3 20000 6 +#3610 +crown black queen~ +the Crown of the Black Queen~ +The Crown of the Black Queen lies here, looking neglected.~ +~ +9 bgj 17 +2 0 0 0 +4 3000 5 +A +3 1 +A +4 1 +#3611 +crown white queen~ +the Crown of the White Queen~ +The Crown of the White Queen lies here, looking neglected.~ +~ +9 bgk 17 +2 0 0 0 +4 3000 5 +A +3 1 +A +4 1 +#3612 +sceptre black king~ +the Black King's Sceptre~ +The Sceptre of the Black King lies here, collecting dust.~ +~ +8 bfgj 16385 +0 0 0 0 +200 85000 1 +A +1 1 +A +18 1 +#3613 +sceptre white king~ +the White King's Sceptre~ +The Sceptre of the White King lies here, collecting dust.~ +~ +8 bfgk 16385 +0 0 0 0 +300 85000 10 +A +1 1 +A +18 1 +#3614 +key black treasury~ +The Key to the Black Treasury~ +There is a sinister black key lying here.~ +~ +18 cdfq 16385 +3614 0 0 0 +1 1000 300 +#3615 +key white treasury~ +the Key to the White Treasury~ +There is a bright white key lying here.~ +~ +18 cdfq 16385 +3615 0 0 0 +1 1000 300 +#3616 +coins gold black royal treasure~ +the Black Royal Treasure~ +There are a LOT of coins here.~ +~ +20 0 1 +10000 0 0 0 +10 10000 0 +#3617 +coins gold white royal treasure~ +the White Royal Treasure~ +There are a LOT of coins here.~ +~ +20 0 1 +10000 0 0 0 +10 10000 0 +$ diff --git a/lib/world/obj/40.obj b/lib/world/obj/40.obj new file mode 100644 index 0000000..7002af8 --- /dev/null +++ b/lib/world/obj/40.obj @@ -0,0 +1,154 @@ +#4000 +ring yellow green~ +a yellow and green ring~ +A ring is here, with yellow and green ornamentation. It looks very old.~ +~ +9 dhq 3 +0 0 0 0 +1 50 20 +E +ring yellow green~ +It feels heavy. +~ +A +1 -2 +#4001 +corpse goblin~ +a goblin's corpse~ +A halfway decayed corpse of a goblin is here, giving off a foul odor.~ +~ +15 0 1 +1 0 -1 0 +20 0 500 +#4002 +coins~ +some coins~ +A small pile of coins is on the ground.~ +~ +20 0 1 +500 0 0 0 +0 0 0 +#4050 +potion purple~ +a purple potion~ +A purple potion is here.~ +~ +10 0 16385 +17 14 36 33 +1 35500 2000 +E +potion purple~ +It looks rather strange! +~ +#4051 +helmet metal~ +a metal helmet~ +A metal helmet in here.~ +~ +9 g 17 +-5 0 0 0 +4 3000 100 +E +helmet metal~ +It looks somehow magical!. +~ +A +24 -2 +A +23 -2 +#4052 +mushroom~ +a mushroom~ +A small mushroom is here.~ +~ +19 0 16385 +2 0 0 1 +1 9 3 +E +mushroom~ +Let's put it this way - I wouldn't eat it!! +~ +#4053 +dirk~ +a thieves' dirk~ +A beautifully crafted dirk is lying here.~ +~ +5 np 8193 +0 2 4 11 +2 850 500 +E +dirk~ +It is a medium sized, beautifully crafted dirk made from some greyish alloy. +Its blade is double-edged and very thin... this looks like a good thieves' +weapon. +~ +A +18 1 +A +19 1 +#4100 +blade black demon~ +a black demon blade~ +A black demon blade is here.~ +~ +5 mjl 8193 +0 3 4 11 +8 10000 800 +E +blade black demon~ +You'll become as evil as the weapon, if you use it as you sense the forces +of evil controlling the weapon... +~ +#4101 +gloves swordmans~ +a pair of swordsmans' gloves~ +A pair of finely crafted gloves are lying on the ground here.~ +~ +9 j 129 +0 0 0 0 +1 3500 800 +E +gloves swordsmans~ +They look like the right kind of equipment to use when fighting. +~ +A +18 2 +A +19 1 +#4102 +scroll ysafg~ +a scroll which reads 'ysafg'~ +A scroll which reads 'ysafg', it looks very fragile and quite old.~ +~ +2 0 1 +1 44 -1 -1 +1 1500 10 +E +scroll ysafg~ +It looks informative. +~ +#4103 +slime mould green~ +a green slime mould~ +A green slime mould is here. Stinks like you wouldn't believe!~ +~ +19 0 1 +24 0 0 0 +1 20 8 +E +smile mould~ +It wasn't meant to be food -- at least, certainly not for humans. +~ +#4104 +slime mould green~ +a green slime mould~ +A green slime mould is here. Stinks like you wouldn't believe!~ +~ +19 0 1 +24 0 0 1 +1 20 8 +E +smile mould~ +It wasn't meant to be food -- at least, certainly not for humans. +~ +$ diff --git a/lib/world/obj/50.obj b/lib/world/obj/50.obj new file mode 100644 index 0000000..dc96a22 --- /dev/null +++ b/lib/world/obj/50.obj @@ -0,0 +1,281 @@ +#5000 +pick mining~ +a small mining pick~ +A small mining pick made of what appears to be silver lies on the ground.~ +~ +5 j 8193 +0 1 9 11 +3 600 500 +#5001 +suit mail banded~ +a glowing suit of banded mail~ +A glowing suit of banded mail lies on the ground.~ +~ +9 ag 9 +7 0 0 0 +0 75000 20000 +A +2 2 +A +17 -4 +#5002 +halberd~ +a halberd~ +A mighty halberd lies against the wall.~ +~ +5 gi 8193 +0 3 5 3 +16 12000 10000 +A +18 2 +A +19 2 +#5003 +amulet mushroom~ +a mushroom amulet~ +A mushroom-shaped amulet lies on the ground.~ +~ +9 gp 5 +0 0 0 0 +2 1500 4000 +A +5 2 +#5005 +bone leg~ +a large leg bone~ +A large leg bone rests on the ground.~ +~ +5 0 8193 +0 1 4 7 +5 300 60 +#5006 +cactus cup water~ +a small cactus cup~ +A small cactus cup lies on the ground.~ +~ +17 0 1 +5 5 0 0 +6 30 5 +#5007 +basket wicker small~ +a small wicker basket~ +A small wicker basket sits on the ground.~ +~ +15 0 1 +100 5 -1 0 +50 5000 50 +#5008 +basket wicker small~ +a small wicker basket~ +A small wicker basket sits on the ground.~ +~ +15 0 1 +100 5 -1 0 +50 5000 50 +#5009 +basket wicker small~ +a small wicker basket~ +A small wicker basket sits on the ground.~ +~ +15 0 1 +100 5 -1 0 +50 5000 50 +#5010 +basket wicker small~ +a small wicker basket~ +A small wicker basket sits on the ground.~ +~ +15 0 0 +100 5 -1 0 +50 5000 50 +#5011 +rope coil~ +a coil of rope~ +A long coil of rope lies on the ground.~ +~ +12 0 1 +0 0 0 0 +12 450 45 +#5012 +stakes bundle bunch~ +a bunch of stakes~ +A small bundle of stakes lies here.~ +~ +5 0 8193 +0 1 2 11 +6 250 30 +#5013 +map tattered old~ +an old, tattered map~ +An old, tattered, and much faded map lies here.~ +~ +12 0 1 +0 0 0 0 +1 300 20 +#5014 +turban padded~ +a thick padded turban~ +A thick padded turban lies here.~ +~ +9 gh 17 +0 0 0 0 +15 4300 100 +A +17 1 +#5015 +coins treasure~ +a great pile of treasure~ +A great, gleaming pile of treasure lies at your feet.~ +~ +20 0 1 +46270 0 0 0 +0 0 0 +#5016 +sabre curved long~ +a long, curved sabre~ +A long, curved sabre stands upright in the ground.~ +~ +5 l 8193 +0 1 8 3 +7 1050 200 +A +18 2 +#5017 +scimitar curved~ +a curved scimitar~ +A curved scimitar lies at your feet.~ +~ +5 l 8193 +0 1 7 3 +6 600 150 +A +18 1 +#5018 +cutlass pointed long~ +a long, pointed cutlass~ +A long, pointed cutlass lies here.~ +~ +5 l 8193 +0 1 7 3 +5 550 10 +#5019 +potion pink~ +a pink potion~ +A pink potion stands here.~ +~ +10 0 1 +25 33 17 -1 +6 600 100 +#5020 +wand platinum~ +a platinum wand~ +A platinum wand lies here.~ +~ +3 b 16385 +30 10 10 32 +8 1900 1000 +#5021 +bow golden~ +a golden bow~ +A powerful golden bow lies here.~ +~ +5 abfgio 8193 +0 4 6 12 +20 150000 20000 +#5022 +scroll encrypted~ +an encrypted scroll~ +An encrypted scroll lies at your feet.~ +~ +2 0 1 +22 14 35 43 +7 1500 500 +#5023 +chest iron bound~ +an iron bound chest~ +An iron bound chest with a shiny lock sits here.~ +~ +15 0 0 +200 13 5024 0 +200 1000 0 +#5024 +key golden~ +a golden key~ +A shiny golden key lies here.~ +~ +18 c 16385 +10 0 0 0 +1 150 0 +#5025 +bracelet copper~ +a copper bracelet~ +A tarnished copper bracelet lies at your feet.~ +~ +9 gh 4097 +-5 0 0 0 +10 23000 2500 +A +13 10 +A +19 -4 +#5026 +ruby gem~ +a large ruby~ +A large ruby lies on the ground, collecting dust.~ +~ +8 gh 16385 +20 0 0 0 +9 4000 200 +#5027 +diamond gem~ +a glittering diamond~ +A glittering diamond lies at your feet.~ +~ +8 g 16385 +21 0 0 0 +10 9500 200 +#5028 +sapphire gem~ +a brilliant sapphire~ +A brilliant sapphire lies here, twinkling happily.~ +~ +8 g 16385 +22 0 0 0 +7 3500 200 +#5029 +lapis lazuli blue gem~ +a deep blue lapis lazuli~ +A deep blue lapis lazuli gem lies here.~ +~ +8 g 16385 +24 0 0 0 +11 8500 200 +#5030 +jewel tiger~ +the Tiger Jewel~ +The Tiger Jewel lies here blazing.~ +~ +8 256 16385 +0 0 0 0 +23 43000 1500 +A +2 1 +#5031 +jewel red-eyed~ +the red-eyed jewel~ +The red-eyed jewel glares at you greedily.~ +~ +8 h 16385 +0 0 0 0 +30 35000 600 +A +3 -2 +#5032 +emerald gem fiery green~ +a fiery green emerald~ +A fiery green emerald sits here.~ +~ +8 g 16385 +23 0 0 0 +7 5500 200 +$ diff --git a/lib/world/obj/51.obj b/lib/world/obj/51.obj new file mode 100644 index 0000000..2cff1cb --- /dev/null +++ b/lib/world/obj/51.obj @@ -0,0 +1,185 @@ +#5100 +longsword commoner~ +a commoner's longsword~ +A commoner's longsword made of adamantite has been left here.~ +~ +5 m 8193 +0 1 8 3 +12 1000 500 +A +18 1 +A +19 1 +#5101 +longsword noble~ +a noble's longsword~ +A drow noble's longsword, made of adamantite, lies here.~ +~ +5 m 8193 +0 1 8 3 +12 1500 800 +A +18 2 +A +19 2 +#5102 +whip snake twoheaded~ +a two-headed snake whip~ +A whip with two snakes heads lies here.~ +~ +5 ab 8193 +0 2 6 3 +12 1750 1500 +A +18 2 +A +19 2 +#5103 +whip snake threeheaded~ +a three-headed snake whip~ +A whip with three snake heads has been left here.~ +~ +5 ab 8193 +0 2 7 3 +12 5000 2300 +A +18 2 +A +19 2 +#5104 +whip snake fourheaded~ +a four-headed snake whip~ +A whip with four snake heads has been carelessly left here.~ +~ +5 ab 8193 +0 2 8 3 +12 10250 4000 +A +18 2 +A +19 2 +#5105 +longsword black~ +a black longsword~ +A black longsword has been carelessly left here.~ +~ +5 agm 8193 +0 2 8 3 +12 10250 4000 +A +18 2 +A +19 2 +#5106 +whip snake fiveheaded~ +a five-headed snake whip~ +A whip with 5 snake heads has been carelessly dropped here.~ +~ +5 agj 8193 +0 3 6 3 +12 12000 4500 +A +1 -2 +A +3 -2 +#5107 +whip snake sixheaded~ +a six-headed snake whip~ +A whip with six snake heads has been dropped here very carelessly.~ +~ +5 agj 8193 +0 4 5 3 +12 15000 8000 +A +1 -3 +A +3 -3 +#5108 +bracers iron~ +a pair of bracers~ +A pair of iron bracers has been dropped here.~ +~ +9 ag 257 +8 0 0 0 +3 2000 1000 +A +18 -1 +#5109 +gauntlets~ +a pair of gauntlets~ +A pair of gauntlets is lying on the ground.~ +~ +11 a 129 +0 0 0 0 +2 10000 3000 +A +1 2 +#5110 +wand blue silver~ +a silvery blue wand~ +A silvery blue wand has been dropped in the dirt.~ +~ +3 g 16385 +10 3 3 30 +1 4000 3000 +#5111 +helmet small~ +a small helmet~ +A small helmet lies up against a rock.~ +~ +9 g 17 +1 0 0 0 +5 6000 3000 +A +3 3 +#5112 +ring ruby~ +a small ruby ring~ +A small ruby ring lies in the dirt.~ +~ +11 g 3 +0 0 0 0 +1 20000 8000 +A +13 25 +#5113 +dagger sacrificial spider~ +a spider shaped dagger~ +A dagger with spider leg shaped blades lies on the ground.~ +~ +5 gjmnp 8193 +0 3 4 11 +8 12000 15000 +A +18 3 +A +19 3 +#5114 +hat green~ +a small bright green hat~ +A small bright green hat lies in the dirt.~ +~ +9 h 17 +10 0 0 0 +1 2000 600 +A +9 -15 +A +17 -2 +#5115 +key adamantite~ +an adamantite key~ +A key made of a strange metal is lying here.~ +~ +18 c 16385 +5115 0 0 0 +1 0 0 +#5116 +gold treasure coins~ +a pile of golden coins~ +A large pile of golden coins is lying here.~ +~ +20 0 1 +17645 0 0 0 +10 17645 0 +$ diff --git a/lib/world/obj/52.obj b/lib/world/obj/52.obj new file mode 100644 index 0000000..12a51a6 --- /dev/null +++ b/lib/world/obj/52.obj @@ -0,0 +1,423 @@ +#5200 +vest ringmail~ +a ringmail vest~ +A vest made of iron rings lies heaped on the floor.~ +~ +9 ag 9 +6 0 0 0 +60 12000 400 +A +17 -1 +#5201 +helm iron~ +an iron helm~ +An iron helm has been left on the ground.~ +~ +9 0 17 +7 0 0 0 +10 5000 800 +A +18 -2 +#5202 +gauntlets iron~ +a pair of iron gauntlets~ +A pair of iron gauntlets rests heavily on the ground.~ +~ +9 0 129 +7 0 0 0 +10 2200 900 +A +18 -3 +A +19 1 +#5203 +sleeves iron~ +a pair of iron sleeves~ +A set of iron sleeves lies on the ground.~ +~ +9 0 257 +7 0 0 0 +10 2450 500 +A +18 -4 +A +19 2 +#5204 +boots iron~ +a pair of iron boots~ +A pair of iron boots has been left here.~ +~ +9 0 65 +4 0 0 0 +6 800 200 +A +18 -1 +A +2 -2 +#5205 +greaves iron~ +a set of iron greaves~ +A set of iron greaves lie here unattended.~ +~ +9 0 33 +7 0 0 0 +10 5400 210 +A +18 -3 +A +2 -3 +#5206 +girth iron~ +an iron girth~ +A small iron girth lies at your feet.~ +~ +9 0 2049 +4 0 0 0 +6 4200 600 +#5207 +plate breast iron~ +a battered iron breast plate~ +A battered iron breast plate lies here.~ +~ +9 0 9 +5 0 0 0 +125 13000 150 +A +18 -6 +#5208 +shield iron~ +a sturdy iron shield~ +A small, but sturdy, iron shield has been left here.~ +~ +9 gh 513 +5 0 0 0 +5 500 1000 +A +23 -2 +A +24 -2 +#5210 +potion black~ +a black potion~ +A jet black potion sits upright waiting to be taken.~ +~ +10 fg 1 +16 4 36 39 +5 6000 1000 +#5211 +potion orange~ +an orange potion~ +A small orange potion lies here.~ +~ +10 fg 1 +20 44 -1 -1 +10 7500 200 +#5213 +staff serpentine~ +a green serpentine staff~ +A green serpentine staff has been left here.~ +~ +4 fg 16385 +15 2 2 23 +12 6600 300 +#5214 +ball quartz~ +a smooth quartz ball~ +A smooth quartz ball lies here gleaming.~ +~ +1 g 16385 +0 0 72 0 +30 3050 950 +#5215 +scroll tattered~ +a tattered scroll~ +A worn and tattered scroll has been left here.~ +~ +2 g 1 +24 24 44 4 +15 11000 4000 +#5216 +scroll bound~ +a bound scroll~ +A bound scroll of detection lies at your feet.~ +~ +2 g 1 +15 18 19 20 +15 4200 100 +#5217 +flute silver~ +a silver flute~ +A brilliant silver flute glimmers from beneath a rock.~ +~ +4 fg 16385 +18 2 2 7 +3 10500 8000 +#5218 +talisman demon~ +a demon-faced talisman~ +A demon-faced talisman glares at you angrily.~ +~ +9 agh 5 +5 0 0 0 +11 2500 150 +A +1 -10 +A +2 -8 +#5219 +venison chunk~ +a chunk of venison~ +A large chunk of venison sits here, ready to be eaten.~ +~ +19 0 1 +24 0 0 0 +20 100 20 +#5220 +fountain blood cracked~ +a large cracked fountain~ +~ +~ +23 0 0 +10 10 13 1 +0 0 0 +E +fountain blood cracked~ +A pool of blood lies in the bottom of the fountain. +~ +#5221 +sword two-handed~ +a two-handed sword~ +A nice two-handed sword hangs on a hook in the wall.~ +~ +5 0 8193 +0 3 6 3 +22 55000 8000 +A +18 -3 +A +19 4 +#5222 +robe black silk~ +a black silk robe~ +A black silk robe lies heaped in one corner.~ +~ +9 0 1025 +1 0 0 0 +6 1300 500 +#5223 +cloak green~ +a dark green cloak~ +A beautiful dark green cloak has been dropped here by someone.~ +~ +9 ag 5 +0 0 0 0 +12 14500 4000 +A +13 8 +A +17 -5 +#5224 +seal ebony~ +an engraved ebony seal~ +A small, engraved ebony seal is here.~ +~ +18 c 16385 +5224 0 0 0 +2 0 0 +#5225 +desk curved~ +the desk~ +~ +~ +15 0 0 +100 13 5224 0 +0 0 0 +#5226 +seal ivory~ +an engraved ivory seal~ +A small, engraved ivory seal lies here.~ +~ +18 c 16385 +5226 0 0 0 +2 0 0 +#5227 +cabinet glass~ +the glass cabinet~ +~ +~ +15 0 0 +500 13 5226 0 +0 0 0 +#5228 +arm rotted~ +a half-rotted arm~ +A half-rotted arm floats lazily past your feet.~ +~ +19 0 1 +50 0 0 1 +20 0 10 +#5230 +stone pale blue~ +a pale blue stone~ +A pale blue stone sits here.~ +~ +8 dg 16385 +0 0 0 0 +10 5500 600 +A +1 1 +#5231 +stone scarlet blue~ +a scarlet and blue stone~ +A pretty scarlet and blue stone has been dropped here.~ +~ +8 dg 16385 +0 0 0 0 +10 5500 600 +A +3 1 +#5232 +stone blue incandescent~ +an incandescent blue stone~ +A small incandescent blue stone lies here.~ +~ +8 dg 16385 +0 0 0 0 +10 5500 600 +A +4 1 +#5233 +stone red deep~ +a deep red stone~ +Someone has left a deep red stone here.~ +~ +8 dg 16385 +0 0 0 0 +10 5500 600 +A +2 1 +#5234 +stone pink~ +a pink stone~ +A tiny pink stone lies at your feet.~ +~ +8 dg 16385 +0 0 0 0 +10 5500 600 +A +5 1 +#5235 +stone pearly white~ +a pearly white stone~ +A lovely, pearly white stone has been carelessly left here.~ +~ +8 dg 16385 +0 0 0 0 +10 8700 600 +A +13 1 +#5236 +stone lavender pale~ +a pale lavender stone~ +A beautiful pale lavender stone lies here.~ +~ +8 dgh 16385 +0 0 0 0 +10 4300 600 +A +24 -2 +#5237 +stone lavender green~ +a lavender and green stone~ +A stunning lavender and green stone rests on the ground.~ +~ +8 dgh 16385 +0 0 0 0 +10 4700 600 +A +24 -4 +#5238 +stone rose dusty~ +a dusty rose stone~ +A stone is here, sort of a dusty rose color and very pretty.~ +~ +8 dg 16385 +0 0 0 0 +10 9800 600 +A +17 -1 +#5239 +stone grey dull~ +a dull grey stone~ +You can barely make out a dull grey stone on the ground.~ +~ +8 dg 16385 +0 0 0 0 +10 20 200 +#5240 +stone purple vibrant~ +a vibrant purple stone~ +A stunningly vibrant purple stone attracts your attention.~ +~ +8 dgh 16385 +0 0 0 0 +10 10200 1000 +A +13 -50 +#5241 +stone pink green~ +a pink and green stone~ +A bright pink and green stone has been left here.~ +~ +8 dgh 16385 +0 0 0 0 +10 6600 1000 +A +18 -5 +#5242 +stone green pale~ +a pale green stone~ +A pale green stone lies here collecting dust.~ +~ +8 dgh 16385 +0 0 0 0 +10 7100 1000 +A +19 -5 +#5243 +stone clear~ +a clear stone~ +An odd clear stone lies at your feet.~ +~ +8 dgh 16385 +0 0 0 0 +10 8900 1000 +A +17 -3 +#5244 +stone iridescent~ +an iridescent stone~ +A large iridescent stone has been left here.~ +~ +8 dgh 16385 +0 0 0 0 +10 3700 1000 +A +13 -100 +#5250 +mandolin~ +a mandolin~ +A mandolin lies against the wall.~ +~ +4 g 16385 +13 3 3 15 +20 3000 1500 +#5251 +harp golden~ +a golden harp~ +A battered golden harp has been tipped over.~ +~ +4 g 16385 +18 1 1 6 +100 2500 800 +$ diff --git a/lib/world/obj/53.obj b/lib/world/obj/53.obj new file mode 100644 index 0000000..303baa0 --- /dev/null +++ b/lib/world/obj/53.obj @@ -0,0 +1,425 @@ +#5300 +mace egyptian~ +an egyptian mace~ +A hierogylph-engraved mace has been left here.~ +~ +5 0 8193 +0 2 6 7 +10 800 50 +E +mace egyptian~ +The mace is formed from solid brass, and engraved in strange hieroglyphs. +~ +#5301 +robe sand~ +some sand-colored robes~ +Sand-colored robes lie here.~ +~ +9 0 1025 +4 0 0 0 +5 500 40 +E +robes sand~ +The robes are colored a sandy off-white, and are in fact caked and covered +with sand as well. You don't seem to be able to remove all of the sand, no +matter how much you try. +~ +#5302 +dirk obsidian~ +an obsidian dirk~ +A flat dirk made of chipped obsidian lies here.~ +~ +5 g 8193 +0 3 3 11 +8 1000 100 +A +2 1 +A +18 1 +E +dirk obsidian~ +The blade of the dirk is black, glassy obsidian, chipped razor sharp. +~ +#5303 +turban cloth~ +a dirty cloth turban~ +A dirty cloth turban has been forgotten here.~ +~ +9 g 17 +5 0 0 0 +10 1500 250 +A +2 1 +A +13 5 +E +turban cloth~ +The turban used to be white cloth, now it is covered with oil and dirt from +the head and hair of its previous owner, who must not have bathed much. +~ +#5304 +wrappings cloth~ +some cloth wrappings~ +Long cloth wrappings lie on the ground in a pile.~ +~ +9 0 9 +5 0 0 0 +15 1250 175 +E +wrappings cloth~ +The cloth wrappings are old, wrinkled, and stink of embalming fluid. +~ +#5305 +bottle fluid~ +a bottle of embalming fluid~ +A dusty bottle lies here on the ground.~ +~ +10 0 1 +5 33 -1 -1 +5 250 50 +E +bottle fluid~ +The bottle is dusty and the fluid has a strange sickly-sweet smell to it. +~ +#5306 +jar formaldehyde~ +a jar of formaldehyde~ +A small jar lies here on the ground.~ +~ +10 0 1 +10 16 -1 -1 +6 300 60 +E +jar formaldehyde~ +The jar is sticky and smells really bad. +~ +#5307 +ball fire~ +a small hot ball of fire~ +A little ball of fire hovers in the air before your eyes.~ +~ +1 agp 16385 +0 0 -1 0 +10 3500 500 +A +13 10 +A +14 50 +E +ball fire~ +The ball of fire is hot to the touch and very very bright. +~ +#5308 +scimitar stone~ +a stone scimitar~ +A curved scimitar made of stone rests on the ground.~ +~ +5 bgmno 8193 +0 4 3 3 +18 10000 750 +A +18 2 +A +19 3 +E +scimitar stone~ +The scimitar is formed from solid stone, chipped and carved to perfection, +with a sharp, cold blade that is marred only by a few nicks here and there. +~ +#5309 +key stone~ +a stone key~ +A stone key has been dropped here.~ +~ +18 c 16385 +5309 0 0 0 +15 0 0 +E +key stone~ +The key is made from stone, but is otherwise unremarkable. +~ +#5310 +sarcophagus stone~ +a mighty stone sarcophagus~ +A mighty stone sarcophagus lies in the center of the tomb.~ +~ +15 0 0 +500 15 5309 0 +5000 5000 5000 +E +sarcophagus stone~ +The sarcophagus is engraved on the sides with the images of pharoahs, +great wars fought long ago, mighty pyramids being constructed... + +A raised image atop the sarcophagus is formed in the visage of one of +the mighty pharoahs, painted in gold and studded with precious gems. + +You see a small keyhole in the side of the sarcophagus. +~ +#5311 +dust~ +some ancient dust~ +A small pile of dust is being scattered by the breeze.~ +~ +13 0 1 +0 0 0 0 +1 1 1 +E +dust~ +The dust is old. As you sift it through your hands you find tiny chips +of aged bone inside -- it must be the ancient remains of something. +~ +#5312 +scarab emerald~ +a small emerald scarab~ +A small emerald scarab lies here on the ground.~ +~ +18 c 16385 +5312 0 0 0 +5 0 0 +E +scarab emerald~ +The scarab is intricately detailed, down to the tiny hairs on its +insectile legs and the faceting of the emeralds in its eyes. +~ +#5313 +lamp~ +the lamp~ +A small, tarnished, battered lamp has been dropped here.~ +~ +4 abgk 16385 +25 5 5 51 +10 25000 600 +A +17 -5 +A +18 1 +E +lamp~ +The lamp is quite old and tarnished. You rub at it to get some of the +grime off, but it doesn't seem like anybody is home. +~ +#5314 +ankh~ +an ankh~ +A small brass ankh has been left here.~ +~ +9 ik 16385 +7 0 0 0 +9 10000 300 +A +3 1 +A +4 2 +E +ankh~ +The ankh is a small brass symbol of an ancient religion. It glows +with a soft bright light that is soothing to you. +~ +#5315 +book riddles~ +a book of riddles~ +A medium-sized parchment book with well-worn pages lies here.~ +~ +2 0 1 +21 201 20 22 +15 7500 250 +E +book riddles~ +The book has well-worn pages, containing many befuddling riddles +to surprise, confuse, and amuse you. You find yourself bewildered +by its contents and put it down to sort your head out. +~ +#5316 +paw lion~ +a lion's paw~ +The mighty paw of a lion-like creature has been dropped here.~ +~ +5 g 8193 +0 1 14 5 +20 18000 600 +A +5 1 +A +18 4 +E +paw lion~ +The massive paw has straps on it formed of bronze, so that it will +fit snugly over your hand. As you put it on, it melds with your hand, +becoming an extension of your arm. +~ +#5317 +parchment answer~ +the answer~ +A small piece of parchment covered in hieroglyphics lies here.~ +~ +18 c 16385 +5317 0 0 0 +1 1 1 +E +answer hieroglyphics parchment~ +You cannot decipher the strange hieroglyphics that cover the +sheet of parchment. +~ +#5318 +treasure~ +the treasure of the sphinx~ +The massive treasure of the sphinx lies here in a big pile.~ +~ +20 0 1 +23850 0 0 0 +23 23850 0 +E +treasure~ +The treasure is incredibly large, filled with gold coins and valuables, more +wealth than you could ever possibly imagine accumulated in one place. +~ +#5319 +sand pile~ +a pile of sand~ +You see a small pile of sand.~ +~ +20 0 1 +12986 0 0 0 +12 12986 0 +E +sand pile~ +You think you see some coins and valuables glinting amongst the grains of +sand. +~ +#5320 +curse mummy~ +the curse of the mummy~ +Some fortunate soul has escaped the mummy's curse, for now.~ +~ +13 cdfgh 16385 +0 0 0 0 +1 500 50 +A +13 -50 +A +14 -100 +E +curse mummy~ +Rumor has it that whomever disturbs the grave of the mummy shall be +cursed for all eternity, and that the descendents of that person shall +likewise be cursed for ten generations to follow. +~ +#5321 +elixir small glass~ +a small elixir~ +A small glass elixir lies under your feet.~ +~ +10 g 1 +30 39 1 36 +2 10000 500 +E +elixir small glass~ +The elixir is deceptively small. Something tells you that its +contents are truly quite potent. Perhaps too potent for ordinary +mortals to attempt to consume. +~ +#5322 +mask golden~ +a golden mask~ +A beautiful, intricately detailed mask has been forgotten here.~ +~ +9 g 17 +10 0 0 0 +10 15000 750 +A +12 25 +A +13 10 +E +mask golden~ +This beautiful mask was shaped from solid gold and magically enchanted +to perfectly fit the face of any who choose to wear it, its golden features +and turquoise highlights even moving to match the expressions of the face +of the wearer. +~ +#5323 +diamond~ +the diamond~ +~ +~ +13 0 1 +0 0 0 0 +5 0 0 +E +diamond~ +Aha! + +You see a multifaceted gemstone, which strangely reflects no +light, making it very hard to see when it lies on the ground. +~ +#5324 +wand sun brass pipe~ +a blazing sun wand~ +A small length of brass pipe shines here with its own light.~ +~ +3 agp 16385 +25 5 5 27 +10 25000 1000 +A +21 -5 +A +24 -5 +E +wand sun brass pipe~ +This small brass shaft is a holy weapon used by the ancient people of +this land to defend against the deadliest of foes. It shines with the +brilliant blazing light of the sun. +~ +#5325 +ring sandy~ +a sandy-coloured ring~ +A small sandy-coloured ring has been carelessly dropped here.~ +~ +9 bg 3 +8 0 0 0 +5 20000 750 +A +3 1 +A +12 35 +E +ring sandy~ +The ring is small, smooth, sandy-coloured and unremarkable, save that +it gives off a continuous low humming noise that tickles your fingertips. +~ +#5326 +sphinx golden~ +a small golden sphinx~ +A small golden sphinx glints in the light.~ +~ +8 g 16385 +0 0 0 0 +5 50000 750 +A +4 2 +E +sphinx golden~ +The golden sphinx is incredibly detailed and very small, fitting easily +into the palm of your hand. You can even make out the expression +of wisdom and peace on its face. +~ +#5327 +leggings sphinxian~ +a pair of sphinxian leggings~ +Massive leggings formed from the body of a sphinx stand here.~ +~ +9 gk 33 +10 0 0 0 +20 20000 500 +A +1 3 +A +14 80 +E +leggings sphinxian~ +These magically fashioned leggings impart the strength and stamina +of the mightiest of the ancient sphinxes. You feel ancient power +emanating from them; they seem to be almost alive. +~ +$ diff --git a/lib/world/obj/54.obj b/lib/world/obj/54.obj new file mode 100644 index 0000000..226df95 --- /dev/null +++ b/lib/world/obj/54.obj @@ -0,0 +1,812 @@ +#5400 +palace key~ +the palace key of New Thalos~ +A large key bearing the crest of New Thalos lies here.~ +~ +18 c ao +5400 0 0 0 +5 0 0 +#5401 +city key~ +the Key to the City of New Thalos~ +The heavy city key lies here in the dust~ +~ +18 c ao +5401 0 0 0 +5 0 0 +#5402 +fountain water~ +the large central fountain~ +The large central fountain domintating the central square rests here.~ +~ +23 ce 0 +9999 9999 0 0 +9999 0 0 +#5403 +morningstar morning star~ +a morningstar~ +A small spiked metal ball connected to a rod by links of chain lies here.~ +~ +5 0 8193 +0 2 5 6 +5 1200 500 +#5404 +awl-pike~ +an awl-pike~ +An awl pike lies here.~ +~ +5 0 8193 +0 1 12 5 +3 2100 100 +#5405 +bardiche~ +a bardiche~ +A bardiche lies here.~ +~ +5 0 8193 +0 2 6 3 +4 1900 110 +#5406 +corbin bec~ +a bec de corbin~ +A bec de corbin lies here.~ +~ +5 0 8193 +0 1 8 3 +3 5400 50 +#5407 +guisarme bill~ +a bill-guisarme~ +A bill-guisarme lies here.~ +~ +5 0 8193 +0 1 10 3 +3 1300 50 +#5408 +fauchard~ +a fauchard~ +A fauchard lies here.~ +~ +5 0 8193 +0 1 8 1 +3 1250 20 +#5409 +glaive~ +a glaive~ +A glaive lies here.~ +~ +5 0 8193 +0 1 10 5 +3 1870 20 +#5410 +guisarme~ +a guisarme~ +A guisarme lies here.~ +~ +5 0 8193 +0 2 4 4 +4 1953 20 +#5411 +sickle~ +a sickle~ +A sickle lies here.~ +~ +5 0 8193 +0 2 4 3 +1 500 10 +#5412 +sword bastard two-handed~ +a two-handed bastard sword~ +A two handed bastard sword lies here.~ +~ +5 0 8193 +0 2 8 3 +18 12580 10000 +#5413 +scimitar~ +a scimitar~ +A scimitar lies here.~ +~ +5 0 8193 +0 1 9 3 +10 1200 150 +A +19 1 +#5414 +rapier~ +a rapier~ +A rapier lies here.~ +~ +5 0 8193 +0 1 8 3 +10 3100 100 +A +18 1 +#5415 +suit mail banded~ +a suit of banded mail~ +A suit of banded mail lies here.~ +~ +9 agmno 9 +8 0 0 0 +25 3400 800 +#5416 +suit brigandine~ +a suit of brigandine~ +A suit of brigandine lies here.~ +~ +9 agmo 9 +7 0 0 0 +20 2000 420 +#5417 +suit plate field~ +a suit of field plate~ +A suit of field plate lies here.~ +~ +9 agmno 9 +9 0 0 0 +28 4000 1000 +#5418 +suit ringmail ring mail~ +a suit of ringmail~ +A suit of ringmail lies here.~ +~ +9 n 9 +5 0 0 0 +6 1385 100 +#5419 +suit splintmail splint mail~ +a suit of splintmail~ +A suit of splintmail aromr lies here.~ +~ +9 m 9 +4 0 0 0 +5 2500 100 +#5420 +shield wooden~ +a wooden shield~ +A wooden shield lies here~ +~ +9 0 513 +1 0 0 0 +1 10 1 +#5421 +shield splinted~ +a splinted shield~ +A splinted shield lies here.~ +~ +9 0 513 +7 0 0 0 +8 175 17 +#5422 +buckler shield~ +a buckler~ +A buckler lies here.~ +~ +9 0 513 +1 0 0 0 +6 30 7 +#5423 +jacket leather~ +a leather jacket~ +A leather jacket lies here.~ +~ +9 0 9 +3 0 0 0 +6 600 200 +#5424 +sleeves leather~ +a pair of leather sleeves~ +A pair of leather sleeves lies here.~ +~ +9 0 257 +2 0 0 0 +2 350 200 +#5425 +cap leather~ +a leather cap~ +A leather cap lies here~ +~ +9 0 17 +1 0 0 0 +2 65 200 +#5426 +pants leather~ +a pair of leather pants~ +A pair of leather pants lies here.~ +~ +9 0 33 +2 0 0 0 +2 850 200 +#5427 +gloves leather~ +a pair of leather gloves~ +A pair of leather gloves lies here.~ +~ +9 0 129 +2 0 0 0 +2 150 200 +#5428 +boots padded leather~ +a pair of padded leather boots~ +A pair of padded leather boots lies here.~ +~ +9 0 65 +2 0 0 0 +2 410 200 +#5429 +jacket studded leather~ +a studded leather jacket~ +A studded leather jacket lies here.~ +~ +9 0 9 +3 0 0 0 +10 650 200 +#5430 +sleeves studded leather~ +a pair of studded leather sleeves~ +A pair of studded leather sleeves lie here.~ +~ +9 0 257 +3 0 0 0 +3 500 200 +#5431 +pants studded leather~ +a pair of studded leather pants~ +A pair of studded leather pants lie here.~ +~ +9 0 33 +3 0 0 0 +3 500 200 +#5432 +gloves studded leather~ +a pair of studded leather gloves~ +A pair of studded leather gloves lie here.~ +~ +9 0 129 +3 0 0 0 +3 500 200 +#5433 +shield leather~ +a leather shield~ +A leather shield lies here.~ +~ +9 0 513 +5 0 0 0 +3 50 200 +#5434 +sack~ +a sack~ +A sack lies here~ +~ +15 0 16385 +50 0 0 0 +1 20 200 +#5435 +lamp oil oillamp~ +an oil lamp~ +An oil lamp lies here~ +~ +1 0 1 +0 0 48 0 +1 100 200 +#5436 +backpack back pack~ +a backpack~ +A backpack lies here~ +~ +15 0 1025 +75 1 0 0 +8 100 100 +#5437 +basket~ +a basket~ +A basket lies here.~ +~ +15 0 1 +50 0 0 0 +4 250 50 +#5438 +pouch belt~ +a belt pouch~ +A belt pouch lies here~ +~ +15 0 2049 +25 0 0 0 +3 100 20 +#5439 +candle~ +a candle~ +A candle lies here~ +~ +1 0 16385 +0 0 50 0 +1 35 10 +#5440 +cheese~ +a hunk of cheese~ +A hunk of cheese lies here.~ +~ +19 0 1 +5 0 0 0 +1 5 10 +#5441 +bread~ +some bread~ +Some bread lies here.~ +~ +19 0 1 +3 0 0 0 +1 3 10 +#5442 +rations dry~ +some dry rations~ +Some dry rations lie here.~ +~ +19 0 1 +20 0 0 0 +2 20 30 +#5443 +rations iron~ +some iron rations~ +A tin of iron rations lies here.~ +~ +19 0 1 +25 0 0 0 +3 25 50 +#5445 +nuts~ +some nuts~ +Some nuts lie scatterd on the ground.~ +~ +19 0 1 +1 0 0 0 +1 1 10 +#5446 +belt~ +a belt~ +A nicely made belt lies here.~ +~ +9 0 2049 +0 0 0 0 +2 2 10 +#5447 +boots hiking~ +a pair of hiking boots~ +A nicely made pair of boots lies here.~ +~ +9 0 65 +0 0 0 0 +3 390 10 +#5448 +cloak fur~ +a fur cloak~ +A nicely made fur cloak lies here.~ +~ +9 0 1025 +0 0 0 0 +2 4550 50 +#5449 +girdle~ +a girdle~ +A nicely made girdle lies here.~ +~ +9 0 2049 +0 0 0 0 +1 375 10 +#5450 +hose~ +a pair of hose~ +A nicely made pair of hose lies here.~ +~ +9 0 33 +0 0 0 0 +1 120 10 +#5451 +robe common~ +a common robe~ +A nicely made robe of common cloth lies here.~ +~ +9 0 5 +0 0 0 0 +2 90 20 +#5452 +robe embroidered~ +an embroidered robe~ +A nicely made robe of embroidered cloth lies here.~ +~ +9 0 5 +0 0 0 0 +2 2500 5 +#5453 +sandals~ +a pair of sandals~ +A nicely made pair of sandals lies here.~ +~ +9 0 65 +0 0 0 0 +1 15 10 +#5454 +sash~ +a sash~ +A nicely made sash lies here.~ +~ +9 0 2049 +0 0 0 0 +1 20 10 +#5455 +jacket silk~ +a silk jacket~ +A nicely made silk jacket lies here.~ +~ +9 0 1025 +0 0 0 0 +1 3800 100 +#5456 +egg~ +an egg~ +An egg lies here.~ +~ +19 0 1 +2 0 0 0 +1 3 10 +#5457 +carrot~ +a carrot~ +A carrot lies here.~ +~ +19 0 1 +3 0 0 0 +1 4 10 +#5458 +tomato~ +a tomato~ +A tomato lies here.~ +~ +19 0 1 +2 0 0 0 +1 8 10 +#5459 +fig~ +a fig~ +A fig lies here.~ +~ +19 0 1 +1 0 0 0 +1 2 10 +#5460 +dates~ +some dates~ +A bunch of dates lies here.~ +~ +19 0 1 +2 0 0 0 +1 4 10 +#5461 +lamb leg~ +a leg of lamb~ +A leg of lamb lies here.~ +~ +19 0 1 +10 0 0 0 +2 10 20 +#5462 +beef side~ +a side of beef~ +A side of beef lies here.~ +~ +19 0 1 +15 0 0 0 +5 20 50 +#5463 +chicken whole~ +a whole chicken~ +A whole skinned chicken lies here.~ +~ +19 0 1 +12 0 0 0 +3 12 30 +#5464 +herring salted~ +a salted herring~ +A salted herring lies here.~ +~ +19 0 1 +8 0 0 0 +1 8 10 +#5465 +muscle~ +a muscle~ +A muscle lies here.~ +~ +19 0 1 +4 0 0 0 +1 4 10 +#5467 +glass liquor blue oasis whisky~ +a glass~ +A glass of blue alcohol rests here.~ +~ +17 0 1 +5 5 5 0 +1 1800 10 +#5468 +glass wine~ +a glass~ +A glass rests here.~ +~ +17 0 1 +1 1 2 0 +1 3800 10 +#5469 +bottle grog ale~ +a bottle of grog~ +A bottle lies here.~ +~ +17 0 1 +2 2 3 0 +1 8000 10 +#5470 +vial glowing blue~ +a glowing blue vial~ +A glowing blue vial lies here.~ +~ +10 ag 16385 +12 1 3 -1 +1 800 15 +E +vial glowing blue~ +The blueish liquid inside this potion bottle is glowing with +a strange light. There is a small label that reads 'Protection' +~ +#5471 +potion green~ +a deep-green potion~ +A deep-green potion lies here.~ +~ +10 ag 16385 +10 15 35 -1 +1 5000 15 +E +potion green~ +The potion inside the bottle is a greenish colour and has a +small label which reads 'Curative' +~ +#5472 +potion crystal clear~ +a crystal clear potion~ +A crystal clear potion lies here.~ +~ +10 g 16385 +10 50 51 35 +1 3000 15 +E +potion crystal clear~ +This glass bottle appears to contain a clear liquid. There is a +label on the bottle which reads 'Preparation' +~ +#5473 +potion white~ +an off-white potion~ +An off-white potion lies here.~ +~ +10 0 16385 +15 14 28 36 +1 3000 15 +E +potion white~ +This potion bottle contains a whitish liquid that looks rather thick. +A small label reads 'Redemption' +~ +#5474 +potion dark blue~ +a dark blue potion~ +A dark blue potion lies here.~ +~ +10 0 16385 +10 35 14 -1 +1 4000 15 +E +potion dark blue~ +This dark blue potion has a small label on it reading 'Restoration' +~ +#5475 +bottle scorpion flaming beer~ +a flaming scorpion~ +A bottle of strong beer lies here.~ +~ +17 0 1 +5 5 1 0 +1 500 10 +#5476 +barrel beer~ +a barrel~ +A barrel of beer lies here.~ +~ +17 0 1 +10 10 1 0 +15 900 50 +#5477 +shot whisky~ +a shot~ +A shot of strong liquor lies here.~ +~ +17 0 1 +1 1 5 0 +1 350 10 +#5478 +scroll recall~ +a scroll of recall~ +A scroll of recall lies here.~ +~ +2 g 16385 +12 42 -1 -1 +4 2000 25 +#5479 +wand grey silver~ +a grey-silver wand~ +A grey-silver wand lies here.~ +~ +3 gnop 16385 +15 1 1 6 +1 10000 15 +E +wand grey silver~ +You see a small engraved storm cloud at the base of this wand. +~ +#5480 +wand yellow~ +a wand of glinting yellow~ +A wand of glinting yellow lies here.~ +~ +3 g 16385 +1 1 1 19 +1 666 15 +E +wand yellow~ +You see a shape slowly fading into existance at the base of this wand. +~ +#5481 +wand oak~ +an oak wand~ +A wand of oak lies here.~ +~ +3 g 16385 +5 1 1 32 +1 500 15 +#5482 +wand pink~ +a pink wand~ +A pink wand lies here~ +~ +3 g 16385 +3 1 1 38 +1 5000 15 +#5483 +shears sewing~ +a pair of sewing shears~ +A pair of sewing shears lies here.~ +~ +5 0 8193 +0 1 4 1 +2 100 50 +#5484 +cleaver meat~ +a meat cleaver~ +A meat cleaver lies here~ +~ +5 cd 8193 +0 1 5 0 +5 100 10 +#5485 +pen fountain~ +a fountain pen~ +A fountain pen lies here.~ +~ +5 b 8193 +0 1 3 11 +1 100 5 +#5486 +hammer sledge~ +a sledge hammer~ +A sledge hammer lies here.~ +~ +5 0 8193 +0 2 3 6 +24 200 40 +#5487 +shoe horse~ +a horse shoe~ +A horse shoe lies here.~ +~ +9 bg 16389 +1 0 0 0 +2 1000 200 +A +18 1 +#5488 +saddle~ +a saddle~ +A saddle lies here.~ +~ +12 0 1 +0 0 0 0 +4 100 50 +#5489 +crop riding~ +a riding crop~ +A riding crop lies here.~ +~ +5 0 8193 +0 1 4 2 +1 50 10 +#5490 +chessboard~ +a chessboard~ +A heavy marble chessboard lies here.~ +~ +5 0 16385 +0 1 30 6 +10 100 20 +#5491 +seed sesame~ +a sesame seed~ +A sesame seed lies here.~ +~ +19 0 16385 +6 0 0 0 +1 10 0 +#5492 +spear gae bolg~ +Gae Bolg~ +A beautiful spear is lying on the ground here.~ +~ +5 agmno 8193 +0 5 3 11 +12 18000 12500 +E +spear gae bolg~ +The beautiful, glowing spear is close to eight feet long and has +a bright, polished silver blade that tapers at the end into what +must be the finest point you have ever seen. +~ +#5493 +key~ +the jail key~ +The key to the jail lies here.~ +~ +18 c 16385 +5493 0 0 0 +1 100 200 +#5494 +key~ +the dungeon key~ +The dungeon key lies here.~ +~ +18 c 16385 +5494 0 0 0 +1 100 200 +#5495 +claw wolverine~ +the wolverine claw~ +A claw from some animal lies here.~ +~ +5 bl 8193 +0 3 6 8 +2 400 50 +A +13 -20 +#5496 +wrath allah mace~ +the wrath of Allah~ +A large ornate mace floats above the ground here.~ +~ +5 agmop 8193 +0 4 4 6 +16 25000 12500 +E +wrath allah mace~ +This enormous weapon looks like it could pound the stuffing out of +anything or anyone around. +~ +$ diff --git a/lib/world/obj/60.obj b/lib/world/obj/60.obj new file mode 100644 index 0000000..e9a2e60 --- /dev/null +++ b/lib/world/obj/60.obj @@ -0,0 +1,285 @@ +#6000 +axe lumber~ +a lumber axe~ +A heavy lumber axe lies here.~ +~ +5 d 8193 +0 2 3 3 +12 50 15 +E +axe lumber~ +It is a heavy axe of the kind lumberjacks use to chop down trees. +~ +A +18 1 +#6001 +shirt chequered~ +a chequered shirt~ +A chequered shirt lies here.~ +~ +9 d 9 +1 0 0 0 +2 20 8 +E +shirt chequered~ +It is an extra large, chequered shirt made from heavy cloth. +~ +#6002 +boots leather~ +a pair of worn leather boots~ +A pair of worn leather boots lies here.~ +~ +9 d 65 +2 0 0 0 +4 60 10 +E +boots~ +They are fashioned from rough leather that has been oiled frequently to make +it stay waterproof. They look worn but quite functional. +~ +#6003 +fireplace~ +a fireplace~ +A fireplace made from stone is set against the east wall.~ +~ +15 0 0 +200 0 0 0 +0 0 0 +E +fireplace~ +It is fashioned from stones of various sizes that have been stacked on top of +each other and fastened with mortar. Its chimney is constructed likewise and +leads the smoke out through the low cabin ceiling. +~ +#6004 +lantern brass hooded~ +a hooded brass lantern~ +A hooded brass lantern has been left here.~ +~ +1 0 16385 +0 0 100 0 +4 60 10 +E +lantern brass hooded~ +It is a large and robust but somewhat battered oil lantern made from brass, +and it is equipped with a handle to make it handy and a hood to protect its +flame. Some letters have been scratched on its bottom. +~ +E +letters~ +The letters say: + +Use 'hold lantern' to activate. + +~ +#6005 +chest wooden~ +a wooden chest~ +A wooden chest stands in the corner.~ +~ +15 0 1 +100 15 6006 0 +20 100 10 +E +chest wooden~ +It is a robust chest made from short, heavy planks that have been fastened +together with tenons. It is equipped with a simple brass lock. +~ +#6006 +key brass~ +a small brass key~ +A small brass key lies here.~ +~ +18 c 16385 +6006 0 0 0 +1 0 0 +E +key brass~ +It is a small, simple brass key with no inscriptions or marks of any kind. +~ +#6007 +coins gold~ +a heap of gold coins~ +Some gold coins lie piled up in a heap on the floor.~ +~ +20 0 1 +127 0 0 0 +1 127 0 +E +coins gold~ +The coins seem to be gold. They are obviously valuable. +~ +#6010 +blackberries berries~ +some blackberries~ +Some blackberries grow on a bush nearby.~ +~ +19 c 1 +3 0 0 0 +1 0 0 +E +blackberries berries~ +They look very tasty indeed. +~ +#6011 +mushroom~ +a mushroom~ +A small mushroom grows nearby.~ +~ +19 0 1 +6 0 0 0 +1 10 10 +E +mushroom~ +It looks to be a tasty little thing. +~ +#6012 +sign~ +a large sign~ +A large sign mounted on a pole is standing by the roadside.~ +~ +12 0 0 +0 0 0 0 +100 0 0 +E +pole~ +Not the most interesting pole in the world. +Better leave it here, though, as it holds the sign in place. +~ +E +sign~ +It says :- + + Haon-Dor + -------- + + This is the Forest of Haon-Dor. Enter at your own risk. + Please report any strange occurrences to Furry, + as Quifael and Derkhil are currently indisposed. + +~ +#6013 +barrel water~ +a barrel~ +A water barrel has been left here.~ +~ +17 0 1 +40 40 15 0 +45 60 20 +#6014 +water brook~ +a small brook~ +A small brook trickles through the forest beside the path.~ +~ +23 0 0 +50000 50000 15 0 +0 0 0 +E +water brook~ +The water looks clean and refreshing. +~ +#6015 +water lake~ +the lake~ +~ +~ +23 0 0 +50000 50000 0 0 +0 0 0 +#6016 +cudgel oak oaken limb~ +an oaken cudgel~ +A limb has fallen here.~ +~ +5 g 8193 +0 1 7 7 +16 1 20 +A +19 2 +A +1 -2 +E +cudgel oak oaken limb~ +The cudgel looks quite sturdy, and would make a nice weapon. +~ +#6017 +corpse boar~ +the corpse of a boar~ +~ +~ +15 0 0 +100 0 0 0 +500 1 1 +#6018 +slab meat~ +a large slab of meat~ +A large piece of freshly cut boar meat is on the ground here.~ +~ +19 0 1 +24 0 0 0 +15 40 1 +E +slab meat~ +It looks quite filling. +~ +#6019 +tusks pair~ +a pair of boar tusks~ +A pair of large boar tusks have been dropped here.~ +~ +8 0 16385 +0 0 0 0 +10 60 1 +E +tusks pair~ +They look like they might be worth something to a craftsman. +~ +#6020 +log hollow floating~ +a hollow log~ +~ +~ +22 0 1 +0 0 0 0 +48 2 1 +E +log~ +It looks like it would probably float. +~ +#6021 +nest bird~ +the bird's nest~ +~ +~ +15 0 0 +30 0 0 0 +0 0 0 +#6022 +egg blue robin~ +a blue robin's egg~ +A small bluish egg has been left here.~ +~ +19 0 1 +6 0 0 0 +1 10 0 +E +egg blue robin~ +It is small, but food nonetheless. +~ +#6023 +meat rabbit~ +a piece of rabbit meat~ +A large piece of rabbit meat.~ +~ +19 0 1 +12 0 0 0 +5 29 20 +#6024 +meat deer venison~ +a piece of venison~ +A large piece of venison.~ +~ +19 0 1 +24 0 0 0 +10 80 20 +$ diff --git a/lib/world/obj/61.obj b/lib/world/obj/61.obj new file mode 100644 index 0000000..a17e8c1 --- /dev/null +++ b/lib/world/obj/61.obj @@ -0,0 +1,283 @@ +#6101 +sign~ +a sign~ +An old, battered sign lies on the ground.~ +~ +12 0 1 +0 0 0 0 +10 2 2 +E +sign~ +Only some of the letters are legible :- + _ + _________| |_________ + / | | \ + / CAR.AX | | M.STY \ + \ M..SI.N | | SW..P / + \_________| |_________/ + | | + +~ +#6102 +tree opening~ +a colossal tree~ +A colossal tree blocks the way westward.~ +~ +15 0 0 +1000 0 0 0 +0 0 0 +E +tree~ +This enormous tree must be a thousand years old. Its rough bark looks grey +and pale and is decorated with scratches and clawmarks. On its west side is +a small opening just above ground level. +~ +E +opening~ +The opening is far too narrow for you to squeeze through but it looks as if +the tree is hollow. +~ +#6103 +branch grey long~ +a long, grey branch~ +A long, grey branch rests heavily on the ground.~ +~ +1 0 16385 +0 0 25 0 +20 1 3 +E +branch grey long~ +It is quite heavy and looks as if it has been dropped from great height. It +is long dead and very dry. Could probably be lighted quite easily. +~ +#6104 +branch grey long~ +a long, grey branch~ +A long, grey branch rests heavily on the ground.~ +~ +5 0 8193 +0 2 6 7 +18 60 20 +E +branch grey long~ +It is very heavy and looks as if it has been dropped from great height. It +is long and straight and the wood is very hard, still being full of sap. +Although it does not fit very well in your hand, it could be used as a clumsy +but very heavy weapon. +~ +A +18 -2 +#6105 +branch grey long~ +a long, grey branch~ +A long, grey branch rests heavily on the ground.~ +~ +13 0 1 +0 0 0 0 +40 0 0 +E +branch grey long~ +It is very heavy and looks as if it has been dropped from great height. It +is somewhat twisted and the hard wood is still full of sap. +~ +#6106 +toadstool~ +a toadstool~ +A large toadstool grows nearby.~ +~ +19 0 1 +12 0 0 0 +5 20 20 +E +toadstool~ +It is a large, brown boletus that must weigh nearly five pounds. The top +surface is covered in a thin layer of transparent slime that emits a weak, +musty smell. Not the most delicious thing you have seen. +~ +#6107 +toadstool~ +a toadstool~ +A large toadstool grows nearby.~ +~ +19 0 1 +12 0 0 1 +5 20 20 +E +toadstool~ +It is a large, brown boletus that must weigh nearly five pounds. It +has small white spots and the top surface is covered in a thin layer +of transparent slime that emits a weak, musty smell. Not the most +delicious thing you have seen. +~ +#6108 +coins gold~ +a big pile of gold coins~ +A big pile of gold coins is lying here.~ +~ +20 0 1 +15326 0 0 0 +15 15326 0 +#6109 +potion blue~ +a blue potion~ +A blue potion has been left here.~ +~ +10 g 1 +15 28 -1 -1 +2 68000 5000 +E +potion blue~ +It has a nice deep blue color and a smell like peppermint. +~ +#6110 +potion yellow musky~ +a musky yellow potion~ +A yellow potion has been left here.~ +~ +10 g 1 +15 39 -1 -1 +2 1000 200 +E +potion yellow musky~ +It has a deep yellow color and and a strong spicy smell. +~ +#6111 +shield round large~ +a large round shield~ +A large round shield has been left here.~ +~ +9 0 513 +5 0 0 0 +15 300 800 +E +shield round large~ +It is made from hard wood that has been reinforced with heavy iron bands. +~ +#6112 +crown iron~ +an iron crown~ +An iron crown rests on the ground.~ +~ +9 g 17 +6 0 0 0 +20 7000 500 +E +crown iron~ +It is a heavy human-sized crown made from solid iron. +~ +#6113 +sceptre iron~ +an iron sceptre~ +An iron sceptre lies on the ground.~ +~ +1 g 16385 +0 0 -1 0 +10 5000 700 +E +sceptre iron~ +It is a heavy sceptre made from solid iron. +~ +#6114 +ring iron~ +an iron ring~ +An iron ring has been left here.~ +~ +11 g 3 +0 0 0 0 +10 5000 500 +E +ring iron~ +It is a quite heavy human-sized ring made from solid iron. It lacks +decorations of any kind. +~ +A +17 -4 +A +9 1 +#6115 +star morning-star~ +the morning star~ +the morning star is here collecting dust while it lies on the ground.~ +~ +5 g 8193 +0 2 9 7 +10 15000 2000 +A +18 2 +#6116 +shirt scale~ +a black dragon scale shirt~ +A black dragon scale shirt has been left here.~ +~ +9 g 9 +6 0 0 0 +10 10000 100 +E +shirt scale~ +It is a sleeveless shirt made from big, black dragon scales joined +with silver threads. Its inside has been made from the soft skin +on the dragon's belly, making it very comfortable to wear. The word +'Isha' has been engraved on one of the scales. +~ +#6117 +skirt scale~ +a black dragon scale skirt~ +A black dragon scale skirt has been left here.~ +~ +9 g 33 +6 0 0 0 +8 5000 100 +E +skirt scale~ +It is a short skirt made from big, black dragon scales joined with +silver threads. Its inside has been made from the soft skin on the +dragon's belly, making it very comfortable to wear. The word 'Isha' +has been engraved on one of the scales. +~ +#6118 +cloak black~ +a black, hooded cloak~ +A large, hooded cloak, as dark as the night, has been left here.~ +~ +11 g 1025 +0 0 0 0 +20 8000 4000 +E +cloak black~ +It is a heavy, black cloak with a large hood. The word 'Isha' is written +inside it with a silver thread. +~ +A +17 -6 +A +24 -4 +#6119 +belt silver~ +a broad silver belt~ +A broad silver belt has been left here.~ +~ +9 ag 2049 +6 0 0 0 +4 5000 3500 +E +belt silver~ +It is a broad belt made from tiny silver rings woven together. +~ +#6120 +sword long slender~ +a long, slender sword~ +A long, slender sword lies on the ground.~ +~ +5 agjl 8193 +0 3 6 3 +4 30000 6000 +E +sword long slender~ +It is a long, slender sword that seems to be made from silver. The word +'Isha' has been engraved on the hilt. +~ +A +18 4 +A +19 2 +$ diff --git a/lib/world/obj/62.obj b/lib/world/obj/62.obj new file mode 100644 index 0000000..27e4ad7 --- /dev/null +++ b/lib/world/obj/62.obj @@ -0,0 +1,87 @@ +#6200 +key~ +a key~ +A key sits here.~ +~ +18 cdq 16385 +6200 0 0 0 +1 20 0 +E +key~ +It is a plain looking key. +~ +#6201 +manacles~ +a set of manacles~ +A set of iron manacles lie here.~ +~ +9 h 129 +0 0 0 0 +20 100 20 +E +manacles~ +They're big steel cuffs, meant to be locked around the hands. +~ +A +18 -20 +#6202 +shackles~ +a set of shackles~ +A set of shackles sit here, discarded.~ +~ +9 h 65 +0 0 0 0 +20 100 20 +E +shackles~ +Big iron cuffs, meant to be locked around the ankles. +~ +A +14 -80 +#6203 +Runestone rune stone~ +the Runestone~ +A small stone with an inscription sits here.~ +~ +1 a 16385 +0 0 -1 0 +1 10000 2000 +E +runestone rune stone~ +It is a small, carved stone with a strange symbol +carved upon it. Strange... +~ +A +12 8 +#6204 +club~ +a club~ +A crude wooden club sits here.~ +~ +5 0 8193 +0 2 2 7 +12 10 2 +E +club~ +It is a big, wooden club. +~ +#6205 +Starkblade knife dagger blade~ +Starkblade~ +A knife hums with eternal energy here.~ +~ +5 bp 8193 +0 3 7 3 +1 100000 20000 +E +starkblade knife dagger blade~ +It is an odd knife, with an inset of sapphire in the +pommel. It hums constantly, and your hand stings a +bit when you touch it. +~ +A +12 10 +A +13 -20 +$ + diff --git a/lib/world/obj/63.obj b/lib/world/obj/63.obj new file mode 100644 index 0000000..fed60e1 --- /dev/null +++ b/lib/world/obj/63.obj @@ -0,0 +1,86 @@ +#6300 +key black~ +a black key~ +A somewhat plain black key has been left here.~ +~ +18 c 16385 +6300 0 0 0 +1 0 0 +#6301 +knife thief~ +a very sharp knife~ +A very sharp knife lies here.~ +~ +5 glmnp 8193 +0 8 1 11 +9 1000 2500 +E +knife thief~ +A keen knife, very sharp -- you could cut the air in two! +~ +A +2 2 +A +18 3 +#6302 +hat wizard~ +a wizard's hat~ +A blue wizard's hat lies here.~ +~ +9 fgnop 17 +6 0 0 0 +5 20000 10000 +E +hat wizard~ +A hat made of blue cloth. It looks very comfortable. +~ +A +3 2 +A +12 17 +#6303 +headress pontiff ornament cone head~ +a pontiff's headress~ +A white cone-shaped head ornament with religious symbols lies here.~ +~ +9 fgmop 17 +6 0 0 0 +5 20000 10000 +E +headress pontiff ornament cone head~ +A starchy headress worn by powerful secular types. +~ +A +4 3 +A +12 13 +#6304 +visor black knight~ +a black knight's visor~ +A black visor sits here.~ +~ +9 fgmno 17 +8 0 0 0 +5 20000 10000 +E +visor black knight~ +A visor that protects the head, good for warriors. +~ +A +1 1 +A +5 2 +#6305 +potion thick white~ +a thick white potion~ +A thick white potion has been left here.~ +~ +10 g 1 +25 15 35 19 +9 21000 1000 +E +potion thick white~ +It is disgusting thick white gunk which looks like liquid web and smells like +medicine. +~ +$ diff --git a/lib/world/obj/64.obj b/lib/world/obj/64.obj new file mode 100644 index 0000000..3b7e9c5 --- /dev/null +++ b/lib/world/obj/64.obj @@ -0,0 +1,202 @@ +#6400 +dagger glowing~ +a glowing dagger~ +A glowing dagger glows here.~ +~ +5 ag 8193 +0 1 4 11 +1 1000 300 +A +18 3 +#6401 +platemail glowing plate mail~ +the glowing platemail~ +Some glowing platemail lies in a heap here.~ +~ +9 ag 9 +15 0 0 0 +150 30000 10000 +#6402 +agate gem~ +an agate~ +A small gem lies here.~ +~ +8 0 1 +0 0 0 0 +1 5000 500 +#6403 +jade jewel~ +a piece of jade~ +A small jewel gleams here.~ +~ +8 0 1 +0 0 0 0 +1 10000 1000 +#6404 +sculpture~ +a piece of sculpture~ +A nice piece of sculpture is here.~ +~ +8 0 1 +0 0 0 0 +75 20000 2000 +E +sculpture~ +It is of a beautiful woman, straining +beneath a heavy weight. She looks +tired, with chiseled tears staining +her cheeks. It makes you sad. +~ +#6405 +vial dragons blood~ +a vial of dragon's blood~ +A small vial filled with a red fluid lies in the dust here.~ +~ +10 0 1 +7 39 39 39 +5 48000 20500 +#6406 +amulet~ +an amulet~ +An odd looking amulet has been discarded here.~ +~ +9 ag 5 +0 0 0 0 +3 20000 3000 +A +2 3 +#6407 +pole tent~ +a tent pole~ +A tent pole has been tossed away here.~ +~ +3 ag 16385 +25 5 5 38 +10 25000 5000 +#6408 +bag powder wealth~ +a bag of powder of wealth~ +A small bag filled with powder of wealth lies here.~ +~ +20 ag 1 +100000 0 0 0 +1 100000 0 +#6409 +desk~ +a desk~ +There is an ebony desk here.~ +~ +15 0 0 +100 13 0 0 +800 0 0 +#6410 +book chaos~ +the Book of Chaos~ +A book with a title written in moving letters rests here.~ +~ +3 abgh 16385 +20 1 1 26 +25 100000 25000 +#6411 +book elder~ +the Book of the Elder~ +A grey-bound book lies here.~ +~ +3 abg 16385 +30 1 1 28 +25 300000 50000 +#6412 +lens occluded~ +the Occluded Lens~ +A smoky lens about a foot around has been scuffled in the dirt here.~ +~ +1 aghjk 16385 +0 0 0 0 +20 200000 50000 +A +12 20 +A +4 1 +#6413 +mevais herb leaf~ +a leaf of mevais~ +A small black leaf of a mevais plant lies here, well preserved.~ +~ +10 0 1 +30 27 33 4 +1 0 0 +E +mevais herb leaf~ +Quaffing this down might provide interesting effects. +~ +#6414 +bottle peska~ +a bottle of peska~ +There is a bottle of a milky fluid here.~ +~ +10 0 1 +30 28 3 1 +12 15000 3000 +E +bottle peska~ +It is a milky concoction, with strange motes floating in it. +~ +#6415 +staff rand~ +Rand's staff~ +There is a metal-shod staff here.~ +~ +9 agnop 16385 +8 0 0 0 +7 100000 25000 +A +12 5 +A +17 5 +#6416 +chest wooden~ +a wooden chest~ +There is a wooden chest here.~ +~ +15 0 0 +500 13 0 0 +0 0 0 +#6417 +chest wooden~ +a wooden chest~ +There is a wooden chest here.~ +~ +15 0 0 +500 13 0 0 +0 0 0 +#6418 +chest wooden~ +a wooden chest~ +There is a wooden chest here.~ +~ +15 0 0 +500 13 0 0 +0 0 0 +#6419 +basin water~ +a water basin~ +A basin filled with crisp, clean water is here.~ +~ +17 a 0 +100 100 0 0 +100 0 0 +#6420 +food~ +some food~ +There's some food lying here.~ +~ +19 0 1 +8 0 0 0 +3 20 10 +E +food~ +It is just random and assorted food. +Don't ask questions. It is only a game. +~ +$ + diff --git a/lib/world/obj/65.obj b/lib/world/obj/65.obj new file mode 100644 index 0000000..04e3320 --- /dev/null +++ b/lib/world/obj/65.obj @@ -0,0 +1,153 @@ +#6500 +key treasury~ +a treasury key~ +There is a key for the treasury lying here.~ +~ +18 c 16385 +6500 0 0 0 +1 0 0 +#6501 +gold treasure coins~ +the Queen's treasure~ +A large pile of treasure has been left here, it must be the Queen's.~ +~ +20 0 1 +65000 0 0 0 +20 65000 0 +#6502 +key mine~ +a mine key~ +There is a key to the mines lying here.~ +~ +18 c 16385 +6502 0 0 0 +1 0 0 +#6503 +key bright gold~ +a bright golden key~ +There is a bright golden key lying here.~ +~ +18 c 16385 +6503 0 0 0 +1 0 0 +#6504 +hammer dwarven~ +a dwarven hammer~ +There is a dwarven hammer lying here.~ +~ +5 0 8193 +0 2 6 7 +13 5500 1000 +#6505 +plate dwarven mail~ +the dwarven plate mail~ +There is dwarven plate mail lying here.~ +~ +9 0 9 +6 0 0 0 +80 4500 300 +#6506 +stick black long~ +a long, black stick~ +There is a long, black stick lying here.~ +~ +4 q 16385 +4 2 2 28 +1 100 6000 +#6507 +stick black long~ +a long, black stick~ +There is a long, black stick here.~ +~ +1 q 16385 +0 0 0 0 +1 100 6000 +#6508 +club dwarven~ +a dwarven club~ +There is a dwarven club lying here.~ +~ +5 0 8193 +0 2 3 3 +12 3000 300 +#6509 +axe two-handed dwarven~ +a two-handed dwarven axe~ +A two-handed dwarven axe is here.~ +~ +5 g 8193 +0 2 7 3 +14 5000 3000 +A +18 2 +A +1 2 +#6510 +helmet dwarven~ +a dwarven helmet~ +A dwarven helmet is here.~ +~ +9 0 17 +4 0 0 0 +4 2500 500 +#6511 +ring gold dwarven~ +a golden dwarven ring~ +A golden dwarven ring is lying here.~ +~ +11 g 3 +0 0 0 0 +1 10000 10000 +A +18 1 +A +19 1 +#6512 +gloves dwarven~ +a pair of dwarven gloves~ +A pair of thick dwarven gloves lay here.~ +~ +9 0 129 +1 0 0 0 +2 4000 200 +A +5 1 +A +2 1 +#6513 +coal chunk~ +a chunk of coal~ +There is a chunk of coal here.~ +~ +13 0 16385 +0 0 0 0 +100 0 0 +#6514 +pick mining~ +a mining pick~ +There is a mining pick here.~ +~ +5 i 8193 +0 2 3 11 +9 300 10 +E +pick mining~ +It looks almost blessed! +~ +#6515 +key deep green~ +a deep green key~ +There is a deep green key lying here.~ +~ +18 c 16385 +6515 0 0 0 +10 0 0 +#6516 +key old~ +an old key~ +Someone seems to have dropped an old key.~ +~ +18 c 16385 +6516 0 0 0 +1 0 0 +$ diff --git a/lib/world/obj/71.obj b/lib/world/obj/71.obj new file mode 100644 index 0000000..ed1c9d5 --- /dev/null +++ b/lib/world/obj/71.obj @@ -0,0 +1,13 @@ +#7190 +ring silver~ +a glinting silver ring~ +A lovely silver ring has been left here.~ +~ +11 g 3 +0 0 10 0 +9 16000 5000 +A +17 -10 +A +18 2 +$ diff --git a/lib/world/obj/72.obj b/lib/world/obj/72.obj new file mode 100644 index 0000000..e780417 --- /dev/null +++ b/lib/world/obj/72.obj @@ -0,0 +1,180 @@ +#7200 +rod devil~ +the devil rod~ +The mysterious devil rod lies on the floor.~ +~ +5 gj 8193 +0 2 5 3 +6 16000 800 +E +devil rod~ +This is indeed a mysterious rod. It is dark black at the base but has four +very sharp purple tentacles at the end. +~ +A +18 3 +A +1 -1 +#7201 +mace large~ +the large mace~ +A large mace lies here.~ +~ +5 g 8193 +0 1 6 7 +10 1000 400 +E +large mace~ +The mace is pretty large with a weight of 10 lbs. The head is actually four +purple tentacles tied together. +~ +A +19 2 +#7202 +mace small~ +the small mace~ +a small mace has been left here.~ +~ +5 g 8193 +0 1 6 7 +6 600 200 +E +small mace~ +This weapon does look like it does a lot of damage, but then you never know. +It consists of a black handle and a purple head. +~ +A +19 1 +#7203 +cloak purple~ +a purple cloak~ +A purple cloak lies on the floor.~ +~ +11 g 5 +0 0 0 0 +20 5000 6000 +E +cloak purple~ +This is a very fine made cloak from an unknown material, in a nice purple +color. +~ +A +24 2 +A +17 -10 +#7204 +potion blue neon~ +a neon blue potion~ +A neon blue potion stands on the floor.~ +~ +10 g 1 +14 6 15 16 +4 100 1000 +E +potion blue~ +In the flask is a transparent electric blue liquid. +~ +#7205 +key black~ +a black key~ +A black key has been left on the floor.~ +~ +18 c 16385 +0 0 0 0 +2 0 0 +E +black key~ +This little key is made from a black metal of unknown origin. +~ +#7206 +skull white~ +a strange white skull~ +A strange white skull lies on the floor looking at you.~ +~ +9 abh 17 +1 0 0 0 +30 0 250 +E +white skull~ +The skull has two small horns in the forehead. You notice some writing on +the inside. +~ +E +writing text~ +You read the number '666'. +~ +A +2 -4 +#7207 +gauntlets muddy~ +a pair of muddy gauntlets~ +A pair of muddy gauntlets have been thrown away here.~ +~ +9 g 129 +6 0 0 0 +10 6000 1500 +E +muddy gauntlets~ +These gauntlets are muddy indeed, however they look very effective. +~ +A +1 1 +#7208 +stick small~ +a small stick~ +A small stick lies here.~ +~ +1 0 16385 +0 0 -1 0 +4 200 200 +E +small stick~ +The small stick does not look interesting at all. But just as you are going +to throw it away you notice some small letters. +~ +E +letters letter~ +They read: + +Hold me + +~ +#7209 +boots muddy~ +a pair of muddy boots~ +A pair of muddy boots has been dropped here.~ +~ +9 g 65 +4 0 0 0 +10 75 500 +E +boots muddy~ +The boots are muddy and they look well worn, but also very comfortable. +~ +A +14 15 +#7210 +treasure coins~ +a huge treasure~ +There is a huge treasure here, looking very valuable.~ +~ +20 0 1 +6522 0 0 0 +5 6522 0 +E +treasure coins~ +This looks like a whole lot of coins. +~ +#7211 +sword short~ +a short sword~ +A short sword is lying here.~ +~ +5 0 8193 +0 2 3 3 +4 100 300 +E +short sword~ +This is a very nice little weapon. +~ +$ diff --git a/lib/world/obj/79.obj b/lib/world/obj/79.obj new file mode 100644 index 0000000..90aa05a --- /dev/null +++ b/lib/world/obj/79.obj @@ -0,0 +1,285 @@ +#7900 +key steel~ +a large key~ +A large steel key has been left here.~ +~ +18 c 16385 +7900 0 0 0 +2 0 0 +E +steel key~ +This huge key is made from solid steel. +~ +#7901 +key copper~ +a copper key~ +A copper key has been left on the floor.~ +~ +18 c 16385 +7901 0 0 0 +2 0 0 +E +copper key~ +This little key is made from copper. +~ +#7902 +key brass~ +a small brass key~ +A small brass key lies here.~ +~ +18 c 16385 +7902 0 0 0 +1 10 4 +E +key brass~ +It is a small, simple brass key with no inscriptions or marks of any kind. +~ +#7903 +treasure coins~ +a huge treasure~ +There is a huge treasure here, looking moderately valuable.~ +~ +20 0 1 +7734 0 0 0 +5 7734 0 +E +treasure~ +This looks like a whole lot of coins, though not as many as you expected. +~ +#7904 +chest wooden~ +a wooden chest~ +A wooden chest stands in the corner.~ +~ +15 0 0 +100 15 7902 0 +0 0 0 +E +chest wooden~ +It is a robust chest made from short, heavy planks that have been fastened +together with tenons. It is equipped with a simple brass lock. +~ +#7905 +chest~ +a chest~ +A heavy iron chest sits in one corner of the room.~ +~ +15 f 0 +15 15 7902 0 +0 0 0 +#7906 +dagger plain black~ +a plain dagger~ +A long black, but very plain, dagger rests here.~ +~ +5 dfhn 8193 +0 5 3 11 +3 6500 15000 +A +18 -3 +A +19 -1 +#7907 +bracelet spiked~ +a large spiked bracelet~ +A large spiked bracelet has been left here.~ +~ +11 g 4097 +0 0 0 0 +1 1200 2000 +A +17 -4 +#7908 +waybread bread~ +a waybread~ +Some waybread has been put here.~ +~ +19 0 1 +24 0 0 0 +1 50 50 +E +waybread bread~ +The waybread is the traditional feed of elves when travelling, they +call it lembas. It is said to refresh the weary traveler greatly. +~ +#7909 +ring gold goldring~ +a golden ring~ +A shiny goldring has been abandoned here.~ +~ +11 dfmpq 3 +0 0 0 0 +20 3500 2000 +A +3 2 +#7910 +sword bastard~ +a huge bastard sword~ +There is a huge bastard sword here.~ +~ +5 gklmn 8193 +0 2 8 3 +18 1700 800 +E +bastard sword~ +Quite a heavy weapon, with a pure white hilt. +~ +A +19 3 +#7911 +helmet large~ +a large helmet~ +There is a large helmet on the floor.~ +~ +9 g 17 +7 0 0 0 +5 4500 1500 +E +large helmet~ +This looks like some heavy protection, for the head of course. +~ +#7912 +helmet chaos~ +a chaos helmet~ +On the floor is a grand evil-looking chaos helmet.~ +~ +9 fgj 17 +8 0 0 0 +8 2300 1000 +E +chaos helmet~ +This helmet has mounted some mean looking spikes on the front, +moreover it looks like good protection. +~ +A +19 2 +A +24 -2 +#7913 +sword two-handed~ +a two-handed sword~ +On the floor rests a enormous two-handed sword.~ +~ +5 gjkm 8193 +0 3 6 3 +22 3500 3500 +E +two-handed sword~ +You notice that there has been inscribed some runes and a sort of +pattern, which resembles flames running along the edge. +~ +E +runes~ +On the blade you can read 'Flame And Strength United Are My Soul Power'. +~ +A +17 10 +A +19 3 +#7914 +plate breast silvery silver~ +a silvery breast plate~ +There is a silvery breast plate on the floor.~ +~ +9 gkl 9 +10 7000 0 0 +70 20000 5000 +E +plate breast silvery silver~ +On the breast plate you notice a relief of large rose. The metal seems +to be some kind of silver or platinum. +~ +#7915 +plates leg silvery~ +some silvery leg plates~ +On the floor you see some leg plates.~ +~ +9 gkl 33 +7 7000 0 0 +40 12500 5000 +E +leg plates silvery silver~ +They seem to be made from silver or platinum. You see the outline of a +rose. +~ +#7916 +gloves silvery silver~ +a pair of silvery gloves~ +You can see a pair of gloves on the floor.~ +~ +9 gkl 129 +5 7000 0 0 +14 2500 2000 +E +gloves silvery silver~ +The gloves are made of silver threads. +~ +A +18 1 +#7917 +helmet silvery silver~ +a silvery helmet~ +The silvery helmet lies here.~ +~ +9 gkl 17 +8 7000 0 0 +35 9000 5000 +E +helmet silvery silver~ +The helmet is made from platinum or silver and has a white fur brush +attached on the top. +~ +#7918 +shield rose~ +the shield of the rose~ +The shield of the rose rests on the floor.~ +~ +9 gkl 513 +12 7000 0 0 +60 15000 7500 +E +shield rose~ +On the shield you see a clear and perfect painting of a dark red rose +on a white background. You also notice an inscription. +~ +E +inscription~ +The inscription reads: + +Pax Est Sanctuum + +~ +#7919 +boots heavy plated~ +a pair of heavy plated boots~ +A pair of heavy plated boots stand on the floor.~ +~ +9 gkl 65 +5 7000 0 0 +40 3500 3500 +E +boots heavy plated~ +The boots are made from a silvery metal. +~ +#7920 +plates arm silvery silver~ +some silvery arm plates~ +On the floor you see some arm plates.~ +~ +9 gkl 257 +7 7000 0 0 +40 12500 5000 +E +plates arm silvery silver~ +They seem to be made from silver or platinum. You see the outline of a +rose. +~ +#7921 +barrel water~ +a barrel~ +A water barrel has been left here.~ +~ +17 0 1 +40 40 15 0 +45 60 20 +$ diff --git a/lib/world/obj/9.obj b/lib/world/obj/9.obj new file mode 100644 index 0000000..5cbc04b --- /dev/null +++ b/lib/world/obj/9.obj @@ -0,0 +1,118 @@ +#900 +key golden heavy~ +a golden key~ +A heavy golden key lies here.~ +~ +18 c 16385 +900 0 0 0 +1 0 0 +#901 +shield minotaur~ +a dark minotaur shield~ +A dark minotaur shield has been left here.~ +~ +9 dgh 513 +12 0 0 0 +12 5000 1350 +E +shield minotaur~ +A strong, sturdy shield. It brings to mind legends of a shield that +provided protection from poisonous gases. +~ +A +23 -4 +#902 +potion speckled~ +a speckled potion~ +A speckled potion speckles here.~ +~ +10 g 1 +15 15 15 15 +2 1300 500 +#903 +gauntlets troll~ +a pair of troll gauntlets~ +A pair of gauntlets made from troll skin lie on the ground.~ +~ +9 g 129 +5 0 0 0 +8 2000 1350 +#904 +ring platinum~ +a platinum ring~ +A shining ring of platinum lies here. It has a tiny inscription.~ +~ +1 agh 16387 +0 0 -1 0 +1 2000 5500 +E +ring platinum inscription~ +The inscription on the ring reads: + +Cursed be the gods that supply coins to mortals! +And cursed be the mortal that accepts valuable gifts from the gods! +Especially cursed are those who do not leave the toilet seat up! + +~ +A +17 10 +A +18 2 +#905 +flail~ +a flail~ +A flail has been carelessly left here.~ +~ +5 fgh 8193 +0 3 4 7 +8 5000 3500 +A +19 2 +#906 +coins gold treasure~ +a great pile of treasure~ +A great, gleaming pile of treasure lies at your feet.~ +~ +20 0 1 +43500 0 0 0 +20 43500 0 +#907 +spear heavy~ +a heavy spear~ +A heavy spear has been tossed on the ground here.~ +~ +5 0 8193 +0 1 7 11 +8 450 200 +A +19 1 +#908 +trident~ +a trident~ +There is a warrior's trident here.~ +~ +5 0 8193 +0 2 4 11 +8 350 200 +E +trident~ +This is a common trident, often used by gladiators or mermen. It has +three sharp prongs jutting from the business end and a smooth wooden +handle with two comfortable grip points. +~ +#909 +boots boat~ +a pair of boots~ +A pair of boots sit here in a puddle of water.~ +~ +22 deq 65 +0 0 0 0 +1 5000 1850 +E +boots boat~ +The boots are made of a strange lightweight hide and float in a puddle +of water. +~ +A +14 -20 +$ diff --git a/lib/world/obj/index b/lib/world/obj/index new file mode 100644 index 0000000..561b787 --- /dev/null +++ b/lib/world/obj/index @@ -0,0 +1,28 @@ +0.obj +9.obj +15.obj +25.obj +30.obj +31.obj +33.obj +35.obj +36.obj +40.obj +50.obj +51.obj +52.obj +53.obj +54.obj +60.obj +61.obj +62.obj +63.obj +64.obj +65.obj +71.obj +72.obj +79.obj +120.obj +150.obj +186.obj +$ diff --git a/lib/world/obj/index.mini b/lib/world/obj/index.mini new file mode 100644 index 0000000..77ce07a --- /dev/null +++ b/lib/world/obj/index.mini @@ -0,0 +1,3 @@ +0.obj +30.obj +$ diff --git a/lib/world/shp/120.shp b/lib/world/shp/120.shp new file mode 100644 index 0000000..7cfeb1d --- /dev/null +++ b/lib/world/shp/120.shp @@ -0,0 +1,171 @@ +CircleMUD v3.0 Shop File~ +#12011~ +3020 +3021 +3022 +3023 +3024 +3025 +12008 +-1 +2.25 +0.6 +WEAPON +ARMOR +-1 +%s We are out of that item right now.~ +%s You don't have that. Stop wasting my time!~ +%s This is a weapon and armour shop! Go someplace else!~ +%s A fine weapon indeed, but more than I can afford.~ +%s NO CREDIT!~ +%s Here you go. That will be %d coins. Don't get hurt!~ +%s You'll get %d for that.~ +0 +0 +12011 +0 +12006 +-1 +0 +28 +0 +0 +#12012~ +12006 +12007 +-1 +1.2 +0.6 +-1 +%s I don't have anything like that. Sorry.~ +%s I don't think you have that.~ +%s I don't stock that stuff. Try another shop.~ +%s I can't afford to buy anything, I'm only a poor peddler.~ +%s No cash, no goods!~ +%s Here you go. That'll be... %d coins.~ +%s Thank-you very much. Here are your %d coins as payment.~ +1 +0 +12012 +0 +12032 +-1 +7 +13 +14 +19 +#12016~ +-1 +1.6 +0.3 +-1 +%s We don't sell that.~ +%s I don't think you have that.~ +%s I don't stock that stuff. Try another shop.~ +%s I can't afford to buy anything, I'm only a poor peddler.~ +%s No cash, no goods!~ +%s Here you go. That'll be... %d coins.~ +%s Thank-you very much. Here are your %d coins as payment.~ +1 +0 +12016 +0 +12003 +12004 +12008 +12015 +12022 +12023 +-1 +9 +17 +18 +22 +#12034~ +3050 +3051 +3052 +3053 +3054 +12030 +-1 +1.85 +0.5 +SCROLL +WAND +-1 +%s We don't carry that item.~ +%s You don't have that.~ +%s I can't buy that. See another shop.~ +%s We are low on cash. Come back later.~ +%s Sorry, but you can't afford that.~ +%s Here you go. That will cost you %d.~ +%s I will give you %d coins for that.~ +2 +2 +12034 +96 +12042 +-1 +8 +18 +0 +0 +#12036~ +3000 +3001 +3009 +3010 +3011 +12006 +12007 +-1 +1.1 +0.8 +-1 +%s We don't have that item in stock right now.~ +%s I don't think you have that item.~ +%s Hmmmm... if I was in a good mood, I'd consider it. But I'm not.~ +%s The Emperor's tax collector just came. I don't have the cash. Sorry.~ +%s NO CREDIT! We don't even take the Renaissance Express card!~ +%s That will be %d coins. Enjoy!~ +%s You'll get %d coins for that.~ +2 +2 +12036 +0 +12062 +-1 +0 +28 +0 +0 +#12037~ +3030 +3031 +3032 +3033 +3036 +12003 +-1 +1.75 +0.6 +-1 +%s We don't have that item on stock.~ +%s I don't think you have that.~ +%s I don't stock that stuff. Try another shop.~ +%s I can't afford it right now. Come back tomorrow.~ +%s No cash, no goods!~ +%s Here you go. That'll be... %d coins.~ +%s Thank-you very much. Here are your %d coins as payment.~ +2 +2 +12037 +0 +12063 +-1 +6 +20 +0 +0 +$~ diff --git a/lib/world/shp/150.shp b/lib/world/shp/150.shp new file mode 100644 index 0000000..eeba85a --- /dev/null +++ b/lib/world/shp/150.shp @@ -0,0 +1,55 @@ +CircleMUD v3.0 Shop File~ +#15019~ +15012 +3050 +3052 +-1 +1.2 +0.3 +SCROLL +WAND +STAFF +POTION +-1 +%s But I have no such thing for sale.~ +%s But you do not have this item.~ +%s I have no interest in that.~ +%s I am sorry, but I can not afford such a valuable item.~ +%s But you can not afford that item.~ +%s It will cost you %d coins.~ +%s Here, you shall have %d coins for it.~ +2 +2 +15019 +40 +15052 +-1 +2 +8 +20 +28 +#15022~ +15019 +15020 +-1 +1.1 +1.0 +-1 +%s Je suis tres desole, mais je n'ai pas ca.~ +%s Mais, je n'achete pas!~ +%s Mais, je n'achete pas!~ +%s Mais, je n'achete pas!~ +%s Si vous n'avez d'argent, vous ne pouvez p'acheter!~ +%s Ca coute %d piece d'or, s'il vous plait.~ +%s Oops - %d, a minor bug - please report!~ +0 +2 +15022 +0 +15005 +-1 +6 +23 +0 +0 +$~ diff --git a/lib/world/shp/25.shp b/lib/world/shp/25.shp new file mode 100644 index 0000000..9fa8ef7 --- /dev/null +++ b/lib/world/shp/25.shp @@ -0,0 +1,62 @@ +CircleMUD v3.0 Shop File~ +#2505~ +2504 +2545 +2546 +3010 +3100 +3101 +-1 +2.1 +0.5 +FOOD +LIQ CONTAINER +-1 +%s Haven't got that in storage, try LIST!~ +%s You can't sell what you don't HAVE!~ +%s Sorry, I'm not a fence.~ +%s I'd love to buy it, I just can't spare the coinage~ +%s Bah, come back when you can pay!~ +%s That'll be %d coins -- thank you.~ +%s I'll give ya %d coins for that!~ +0 +2 +2505 +112 +2518 +-1 +0 +28 +0 +0 +#2506~ +3050 +3051 +3053 +-1 +2.5 +0.3 +SCROLL +WAND +STAFF +POTION +-1 +%s Say again?~ +%s You don't have that, try INVENTORY!~ +%s What do I look like, a fence?~ +%s Sorry, I just can't afford such a costly item.~ +%s You can't afford it!~ +%s You're getting a bargain for that at only %d!~ +%s I guess I could give ya %d for that.~ +0 +2 +2506 +112 +2519 +-1 +0 +28 +0 +0 +$~ + diff --git a/lib/world/shp/30.shp b/lib/world/shp/30.shp new file mode 100644 index 0000000..7be2b58 --- /dev/null +++ b/lib/world/shp/30.shp @@ -0,0 +1,375 @@ +CircleMUD v3.0 Shop File~ +#3000~ +3050 +3051 +3052 +3053 +3054 +-1 +1.15 +0.15 +SCROLL +WAND +STAFF +POTION +-1 +%s Sorry, I haven't got exactly that item.~ +%s You don't seem to have that.~ +%s I don't buy such items.~ +%s That is too expensive for me!~ +%s You can't afford it!~ +%s That'll be %d coins, please.~ +%s You'll get %d coins for it!~ +0 +2 +3000 +2 +3033 +-1 +0 +28 +0 +0 +#3001~ +3009 +3010 +3011 +-1 +1.4 +1.0 +-1 +%s Haven't got that on storage - try list!~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s If you have no money, you'll have to go!~ +%s That'll be %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +3001 +0 +3009 +-1 +0 +28 +0 +0 +#3002~ +3030 +3031 +3032 +3033 +3036 +-1 +1.5 +0.4 +LIGHT +TREASURE +CONTAINER +-1 +%s Haven't got that on storage - try list!~ +%s You don't seem to have that.~ +%s I don't buy THAT... Try another shop.~ +%s I can't afford such a treasure.~ +%s You can't afford it!~ +%s That'll be %d coins, please.~ +%s You'll get %d coins for it!~ +0 +2 +3002 +0 +3010 +-1 +0 +28 +0 +0 +#3003~ +3020 +3021 +3022 +3023 +3024 +3025 +-1 +1.3 +0.4 +WEAPON +-1 +%s I haven't got that kind of a weapon!~ +%s You don't carry that weapon!~ +%s I only buy weapons.~ +%s I can't afford such a great weapon!~ +%s sorry, but NO CREDIT!~ +%s That costs just %d coins.~ +%s Here, you can have %d coins for that.~ +0 +2 +3003 +0 +3011 +-1 +0 +28 +0 +0 +#3004~ +3040 +3041 +3042 +3043 +3044 +3045 +3046 +3070 +3071 +3075 +3076 +3080 +3081 +3085 +3086 +-1 +1.0 +0.5 +ARMOR +-1 +%s Haven't got that on storage - try list!~ +%s You don't seem to have that.~ +%s I only buy armors.. Go away!~ +%s That is too expensive for me - Try a wizard!~ +%s You can't afford it!~ +%s That'll be %d coins, please.~ +%s You'll get %d coins for it!~ +0 +2 +3004 +0 +3020 +-1 +0 +28 +0 +0 +#3006~ +3060 +3061 +-1 +1.2 +0.9 +BOAT +-1 +%s Sorry pal, I have not got that kind of ship.~ +%s Ok, but let me see it first.~ +%s I only trade ships.~ +%s I can't afford such a nice ship.~ +%s This ship is too expensive for you.~ +%s Here is your ship, I'll take %d gold coins.~ +%s What a fine deal, you get %d gold coins.~ +0 +2 +3006 +0 +3049 +-1 +6 +22 +0 +0 +#3007~ +-1 +1.0 +1.0 +-1 +%s Sorry, you aren't on my list of people I can sell to.~ +%s Sorry, I don't buy from outsiders.~ +%s Sorry, I don't buy from outsiders.~ +%s Sorry, I don't buy from outsiders.~ +%s Sorry, but here, no money means no goods!~ +%s That will be %d coins, please. Thank you.~ +%s Oops - %d a minor bug - please report.~ +2 +2 +3007 +1 +3050 +-1 +0 +28 +0 +0 +#3009~ +3102 +3103 +3104 +-1 +1.0 +1.0 +-1 +%s Sorry, I don't have that -- try list!~ +%s Sorry, I don't buy waters from outsiders.~ +%s Sorry, I don't buy waters from outsiders.~ +%s Sorry, I don't buy waters from outsiders.~ +%s Sorry, but here, no money means no water!~ +%s That will be %d coins, please. Thank you.~ +%s Oops - %d a minor bug - please report.~ +0 +2 +3009 +0 +3058 +-1 +0 +28 +0 +0 +#3040~ +3000 +3001 +3002 +3003 +3004 +-1 +1.1 +1.0 +-1 +%s It's very noisy in here, what did you say you wanted to buy?~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s Are you drunk or what?? - NO CREDIT!~ +%s That'll be - say %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +3040 +0 +3007 +-1 +0 +28 +0 +0 +#3042~ +3002 +3003 +-1 +1.0 +1.0 +-1 +%s Haven't got that on storage - try list!~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s If you have no money, you'll have to go!~ +%s That'll be %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +3042 +112 +3018 +-1 +0 +28 +0 +0 +#3043~ +3002 +3004 +-1 +1.1 +1.0 +-1 +%s Haven't got that on storage - try list!~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s If you have no money, you'll have to go!~ +%s That'll be %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +3043 +104 +3003 +-1 +0 +28 +0 +0 +#3044~ +3003 +3004 +-1 +1.7 +1.0 +-1 +%s Haven't got that on storage - try list!~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s If you have no money, you'll have to go!~ +%s That'll be %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +3044 +88 +3028 +-1 +0 +28 +0 +0 +#3045~ +3002 +3003 +3004 +-1 +1.5 +1.0 +-1 +%s Haven't got that on storage - try list!~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s If you have no money, you'll have to go!~ +%s That'll be %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +3045 +56 +3022 +-1 +0 +28 +0 +0 +#3046~ +3004 +3003 +-1 +1.0 +1.0 +-1 +%s It's very noisy in here, what did you say you wanted to buy?~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s Oh, bugger off, NO CREDIT!~ +%s That'll be - say %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +3046 +0 +3048 +-1 +0 +28 +0 +0 +$~ diff --git a/lib/world/shp/31.shp b/lib/world/shp/31.shp new file mode 100644 index 0000000..f53b862 --- /dev/null +++ b/lib/world/shp/31.shp @@ -0,0 +1,27 @@ +CircleMUD v3.0 Shop File~ +#3100~ +3100 +3101 +3102 +-1 +1.1 +0.9 +-1 +%s I haven't got such a drink.~ +%s I see no such thing.~ +%s I do not buy, would you like a drink?~ +%s BUG, Please report.~ +%s You can't afford such a fine drink, try the Grubby Inn.~ +%s Fine, that'll be %d gold pieces.~ +%s Bug, please report (%d).~ +0 +0 +3100 +0 +3106 +-1 +6 +22 +23 +24 +$~ diff --git a/lib/world/shp/33.shp b/lib/world/shp/33.shp new file mode 100644 index 0000000..62ea300 --- /dev/null +++ b/lib/world/shp/33.shp @@ -0,0 +1,80 @@ +CircleMUD v3.0 Shop File~ +#3301~ +3300 +3301 +3308 +3309 +3310 +-1 +1.1 +0.9 +-1 +%s We didn't grow any of those this year.~ +%s You don't have that!~ +%s I won't buy that!~ +%s I can't buy that!~ +%s You can't buy that!~ +%s Ok, %d coins please!~ +%s Ok, %d coins please!~ +2 +2 +3304 +0 +3350 +-1 +8 +22 +0 +0 +#3302~ +3032 +3037 +3038 +3039 +-1 +1.1 +0.9 +-1 +%s Could you repeat that please?~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s But you haven't the money!~ +%s Ok, %d gold please.~ +%s Ok, %d gold please.~ +2 +0 +3301 +0 +3345 +-1 +8 +22 +0 +0 +#3303~ +3319 +3320 +3321 +-1 +1.2 +1.0 +-1 +%s I don't know how to make one of those!~ +%s We don't *buy* drinks... we sell 'em!~ +%s We don't *buy* drinks... we sell 'em!~ +%s We don't *buy* drinks... we sell 'em!~ +%s I don't give 'em away free, you know!~ +%s That's %d gold.~ +%s We don't *buy* drinks... we sell 'em!~ +2 +0 +3314 +0 +3357 +-1 +20 +2 +11 +18 +$~ diff --git a/lib/world/shp/54.shp b/lib/world/shp/54.shp new file mode 100644 index 0000000..a52e846 --- /dev/null +++ b/lib/world/shp/54.shp @@ -0,0 +1,510 @@ +CircleMUD v3.0 Shop File~ +#5405~ +5467 +5468 +5469 +-1 +1.1 +1.0 +LIQ CONTAINER +-1 +%s I don't know how to make one of those!~ +%s I don't *buy* drinks... we sell 'em!~ +%s I don't *buy* drinks... we sell 'em!~ +%s I don't *buy* drinks... we sell 'em!~ +%s I don't give 'em away free, you know!~ +%s That's %d gold.~ +%s I don't *buy* drinks... we sell 'em!~ +1 +2 +5405 +0 +5402 +-1 +0 +28 +0 +0 +#5410~ +5440 +5441 +5442 +5443 +5445 +5491 +-1 +1.1 +1.0 +-1 +%s Haven't got that on storage - try list!~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s If you have no money, you'll have to go!~ +%s That'll be %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +5410 +0 +5535 +-1 +0 +28 +0 +0 +#5411~ +5434 +5435 +5436 +5437 +5438 +5439 +-1 +1.5 +0.4 +LIGHT +CONTAINER +FOOD +TRASH +TREASURE +-1 +%s Haven't got that on storage - try list!~ +%s You don't seem to have that.~ +%s I don't buy THAT... Try another shop.~ +%s I can't afford such a treasure.~ +%s You can't afford it!~ +%s That'll be %d coins, please.~ +%s You'll get %d coins for it!~ +0 +2 +5411 +0 +5528 +-1 +0 +28 +0 +0 +#5413~ +5446 +5447 +5448 +5449 +5450 +5451 +5452 +5453 +5454 +5455 +-1 +1.05 +0.15 +-1 +%s Sorry, I haven't got exactly that item.~ +%s You don't seem to have that.~ +%s I don't buy such items.~ +%s That is too expensive for me!~ +%s You can't afford it!~ +%s That'll be %d coins, please.~ +%s You'll get %d coins for it!~ +0 +2 +5413 +0 +5514 +-1 +0 +28 +0 +0 +#5414~ +5456 +5457 +5458 +5459 +5460 +-1 +1.3 +1.0 +-1 +%s I've never heard of that... what kind of vegetable is it?~ +%s I don't buy.~ +%s I don't buy.~ +%s I don't buy.~ +%s If you come back with more money, I may consider selling it.~ +%s That's %d coins... can I wrap it up for you?~ +%s I don't buy.~ +0 +2 +5414 +0 +5515 +-1 +0 +28 +0 +0 +#5415~ +5461 +5462 +5463 +-1 +1.1 +1.0 +FOOD +-1 +%s I didn't kill any of those this season, sorry.~ +%s I don't buy that.~ +%s I don't buy that.~ +%s I don't buy that when I don't have the money.~ +%s That costs money. Something you don't have... sorry.~ +%s That costs %d coins.~ +%s Here are %d coins, thank you for your business.~ +0 +2 +5415 +0 +5522 +-1 +0 +28 +0 +0 +#5416~ +5415 +5416 +5417 +5418 +5419 +5420 +5421 +-1 +1.3 +0.5 +ARMOR +-1 +%s Haven't got that on storage - try list!~ +%s You don't seem to have that.~ +%s I only buy armours.. Go away!~ +%s That is too expensive for me - Try a wizard!~ +%s You can't afford it!~ +%s That'll be %d coins, please.~ +%s You'll get %d coins for it!~ +2 +2 +5416 +40 +5529 +-1 +0 +28 +0 +0 +#5417~ +5403 +5404 +5405 +5406 +5407 +5408 +5409 +5410 +5411 +5412 +5413 +5414 +-1 +1.3 +0.4 +WEAPON +-1 +%s I haven't got that kind of a weapon~ +%s You don't carry that weapon~ +%s I only buy weapons.~ +%s I can't afford such a great weapon~ +%s Sorry, but NO CREDIT~ +%s That just costs %d coins.~ +%s Here is %d coins for that.~ +0 +2 +5417 +0 +5536 +-1 +0 +28 +0 +0 +#5418~ +-1 +2.0 +0.5 +FOOD +-1 +%s Sorry buddy, I don't sell that.~ +%s Why don't you sell something you own?~ +%s I don't buy such items!~ +%s That is much to valuable for you to let go!~ +%s No money. Off with ya then!~ +%s That will be %d gold.~ +%s Here is %d gold for that.~ +0 +2 +5418 +0 +5432 +-1 +6 +12 +13 +20 +#5433~ +-1 +1.1 +1.0 +SCROLL +WAND +STAFF +TREASURE +-1 +%s Don't have one, but I think I might be able to find one...~ +%s You have one? Really? Let me see!~ +%s I'm not interested. Anything else?~ +%s Too rich for my blood!~ +%s Perhaps you should go visit the bank first...~ +%s That's just %d coins, cash in advance.~ +%s I'll take that for %d coins, thank you!~ +2 +2 +5433 +8 +5403 +5404 +5405 +5406 +5407 +5408 +5409 +5410 +5414 +5415 +5416 +5417 +5418 +5419 +5420 +5421 +5422 +5424 +5425 +5426 +5427 +5428 +5429 +5430 +5434 +5435 +5436 +5437 +5438 +5439 +5440 +5441 +5442 +5444 +5445 +5446 +5447 +5448 +5449 +5450 +5451 +5452 +5453 +5454 +5455 +5456 +5460 +5461 +5462 +5463 +5464 +-1 +0 +28 +0 +0 +#5465~ +3060 +3061 +-1 +1.2 +0.9 +BOAT +-1 +%s Sorry pal, I have not got that kind of ship.~ +%s Ok, but let me see it first.~ +%s I only trade ships.~ +%s I can't afford such a nice ship.~ +%s This ship is too expensive for you.~ +%s Here is your ship, I'll take %d gold coins.~ +%s What a fine deal, you get %d gold coins.~ +0 +2 +5465 +0 +5542 +-1 +6 +22 +0 +0 +#5466~ +5487 +5488 +5489 +-1 +1.2 +0.5 +ARMOR +WEAPON +-1 +%s Havn't got that in storage, try LIST!~ +%s You can't sell what you dont HAVE!~ +%s Sorry, I'm not a fence.~ +%s I'd love to buy it, I just can't spare the coinage~ +%s Bah, come back when you can pay!~ +%s That'll be %d coins -- thank you.~ +%s I'll give ya %d coins for that!~ +0 +2 +5466 +0 +5544 +-1 +0 +28 +0 +0 +#5479~ +5470 +5471 +5472 +5473 +5474 +-1 +1.2 +1.0 +POTION +-1 +%s We don't have any of those, Sugar.~ +%s Are you sure you have one, handsome?~ +%s I don't buy those, darling.~ +%s I'm a little strapped -- how about a gift?~ +%s Perhaps later, when you've more cash, honey.~ +%s That's %d coins, love.~ +%s Here's %d coins, friend.~ +0 +2 +5479 +0 +5523 +-1 +7 +17 +0 +0 +#5480~ +5478 +5479 +5480 +5481 +5482 +-1 +1.8 +0.5 +WORN +OTHER +WAND +STAFF +-1 +%s Sorry buddy, I don't sell that.~ +%s Why don't you sell something you own?~ +%s I don't buy that kind of crap!~ +%s That is much to valuable for you to let go!~ +%s No money. I killed my mother for less.~ +%s That will be %d gold.~ +%s Here is %d gold for that.~ +0 +2 +5480 +0 +5524 +-1 +0 +12 +13 +20 +#5483~ +5475 +5476 +5477 +-1 +1.3 +1.0 +-1 +%s It's very noisy in here, what did you say you wanted to buy?~ +%s I don't buy!~ +%s I don't buy!~ +%s I don't buy!~ +%s Are you drunk or what ?? - NO CREDIT!~ +%s That'll be - say %d coins.~ +%s Oops - %d a minor bug - please report!~ +0 +2 +5483 +0 +5538 +-1 +0 +28 +0 +0 +#5484~ +5422 +5423 +5524 +5525 +5526 +5527 +5528 +5529 +5530 +5531 +5532 +5533 +-1 +1.1 +0.5 +ARMOR +-1 +%s Havn't got that in storage, try LIST!~ +%s You can't sell what you dont HAVE!~ +%s Sorry, I'm not a fence.~ +%s I'd love to buy it, I just can't spare the coinage~ +%s Bah, come back when you can pay!~ +%s That'll be %d coins -- thank you.~ +%s I'll give ya %d coins for that!~ +0 +2 +5484 +0 +5537 +-1 +0 +28 +0 +0 +$~ + diff --git a/lib/world/shp/65.shp b/lib/world/shp/65.shp new file mode 100644 index 0000000..92b14e8 --- /dev/null +++ b/lib/world/shp/65.shp @@ -0,0 +1,63 @@ +CircleMUD v3.0 Shop File~ +#6503~ +3022 +6504 +6505 +6510 +6512 +-1 +1.9 +0.3 +ARMOR +WEAPON +-1 +%s We don't have any in storage, sorry!~ +%s Check your possessions, you don't have that.~ +%s I don't care for those types of goods.~ +%s I can't afford something that great!~ +%s You can't afford it, and don't ask a God for the money!~ +%s That'll cost you %d coins, please.~ +%s You'll get %d coins for that.~ +1 +2 +6503 +0 +6516 +-1 +1 +22 +23 +28 +#6504~ +3000 +3003 +3010 +3011 +3031 +6013 +-1 +1.9 +0.2 +LIGHT +CONTAINER +LIQ CONTAINER +FOOD +-1 +%s Haven't got that on storage!~ +%s You don't seem to have that!~ +%s I don't buy those types, try another shop.~ +%s I cannot afford such a great treasure!~ +%s You can't afford that!~ +%s That'll be %d coins, please.~ +%s You'll get %d coins for that!~ +0 +2 +6504 +0 +6535 +-1 +6 +18 +20 +28 +$~ diff --git a/lib/world/shp/index b/lib/world/shp/index new file mode 100644 index 0000000..6337feb --- /dev/null +++ b/lib/world/shp/index @@ -0,0 +1,10 @@ +25.shp +30.shp +31.shp +33.shp +54.shp +65.shp +120.shp +150.shp +$ + diff --git a/lib/world/shp/index.mini b/lib/world/shp/index.mini new file mode 100644 index 0000000..db5fd77 --- /dev/null +++ b/lib/world/shp/index.mini @@ -0,0 +1,2 @@ +30.shp +$ diff --git a/lib/world/shp/shop-convert.pl b/lib/world/shp/shop-convert.pl new file mode 100755 index 0000000..65885f7 --- /dev/null +++ b/lib/world/shp/shop-convert.pl @@ -0,0 +1,73 @@ +#!/usr/bin/perl -w + +# This quick and dirty perl script was written to convert v3 shop files from +# using hard-coded numbers to using keywords. The keywords are stored in +# the @item_types array found immediately after these comments. Ensure that +# the order and contents of this array match the item types in your source +# code (defines found in structs.h, keywords in constant.c). +# +# Please note that this is not a supported script and is merely provided in +# an attempt to ease your life if you choose to use keywords rather than +# hard-coded values in the same fashion. +# +# ** IMPORTANT ** Back up your shop files before using this script, and verify +# the changes before booting up your mud. This may make your mud unbootable +# if you do not verify the changes. +# +# ** IMPORTANT ** This only works on v3 shops (ie, ones that conform to the +# v3 format, and begin with the line 'CircleMUD v3.0 Shop File~'. This will +# destroy v2 shop files. +# +# Usage: shop-convert.pl [old shop file] > [new shop file] +# Example: shop-convert.pl 1.shp > 1.shp.new +# + +my @item_types = ( + "UNDEFINED", + "LIGHT", + "SCROLL", + "WAND", + "STAFF", + "WEAPON", + "FIRE WEAPON", + "MISSILE", + "TREASURE", + "ARMOR", + "POTION", + "WORN", + "OTHER", + "TRASH", + "TRAP", + "CONTAINER", + "NOTE", + "LIQ CONTAINER", + "KEY", + "FOOD", + "MONEY", + "PEN", + "BOAT", + "FOUNTAIN", +); + +my $state = 0; +my $vthree = 0; +while (<>) { + chomp; + $vthree = 1 if (/^CircleMUD v3.0 Shop File~/); + die "Use only on v3 format shop files.\n" unless ($vthree); + if (/^#/) { + $state = 1; + } elsif ($state == 1) { + $state++ if ($_ eq '-1'); + } elsif ($state == 2 || $state == 3) { + $state++; + } elsif ($state == 4) { + if ($_ eq '-1') { + $state++; + } else { + $_ = $item_types[$_]; # add 'lc' before '$item' to lower case. + } + } + print "$_\n"; +} + diff --git a/lib/world/wld/0.wld b/lib/world/wld/0.wld new file mode 100644 index 0000000..1c19575 --- /dev/null +++ b/lib/world/wld/0.wld @@ -0,0 +1,37 @@ +#0 +The Void~ + You don't think that you are not floating in nothing. You can see +a strange portal located above you. +~ +0 d 1 +D4 +The Temple of Midgaard floats above you. +~ +~ +0 -1 3001 +S +#1 +Limbo~ + You are floating in a formless void, detached from all sensation of physical +matter, surrounded by swirling glowing light, which fades into the relative +darkness around you without any trace of edges or shadow. + There is a "No Tipping" notice pinned to the darkness. +~ +0 d 1 +S +#3 +A Totally Empty Room~ + The walls are completely bare... nothing at all in the room. +How... utterly bizarre and completely weird. There is a strange +portal just above you, and it almost looks as if there is some +sort of room above you. +~ +1 dj 0 +D4 +You notice that the portal above you looks almost like glass, +albeit very dirty glass. +~ +~ +0 -1 3048 +S +$ diff --git a/lib/world/wld/12.wld b/lib/world/wld/12.wld new file mode 100644 index 0000000..9cdb21e --- /dev/null +++ b/lib/world/wld/12.wld @@ -0,0 +1,119 @@ +#1200 +The Meeting Room Of The Gods~ + The meeting room is plain and very simple. A circular table sits +in the middle of the room, lit by some unseen light source. There +are many chairs around the table, all empty. The Immortal Board Room +is to the north. +~ +12 d 0 +D0 +The Immortal Board Room can be seen to the north. +~ +~ +0 -1 1204 +S +#1201 +The Inn Of The Gods~ + The Inn of the Gods is a small room, holding only a shelf with many +small precious stones on it. When a God comes to rent his belongings, +his essence is stored in the stones. The Immortal Board Room is to +the south. +~ +12 dj 0 +D2 +The Immortal Board Room can be seen to the south. +~ +~ +0 -1 1204 +S +#1202 +The Ice Box Of The Gods~ + The Ice Box is for little boys and girls that cannot play nice. Be good +and maybe someone will come and get you. +~ +12 defh 0 +S +#1203 +The Gods' Mortal Board Room~ + Here the Gods have magically created an exact copy of the mortal board +room. Any God can easily post and read messages from the mortal board room +without being seen by any mortals. The Immortal Board Room is to the west. +~ +12 d 0 +D3 +The Immortal Board Room can be seen to the west. +~ +~ +0 -1 1204 +S +#1204 +The Immortal Board Room~ + The main hang out of the Gods, the Immortal Board Room is the place to +be. Gods exchange messages here most every day. The mortal board room is +to the east and the meeting room for the gods is to the south. To the north +is the Gods' Inn and to the west is a post office for Gods. There is a large +staircase leading down to the main temple in the city of Midgaard. In the +northeast corner you spot a small staircase leading upwards. +~ +12 d 0 +D0 +The Gods' Inn can be seen just to the north. +~ +~ +0 -1 1201 +D1 +The Mortal Board Room can be seen just to the east. +~ +~ +0 -1 1203 +D2 +The Gods' Meeting Room is located to the south. +~ +~ +0 -1 1200 +D3 +The Gods' Post Office is just to the west. +~ +~ +0 -1 1205 +D4 +There is a small stair in the corner leading up to the social room of +the Gods. +~ +~ +0 -1 1206 +D5 +You see the hustle and bustle of the Temple of Midgaard at the bottom of +the stairs. +~ +~ +0 -1 3001 +S +#1205 +The Post Office Of The Gods~ + The Post Office Of The Gods is the same as most Post Offices except that +it is not as slow. Even the Postal service knows not to anger the Gods. +Piles of junk mail line the walls. I guess even Gods get on mailing lists. +The Immortal Board Room is to the east. +~ +12 d 0 +D1 +The Immortal Board Room is just to the east. +~ +~ +0 -1 1204 +S +#1206 +The Social Gathering Room~ + This elegantly decorated room has one simple purpose. To socialize with +everyone else around in one central location. +~ +12 d 0 +D5 +The Immortal Board Room is just down through the floor. Funny how you +didn't notice that exit before isn't it? +~ +~ +0 -1 1204 +S +$ diff --git a/lib/world/wld/120.wld b/lib/world/wld/120.wld new file mode 100644 index 0000000..1858535 --- /dev/null +++ b/lib/world/wld/120.wld @@ -0,0 +1,1770 @@ +#12001 +The Judging Booth~ + You stand in the midst of a small room with windows on the east and south +walls. These windows provide a complete view of the competition fields. +There are several scorecards, pencils and other items that are used by the +judges sitting on a table. The only exit is a trapdoor leading down. +~ +120 d 0 +D5 +There is a rickety ladder leading down. +~ +trapdoor~ +1 12033 12002 +E +scorecards~ +The cards all have been filled in with the judges evaluations of today's +combatants. It seems that Sparticus is having a good day. +~ +E +pencils pencil~ +An ordinary #2 lead pencil. Judging by the teeth marks on the shaft, the +user should see a dentist very soon! +~ +S +#12002 +Caesar's Private Box~ + This is the best view in the house! You can see gladiators fighting or +the chariot races with an unobstructed view. The seats are upholstered in +red velvet and are in top-notch condition. There is a rickety ladder leading +up and a marble staircase leading down. +~ +120 cd 0 +D4 +You see a rickety ladder with a trapdoor leading up. +~ +trapdoor~ +1 12033 12001 +D5 +There is a marble staircase leading down. +~ +~ +0 -1 12003 +S +#12003 +The West Side Of The Commoner's Seating Area~ + This is the western side commoner's seating area. There are row upon +row of rough wooden benches bolted to the floor. There is stadium garbage +everywhere and the smell makes you want to puke. Stairs lead up to Caesar's +private box, a small ramp leads down to the playing field and a hallway +leads south. +~ +120 0 1 +D2 +You see a small hallway that leads to a larger area. +~ +~ +0 -1 12004 +D4 +Watch your step! +~ +~ +0 -1 12002 +D5 +Watch your step! +~ +~ +0 -1 12010 +E +seats benches~ +The benches are made of rough cut lumber that has dried and split over time. +You would probably get splinters if sat on them. The words 'BURT WAS HERE' +have been carved into one of the benches with exquisite care. +~ +S +#12004 +The Southern Commoner's Seats~ + This is the southeastern part of the common seating areas. The benches +here are made of stone and are probably centuries old. A few scratches on +one of the benches catch your eye. An acrid smell is coming from the east +and a tunnel leads off to the north. +~ +120 0 1 +D0 +The tunnel looks like it leads to another seating area. +~ +~ +0 -1 12003 +D1 +There is an acrid smell coming from that direction. +~ +~ +0 -1 12011 +E +marks scratches~ +They look like they form the words "Onivel Cinemod Semaj" But you could be +mistaken. +~ +S +#12005 +The Abandoned Gate~ + This used to be a gateway to and from western Rome. There is an iron gate +blocking your way and judging by the amount of rust and foliage growing on the +bars, it hasn't been open for years. Looking through the gate at the barren +landscape that lies beyond, you can see why. A dirt road leads off to the +east, and a store is directly south. +~ +120 0 1 +D1 +Through the clouds of dust, you can make out a passable road. +~ +~ +0 -1 12012 +D2 +You can barely make out a storefront through the foliage. +~ +~ +0 -1 12006 +D3 +The gate has been permanently rusted shut and is further secured by a large +chain and padlock. Don't even bother THINKING about trying to open it. +~ +gate~ +2 -1 -1 +E +gate~ +The gate has been permanently rusted shut and is further secured by a large +chain and padlock. Don't even bother THINKING about trying to open it. +~ +S +#12006 +Swords 'R Us~ + Welcome to the weaponshop of Titus Andronicus!! Rare halberds, whips, +swords and other instruments of death are proudly displayed on the walls +and in gleaming glass cases. More common weapons are stacked like wood on +the floor. To the north you can barely make out a gate. There is a very +secure looking door to the south. +~ +120 dh 0 +D0 +You can see a city gate to the north. +~ +~ +0 -1 12005 +D2 +There is a very secure looking door blocking your progress. +~ +door~ +2 12034 12007 +E +swords weapons armor halberds whips~ +Titus has enough hardware in here to outfit a large army. Maybe that's why +he has a lucrative contract to sell weapons to the Emperor's armies for +outrageous prices. +~ +S +#12007 +The Back Room~ + If you thought that there were a lot of weapons in the front of the store, +you haven't seen anything yet!! There is barely enough room to walk amongst +the crates of armor and swords. No wonder Rome will stand for a thousand +years. The only exit is through a door to the north. +~ +120 ad 0 +D0 +Through the piles of weapons, you can see a door leading north to the rest of +the store. +~ +door~ +2 12034 12006 +E +weapons swords crates armor weapon sword crate~ +There are literally thousands of each. Take your pick. +~ +S +#12008 +Peanut Heaven~ + You are now so high up that you begin to feel lightheaded and your nose +feels like it is going to start bleeding. There aren't even benches to sit +on here; just bare dirty stone. The view of the surrounding country is +spectacular. Unfortunately you can barely see the playing field. There is +a set of steps here, leading down. +~ +120 0 1 +D5 +Watch your step! +~ +~ +0 -1 12015 +E +landscape country~ +You can see the entire city of Rome from here. The buildings housing the +Roman government are to the east. To the south east, off in the distance, +is the massive aqueduct and further in that direction lies the Mountain of +the Gods. +~ +S +#12009 +The Practice And Warm-up Area~ + There are many gladiators, chariot drivers and their coaches here, warming +up in preparation for the games. The dust rising from the parched earth makes +you want to sneeze. A short tunnel leads east and the thunder of pounding +hooves and the clash of weapons can be heard coming from the south. +~ +120 0 2 +D1 +There is a large oval dirt-track in that direction. +~ +~ +0 -1 12016 +D2 +You can hear the clash of weapons and the thunder of hooves in that +direction. +~ +~ +0 -1 12010 +E +gladiator~ +He is a big muscular man with lots of armor. He sizes you up and decides +that you aren't worth his time or trouble. +~ +E +driver~ +The driver is too busy changing a wheel on his chariot to notice you. +~ +E +chariot~ +You see a two wheeled open cart which is obviously meant to be pulled by +horses. The flaming paint-job and the large '01' stenciled on the side +identify the chariot as belonging to Drucilis 'Lightning-whip' Octavious, +a favorite driver of the masses. +~ +E +coach trainer~ +The coach tell you "Stop bothering my athletes and get lost!" +~ +S +#12010 +The Jousting Arena~ + This is a wide open grassy plane... LOOK OUT!!!! You are almost +skewered by a gladiator's lance as he makes his charge. A practicing +area is due north. +~ +120 c 2 +D0 +Through a small tunnel you can see athletes stretching and warming up for +the games. +~ +~ +0 -1 12009 +D4 +You see a set of steps leading up into the spectator stands. +~ +~ +0 -1 12003 +E +gladiator~ +He is in the final stages of a charge against his opponent... THUD! CLANG! +CRASH!!!!... judging from the blood and the amount of distance that now +separates the gladiators head from the rest of his body, you can safely +assume that this was the final combat of his life. +~ +S +#12011 +The First-Aid Station~ + This is the place to come to if one is overcome by the heat and gore. +(Or if a lion gets loose) You see a jar of live leeches and other barbaric +medical apparati lying about here. From the west comes the roar of the +crowd, and a hall leads east. The healer will be with you shortly. +~ +120 cd 0 +D1 +You see hundreds, perhaps thousands of people. +~ +~ +0 -1 12018 +D3 +Rows of stone bleachers lie to the west. +~ +~ +0 -1 12004 +E +leech leeches~ +DISGUSTING! Each is about the size of matchbox and very slimy. You are VERY +glad that you have access to a cleric! +~ +S +#12012 +A Dirt Road~ + You are on a parched and dusty rural road which runs east and west. There +is a structure lying to the south. +~ +120 0 2 +D1 +Through the dust, you see a paved road. +~ +~ +0 -1 12019 +D2 +It is difficult to see through the haze and dust. +~ +~ +0 -1 12013 +D3 +It is difficult to see through the haze and dust. +~ +~ +0 -1 12005 +S +#12013 +The Commoner's House~ + You are standing in the main living quarters of a common Roman citizen. +The furnishings are sparse and it is warm here. A putrid odor is coming +from the east and passages lead north and south. +~ +120 d 0 +D0 +A dusty road lies to the north. +~ +~ +0 -1 12012 +D1 +What is that smell??!!! It is enough to make a yak gag!!! +~ +~ +0 -1 12020 +D2 +You hazard a guess that a bedroom lies in that direction. +~ +~ +0 -1 12014 +E +furnishings furniture~ +The furniture that you see is very simple and plain. It is made of rough hewn +wood and fastened together with nails. It looks very uncomfortable. +~ +S +#12014 +The Bedchamber~ + This is the bedroom. There is a hard and lumpy bed in the far corner. +It looks like the commoner's wife has been shirking her duties lately, as +there is a big pile of soiled laundry here. The only way out is from where +you came. +~ +120 cd 0 +D0 +You see the living quarters to the north. +~ +~ +0 -1 12013 +E +laundry wash clothing~ +It smells of sweat and is covered with mud. +~ +S +#12015 +The Noblemans' Box~ + These are the 'better' seats used primarily by the upper class of Rome. +There is a large seating area to the east and a staircase leading up here. +The view of the chariot track is pretty good. +~ +120 0 0 +D1 +Rows upon rows of bleachers lie to the east. +~ +~ +0 -1 12022 +D4 +The stairs look safe enough. +~ +~ +0 -1 12008 +S +#12016 +The Race Track~ + This is a hard dirt track about a quarter of a mile long. There are hoof +prints everywhere, and you see a large cloud of dust approaching. You had +better move before you get run over. A small tunnel leads west, you can see +the crowd to the east. You can hear loud snarls and roars coming from below. +~ +120 0 2 +D3 +You see athletes warming up and stretching. +~ +~ +0 -1 12009 +D4 +~ +~ +0 -1 12023 +D5 +Do you like lots of live lions that haven't been fed for a few days? +~ +~ +0 -1 12017 +S +#12017 +The Lion Pit~ + As you land at the bottom of this dirt-walled pit, the realization that a +pit full of lions is NOT a good thing to be hanging around in. Several of +the gladiators gather around the edge of the pit to watch your demise. You +look around you, and all you see is tawny fur and gaping jaws... it is too +late to run, too late to hide. + Twelve lions rip you and your belongings into a gory mass of bloodied +leather, bronze, and bone. + + What's that old saying? + Cats killed the curious? Something like that, I'm sure... + +~ +120 bd 0 +D4 +~ +~ +0 -1 12010 +D5 +~ +~ +0 -1 12016 +S +#12018 +The South Entrance To The Coliseum~ + You are standing at the south entrance to the Coliseum. There are +citizens of Rome everywhere, apparently in a mad rush to get in. A +statue of Caligula the Mad Emperor overlooks the area. There are long +lines standing to the east, and an acrid smell is coming from the west. +A busy road lies to the south. +~ +120 c 1 +D1 +The lines are very long and people look impatient. +~ +~ +0 -1 12025 +D2 +A road lies in that direction. +~ +~ +0 -1 12019 +D3 +An acrid, almost medicinal smell is coming from that direction. +~ +~ +0 -1 12011 +E +statue caligula~ +A larger than life stone statue of Caligula, the Mad Emperor, looks at you. +It looks like it is holding a phallus. He has got a grin on his face that +seems to say 'My horse would like you, I bet...' +~ +S +#12019 +The Main Highway~ + This is a well built and heavily traveled road running from east to west +and there is a large structure built entirely of stone to the north. +~ +120 0 1 +D0 +You can hear the roar of a large crowd of people coming from that direction. +~ +~ +0 -1 12018 +D1 +The highway continues to the east. +~ +~ +0 -1 12026 +D3 +The highway continues to the west. +~ +~ +0 -1 12012 +S +#12020 +The Outhouse~ + PEEEEEEEEEEEEEEEE-YEEEEEWWWWWWWW!!!!! Boy does it stink in here!!! You +taste bile in your mouth and your eyes begin to water. As you wipe away your +tears, you see that this is a small room, in the far corner of which a hole +is dug. The odor intensifies as you move closer and there is a roll of toilet +paper sitting on the ground. The only exit is to the west and your nose and +stomach are strongly suggesting that you use it. +~ +120 d 0 +D3 +The living quarters lie in that direction. Why don't you stop pussyfooting +around and go that way??!! Please? +~ +~ +0 -1 12013 +E +hole toilet~ +You walk over to the hole and see that there is a large turd floating in a +pool black water about 2 feet below the surface of the ground. As you lean +closer to get a better look, your nose catches a concentrated dose of the +fragrant aroma wafting upwards. Your stomach decides that it has had enough +of this shoddy treatment and you puke until it is empty. +~ +E +roll paper~ +Hey!! This is first-class stuff!! - White Cloud brand with lotion. The roll +is about half-used. +~ +S +#12021 +The Slave Quarters~ + This is where the slaves sleep. There are hard boards set out for use +as beds and not much else. The only exit is to the east. +~ +120 d 0 +D1 +To the east, a well manicured path winds through the nobleman's estate. +~ +~ +0 -1 12027 +S +#12022 +The Common Seating~ + This is where many of the common Roman citizens are seated during the +games. These are the cheapest seats in the house, as glare from the sun +is usually a problem during the afternoon. Like the other common seating +areas, this place could stand extensive renovation and a thorough cleaning. +This area extends to the south and a much more elegant seating area can be +seen to the west. +~ +120 0 1 +D3 +The seating gets much fancier and elegant in that direction. +~ +~ +0 -1 12015 +D2 +The common seating area continues. +~ +~ +0 -1 12023 +S +#12023 +The Common Seating~ + This is where many of the common Roman citizens are seated during the +games. Like the other commoners' areas in the coliseum, it could use +extensive renovation and cleaning. This area extends to the north and +lots of noise can be heard coming from the south. +~ +120 0 1 +D0 +The common seating area continues. +~ +~ +0 -1 12022 +D2 +You see hundreds, perhaps thousands of people. +~ +~ +0 -1 12024 +S +#12024 +The East Entrance To The Coliseum~ + You are standing at the east entrance to the Coliseum. There are people +everywhere, apparently in a mad rush to get in. A statue of Tiberius, an +Emperor of a time long since passed, stands here looking out over the crowd. +There is a passage to the north, the ticket booth is to the south and a gate +opening to the city lies to the east. +~ +120 c 1 +D0 +You see rows upon rows of dilapidated wooden bleachers. +~ +~ +0 -1 12023 +D2 +There are VERY long lines standing outside the ticket booth. +~ +~ +0 -1 12025 +D1 +Nero Drive lies in that direction. +~ +~ +0 -1 12031 +E +statue tiberius~ +The statue of Tiberius, made of iron, stands here. +~ +S +#12025 +The Ticket Booth~ + Long lines are standing here, waiting to buy tickets. There are three +vendors working furiously. Ticket stubs litter the ground and you can see +that the people are getting very impatient. There is a large, open cashbox +here. Main entrances to the Coliseum are to the north and west. +~ +120 d 0 +D0 +You see hundreds, if not thousands of people. +~ +~ +0 -1 12024 +D3 +You see hundreds, if not thousands of people. +~ +~ +0 -1 12018 +E +cashbox~ +It is a shame that the exchange rate for Roman money is so low. What amounts +to a fortune in Rome isn't even worth one gold coin. The contents of the box +add up to about... well forget it. It isn't worth your time or trouble to +carry it around. +~ +S +#12026 +A Paved Road~ + You are on a paved road that runs east to west. You can see an elaborate +looking estate to the south and to the north-west, off in the distance, you +can see a very large stone structure. +~ +120 0 1 +D1 +The road leads off to the east. +~ +~ +0 -1 12033 +D2 +It looks like a Nobleman's estate. We are talking RICH nobleman's estate. +~ +estate house~ +0 -1 12027 +D3 +The road leads west towards the highway. +~ +~ +0 -1 12019 +E +structure~ +That would probably be the Coliseum. There are a few good matches scheduled +for today. +~ +S +#12027 +A Noble Estate~ + You are on the grounds of a nobleman's estate which is hundreds of times +the size and splendor of anything that a common citizen of Rome would ever +hope to own. Everything is lush and green. The grass is perfectly manicured +and the trees are all bearing fruit. Ornamental plants are in perfectly +situated to enhance and adorn the three statues of dedicated to gods Jupiter, +Venus and Neptune. A tranquil path leads east and west, there is a paved road +to the north and an extravagant house lies to the south. +~ +120 0 2 +D0 +You see a paved road in the distance. +~ +~ +0 -1 12026 +D1 +The path leads east through the estate. +~ +~ +0 -1 12034 +D2 +You see an incredible house off in the distance. +~ +~ +0 -1 12028 +D3 +Off through the trees, you see a small, plain hut. +~ +~ +0 -1 12021 +E +Venus~ +Venus, the Roman goddess of beauty and knowledge is displayed in a all of her +splendor. +~ +E +Jupiter~ +A statue made of pure gold depicts Jupiter sitting on his throne. The throne +looks like it is made of silver. +~ +E +Neptune~ +The statue of Neptune is made of pure jade and is holding a crystal trident. +It is sitting in the center of a small pond which has hundreds of beautiful +fish swimming in it. +~ +E +trees tree shrubs shrub plants plant~ +All of the plants, trees and shrubs are perfectly trimmed, without so much +as a dead leaf anywhere to be seen. You welcome the shade that they give +from the harsh sun above. +~ +S +#12028 +An Opulent House~ + You stand in a house, the size and splendor of which almost defies the +imagination. The floor is done with hand crafted marble tile with silver +and jeweled inlays. The light coming through the exquisitely crafted stained +glass windows bathes the room in splendor and the furniture looks as though +it was made by master craftsmen from all over the empire. A path through the +estate is north of here. +~ +120 cd 0 +D0 +You see a well manicured path that winds through the estate. +~ +~ +0 -1 12027 +E +floor tile~ +Very expensive! A lot of master craftsmen labored long and hard to produce +such a work of art. +~ +E +windows~ +They are intricate and the scenes that they depict cast honor on several of +the gods. +~ +E +furniture~ +You hope to eventually be able to own a piece of furniture just like these +someday. These are only dreams, of course. +~ +S +#12029 +The Great North Gate~ + This is the northern gateway to the city of Rome. The huge gate appears +to be closed and locked against intrusion. A large road muddy road runs +through the gate and into the countryside. Nero Drive runs south from here. +~ +120 0 1 +D0 +The gate is made of solid iron and is well maintained. +~ +gate~ +2 -1 -1 +D2 +Nero Drive continues in that direction. +~ +~ +0 -1 12030 +E +gate~ +The gate is made of solid iron and is well maintained. +~ +E +road~ +The road is wide and very muddy. +~ +S +#12030 +Nero Drive~ + You are walking on a paved road that runs south through the city of Rome. +A great gate is directly north of here. The Roman citizens are very friendly +and tip their hats or say hello as you pass. +~ +120 0 1 +D0 +To the north, you can see a gate leading out of the city. +~ +~ +0 -1 12029 +D2 +Nero Drive continues in that direction. +~ +~ +0 -1 12031 +D3 +You see the bakery of Rome. +~ +~ +0 -1 12062 +S +#12031 +Nero Drive~ + You are walking on a great paved road that runs north and south through +the city. People are hurrying from one place to another, but always stop +to say hello. Most of the people are either coming from or going to the +town square. Nero Drive continues to the north, and you can see a large +open area to the south. +~ +120 0 1 +D0 +Nero drive continues in that direction. +~ +~ +0 -1 12030 +D2 +It looks like the town square. +~ +~ +0 -1 12032 +D3 +You see the an opulent estate. +~ +~ +0 -1 12024 +S +#12032 +The Town Square~ + You are standing in the middle of a large open area which is the common +area of Rome. During the day, this place is alive with the hustle and +bustle of all of the citizens of Rome and everyone in the city is sure to +stop by at some time or another. There are several street vendors peddling +their wares and the overall atmosphere is carnival-like in nature. To the +southeast, off in the distance, you can see the aqueduct and the buildings +of the Roman government lie to the northwest. Nero Drive leads north and +south from here and Clay Avenue runs east. +~ +120 0 1 +D0 +Nero Drive heads in the direction of the northern gate. +~ +~ +0 -1 12031 +D2 +A street made of hard packed clay runs in that direction towards the +aqueduct and buildings of the Roman government. +~ +~ +0 -1 12033 +D1 +Nero Drive heads in the direction of the south gate. +~ +~ +0 -1 12039 +E +vendor vendors~ +There are several sidewalk vendors here, selling fresh fruits and vegetables, +home baked goods, fine jewelry and other items. Most of the items for sale +are of very high quality. +~ +E +aqueduct~ +To the southeast, off in the distance, stands a large stone structure that +is used to channel water into the city. +~ +S +#12033 +Nero Drive~ + You are walking on a paved road that runs north and south through the +city of Rome. There are many people here, as polite as always. Most of +them are either coming from or going to the town square which lies to the +north. Nero Drive continues to the south. There is an observation area +overlooking the aqueduct to the east and a paved road leads west. +~ +120 0 1 +D0 +The town square lies in that direction. +~ +~ +0 -1 12032 +D1 +The aqueduct and mountain of the gods are in that direction. +~ +~ +0 -1 12040 +D2 +Nero Drive continues toward the South Gate. +~ +~ +0 -1 12034 +D3 +A paved road runs west through the city. +~ +~ +0 -1 12026 +S +#12034 +Nero Drive~ + This is a busy paved road that runs north through the city. The people +of Rome are very friendly and say hello as you pass. A gate leading out of +the city lies to the south and a small path goes west towards a nobleman's +estate. To the east, off in the distance, lies the great mountain. It is +rumored that the Gods watch over and protect the empire from there. +~ +120 0 1 +D0 +Nero Drive leads in that direction. +~ +~ +0 -1 12033 +D2 +You see many people entering and leaving the city through a large gate in the +walls protecting the city. +~ +~ +0 -1 12035 +D3 +It looks like a nobleman's estate. We are talking RICH nobleman's estate. +~ +~ +0 -1 12027 +S +#12035 +The South Gate~ + This is the southern gateway to the city of Rome. The bronze gate is +closed and locked. Looking through the bars, you see a heavily traveled +road leading out of the city. Nero Drive starts here and runs north and +a wizard's shop lies to the east. +~ +120 0 1 +D0 +Nero Drive leads towards the center of town. +~ +~ +0 -1 12034 +D1 +A small store, from which an occasional detonation can be heard, lies off +in that direction. It appears to be surrounded by a rolling pink mist. +~ +~ +0 -1 12042 +D2 +The gate appears to be closed and locked against intruders. +~ +gate~ +2 -1 -1 +E +gate~ +The gate appears to be closed and locked against intruders. +~ +S +#12036 +The Emperor's Private Office~ + You are standing in the Emperor's private office. The room is richly +furnished with the finest of the loot brought back from conquests of far +away lands. There is a massive, intricately carved desk here, upon which +are important documents, decrees and other paperwork involved in running +the empire. On the far wall, there is a marble bookcase that is well +stocked with the works of Homer, Plato, Socrates and other wise men. +Further, it seems that the current Emperor likes flowers as there are +many potted and cut specimens throughout the room. There is a french +door leading to the waiting room and a wooden door to the south. +~ +120 d 0 +D1 +Through the door, you see a waiting room. +~ +doors french~ +2 12035 12043 +D2 +The south door leads directly to the senate chambers. +~ +door wooden~ +2 12035 12037 +E +desk~ +The desk is made of solid walnut and gold inlay. It is exquisitely carved +with superior craftsmanship, the likes of which has rarely been seen. It +was probably brought to Rome from Gaul. +~ +E +documents decrees paperwork document decree papers paper~ +The documents are all written on reed scrolls made in Egypt and have been +sealed with wax. +~ +E +bookcase books~ +The books are very old and contain the wisdom of wise men from throughout the +entire Roman empire. They appear to be collecting dust. +~ +E +flowers plants flower plant~ +The plants contribute to a very relaxing atmosphere. +~ +S +#12037 +The Senate Chambers~ + This is the working room where elected senators from all over the empire +gather to advise the Emperor. An official seal of the Emperor is hanging on +the far wall. There is a wooden door to the north and a bronze door to the +east and doublehung door to the south. +~ +120 d 0 +D0 +The door is made of thick walnut. +~ +door wooden~ +2 12035 12036 +D1 +The door leads to the foyer. +~ +door bronze~ +1 12036 12044 +D2 +~ +door doublehung~ +1 12037 12038 +S +#12038 +The House Of Commons~ + This is the lower house of the advising body to the Emperor. Common men +from all parts of Rome work here to further assist the senators in advising +the Emperor on critical matters of state. The seal of the Emperor is painted +on the far wall. The only exit is to the north. +~ +120 d 0 +D0 +You see that the doublehung door leads to the senate chambers. +~ +door doublehung~ +1 12104 12037 +S +#12039 +Clay Avenue~ + You are on a wide well traveled road running east and west through the +heart of Rome. There are large crowds of people to the west and the road +continues to the east. The aqueduct is directly south of here. +~ +120 0 1 +D1 +Clay Avenue continues in that direction. +~ +~ +0 -1 12046 +D2 +You see an entrance to the aqueduct. +~ +~ +0 -1 12041 +D3 +There are large crowds of people in that direction. +~ +~ +0 -1 12032 +E +crowds people~ +It looks like some kind of bizarre or festival is occurring to the west. +There are hundreds of people of all classes shopping, talking or eating. +~ +S +#12040 +The Observation Lookout~ + You are on a platform overlooking a massive aqueduct. There is a +telescope mounted to the railing that surrounds the area and you can +hear the gurgle of water as it is channeled into the city. Off in +the distance, you can see the Mountain of the Gods. +There is a sign mounted to the railing and a ramp leads west. +~ +120 0 1 +D3 +You can see a busy street in that direction. +~ +~ +0 -1 12033 +E +telescope~ +If it were operational, it would offer a spectacular view of the Mountain of +the Gods. Unfortunately, it appears to have been vandalized. +~ +E +aqueduct~ +The aqueduct is a massive stone structure that channels water into Rome from +the Mountain of the Gods. During the rainy season, it is filled to the top. +However, due to recent drought, the water level appears to be very low. +~ +E +sign~ + + ******************************************** + * * + * The Roman Aquarian and Mountain * + * Observation Platform * + * * + * Designed and built by the Froboz * + * Magic Platform Company * + * * + ******************************************** + +~ +S +#12041 +The Aqueduct~ + You are in a massive stone structure that has been designed to channel +water into the city of Rome. Due to the recent drought, the water level +is low, allowing passage without a boat. The walls and floor are covered +with algae and slime producing treacherous footing conditions. There are +exits to the north, south and east. +~ +120 cd 6 +D0 +You can see a wide street to the north. +~ +~ +0 -1 12039 +D1 +You see more aqueduct. +~ +~ +0 -1 12048 +D2 +You see more aqueduct. +~ +~ +0 -1 12041 +D3 +You see more aqueduct. +~ +~ +0 -1 12054 +E +slime algae~ +Due to the availability of moisture and nutrients, a green, viscous slime has +grown and covered everything with a slippery coating. It seems to go out of +its way to drip on you. +~ +S +#12042 +The Mage's Shop~ + You are standing in the mage's shop. Magical ointments, charms and +potions are sitting on shelves and behind a glass counter. There is a +dense neon blue fog hugging the floor here, making it impossible to see +below your knees. You suddenly hear mutterings coming from the back +room, possibly from... +KKKKKAAAAAABBBBOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMMMMMMMMMMMMMMMM!!!!!! +You are deafened by the noise from a tremendous explosion and the +concussion from the blast staggers you! The shopkeeper seems to pay +no heed to this. The door to the back room opens and an older man, +wearing a pointed hat, whose face is smudged with soot sticks his head +out. 'Is everyone alright? Sorry about that. I was testing a new +spell. I'll try to give advance notice next time.', he says. The door +then closes. +~ +120 d 0 +D1 +The door is reinforced with steel and looks VERY sturdy. Considering the +'test' that you just witnessed, you are glad that it stands between you and +whatever is going on in the back room. +~ +door~ +2 12038 12049 +D3 +You see the south gate through the door. +~ +~ +0 -1 12035 +E +fog mist~ +This is some really strange stuff! You have never seen anything this color +before. Your legs are totally obscured from the knee down. +~ +S +#12043 +The Waiting Room~ + You are standing in a very large room with a high ceiling and there +are a few people waiting here to see the Emperor on urgent matters. The +master scheduler tells you to have a seat and sends a page to inform the +his highness of your arrival. There are large doors to the east and west +and an exit leads south to the foyer. +~ +120 d 0 +D1 +There is a sign on the door that says: MUNICIPAL COURT OF ROME. It appears +to be open. +~ +~ +0 -1 12050 +D2 +The foyer is directly to the south. +~ +~ +0 -1 12044 +D3 +There is a large door to the west. +~ +door~ +2 12035 12036 +S +#12044 +The Entrance Foyer~ + You have just entered the main government building of the Roman Empire +and are standing in a massive room with an elaborately decorated domed roof. +There are many people here; messengers and senators being the most numerous. +There is a large, ornate door to the west, a hallway leads north and marble +stairs that lead out of the building are to the south. +~ +120 d 0 +D0 +You see a hallway leading north to what looks like a waiting room. +~ +~ +0 -1 12043 +D3 +There is a large door to the west that blocks your path. +~ +door~ +1 12036 12037 +D5 +You see a stairway leading out of the building. +~ +~ +0 -1 12045 +S +#12045 +Outside The Capitol Building~ + You stand on white marble steps that lead up and into the Capitol +Building. There are several statues, none of any real significance, +at the entrance to the building. The main entrance to the building +is at the top of the steps. +~ +120 0 1 +D4 +The steps lead into the Capitol Building. +~ +~ +0 -1 12044 +D5 +The steps terminate onto Clay Avenue. +~ +~ +0 -1 12046 +E +stairs stairway steps~ +The stairs are immaculately polished and made of white marble. +~ +E +statue statues~ +There is really nothing noteworthy about them. +~ +S +#12046 +Clay Avenue~ + You are standing on a wide, heavily traveled road that runs east and +west through the heart of the city. There are marble steps leading up. +To the south, off in the distance, you can see a large stone structure +and a mountain that is partially obscured by the haze. There is a +general store to the north. +~ +120 0 1 +D0 +The general store lies in that direction. +~ +~ +0 -1 12063 +D1 +There is what appears to be a large gate in that direction. +~ +~ +0 -1 12051 +D3 +Clay Avenue continues. +~ +~ +0 -1 12039 +D4 +There are some white marble steps leading up. +~ +~ +0 -1 12045 +E +stone structure aqueduct~ +You see a massive stone structure, built several centuries ago, that is used +to channel water into the city. +~ +E +mountain~ +Off to the southwest, you can see a huge mountain that is partially obscured +by the haze. It is rumored that the gods reside there and protect the city. +~ +S +#12047 +The Summit Of The Mountain Of The Gods~ + You are at the summit of a very high mountain and are standing above +the clouds. The sun is shining brilliantly here and the clouds below +look like balls of cotton. The path that you have been walking on is +damp and the scent of lilac is in the air. +~ +120 0 5 +D5 +You see a damp path leading back down the mountain. +~ +~ +0 -1 12052 +S +#12048 +The Aqueduct~ + You are in a massive stone structure that has been designed to channel +water into the city of Rome. Due to the recent drought, the water level +is low, allowing passage without a boat. The walls and floor are covered +with algae and slime, producing treacherous footing conditions. There are +exits in all four cardinal directions. +~ +120 d 6 +D0 +The aqueduct continues. +~ +~ +0 -1 12057 +D1 +The aqueduct continues. +~ +~ +0 -1 12041 +D2 +The aqueduct continues. +~ +~ +0 -1 12041 +D3 +The aqueduct continues. +~ +~ +0 -1 12048 +E +slime algae~ +Due to the availability of moisture and nutrients, a green viscous slime has +grown and covered everything with a slippery coating. It seems to go out of +its way to drip on you. +~ +S +#12049 +Froboz's Workshop~ +You are standing in the workshop of Froboz the Great, the most powerful and +famous mage that Rome has ever known. Workbenches line the walls and are +covered with various test tubes, beakers, petri dishes and crucibles and +there is an odor in here that can best be described as a combination of old +sweat socks and burning tires. The only exit is back through the door +through which you came. In the middle of the room, you see a pile of ashes +that looks like it once was a body and Froboz is is busy making adjustments +on a new type of magic wand... possibly the one responsible for the explosion +a few minutes ago. He removes a jeweler's loupe from his eye as he turns +around. 'How in the name of Merlin did you get in here??!!' he asks. 'Oh, +nevermind! Since you are here, you can serve as witnesses to the final test +of the new mages' spell: "ectowatt".' With this he makes a magical gesture +and a paladin appears. Crossing his fingers, Froboz waves the wand his +direction and what happens next is incredible! The Paladin is enveloped in +what appears to be a small, well contained, thermonuclear explosion. When +the smoke clears you can see that the paladin and all of equipment has been +reduced to a large pile of flaming cinders. Froboz throws his head back and +cackles with insane glee. 'Now, my young friends, what can I do for you?', +he asks. +~ +120 d 0 +D3 +There is a door, reinforced with steel, in that direction. +~ +door~ +2 12038 12042 +E +workbench workbenches tubes beakers crucibles dishes~ +These are all tools of great power. You cannot even begin to understand what +any of this stuff does. +~ +E +cinders ashes pile~ +The ashes are a very fine grayish white powder that seems to be the only +worldly remains of Froboz's "test specimens". +~ +S +#12050 +The Courtroom~ + You stand inside of a large courtroom in which common civil disputes and +criminal matters are decided. There is a judge's bench and a witness stand +on the far side of the room and a jury's box along side. The Emperor's seal +is prominently displayed on the wall behind the judge's stand, reminding all +who enter that he is an extension of his highness. There is a door, possibly +leading to the judge's chambers, to the east and the waiting room is to the +west. +~ +120 d 0 +D1 +The door might lead into the judge's private chambers. +~ +door~ +1 12039 12055 +D2 +The holding cells lie in that direction. +~ +~ +0 -1 12060 +D3 +The waiting room lies in that direction. +~ +~ +0 -1 12043 +E +bench stand box jury~ +You see large wooden structures that are designed to separate the judge, jury +and witnesses from the rest of the courtroom. They are made of polished +oak and are strictly functional. +~ +E +seal~ +The seal of the Emperor is mounted above the judge's stand. +~ +S +#12051 +The East Gate Of Rome~ + You are standing inside of the eastern gate of Rome. There are two tall +spires built into the city wall, from which the guards can see the whole +eastern side of the city. The gate is currently open and to the east, +there is a heavily used road, made of packed clay, that leads out of Rome. +Another road leads westward into the city. +~ +120 0 1 +D1 +The clay road heads eastwards. +~ +gate~ +1 -1 12064 +D3 +The clay street leads into the city. +~ +~ +0 -1 12046 +E +spires towers~ +There are two tall spires on either side of the gate and are constantly +manned by the city guards. They are made of stone and stand about 40 +feet tall. +~ +E +gate~ +The gate is fabricated from iron and has been designed to keep intruders +out of the city. +~ +S +#12052 +A Mountain Path~ + You stand on a small trail that leads up and down. It has recently been +raining and there are small puddles everywhere. You are just below the +clouds and the view of the surrounding countryside is breathtaking. +~ +120 0 5 +D4 +The trail leads up and enters the clouds. +~ +~ +0 -1 12047 +D5 +The trail leads down. +~ +~ +0 -1 12056 +E +trail~ +The mountain trail is a little muddy, due to the recent rains. +~ +S +#12054 +The Aqueduct~ + You are in a massive stone structure that has been designed to channel +water into the city of Rome. Due to the recent drought, the water level +is low, allowing passage without a boat. The walls and floor are covered +with algae and slime, producing treacherous footing conditions. There are +exits in all four cardinal directions. +~ +120 d 6 +D0 +The aqueduct continues. +~ +~ +0 -1 12041 +D1 +The aqueduct continues. +~ +~ +0 -1 12054 +D2 +The aqueduct continues. +~ +~ +0 -1 12057 +D3 +The aqueduct continues. +~ +~ +0 -1 12048 +E +slime algae~ +Due to the availability of moisture and nutrients, a green, viscous slime has +grown and covered the everything with a slippery coating. It seems to go out +of its way to drip on you. +~ +S +#12055 +The Judge's Chambers~ + You are in a small room that is filled with legal tombs. There is a +small desk here, literally buried under legal documents. There is also +a small window overlooking the northern part of the city. +~ +120 d 0 +D3 +The courtroom lies in that direction. +~ +door~ +1 12039 12050 +E +tombs books~ +The books are very large and filled with Roman legal precedent. +~ +E +papers documents~ +There are hundreds of pages of petitions, lawsuits and court orders sitting +on the desk. One particularly interesting case involves a nobleman, a slave +and a roll of toilet paper. +~ +S +#12056 +A Mountain Path~ + You are standing on a small trail that leads through a grove of trees. +Every thing is lush and green here and it appears to have been raining +recently. 'This would be an ideal place for a picnic.' , you think to +yourself. +~ +120 0 5 +D4 +You see a small trail leading further up the mountain. +~ +~ +0 -1 12052 +D5 +You see a small trail, leading down. +~ +~ +0 -1 12059 +E +tree trees vegetation~ +All of the vegetation is lush, green and in full bloom. You wish that you +could take the time to stop and enjoy it properly. +~ +E +trail path~ +The path is a little muddy, possibly due to a recent thundershower. +~ +S +#12057 +The Aqueduct~ + You are in a massive stone structure that has been designed to channel +water into the city of Rome. Due to a recent drought, the water level is +low, allowing passage without a boat. The walls and floor are covered +with algae and slime, producing treacherous footing conditions. A valley +lies to the south and the other cardinal directions lead further into the +aqueduct. +~ +120 d 6 +D0 +The aqueduct continues. +~ +~ +0 -1 12054 +D1 +The aqueduct continues. +~ +~ +0 -1 12054 +D2 +You see a gorgeous valley. +~ +~ +0 -1 12058 +D3 +The aqueduct continues.... +~ +~ +0 -1 12041 +E +slime algae~ +Due to the availability of moisture and nutrients, a green, viscous slime has +grown and covered everything with a slippery coating. It seems to go out of +its way to drip on you. +~ +S +#12058 +The Valley Of The Gods~ + You stand in a tranquil valley at the base of a large mountain. A quiet +stream, with fruit trees growing along its banks, winds its way peacefully +through the valley and enters a large stone structure that lies to the west. +There are birds singing and every now and then a ripple breaks the surface +of the stream. You can see a path leading through the trees to the up. +~ +120 0 4 +D0 +A small path winds its way through the trees. +~ +~ +0 -1 12057 +D4 +You see a path leading up the mountain. +~ +~ +0 -1 12059 +E +stream brook~ +A stream of the clearest, cleanest water that you have ever seen winds its +way through the valley. +~ +E +fish~ +A variety of species swims peacefully in the cool, clear water. +~ +E +trees fruit~ +The fruit trees, nourished by the fertile ground at the edge of the stream +and sustained by the brilliant sunshine, line the banks of the stream and +are laden with fruit. +~ +S +#12059 +A Mountain Path~ + You are standing on a path that leads up through a stand of large trees. +Everything is green and it seems like eternal spring - this is Mother Nature +at her finest. It is possible to descend into a tranquil valley from here. +~ +120 0 5 +D4 +The path leads further up the mountain. +~ +~ +0 -1 12056 +D5 +The path widens out into a tranquil valley. +~ +~ +0 -1 12058 +E +trees~ +The trees are old and tower hundreds of feet above the ground. If you stand +still and listen carefully, you can hear the birds singing. +~ +S +#12060 +The Holding Cells~ + You are standing in the holding cell area, just off of the cortroom. Those +who are recently convicted of serious crimes are brought here, pending torture +and execution. The courtroom lies to the north and another exit goes east. +~ +120 d 0 +D0 +The courtroom lies to the north. +~ +~ +0 -1 12050 +D1 +~ +~ +0 -1 12061 +E +cells cell~ +You can see small and very cramped cells which are filthy. You shiver and +vow to never do anything that would cause you to become a resident. +~ +S +#12061 +The Torture Chamber~ + You are standing in a very small room in which there are many tools +designed specifically for inflicting pain and suffering. Some of them +are familiar, such as the rack and the iron maidens. Others, you have +never seen before and they make you wonder about the kind of sadistic +mind that dreamt them up. The only exit is to the west. +~ +120 d 0 +D3 +The holding cells lie in that direction. +~ +~ +0 -1 12060 +S +#12062 +The Roman Bakery~ + You are standing in the bakery of Rome and your mouth waters at the +delicious aromas wafting from the kitchen. The only exit is to the east. +~ +120 d 0 +D1 +~ +~ +0 -1 12030 +S +#12063 +The General Store~ + You are standing in the only general store of Rome. The walls and shelves +are covered with all of the various items required by Roman citizens and +stalwart adventurers. Clay Avenue lies to the south. +~ +120 d 0 +D2 +Clay Avenue lies in that direction. +~ +~ +0 -1 12046 +S +#12064 +Before Rome~ + You travel upon an East-West road wide enough for 30 men to march +abreast. It is packed hard through heavy use. To the west stands the +Gates of Rome inviting you to enter and partake of all the glory and +splendor that is Rome. +~ +120 d 1 +D1 +~ +~ +0 -1 12065 +D3 +~ +gate~ +1 -1 12051 +S +#12065 +Clay Road~ + You travel upon an East-West road wide enough for 30 men to march +abreast. It is packed hard through heavy use. To the west, your eyes +catch the splendors of a mighty city. +~ +120 d 1 +D1 +~ +~ +0 -1 12066 +D3 +~ +~ +0 -1 12064 +S +#12066 +Clay Road~ + You travel upon an East-West road wide enough for 30 men to march +abreast. +~ +120 d 1 +D1 +~ +~ +0 -1 12067 +D3 +~ +~ +0 -1 12065 +S +#12067 +The End Of The Clay Road~ + The mighty clay road turns into lesser, but still well traveled roads +here. You feel a surge run through your body as you look East into the +lands that Rome turned into its mighty empire. +~ +120 d 1 +D1 +A dirt trail leads towards the desert to the east. +~ +~ +0 -1 12068 +D3 +The mighty clay road leads off in this direction. +~ +~ +0 -1 12066 +S +#12068 +A Small Dirt Trail~ + This small dirt path seems to be a joint between a large clay road +located a short distance to the west and the expanse of sand which opens +up before you to the east. The clay road appears to lead through the +foothills towards the snowcapped mountain chain to the west. Perhaps +there is a city or settlement in that direction. + You cannot see any breaks in the horizon of the sand which fills your +vision as you look to the east, it seems to stretch forever. +~ +120 c 1 +D1 +The expanse of the Great Eastern Desert opens up before you. +~ +~ +0 -1 5028 +D3 +A large clay road begins a short distance to the west. +~ +~ +0 -1 12067 +S +$ diff --git a/lib/world/wld/15.wld b/lib/world/wld/15.wld new file mode 100644 index 0000000..2f39abe --- /dev/null +++ b/lib/world/wld/15.wld @@ -0,0 +1,742 @@ +#1500 +A Road Leading From The Bank~ + You find yourself on a small road leading away from the edge +of the River of Lost Souls. The dark waters of the River can +be seen and heard just south of here. Looking to the east and +west, you see only the walls of the rocky cliffs. Off to the +north a strange path seems to lead straight into the depths of +the mountain. +~ +15 c 4 +D0 +A strange path leads northwards. +~ +~ +0 -1 1501 +D2 +The River of Lost Souls flows just to the south of here. +~ +~ +0 -1 5619 +S +#1501 +A Long Road~ + You stand here in spiritual emptiness, beginning a long and dangerous +path. Your honest submission has already been made, but the truth of your +heart has yet to be told. Leave here now, and do not come back until +you have grown. +~ +15 d 0 +D0 +~ +~ +0 -1 1502 +D2 +~ +~ +0 -1 1500 +S +#1502 +A Long Road~ + You stop for a moment, screaming in frustration. Surely it was that one +sin that was avoidable, of all that you regret. The hitting and the hurting +flash briefly before you. Moments later the pain passes, and the straight +path reveals itself before you. +~ +15 d 0 +D2 +~ +~ +0 -1 1501 +D0 +~ +~ +0 -1 1503 +S +#1503 +A Long Road~ + The road clears, the fog and pain of the first few steps left behind +you. Despite the sudden clarity, your mind is still haunted, images of +an old woman kneeling in prayer, eyes closing, smiling and crying. +~ +15 d 0 +D0 +~ +~ +0 -1 1504 +D2 +~ +~ +0 -1 1502 +S +#1504 +A Long Road~ + Looking ahead, you can see that the path you have been following will +soon come to an end, but something in the cold and the breeze tells you +that that will be only the beginning of the journey. +~ +15 d 0 +D0 +~ +~ +0 -1 1505 +D2 +~ +~ +0 -1 1503 +S +#1505 +A Test for the Faithful~ + It is here finally that decisions must be made. The first one that +confronts you is simple enough, to walk in the darkness, or to walk in +the light. Only the depths of your soul can decide, but remember this +much: the same truth lies at the end of both paths. +~ +15 d 0 +D4 +~ +~ +0 -1 1507 +D5 +~ +~ +0 -1 1506 +S +#1506 +Halls of the Forgotten~ + Even the darkest have a place on the road to the truth. It is in this +place, so empty and forgotten, that God has chosen the worst, and brought +them close to Him for one last time. +~ +15 d 0 +D1 +~ +~ +0 -1 1513 +D3 +~ +~ +0 -1 1508 +D4 +~ +~ +0 -1 1505 +S +#1507 +Shahadah~ + It was written once, on an ancient parchment in a curious and flowing +script, that there is in fact no god but Allah, and that Muhammad was +the last of His Prophets. With this recognition, all else became empty +and meaningless. +~ +15 d 0 +D1 +~ +~ +0 -1 1523 +D3 +~ +~ +0 -1 1518 +D5 +~ +~ +0 -1 1505 +S +#1508 +Earthly Evil~ + Whatever it carries, that rage converts into a weapon. Wrath supplies +all with arms. When an angry man thirsts for blood anything will serve +him for a spear. Fury turns a stick into a cudgel. +~ +15 ad 0 +D0 +~ +~ +0 -1 1509 +D1 +~ +~ +0 -1 1506 +S +#1509 +Misguidance~ + Some have been brought here not for what they did, but what they +failed to do. It is these, the poor souls that were presented the +fair evidence and rejected it with an honest mind, that deserve our +pity the most of all. +~ +15 ad 0 +D2 +~ +~ +0 -1 1508 +D0 +~ +~ +0 -1 1510 +S +#1510 +Temptation~ + Old tales tell of a conversation between the devil and the Prophet +Jesus: the devil offered him a kingdom, vast riches, the temptation of +a glorious near-death saved by his angels. Even this Messenger of God +was forced to stop and think. Imagine how hard it could be for the rest. +~ +15 ad 0 +D0 +~ +~ +0 -1 1511 +D2 +~ +~ +0 -1 1509 +S +#1511 +Hypocrisy~ + He called the populace to strict religious purity, rigidly enforcing +the times of prayer and the most correct forms of the words of the Muezzin. +All of this he strengthened by his most impeccable example, shunning all +riches and riding in tattered rags through his capital on the back of a +donkey. Despite all this, remember. Behind closed doors, all men are +hypocrites. +~ +15 ad 0 +D0 +~ +~ +0 -1 1512 +D2 +~ +~ +0 -1 1510 +S +#1512 +Hate~ + There is little in life much easier, and truthfully, little that is a +quicker ticket to damnation. You give brief thanks that you have come to +the end of these trials, but your words are drowned out by something +much louder, a mechanical preaching that drowns your ears in anger. You +hear a steady, repetitive litany of the same phrase, over and over again: +"I go the way history dictates with the blind assurance of a sleep-walker." +~ +15 ad 0 +D2 +~ +~ +0 -1 1511 +D0 +~ +~ +0 -1 1528 +S +#1513 +Spiritual Danger~ + Some evils are tangible, solid, so evident that they spit you right in +the face. Others are more clever, more subtle, and it is these that present +the greatest danger. Looking down the hall before you, a great fear fills +your heart, and a great, heavy longing. +~ +15 ad 0 +D0 +~ +~ +0 -1 1514 +D3 +~ +~ +0 -1 1506 +S +#1514 +The Fall~ + In the beginning, he was the best, the most beautiful of all the angels, +and God's most loved creation. Look at your own beauty, human, and do what +he could not. Look at your beauty, and learn to kneel! +~ +15 ad 0 +D2 +~ +~ +0 -1 1513 +D0 +~ +~ +0 -1 1515 +S +#1515 +Temptation~ + Temptation is the IF, the wondering, the second-guessing, the "I will +be a better man... if..." And that if is usually taken, sitting alone, +listening to that voice, calling you, offering such an easy way, but such +a crooked one. +~ +15 ad 0 +D0 +~ +~ +0 -1 1516 +D2 +~ +~ +0 -1 1514 +S +#1516 +The Last Day~ + The din of a great battle shakes these halls, the moans of the earth +erupting at the shakings of the End Time. Be ready for that day, be very +ready, for if you are not, he will claim you for one of his own. +~ +15 ad 0 +D2 +~ +~ +0 -1 1515 +D0 +~ +~ +0 -1 1517 +S +#1517 +Flame~ + Undescribable horror and pain, a blackness drowned out only by the +burning anguish, the inextinguishable fire coming not from some burning +wood or molten lava but from the brightness and pain of the horrible, +tortured souls that surround, everywhere you turn. +~ +15 ad 0 +D0 +~ +~ +0 -1 1530 +D2 +~ +~ +0 -1 1516 +S +#1518 +Earthly Light~ + To slip into evil is easy, but walking this path is the hardest of +all. Even the four you will find here today have strayed from the line +at least once in their lives, and there are still some living who curse +the very sound of their names. Despite all this, confront them now, and +let their actions serve as your example. +~ +15 d 0 +D0 +~ +~ +0 -1 1519 +D1 +~ +~ +0 -1 1507 +S +#1519 +The Light of the Rashidun~ + Many believed that the Prophet would never die, but when the stark +evidence of his body confronted them, it soon became necessary to provide +for the future. The four that came after are called the Rashidun, the +rightly-guided Caliphs that would spread the word and the light, and with +it forge one of history's greatest empires. +~ +15 d 0 +D0 +~ +~ +0 -1 1520 +D2 +~ +~ +0 -1 1518 +S +#1520 +The Light of the Rashidun~ + The first Caliphs were chosen by consultation with a noble council +of elders, each of whom, hoping to lead the world of Islam alone, voted +to elect the one amongst them they thought was the weakest. Each time, +they were wrong. Each one was more noble, more upright than the one +before. +~ +15 d 0 +D0 +~ +~ +0 -1 1521 +D2 +~ +~ +0 -1 1519 +S +#1521 +The Light of the Rashidun~ + Every majestic and happy tale must end, usually all too soon, and thus +it was with the golden age of the Caliphate. The Rashidun were pure men, +good men, true to the path, but their followers soon began to bicker, and +civil war was on the horizon. +~ +15 d 0 +D2 +~ +~ +0 -1 1520 +D0 +~ +~ +0 -1 1522 +S +#1522 +The Light of the Rashidun~ + The end of the Rashidun was the beginning of Schism. The memories +of the Prophet and the living example of the Caliphs proved to be +insufficient example to the faithful. Ali died, and some say that +with him the Caliphate died too, a martyr, his blood still flowing in +the nameless river. +~ +15 d 0 +D0 +~ +~ +0 -1 1531 +D2 +~ +~ +0 -1 1521 +S +#1523 +Spritual Reward~ + Behold, Allah is the Provider, the most Generous. He would not suffer +his believers to walk the path of light without guidance. He provided the +Prophets, may peace be upon them, and in the examples of their own growth, +we shall find the truth of our own. +~ +15 d 0 +D0 +~ +~ +0 -1 1524 +D3 +~ +~ +0 -1 1507 +S +#1524 +Creation~ + In the creation of the heavens and the earth, and in the alternation of +night and day, there are signs for men of sense; those that remember Allah +say: "Lord, You have not created this in vain!" +~ +15 d 0 +D0 +~ +~ +0 -1 1525 +D2 +~ +~ +0 -1 1523 +S +#1525 +Revelation~ + The Angel Gabriel came to him and said: "Read!" He replied: "But I +cannot!" The order was repeated three times, until the Angel himself +said: "Read, in the name of your Lord who created man from clots of blood. +Praise be to God, Lord of the Universe." +~ +15 d 0 +D2 +~ +~ +0 -1 1524 +D0 +~ +~ +0 -1 1526 +S +#1526 +Conversion~ + Unbelievers, I do not worship what you worship, nor do you worship +what I worship. I shall never worship what you worship, nor will you +ever worship what I worship. You have your own religion, and I have +mine. +~ +15 d 0 +D0 +~ +~ +0 -1 1527 +D2 +~ +~ +0 -1 1525 +S +#1527 +Deliverance~ + The balance had been made, the soul placed in readiness, and the final +measurement taken. For those that have come this far, surely this is the +day of immortality! +~ +15 d 0 +D0 +~ +~ +0 -1 1533 +D2 +~ +~ +0 -1 1526 +S +#1528 +Repentance~ + God forgives those who commit evil in ignorance, for He is all-knowing +and wise. But He will not forgive those who do evil, and when death comes +to them, say: "Now we repent!" For those We have prepared a woeful scourge. +~ +15 ad 0 +D4 +~ +~ +0 -1 1534 +D1 +~ +~ +0 -1 1529 +D2 +~ +~ +0 -1 1512 +S +#1529 +Pilgrimage~ + It is incumbent upon all Muslims to make the pilgrimage to Mecca once +in their lifetime, if they are able, and for those unfortunate enough to +follow the lives of the lower evils, such a pilgrimage with an open and +contrite heart shall absolve them of all. +~ +15 ad 0 +D4 +~ +~ +0 -1 1535 +D1 +~ +~ +0 -1 1530 +D3 +~ +~ +0 -1 1528 +S +#1530 +Intercession~ + It is written that no one may intercede with God on behalf of another. +No prayers from another may save the soul of a doomed man; his only hope +is prayers of his own. +~ +15 ad 0 +D4 +~ +~ +0 -1 1536 +D2 +~ +~ +0 -1 1517 +D3 +~ +~ +0 -1 1529 +S +#1531 +The Upper Reaches~ + You have traveled the righteous path, and you have faced the examples +of the true models of the Prophet. Only the final journey awaits you; +live like this and you shall live forever. +~ +15 d 0 +D2 +~ +~ +0 -1 1522 +D1 +~ +~ +0 -1 1532 +D5 +~ +~ +0 -1 1534 +S +#1532 +The Upper Reaches~ + When the records of men's deeds are laid open, and heaven is stripped +bare; when Hell burns fiercely and Paradise is brought near: then each +soul shall know what it has done. +~ +15 d 0 +D1 +~ +~ +0 -1 1533 +D3 +~ +~ +0 -1 1531 +D5 +~ +~ +0 -1 1535 +S +#1533 +The Upper Reaches~ + You have traveled the righteous path, and your own journey has +imitated the evolution of the most perfect soul. Only one final +path awaits you; die as the one in the room before, and your death +will mean nothing. +~ +15 d 0 +D2 +~ +~ +0 -1 1527 +D3 +~ +~ +0 -1 1532 +D5 +~ +~ +0 -1 1536 +S +#1534 +The Final Facing~ + The last of the darkness lies behind you; only the straight path +remains. Go forth with a clean heart. Only the penitent shall find +what they seek. +~ +15 cd 0 +D1 +~ +~ +0 -1 1535 +D4 +~ +~ +0 -1 1531 +D5 +~ +~ +0 -1 1528 +S +#1535 +The Final Facing~ + The last of the darkness lies behind you; only the straight path +remains. Go forth with a clean heart. Only the penitent shall find +what they seek. +~ +15 cd 0 +D0 +~ +~ +0 -1 1537 +D3 +~ +~ +0 -1 1534 +D1 +~ +~ +0 -1 1536 +D4 +~ +~ +0 -1 1532 +D5 +~ +~ +0 -1 1529 +S +#1536 +The Final Facing~ + The last of the darkness lies behind you; only the straight path +remains. Go forth with a clean heart. Only the penitent shall find +what they seek. +~ +15 cd 0 +D3 +~ +~ +0 -1 1535 +D4 +~ +~ +0 -1 1533 +D5 +~ +~ +0 -1 1530 +S +#1537 +A Straight Path~ + The Compassionate, the Merciful, Sovereign of the Day of Judgment! +You alone we worship, and to You alone we turn for help. Guide us to +the Straight Path, the path of those whom You have favored, not of +those who have gone astray. +~ +15 d 0 +D2 +~ +~ +0 -1 1535 +D0 +~ +~ +0 -1 1538 +S +#1538 +Progression~ + Were We worn out by the First Creation? Yet they are in doubt about +a new creation. WE created man. We know the promptings of his soul, +and are closer to him than his jugular vein. +~ +15 d 0 +D0 +~ +~ +0 -1 1539 +D2 +~ +~ +0 -1 1537 +S +#1539 +Judgment~ + Undoubtedly the shortest path is the straightest one. Only one more +step awaits before a final decision is made and a home given to you for +all eternity. +~ +15 d 0 +D0 +~ +~ +0 -1 1540 +D2 +~ +~ +0 -1 1538 +S +#1540 +The Utmost Throne~ + You have come at last to the resting place of the most holy. Startling +crystal clarity of vision has been granted to you; seven guardians rim +the periphery of the throne and all is bathed in a warm and clean light. +It is here that the final choice is to be made, and no defiance of yours +can change the outcome. +~ +15 d 0 +D2 +~ +~ +0 -1 1539 +S +$ diff --git a/lib/world/wld/150.wld b/lib/world/wld/150.wld new file mode 100644 index 0000000..f4fc32d --- /dev/null +++ b/lib/world/wld/150.wld @@ -0,0 +1,1766 @@ +#15000 +The King's Road~ + You stand at the beginning of the actual King's Road. The road is wide +enough for several horses to ride along side by side with room to spare. +The stones which make up the road have been put into place with such skill +that the road seems to be perfectly smooth and perfectly straight. + You spot a small trail leading to the south through the undergrowth which +surrounds the road at this point. +A traveller passes by and waves cheerfully at you. +~ +150 c 1 +D1 +The King's Road continues in a straight line to the east towards a grand +castle. +~ +~ +0 -1 15001 +D2 +A small overgrown trail leads through the undergrowth to the south. +~ +~ +0 -1 15061 +D3 +The King's Road thins out a bit into a lane just to the west. +~ +~ +0 -1 3502 +E +traveller~ +The traveller smiles cheerfully and calls 'hello' when you greet him, +but continues on his way. +The traveller is in excellent condition. +~ +S +#15001 +The King's Road~ + You stand in the center of the great King's Road. The road is very well +built, and goes in a straight line due east-west. +~ +150 0 1 +D1 +The King's Road continues in a straight line to the east. +~ +~ +0 -1 15002 +D3 +You see that the King's Road continues westwards towards a large city. +~ +~ +0 -1 15000 +S +#15002 +The King's Road~ + You stand on the King's Road, which leads east and west. The +skill of the builders is apparent, since it is impossible to notice +any turn or irregularity in the road. +~ +150 0 1 +D1 +You see a castle in the far east. +~ +~ +0 -1 15003 +D3 +The King's Road continues in a straight line to the west. +~ +~ +0 -1 15001 +S +#15003 +On The King's Road Outside A Castle~ + You are standing on the King's Road. Before you is a large +Castle, evidently built not so much for strength as for beauty. +It is not totally without defences, though, for it is surrounded +by a deep moat, and its windows are just narrow slits for archers +to shoot through. To the north there is a drawbridge across the +moat. +~ +150 0 1 +D0 +You see the drawbridge. +~ +~ +0 -1 15004 +D3 +The King's Road continues in a straight line to the west. +~ +~ +0 -1 15002 +S +#15004 +On The Drawbridge~ + You have arrived at the drawbridge leading into the Castle. Before +you is a huge, double-doored gate. It seems very strong. You see some +whirls in the moat. +~ +150 c 1 +D0 +The gate has huge, but intricately carved hinges. As the Castle itself, +it seems designed not only for strength, but also for beauty. +~ +gate door~ +1 -1 15007 +D2 +You see the King's Road. +~ +~ +0 -1 15003 +E +whirls whirl moat~ +You can't see much, but it seems that something beneath the surface +is creating them. +~ +S +#15005 +The Kitchen~ + You are in the Kitchen. Lots of helpers hurry to do the Chief Cook's +bidding, and there is a wonderful smell that makes you feel very hungry. +All around the room, there are shelves with different kinds of cooking +gear stacked on them. There is an exit to the north, and one to the east; +both leading to small passages. +~ +150 d 0 +D0 +You see a small, dimly lit passage. +~ +~ +0 -1 15010 +D1 +You see a small, dimly lit passage. +~ +~ +0 -1 15006 +S +#15006 +A Small Passage~ + You are standing in a small passage, that is clearly intended mostly +for the servants of the Castle. It is only dimly lit and quite narrow. +The passage leads west, and to the east there is a small door. +~ +150 d 0 +D1 +The door is small and uninteresting. +~ +door small~ +1 -1 15007 +D3 +You hear clanging of pots, and smell cooking meat. +~ +~ +0 -1 15005 +S +#15007 +The Entrance Hall~ + You are standing in the impressive Entrance Hall of the Castle. +To the north is an exit into the Great Hall. There is also an exit +east, and a small door to the west. +~ +150 d 0 +D0 +You see the King's Great Hall. +~ +~ +0 -1 15012 +D1 +There seems to be a small guard room to the east. +~ +~ +0 -1 15008 +D2 +To the south, there is a gate, that leads to the Drawbridge. +~ +gate~ +1 -1 15004 +D3 +The door is small and uninteresting. +~ +door small~ +1 -1 15006 +S +#15008 +The Guard Room~ + You are in a small room, evidently meant for guards currently +not on duty. There is only one exit, back to the entrance hall. +~ +150 d 0 +D3 +You see the Castle Entrance. +~ +~ +0 -1 15007 +S +#15009 +Under The Tower~ + You are below one the three mighty towers of the Castle. There are +no guards here, and you sense that this part of the Castle is largely +unused. There are stairs going up to the tower, and there is also an +exit to the north. +~ +150 cd 0 +D0 +You see a small, dimly lit passage. +~ +~ +0 -1 15014 +D4 +The stairs are old, but in good repair. They lead up into the tower. +~ +~ +0 -1 15034 +E +stairs~ +The stairs are old, but in good repair. They lead up into the tower. +~ +S +#15010 +The Small Passage~ + You are standing in a small passage, that is clearly intended +mainly for the servants of the Castle. The passage leads north +and south. +~ +150 d 0 +D0 +You see a small, dimly lit passage. +~ +~ +0 -1 15015 +D2 +You hear the clanging of pots, and smell cooking meat. +~ +~ +0 -1 15005 +S +#15011 +The Great Hall~ + You are standing in the south-west end of the Great Hall. It +is truly vast; the roof is so high above your head, that it seems no +closer than the clouds outside. The roof is beautifully painted, by +someone who must have been a true master. The hall is very large, +and could easily seat several hundred people at a banquet. +~ +150 d 0 +D0 +You see the King's Great Hall. +~ +~ +0 -1 15016 +D1 +You see the King's Great Hall. +~ +~ +0 -1 15012 +E +roof paintings paint~ +The paintings on the roof depict the great heroes and gods. One of +the gods is fairly heavy-bellied and incredibly hairy, with a massive +beard. Also among them are the great enemies and wrongdoers, such as +the evil Goddess Yochlol and the powerful evil Wizard Tharoecon. +~ +S +#15012 +The Great Hall~ + You are standing in the southern end of the Great Hall. It +is truly vast; the roof is so high above your head, that it seems no +closer than the clouds outside. The roof is beautifully painted, by +someone who must have been a true master. The hall is very large, +and could easily seat several hundred people at a banquet. To your +north, you see King Welmar's great throne, and to the south is the +Castle Entrance. +~ +150 d 0 +D0 +You see the part of the Great Hall where the throne is. +~ +~ +0 -1 15017 +D1 +You see the King's Great Hall. +~ +~ +0 -1 15013 +D2 +You see the Castle Entrance. +~ +~ +0 -1 15007 +D3 +You see the King's Great Hall. +~ +~ +0 -1 15011 +E +roof paintings paint~ +The paintings on the roof depict the great heroes and gods. One of +the gods is fairly heavy-bellied and incredibly hairy, with a massive +beard. Also among them are the great enemies and wrongdoers, such as +the evil Goddess Yochlol and the powerful evil Wizard Tharoecon. +~ +S +#15013 +The Great Hall~ + You are standing in the south-east end of the Great Hall. It +is truly vast; the roof is so high above your head, that it seems no +closer than the clouds outside. The roof is beautifully painted, by +someone who must have been a true master. The hall is very large, +and could easily seat several hundred people at a banquet. +~ +150 d 0 +D0 +You see the King's Great Hall. +~ +~ +0 -1 15018 +D3 +You see the King's Great Hall. +~ +~ +0 -1 15012 +E +roof paintings paint~ +The paintings on the roof depict the great heroes and gods. One of +the gods is fairly heavy-bellied and incredibly hairy, with a massive +beard. Also among them are the great enemies and wrongdoers, such as +the evil Goddess Yochlol and the powerful, evil Wizard Tharoecon. +~ +S +#15014 +A Passage~ + You are standing in a passage, that leads north and south. To the south +it leads towards one of towers. +~ +150 d 0 +D0 +You see the small passage continue. +~ +~ +0 -1 15019 +D2 +~ +~ +0 -1 15009 +S +#15015 +The Passage~ + You are in a passage, that leads north and south. To the east there +is an exit to the Great Hall. +~ +150 d 0 +D0 +You see the passage continue. +~ +~ +0 -1 15020 +D1 +You see the King's Great Hall. +~ +~ +0 -1 15016 +D2 +You see the passage continue. +~ +~ +0 -1 15010 +S +#15016 +The Great Hall~ + You are standing in the north-west end of the Great Hall. It +is truly vast; the roof is so high above your head, that it seems no +closer than the clouds outside. The roof is beautifully painted, by +someone who must have been a true master. The hall is very large, +and could easily seat several hundred people at a banquet. To your +east, you see King Welmar's great throne, and to the west there is +an exit to a passage. +~ +150 d 0 +D1 +You see the part of the Great Hall where the throne is. +~ +~ +0 -1 15017 +D2 +You see the King's Great Hall. +~ +~ +0 -1 15011 +D3 +You see a passage. +~ +~ +0 -1 15015 +E +roof paintings paint~ +The paintings on the roof depict the great heroes and gods. One of +the gods is fairly heavy-bellied and incredibly hairy, with a massive +beard. Also among them are the great enemies and wrongdoers, such as +the evil Goddess Yochlol and the powerful evil Wizard Tharoecon. +~ +S +#15017 +By The Throne In The Great Hall~ + You are standing by the King's huge ivory throne. The throne is, to +an even greater degree than the Hall itself, a masterpiece. It is +intricately and beautifully carved, and it seems to be made out of a +single block of ivory, though you shiver at the thought of meeting +the animal that died to yield a piece of that size. The Hall continues +to the east, west and south. +~ +150 d 0 +D1 +You see the King's Great Hall. +~ +~ +0 -1 15018 +D2 +You see the King's Great Hall. +~ +~ +0 -1 15012 +D3 +You see the King's Great Hall. +~ +~ +0 -1 15016 +E +roof paintings paint~ +The paintings on the roof depict the great heroes and gods. One of +the gods is fairly heavy-bellied and incredibly hairy, with a massive +beard. Also among them are the great enemies and wrongdoers, such as +the evil Goddess Yochlol and the powerful evil Wizard Tharoecon. +~ +E +throne ivory~ +It is large and very beautiful. The carvings are mainly of animals and +magic beasts. +~ +S +#15018 +The Great Hall~ + You are standing in the north-east end of the Great Hall. It +is truly vast; the roof is so high above your head, that it seems no +closer than the clouds outside. The roof is beautifully painted, by +someone who must have been a true master. The hall is very large, +and could easily seat several hundred people at a banquet. To your +west, you see King Welmar's great throne, and to the east there is +an exit to a small passage. +~ +150 d 0 +D1 +You see a passage. +~ +~ +0 -1 15019 +D2 +You see the King's Great Hall. +~ +~ +0 -1 15013 +D3 +You see the part of the Great Hall where the throne is. +~ +~ +0 -1 15017 +E +roof paintings paint~ +The paintings on the roof depict the great heroes and gods. One of +the gods is fairly heavy-bellied and incredibly hairy, with a massive +beard. Also among them are the great enemies and wrongdoers, such as +the evil Goddess Yochlol and the powerful evil Wizard Tharoecon. +~ +S +#15019 +The Small Passage~ + You are standing in a small passage, that leads north and south. +To the west, there is an exit into the Great Hall. +~ +150 d 0 +D0 +The passage continues to the north. +~ +~ +0 -1 15024 +D2 +The passage continues to the south. +~ +~ +0 -1 15014 +D3 +To the west you see the Great Hall. +~ +~ +0 -1 15018 +S +#15020 +The Passage~ + You are standing in a north-south leading passage. There is a door +to the east. +~ +150 d 0 +D0 +The passage leads to a staircase. +~ +~ +0 -1 15025 +D1 +The door is quite small and unobtrusive. +~ +door~ +1 -1 15021 +D2 +The passage continues to the south. +~ +~ +0 -1 15015 +S +#15021 +The Servants' Corridor~ + You are standing in a corridor, that stretches further to the east. +There are doors to the north and west. The corridor itself is mainly +used by servants, and lacks some of the beauty of the rest of the +castle. +~ +150 d 0 +D0 +There is a door there! +~ +door~ +1 -1 15026 +D1 +The corridor seems to come to its end a bit further east. +~ +~ +0 -1 15022 +D3 +The door to the west is made out of wood. +~ +door wood~ +1 -1 15020 +S +#15022 +The End Of The Servants' Corridor~ + The corridor leads only west from here, but there is a door to +the north. +~ +150 d 0 +D0 +The door leads to a room intended for the butler. +~ +door~ +1 15009 15027 +D3 +You see the corridor continue. +~ +~ +0 -1 15021 +S +#15023 +The Training Room~ + This is the Training Room of the men of the Castle guard. It is +very large, with weapons standing in racks by all the walls. Most +of the weapons seem to be intended for training only, with blunt +edges and the like, but there are some that might be useful for +real fighting. There is a door to the north. +~ +150 d 0 +D0 +The door is large and heavy. +~ +door large heavy~ +1 -1 15028 +D1 +You see a small passage. +~ +~ +0 -1 15024 +S +#15024 +The Small Passage~ + You are standing in a small passage leading north and south. There +is also an exit to the west, from which grunts, cheers and heavy blows +can be heard. +~ +150 d 0 +D0 +The passage leads north to some stairs. +~ +~ +0 -1 15029 +D2 +You see the passage continuing. +~ +~ +0 -1 15019 +D3 +You see the Training Room. +~ +~ +0 -1 15023 +S +#15025 +The Stair Room~ + You are standing below a great staircase, that leads up to the +second floor of the Castle. The stairs are made of marble, and there +are pillars carved in the likenesses of trees with little animals +running up and down the trunks. +~ +150 d 0 +D2 +You see the passage. +~ +~ +0 -1 15020 +D4 +The stairs lead up to the second floor. +~ +~ +0 -1 15049 +E +stairs stair~ +Made out of marble, and as all the rest of the Castle made primarily +for beauty and with great skill. +~ +E +pillar pillars tree trees~ +Very nice. Squirrels and little birds all over. +~ +S +#15026 +The Servants' Quarters~ + You are standing in a large room, that seems to house many of the +servants. The room is full of comfortable-looking beds. There is also +a large chest, probably containing some of the servants' belongings. +~ +150 d 0 +D2 +The door is made out of wood. +~ +door wood~ +1 -1 15021 +E +bed~ +The beds all look comfortable, despite the fact that this is just +the servants' place. +~ +S +#15027 +The Butler's Quarters~ + You see at once that this must be the butler's room, for it lies +in the servants' wing, and still it is large and comfortable; almost +luxurious, in fact. There is a large bed and a drawer in the room. +The only exit is via the door to the south. +~ +150 d 0 +D2 +You see the corridor. +~ +door~ +1 15009 15022 +E +bed~ +Looks very comfortable indeed. +~ +S +#15028 +The Guards' Barracks~ + You are standing in a very large room with bunks all over. It is +obvious, that this is where the guards off duty spend most of their +time, drinking and gambling or, probably, mostly sleeping. +~ +150 d 0 +D2 +The door is large and heavy. +~ +door large heavy~ +1 -1 15023 +E +bunk bunks~ +They look a bit hard, but you could sleep in them. +~ +S +#15029 +The Stairs~ + You are standing by a staircase leading down. As you look down, +you notice that for the first time since you entered the castle, +things are not aesthetically made. Instead it looks more functional +and prison-like. +~ +150 d 0 +D2 +You see the small passage. +~ +~ +0 -1 15024 +D5 +The stairs down lead into darkness. +~ +~ +0 -1 15055 +E +stairs stair staircase~ +They seem to be made of granite, and stretch down into a more dimly +lit area than where you come from. +~ +S +#15030 +At A Bend In The Corridor~ + You are standing at a place where the corridor bends from east to north. +~ +150 d 0 +D0 +You see the corridor continue. +~ +~ +0 -1 15035 +D1 +You see the corridor continue. +~ +~ +0 -1 15031 +S +#15031 +The Corridor~ + You are standing in a long corridor, decorated with tapestries +depicting old times and old heroes. It leads east and west. +~ +150 d 0 +D1 +You see the corridor continue. +~ +~ +0 -1 15032 +D3 +You see the corridor continue. +~ +~ +0 -1 15030 +S +#15032 +The Corridor~ + You are standing in a long corridor, decorated with tapestries +depicting old times and old heroes. It leads east and west. +~ +150 d 0 +D1 +You see the corridor continue. +~ +~ +0 -1 15033 +D3 +You see the corridor continue. +~ +~ +0 -1 15031 +S +#15033 +The Corridor~ + You are standing in a long corridor, decorated with tapestries +depicting old times and old heroes. The corridor continues west, +and to the north you see the luxurious guest wing. +~ +150 d 0 +D0 +You see the guest wing. +~ +~ +0 -1 15038 +D3 +You see the corridor continue. +~ +~ +0 -1 15032 +S +#15034 +In The South-East Tower~ + This part of the tower is fairly uninteresting, but it leads further +upwards... +~ +150 d 0 +D4 +The room at the top of the tower seems darkish for some reason. +~ +~ +0 -1 15052 +D5 +You see the stairs at the bottom of the tower. +~ +~ +0 -1 15009 +S +#15035 +The Corridor~ + You are standing in a long corridor, decorated with tapestries +depicting old times and old heroes. It leads north and south. There +is also an exit to the east here. +~ +150 d 0 +D0 +You see the corridor continue. +~ +~ +0 -1 15040 +D1 +You see a small room. +~ +~ +0 -1 15036 +D2 +You see the corridor continue. +~ +~ +0 -1 15030 +S +#15036 +By The Treasure Room~ + You are standing by a great iron door. The door is very large, and +seems very solid indeed. There is a sign posted by it. +~ +150 d 0 +D1 +You see a large steel door. +~ +door steel large~ +2 15007 15037 +D3 +You see the corridor. +~ +~ +0 -1 15035 +E +sign~ + + TREASURE ROOM + + Authorized personnel only - all others keep out. + ANY trespassing will be SEVERELY punished!! + +~ +S +#15037 +The Great Treasury~ + As you enter this room, you are astonished by the riches that +are stowed away here; not so much in gold, but paintings, tapestries, +skillful carvings and sculptures all over the vast room. You realise, +however, that most of these things are too well known to be sold +anywhere, without branding yourself as a thief, and condemning yourself +to instant death at the hands of the Royal Guard. +~ +150 d 0 +D3 +You see a large steel door. +~ +door large steel~ +2 15007 15036 +E +painting paintings carving carvings sculptures tapestries~ +It seems they are stored here temporarily to enable changing +of the decoration in the Castle on a regular basis. +~ +S +#15038 +The Guest Wing~ + You have arrived at the part of the Castle where prominent +guests are housed. To the east there is a large, ornamented +door, and a somewhat smaller one leads north. +~ +150 d 0 +D0 +The door seems to lead to a guest room. +~ +door small~ +1 -1 15043 +D1 +You see the guest suite behind the ornamented door. +~ +door ornament ornamented~ +1 -1 15039 +D2 +You see the corridor. +~ +~ +0 -1 15033 +S +#15039 +The Guest Suite~ + This must be where only the most highly regarded guests stay, since +it is luxurious beyond your wildest imagination. This is only the living +room of the suite, but it is huge and tastefully decorated. All the +furniture is not only beautiful, but also made for comfort. To the +north, there is an exit to the bedroom, and there is a door to the west. +~ +150 d 0 +D0 +You see the bedroom. +~ +~ +0 -1 15044 +D3 +Behind the door you see the entrance to the Guest Wing. +~ +door~ +1 -1 15038 +S +#15040 +The Corridor~ + You are standing in a long corridor, decorated with tapestries +depicting old times and old heroes. It leads north and south. +~ +150 d 0 +D0 +You see the corridor continue. +~ +~ +0 -1 15045 +D2 +You see the corridor continue. +~ +~ +0 -1 15035 +S +#15041 +The Ball Room~ + You are standing in the great Ball Room. It is a truly large room, +with a stage for an orchestra in the south-east end. +~ +150 d 0 +D0 +You see the Ball Room. +~ +~ +0 -1 15046 +D1 +To the east you see the stage. +~ +~ +0 -1 15042 +S +#15042 +By The Stage~ + Before you you see the stage. It is large enough for some 40 +musicians to play on at the same time. The Ball Room continues +to the west and north. +~ +150 d 0 +D0 +You see the Ball Room. +~ +~ +0 -1 15047 +D3 +You see the Ball Room. +~ +~ +0 -1 15041 +S +#15043 +A Guest Room~ + You are standing in a large room. Although it is comfortable enough, +you can tell it is not meant for any of the most illustrious guests, +since it lacks that extreme luxury found elsewhere in the Castle. +~ +150 d 0 +D2 +Behind the door, you see the entrance to the Guest Wing. +~ +door~ +1 -1 15038 +S +#15044 +The Bedroom~ + This room is dominated by the huge four-poster bed, that stands +against the northern wall. The room is large and cosy, and the bed +virtually begs you to lie down in it and sleep. +~ +150 d 0 +D2 +You see the living room of the suite. +~ +~ +0 -1 15039 +E +bed~ +Large, comfortable, bolstered... Invites you to sleep in it. +~ +S +#15045 +The Corridor~ + You are standing in a long corridor, decorated with tapestries +depicting old times and old heroes. It leads north and south. There +is an exit to the east, that leads to a large room. +~ +150 d 0 +D0 +You see the corridor continue. +~ +~ +0 -1 15049 +D1 +You see the Ball Room. +~ +~ +0 -1 15046 +D2 +You see the corridor continue. +~ +~ +0 -1 15040 +S +#15046 +The Ball Room~ + You are standing in the great Ball Room. It is a truly large room, +with a stage for an orchestra in the south-east end. +~ +150 d 0 +D1 +You see the Ball Room. +~ +~ +0 -1 15047 +D2 +You see the Ball Room. +~ +~ +0 -1 15041 +D3 +You see the corridor. +~ +~ +0 -1 15045 +S +#15047 +The Ball Room~ + You are standing in the great Ball Room. It is a truly large room, +with a stage for an orchestra in the south-east end. +~ +150 d 0 +D1 +To the east, you can enter a tower. +~ +~ +0 -1 15048 +D2 +To the south you see the stage. +~ +~ +0 -1 15042 +D3 +You see the Ball Room. +~ +~ +0 -1 15046 +S +#15048 +In The Tower~ + You are standing in the north-eastern of the three great watch- +towers of the Castle. To the west, you can enter the Ball Room and +there are stairs leading up into the Tower. +~ +150 d 0 +D3 +You see the Ball Room. +~ +~ +0 -1 15047 +D4 +The stairs lead a long way up to the top of the Tower. +~ +~ +0 -1 15054 +E +stairs~ +The stairs are made out of granite, and seem solid enough. +~ +S +#15049 +The Grand Staircase~ + You are standing on a great staircase, that leads up and down. To +the east, there is a large oak door, and a corridor leads south. +~ +150 d 0 +D1 +The door is large and made out of oak. +~ +door oak large~ +1 15014 15050 +D2 +You see the corridor. +~ +~ +0 -1 15045 +D4 +The stairs continue up to the top of the tower. +~ +~ +0 -1 15053 +D5 +The stairs lead down to the first floor of the Castle. +~ +~ +0 -1 15025 +E +stairs~ +The stairs are made of marble, and there are pillars carved in the +likenesses of trees with little animals running up and down the +trunks. +~ +S +#15050 +The Cosy Room~ + You have entered a large, cosy living room. There is a fireplace +with a fire burning, and a few comfortable chairs around a little +table. There is a door to the west, and also an exit to the east. +~ +150 d 0 +D1 +You see a large bedroom. +~ +~ +0 -1 15051 +D3 +The door is large, and made out of oak. +~ +door large oak~ +1 15014 15049 +E +fire fireplace~ +The fire is built out of logs, and seems to be able to burn for +quite a while longer. +~ +E +table~ +The table is made of mahogany, and elegant in a cosy way(!) +~ +E +chairs~ +The chairs are arranged around the fireplace. +~ +S +#15051 +King Welmar's Bedroom~ + This is a large room, with a wonderful view. To one side of the +room, stands a large four-poster bed. All around the room there are +massive bookshelves, filled with all kinds of books. The titles include +works such as: 'A Treatise on the History of Midgaard and surrounding +areas', 'Magic - A Beginner's Introduction' and many others. There is +an exit to the west. +~ +150 d 0 +D3 +There is a large and cosy room to the west. +~ +~ +0 -1 15050 +E +books book shelf shelves bookshelf bookshelves~ +Most of the books seem worn, as if thoroughly studied. The King +evidently is interested in keeping himself educated. +~ +E +bed~ +Seems nice enough to sleep in, though you would never dare to, since +it is a Royal Bed! +~ +E +history midgaard~ +A dry tome, filled with boring knowledge. +~ +E +magic~ +Beginner? This book goes beyond most of what YOU know about magic +anyway. But then, there are levels of magical knowledge, it seems. +~ +S +#15052 +Up In The Tower~ + After a long climb, you finally reach the top of the tower. This +room is small, and the only light source is a flickering candle, on +a cluttered table, in the middle of the room. The only obvious exit +is back down the stairs. +~ +150 d 0 +D5 +The stairs go down the tower. +~ +~ +0 -1 15034 +E +table~ +On the table are various objects, all very strange-looking. +~ +E +candle~ +Small, uninteresting... A candle that is as normal as can be. +~ +S +#15053 +The Top Of The Tower~ + You have arrived at the top of the tower. This tower is pretty +uninteresting, and seems made purely for reasons of defence and +guarding. The windows are slits for bowmen, very narrow on the +outward side and broad inwards to allow a wide shooting angle. +The only evident exit is down the stairs again. +~ +150 d 0 +D5 +The stairs go down to the second floor. +~ +~ +0 -1 15049 +E +window slit~ +As you look out the windows, you are granted a view of the countryside. +~ +S +#15054 +The Top Of The Tower~ + This is the highest of all the towers, and is obviously used for +lookout purposes. The view is splendid in all four directions. All +around you, the rich countryside spreads out to the horizon. To the +north and east you see a vast mountain range, and far to the west +a beautiful lake. A bit closer, the town of Midgaard lies at the +end of the King's Road. The only exit you can see is down again. +~ +150 d 0 +D0 +To the north, the tall White Mountains have their highest peaks. +The mountaintops disappear in the white clouds, far above the +plains. The sight of those high, far mountains fills you with a +desire to scale them, to see the world from that vantage. +~ +~ +0 -1 -1 +D1 +In the east you see an arm of the dominating mountain range on this +continent, the White Mountains. Though not as high as those in the +north, the sight of those mountains fills you with awe. +~ +~ +0 -1 -1 +D2 +To the south, rolling hills stretch away, as far as you can see. +~ +~ +0 -1 -1 +D3 +As you look west, you see a river flowing through all of Midgaard +and continuing beyond it towards a great lake. Still further +away, you can glimpse something silvery that has to be the Sea. +~ +~ +0 -1 -1 +D5 +You see the stairs going back down to the second floor. +~ +~ +0 -1 15048 +S +#15055 +The Bottom Of The Stairs~ + The stairs lead down to a damp part of the castle, you can hear +water dripping somewhere around you. The area is lit by a single +torch flickering in the room which this staircase is built off of. + The stairs lead upwards and they open up onto a fairly small +room to the east. +~ +150 d 0 +D1 +A small room opens up to the east. +~ +~ +0 -1 15056 +D4 +The stairs lead upwards out of this dank, dark place. +~ +~ +0 -1 15029 +S +#15056 +The Guard Room~ + You are at a loss to explain why someone would want to spend all +day down here. The only explanation that seems even remotely logical +to you is that there must be an important prisoner kept in one of the +cells through the south door. + The decorations of the room are sparse, merely a table, a chair, +and a deck of cards. A stairwell has been built into the western wall +and it leads upwards. +~ +150 d 0 +D2 +Through the peep hole at the top of the small wooden door you can see +that there is a small corridor leading past several cells. +~ +door wooden~ +1 15017 15057 +D3 +A small stairwell built into the western wall of the room leads upwards. +~ +~ +0 -1 15055 +E +table cards deck~ +There is a deck of cards on the table in a small pile. There is one card +lying on the floor however. +~ +E +card floor~ +The card on the floor seems to be the Ace of Spades... a bad card to find +indeed. What could be the bad luck brought about by this discovery? +~ +S +#15057 +The Prison~ + This small passage is about thirty feet long and is well lit by the +torches on each wall. The torches have been locked inside small metal +cages to ensure that they are not removed. The strangest thing about +the torches however, is the manner in which they burn, they have what +appears to be a constant flame in that it does not flicker whatsoever, +and does not give off any smoke. Perhaps they have been magicked to +burn forever... + There are three cells along this passage way, one on each side of +the corridor right near the north end and one isolated at the south +end of the corridor with a small metal plaque located over the door +in the keystone of the archway. +~ +150 d 0 +D0 +A small wooden door blocks the way out of the prison. +~ +door wooden~ +1 15017 15056 +D1 +A cell door is set into the eastern wall. +~ +door cell~ +2 15017 15060 +D2 +The cell door to the south has been double padlocked and there is a +plaque placed in the keystone above the door. +~ +door cell~ +2 15017 15059 +D3 +A cell door is set into the western wall. +~ +door cell~ +2 15017 15058 +E +plaque keystone~ +The plaque in the keystone is engraved with four simple words: + + Ergan, Murderer of Townsbridge + +~ +S +#15058 +A Cell~ + This cell is in a shambles. There is a small hole in the +western wall where something has broken through the stones +into the cell. There is a cell door in the eastern wall. +~ +150 d 0 +D1 +The cell door to the east leads back to the prison hallway. +~ +door cell~ +2 15017 15057 +E +hole~ +The hole is much too small for you to clamber through. +~ +S +#15059 +Ergan's Cell~ + This large cell is almost like a living quarters with a cot +in one corner serving as a bed, a small table built out of the +wall in another corner. There is even a rug in the center of +the floor to keep some warmth. It seems that the prisoner kept +here is treated quite well, almost too well for a murderer of +an entire town... +~ +150 d 0 +D0 +The cell door to the north leads back to the prison hallway. +~ +door cell~ +2 15017 15057 +S +#15060 +A Cell~ + This small cell is damp and dark and looks like noone and nothing +has lived in it for quite some time. A small cell door is located in +the west wall. +~ +150 d 0 +D3 +The cell door to the west leads back to the prison hallway. +~ +door cell~ +2 15017 15057 +S +#15061 +An Overgrown Trail~ + Moving off of the King's Road, you find yourself on a small +fading trail which appears to have been so little used that it +has almost completely grown over with vegitation from the woods +here. Sounds of the forest can be heard all round and you feel +a peaceful feeling come over you as you realize that mankind +has not passed this way for some time. + The faded trail appears to lead north and south. +~ +150 0 4 +D0 +The travel upon the King's Road can be heard off to the north. +~ +~ +0 -1 15000 +D2 +The trail continues southwards. +~ +~ +0 -1 15062 +S +#15062 +An Overgrown Trail~ + Continuing through the heavy undergrowth, you find yourself +in the middle of the forest. The sounds of the forest can be +heard all round and you feel a peaceful feeling come over you +as you realize that mankind has not passed this way for some +time. + The fading trail you are on appears to have been so little +used that it has almost completely grown over with vegitation +from the woods here. + The faded trail appears to lead north and east. +~ +150 0 4 +D0 +The trail continues northwards. +~ +~ +0 -1 15061 +D1 +The trail appears to continue to the east. +~ +~ +0 -1 15063 +S +#15063 +An Overgrown Trail~ + Continuing through the heavy undergrowth, you find yourself +in the middle of the forest. The sounds of the forest can be +heard all round and you feel a peaceful feeling come over you +as you realize that mankind has not passed this way for some +time. + The fading trail you are on appears to have been so little +used that it has almost completely grown over with vegitation +from the woods here. + The faded trail appears to lead west and south. To the south +a strange eerie silence seems to hang in the air, almost blocking +out all the sounds that you can hear from the north and east. +~ +150 0 4 +D2 +The undergrowth begins to open up to the south and you can see what +appears to be a small village to the south. It is very quiet, almost +too quiet. +~ +~ +0 -1 15064 +D3 +The overgrown trail continues to the northwest. +~ +~ +0 -1 15062 +S +#15064 +A Dirt Road~ + As you leave the forest to the north, you find yourself at +what appears to be the beginning of a dirt road and a small +village. Upon first laying eyes on this place you realize +that there is something funny about this settlement... there +is no sound other that the whistling wind here. You would have +expected to hear people going about their regular business, but +the village is silent. You cannot see any movement around the +village either. It is almost as still and silent as the woods +to the north. +There is a small sign lying by the side of the road here. +~ +150 0 2 +D0 +An trail leads into the heavy undergrowth to the north. +~ +~ +0 -1 15063 +D2 +The dirt road continues through the village to the south. +~ +~ +0 -1 15065 +D3 +A house stands a short distance off the west side of the road, its +door hanging ajar. +~ +~ +0 -1 15068 +E +sign~ + +/----------------------------------\ +| Welcome to the hamlet of | +| Townsbridge | +| | +| | +| Population: 276 | +| | +\----------------------------------/ + +The number 276 has been scratched out and replaced with the +number 0. + +~ +S +#15065 +A Small Intersection~ + Continuing along the dirt road, you find yourself at a place where +a small path splits away from the main road and leads off to the west. +The woods around the village seem to be pressing inwards towards you +as if the village hides a secret which they do not want to be spread +about. + There is another house standing on the east side of the road. +~ +150 0 2 +D0 +The dirt road continues to the north. +~ +~ +0 -1 15064 +D1 +You can hear a wailing sound coming from the house to the east. +~ +~ +0 -1 15069 +D2 +The dirt road continues towards the south where a horrible smell +permeates the air. +~ +~ +0 -1 15066 +D3 +A small, dark trail leads off into the woods to the west. +~ +~ +0 -1 15072 +S +#15066 +A Dirt Road~ + This section of the dirt road is quiet, but there is an awful stench +in the air. It brings to mind rotting corpses and raw sewage. The woods +contiue to press closely about you, and almost totally surround the small +building to the west with a thatched roof. There is a blackened shell of +a building to the east with a small sign hanging out front from a black +and charred chain. + The dirt road continues north and south. +~ +150 0 2 +D0 +The small dirt road continues towards the north. +~ +~ +0 -1 15065 +D1 +The building to the east is merely a shell of what it once probably +was. The walls are blackened as if they had been exposed to fire at +some point in the past... +~ +~ +0 -1 15071 +D2 +The stench from the south is almost overpowering now... it seems that +the source wouldn't be too far from here. +~ +~ +0 -1 15067 +D3 +A small quiet cottage stands on the west side of the road, apparently +untouched by the desecration and destruction that appears to have hit +this small village. +~ +~ +0 -1 15070 +E +sign~ +The sign is covered with soot and the wood is quite charred, but you can +still make out the following letters: + + T TO SB DGE NER L RE + +~ +S +#15067 +A Large Pit~ + The dirt road ends at the edge of a large pit here and you now +realize where the awful smell was coming from. This pit appears +to be a mass grave for the citizens of the village. There are +bones and corpses lying all over the place. A lot of the corpses +look too recent to be from the Townsbridge murders of almost a +decade ago, but the village seems to have been empty for almost +that long. + The dirt road leads away from the carnage to the north. +~ +150 0 2 +D0 +Just near the north edge of the pit a small and narrow trail leads +away. +~ +~ +0 -1 15066 +S +#15068 +A House~ + This house is a wreck, furniture has been strewn all about +the room, and it looks like a tornado landed right in the middle +of the room. The destruction that has taken place in this room +is almost beyond belief. The oddest part of it all though, is +how it all seems so recent, since there are no cobwebs, and there +is no dust on anything. + The dirt road can be seen to the east through the doorway. +~ +150 d 0 +D1 +You can see the dirt road through the doorway to the east. +~ +~ +0 -1 15064 +S +#15069 +A House~ + This darkened room is barely lit by the outdoor light, but what +you can see of it gives you the creeps. There are cobwebs dangling +from everything, a thick layer of dust begins to rise up at your +passage, and a strange howl comes from somewhere around you. The +furniture in this house is old and of a type that hasn't been seen +around these lands for some time. If it was in better shape, you +might be able to sell it as antique. + The meager light of the road shines through the doorway to the +west. +~ +150 ad 0 +D3 +You can see the dirt road through the doorway to the west. +~ +~ +0 -1 15065 +S +#15070 +A Small Cottage~ + This cottage looks to have been left in exactly the same shape as +it was in quite some time ago. It looks as if the residents left one +day and haven't returned home yet. Oddly enough, the furniture is +dust free and the food on the table still looks fresh. This house is +really strange, perhaps it wuld be in your best interests to leave as +soon as humanly possible. + The road is back through the open doorway to the east. +~ +150 d 0 +D1 +You can see the dirt road through the doorway to the east. +~ +~ +0 -1 15066 +S +#15071 +The Burned Shop~ + As you enter this small building, you notice that that blackened +walls are due to a fire that seemed to burn here unattended for quite +some time. There is almost nothing left of the roof that would have +once covered this building, and the north and east walls have been +burnt to almost half the height of the other two walls. There are +some burnt goods around on the ground and the remains of a counter +near what is left of the north wall seems to indicate that this was +once a shop. + The road lies to the west through the blackened wall. +~ +150 0 2 +D3 +You can see the dirt road to the west. +~ +~ +0 -1 15066 +S +#15072 +A Dark Path~ + As you move away form the open air into the darkness of the path +and the sinister looking woods around you, you get a feeling of awe +and something almost akin to horror. The wood around is completely +silent, not even the rustling of leaves or the cracking of branches +breaks the silence. The final thing you notice is that the darkness +all around you seems to be almost contrived, and doesn't seem natural +for this kind of vegitation. + The path continues west and you can see light to the east. +~ +150 ad 1 +D1 +The path continues towards a small intersection with a dirt road. +~ +~ +0 -1 15065 +D3 +The path continues through the darkness. +~ +~ +0 -1 15073 +S +#15073 +A Dark Path~ + This narrow path leads through the overhanging trees in the unnatural +darkness. It seems almost as if the trees are crowding in on you here, +as if they didn't want to feel your presence. The wood is almost totally +silent and you wonder silently to yourself why this could be. + The path appears to continue east and west. +~ +150 ad 1 +D1 +The path continues through the darkness. +~ +~ +0 -1 15072 +D3 +The glow from the west appears to be quite strong, but it does not +give enough light to see by here, nor can you see the source of the +glow. +~ +~ +0 -1 15074 +S +#15074 +The Circle Of Stones~ + You are at the edge of a circle of seven large monolith-like stones. +Each stone towers over your head and appears to be at least double your +height. The stones are made of a dark black material, almost black in +colour. + In the center of the ring of stones, you can see a black circular +mirror-like disk on the ground. The surface is highly reflective and +almost appears to be rippling. The trees surrounding the circle tower +far above your heads blocking out the sky. + A strange glow seems to be emanating from each stone, almost green +in colour. This glow provides enough light for you to see with even +though the sky above has been blotted out. +~ +150 d 1 +D1 +A narrow path leads away into the darkness. +~ +~ +0 -1 15073 +D4 +You cannot see the sky above since the trees around the stone ring +block it out entirely. +~ +~ +0 -1 -1 +E +stones glow stone ring circle~ +Each stone is at least fifteen feet tall, maybe more, and the dark +material glows with a greenish aura providing more than enough light +for you to see by. +~ +S +$ diff --git a/lib/world/wld/186.wld b/lib/world/wld/186.wld new file mode 100644 index 0000000..33d706c --- /dev/null +++ b/lib/world/wld/186.wld @@ -0,0 +1,871 @@ +#18600 +The Entrance To The Newbie Zone~ + Ahhh... the entrance to the newbie zone! Just the place you have +been looking for. Well, when you've readied yourself you can enter +to the north. +~ +186 c 1 +D0 +You see the start of the newbie zone. +~ +~ +0 -1 18601 +D3 +Back to the road that way... chickening out already? +~ +~ +0 -1 3061 +S +#18601 +The Beginning Of The Passage~ + You find yourself entering a long corridor. You can hear the sound +of creatures roaming about, but you can't tell where the sound emanates +from exactly. + Exits lead to the east along the hallway, and south back to the +entrance. +~ +186 d 0 +D1 +More of the hallway there... how exciting! +~ +~ +0 -1 18602 +D2 +The entrance to the newbie zone... how dull +~ +~ +0 -1 18600 +S +#18602 +The Dirty Hallway~ + You continue wandering down the hallway. Nothing much different here, +but you are positive you here noises behind the door to the south, and +coming from the east. The walls are a bit slimy and moldy here... yeech, +couldn't they hire someone to clean this place? What will the newbies +think? Oh well, you can continue along the hallway to the east or west. +~ +186 d 0 +D1 +More of the hallway there... how exciting! +~ +~ +0 -1 18603 +D2 +A small room lies to the south... you hear something moving about inside. +~ +door~ +1 -1 18606 +D3 +More of the hallway there... how exciting! +~ +~ +0 -1 18601 +S +#18603 +A Nexus~ + Well... you've reached an intersection of two passages, to the north +and east, the passage brightens, while the darker hallway continues to +the south. +~ +186 d 0 +D0 +A brighter hallway leads off that way. +~ +door~ +1 -1 18644 +D1 +A brighter hallway leads off that way. +~ +door~ +1 -1 18646 +D2 +More of the hallway there... how exciting! +~ +~ +0 -1 18607 +D3 +More of the hallway there... how exciting! +~ +~ +0 -1 18602 +S +#18604 +A Narrow Passage~ + The thin passage is plain and undecorated, but still clean. It +ends abruptly to the south at a small oak door, behind which you here +movement... +~ +186 ad 0 +D0 +A large domed room. +~ +~ +0 -1 18647 +D2 +A small cluttered room. +~ +door~ +1 -1 18612 +S +#18605 +The Dark Pit~ + Ick... a dark damp dirty pit. Even worse, what is that dark damp +dirty thing looking at you from the corner? Ewww... maybe you should +go back up where it is a bit safer, unless you think you can tackle +that thing in the corner. +~ +186 ad 0 +D4 +You see a ladder leading up +~ +grate~ +1 18608 18606 +S +#18606 +A Small Room~ + Hmmm... this is an interesting little room. Ack, and there is +an interesting little creature staring at you too. He looks a bit +surprised at your intrusion. You can leave via the doors north or +east, or you can stay and annoy him a bit more. There also appears +to be some type of well down here also, but it has a rather secure +grate covering it. +~ +186 d 0 +D0 +More of the hallway there... how exciting! +~ +door~ +1 -1 18602 +D1 +More of the hallway there... how exciting! +~ +door~ +1 -1 18607 +D5 +A ladder leads down into darkness. +~ +grate~ +1 18608 18605 +S +#18607 +More Of The Hallway~ + Oh joy! More of this annoying passage. Perhaps there is something +more exciting through that door to the west? Or you can keep searching +the hallways to the north or south. +~ +186 d 0 +D0 +More of the hallway there... how exciting! +~ +~ +0 -1 18603 +D2 +More of the hallway there... how exciting! +~ +~ +0 -1 18611 +D3 +~ +door~ +1 -1 18606 +S +#18608 +An Open Field By The Great Field~ + Finally, you are in an open field... it is so nice to breathe fresh air +again! You can return to that dank, smelly place to the east, or take the +exit to the north which appears to lead into a large field. +~ +186 c 0 +D0 +There appears to be a field road to the north. +~ +~ +0 -1 3061 +D1 +The end of that darn hallway lies back to the east. +~ +~ +0 -1 18609 +S +#18609 +The End Of The Passage~ + Ahhh... at last, the end of the hallway... you can exit into open +air to the west,or return to the east and make sure you didn't miss +anything. +~ +186 d 0 +D1 +More of the hallway there... how exciting! +~ +~ +0 -1 18610 +D3 +An open field near The Great Field of Midgaard can be seen. +~ +~ +0 -1 18608 +S +#18610 +A Brighter Hallway~ + The hallway continues on in a east-west direction... and it seems to +be brightening up to the west. +~ +186 d 0 +D1 +A corner in the passage lies to the east. +~ +~ +0 -1 18611 +D3 +More of the hallway there... how exciting! +~ +~ +0 -1 18609 +S +#18611 +Another Corner~ + Another corner of the passage, and just as untidy as the rest of +this place (maybe more so?). There is a door to the east though... +wonder where that leads? Oh, and the hallway continues west and +north. +~ +186 d 0 +D0 +More of the hallway there... how exciting! +~ +~ +0 -1 18607 +D1 +You peer into a cluttered little room to the east. +~ +door~ +1 -1 18612 +D3 +More of the hallway there... how exciting! +~ +~ +0 -1 18610 +S +#18612 +The Alchemist's Room~ + Lots of bottles and flasks lie about this room, but it all looks like +worthless clutter. It appears whatever alchemist has been working here +is really very adept at his art. There are a lot of formulae and spells +written on the walls too... couldn't he buy some paper? There is a door +to the north, and also a dark stairway in the corner leading down, with a +large sign next to it that you probably should read... +~ +186 d 0 +D0 +A nice shiny hallway! +~ +door~ +1 -1 18604 +D3 +A corner in the passage lies to the west. +~ +door~ +1 -1 18611 +D5 +A shadowed stairway leading down. +~ +~ +0 -1 18632 +E +sign stairs stairway~ +The sign next to the stairs says: + +If you are below level 7 and alone, or below level 4 then bugger off! +Or else don't blame me if you die... + +~ +S +#18620 +A Turn In The Passage~ + This corner is much like all the others... except you see a strange +glow coming from the south. Could be an exit... you hope. +~ +186 ad 0 +D1 +The passage continues east quite a ways. +~ +~ +0 -1 18621 +D2 +You see an odd red glow from that direction. +~ +~ +0 -1 18629 +S +#18621 +A T-Intersection In The Passage~ + This is an intersection of a long east-west passage with a corridor +leading south. The air seems a bit clearer here though, as if you were +approaching an exit. +~ +186 ad 0 +D1 +~ +~ +0 -1 18622 +D2 +~ +~ +0 -1 18633 +D3 +~ +~ +0 -1 18620 +S +#18622 +Another Corner~ + The passage turns from north to west here. The walls are still +covered with the same disgusting green fungus you have seen all +along, and you hear sounds of creatures moving all around you... +~ +186 ad 0 +D2 +~ +~ +0 -1 18628 +D3 +~ +~ +0 -1 18621 +S +#18623 +A Corner In The Hallway~ + You can hear creatures moving all around you... and it is not +a comforting sound at all. The furnishing is nothing to speak of +either, plain grey brick walls with green fungus (or something) +growing on them. +~ +186 ad 0 +D1 +~ +~ +0 -1 18624 +D2 +~ +~ +0 -1 18627 +S +#18624 +Another Turn~ + Hmmm... the passage turns south here. You beginning to realize you +can easily lose your bearings if you aren't careful, and you don't think +you would like spending too much time here... +~ +186 ad 0 +D2 +~ +~ +0 -1 18630 +D3 +~ +~ +0 -1 18623 +S +#18625 +A Large Room~ + The passage opens into a large oval room. There really isn't much of +interest here though. +~ +186 ad 0 +D1 +~ +~ +0 -1 18626 +D2 +~ +~ +0 -1 18631 +S +#18626 +A Long East-West Passage~ + This is a long, narrow passage leading east and west. The walls are +damp and covered with mildew and fungus. There is a very unhealthy air +about this place and you're beginning to want out of here... soon. +~ +186 ad 0 +D1 +~ +~ +0 -1 18627 +D3 +~ +~ +0 -1 18625 +S +#18627 +A Crossing Of Corridors~ + Here a narrow east-west passage crosses with a wider passage to the +north and south. The air is dank, and has an odor of decay and debris. +Not a nice place at all really... +~ +186 ad 0 +D0 +~ +~ +0 -1 18623 +D1 +~ +~ +0 -1 18628 +D2 +~ +~ +0 -1 18632 +D3 +~ +~ +0 -1 18626 +S +#18628 +A Corner Room~ + This room is hardly more than a crossing of passages. You do sense a +slight breeze wafting down the passage to the north though, but it smells +altogether bad... +~ +186 ad 0 +D0 +~ +~ +0 -1 18622 +D3 +~ +~ +0 -1 18627 +S +#18629 +The Red Room~ + It takes you a moment to realize that the red glow here is coming +from a round portal on the floor. It looks almost as if someone had +painted a picture of a dirt running through a field on the floor of +this room. Oddly enough, it is so realistic you can feel the wind in +the field coming out of the picture. +~ +186 ad 0 +D0 +~ +~ +0 -1 18620 +D1 +~ +~ +0 -1 18630 +D5 +~ +~ +0 -1 3061 +E +portal floor~ +It looks as if you could go down into it... but you can't be sure of where +you will end up, or if you can get back. +~ +S +#18630 +A Branching Passage~ + The north-south passage branches to the east here. There is a queer red +glow coming from that way as well, along with a faint breeze. +~ +186 ad 0 +D0 +~ +~ +0 -1 18624 +D2 +~ +~ +0 -1 18634 +D3 +A very odd red glow emanates from that direction. +~ +~ +0 -1 18629 +S +#18631 +A Passage~ + Ick... this place is just disgusting. You try and stay clear of the +walls, but the passage is so narrow you keep bumping them anyway. You +are almost convinced that the fungus coating the walls is grabbing at +you too. +~ +186 ad 0 +D0 +~ +~ +0 -1 18625 +D1 +~ +~ +0 -1 18632 +D2 +~ +~ +0 -1 18638 +S +#18632 +The Entrance~ + It is dark, dank, disgusting and cold up here. Plus you here the +sounds of creatures all around you... and somehow they don't sound +friendly. It is probably wise to exercise some degree of caution +here... no telling what you may run into here. +~ +186 ad 0 +D0 +~ +~ +0 -1 18627 +D2 +~ +~ +0 -1 18635 +D3 +~ +~ +0 -1 18631 +D4 +~ +~ +0 -1 18612 +S +#18633 +Another Corner~ + Well... what is there to say. More fungus, more weird sounds, and a +slight breeze from the north. Bet you want to sign a lease, don't ya... +~ +186 ad 0 +D0 +~ +~ +0 -1 18621 +D1 +~ +~ +0 -1 18634 +S +#18634 +An Intersection Of Passages~ + Cold, smelly, and coated with green fungus... just like last week's +left-overs. Furthermore you want nothing to do with either, you just +want out right now. +~ +186 ad 0 +D0 +~ +~ +0 -1 18630 +D2 +~ +~ +0 -1 18637 +D3 +~ +~ +0 -1 18633 +S +#18635 +A Turn In The Passage~ + This place is just plain nauseating... it certainly smells as if +something (or someone) died in here. You hope you aren't next, but +from the sounds you hear all around you, it seems as if something has +other ideas about that. +~ +186 ad 0 +D0 +~ +~ +0 -1 18632 +D1 +~ +~ +0 -1 18636 +S +#18636 +A Branch To The South~ + The east-west passage branches of to the south here. All around you +is the odour of death. Actually, the mold and fungus on the walls is +doing great, but otherwise... well... you don't want to think about what +else lives here. +~ +186 ad 0 +D1 +~ +~ +0 -1 18637 +D2 +~ +~ +0 -1 18639 +D3 +~ +~ +0 -1 18635 +S +#18637 +Yet Another Corner~ + The passage turns here and heads north. You sense something up ahead +that way, but you aren't sure what. You aren't sure if you want to know +what either at this point. +~ +186 ad 0 +D0 +~ +~ +0 -1 18634 +D3 +~ +~ +0 -1 18636 +S +#18638 +A Large Room~ + You almost stumble as you enter this room... the sudden feeling of no +walls on either side of you makes you a bit nervous. Suddenly you are +vulnerable on all sides. You can't even tell how big a room this is, +because it extends to the east farther than you light will reach... +~ +186 ad 0 +D0 +~ +~ +0 -1 18631 +D1 +The room extends into shadows... +~ +~ +0 -1 18639 +S +#18639 +A Large Room~ + As you enter, you light glints of the wall to the east. There appears +to be words scrawled on the wall, and a crude picture. To the west the +room extends beyond the reach of your light, and the dark shadows make you +paranoid... anything could be hiding there. You are painfully aware of +how exposed you are without walls around you. +~ +186 ad 0 +D0 +~ +~ +0 -1 18636 +D3 +The room extends as far as (and farther than) you can see... +~ +~ +0 -1 18638 +E +writing words~ +The writing appears to says 'beware the Minotaur...' +~ +E +wall~ +There is a crude picture of a man with the head of a bull with some writing +next to it. +~ +S +#18640 +The Statue's Room~ + Here, the passage enters a small room. Exits lead to the east and south, +and you notice a wonderful, large (and tastefully done) statue to the north. +~ +186 ad 0 +D1 +A long hallway, ending in a set of steps. +~ +~ +0 -1 18641 +D2 +The hall extends to the south where it seems to lighten somewhat. +~ +~ +0 -1 18644 +E +statue~ +Upon closer inspection you see that the statue has a small plaque affixed +to it. The face looks remarkably familiar also. +~ +E +plaque nameplate name~ +It says: + +Maynard, Death Jester of the Harlequins + +~ +S +#18641 +The Hallway~ + As you continue wandering down the hallway, you notice banners, +pictures, and other fine decorations adorning the walls all along +this passage. It seems very different from the dismal passage where +you entered. +~ +186 ad 0 +D1 +The hallway ends at a grand marble staircase. +~ +~ +0 -1 18642 +D3 +The passage leads into a small room. +~ +~ +0 -1 18640 +S +#18642 +The North Stairs~ + Here, the hall opens into a wide room, with a high domed roof. Now that +that you have come clear of the enclosed passage, you can see that the stair +leads upward to an open air balcony overlooking the area. To the south the +room continues, and another stair is visible matching the one in front of +you. +~ +186 ad 0 +D2 +You see another staircase and two passages leading west and south. +~ +~ +0 -1 18647 +D3 +An entrance to a bright passage. +~ +~ +0 -1 18641 +D4 +An open air balcony. +~ +~ +0 -1 18643 +E +staircase stair stairs~ +They are constructed of smooth, beautiful marble +~ +S +#18643 +The Balcony~ + Here you can look out and observe the world around. Constructed in a +semi-circle around the dome of the room, the balcony allows you to look +out in almost any direction. Wandering to the north end, you can see that +the Great Fields north of Midgaard continue off towards the Dragonhelm +Mountains to the north. +~ +186 ad 0 +D2 +The south end of the balcony. +~ +~ +0 -1 18645 +D5 +Down the stairs to a large, domed room. +~ +~ +0 -1 18642 +E +staircase stair stairs~ +They are constructed of smooth, beautiful marble +~ +S +#18644 +A Bright Hallway~ + Wow! What a change from the dismal passage to the south. Whoever +keeps this room up must really like newbies. The walls and floor are +clean, and tastefully decorated. You also notice an interesting design +on the floor. +~ +186 ad 0 +D0 +A small room with a statue in it. +~ +~ +0 -1 18640 +D2 +A intersection of passages. +~ +door~ +1 -1 18603 +E +floor design~ +It appears to be the Crest of the Harlequin Guild. +~ +S +#18645 +The Balcony~ + Here you can look out and observe the world around. Constructed in a +semi-circle around the dome of the room, the balcony allows you to look out +in almost any direction. Wandering to the south end, you can see the great +city of Midgaard off to the south-west. +~ +186 ad 0 +D0 +The north end of the balcony. +~ +~ +0 -1 18643 +D5 +Back down the south staircase. +~ +~ +0 -1 18647 +E +staircase stair stairs~ +They are constructed of smooth, beautiful marble. +~ +S +#18646 +A Bright Hallway~ + Wow! What a change from the dismal passage to the west. Whoever keeps +this room up must really like newbies. The walls and floor are clean, and +tastefully decorated. You also notice an interesting design on the floor. +~ +186 ad 0 +D1 +The passage opens into a domed room with a grand marble staircase. +~ +~ +0 -1 18647 +D3 +A dark intersection of passages. +~ +door~ +1 -1 18603 +E +floor design~ +It appears to be the crest of the Harlequin Guild. +~ +S +#18647 +The South Stairs~ + Here, the hall opens into a wide room, with a high domed roof. Now that +that you have come clear of the enclosed passage, you can see that the stair +leads upward to an open air balcony overlooking the area. to the north the +room continues, and another stair is visible matching the one in front of +you. +~ +186 ad 0 +D0 +Another stairway is to the north, as well as a passage to the west. +~ +~ +0 -1 18642 +D2 +A narrow passage to the south, ending in a wood door. +~ +~ +0 -1 18604 +D3 +Back down the bright hallway. +~ +~ +0 -1 18646 +D4 +An open air balcony. +~ +~ +0 -1 18645 +E +staircase stair stairs~ +They are constructed of smooth, beautiful marble. +~ +S +$ diff --git a/lib/world/wld/25.wld b/lib/world/wld/25.wld new file mode 100644 index 0000000..a9ceaad --- /dev/null +++ b/lib/world/wld/25.wld @@ -0,0 +1,3326 @@ +#2500 +The Entrance To The Shadow Grove~ + Before you, the grove of shadows lies. Giant grey trees are all that +can be seen through the thick shadows. A great sense of both power and +menace permeates the surrounding area. You have a strange urge to turn +back and go back the way you've come. + A small path leads north into the shadows and back south to the plains. +~ +25 cg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2508 +D2 +The copse of trees and plains are back to the south. +~ +~ +0 -1 4075 +S +#2501 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All exits lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2507 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2502 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2504 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2503 +S +#2502 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds moaning and growling come from all directions. + All exits lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +You see a small clearing in the shadows. +~ +~ +0 -1 2511 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2503 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2505 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2501 +S +#2503 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem the glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All exits lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2509 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2501 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2506 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2502 +S +#2504 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All exits lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2501 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2505 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2507 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2503 +S +#2505 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All exits lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2502 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2506 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2508 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2504 +S +#2506 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All exits lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2503 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2510 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2509 +D3 +You see a small clearing in the shadows. +~ +~ +0 -1 2511 +S +#2507 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All exits lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2504 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2508 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2501 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2509 +S +#2508 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All exits lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2505 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2509 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2500 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2507 +S +#2509 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All directions lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2506 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2507 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2503 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2508 +S +#2510 +The Shadow Grove~ + You are inside the shadow grove. Giant trees seem to glare at you +from all sides. The shadowy mist obscures most of your vision. Strange +sounds of moaning and growling come from all directions. + All directions lead into shadows, you are very confused. +~ +25 acfg 3 +D0 +The shadows obscure your vision. +~ +~ +0 -1 2507 +D1 +The shadows part to reveal a small clearing. +~ +~ +0 -1 2511 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2509 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2502 +S +#2511 +A Small Clearing~ + You are in a small clearing in the shadow grove. There is charred grass +underfoot, and the signs of fire here and there. It is almost as if the +plant life shuns this spot. The shadowy mist hovers all around, obscuring +your view into the grove. + A small path leads north to some shadowy structure. All other exits are +shrouded in shadowy mist. +~ +25 ag 3 +D0 +You can barely make out some sort of building to the north. +~ +~ +0 -1 2512 +D1 +The shadows obscure your vision. +~ +~ +0 -1 2506 +D2 +The shadows obscure your vision. +~ +~ +0 -1 2502 +D3 +The shadows obscure your vision. +~ +~ +0 -1 2510 +S +#2512 +The Entrance To The High Tower~ + You have reached the entrance to the High Tower of Sorcery. The +tower looms above you at an incredible height. It seems to disappear +into the storm clouds above. + A diamond gate is to the north, whilst the trail back south has +disappeared behind you. +~ +25 g 0 +D0 +The diamond gate looks incredibly strong. +~ +gate diamond~ +2 2500 2513 +S +#2513 +Inside The High Tower Of Sorcery~ + You are inside the High Tower of Sorcery. The sight is truly amazing. +From here, it is obvious that somehow, the tower is much larger on the +inside than it is on the outside. Young mages walk about, completely +oblivious to your presence. + Exits lead north to the common room, west to the dinning room, east +to a plain hallway and back south through the gate. +~ +25 dg 0 +D0 +The common room looks quite busy and noisy. +~ +~ +0 -1 2514 +D1 +~ +~ +0 -1 2515 +D2 +~ +gate diamond~ +2 2500 2512 +D3 +~ +~ +0 -1 2516 +S +#2514 +Common Room~ + You are in the common room. There are many apprentice warlocks here +talking and resting, playing games, comparing notes. Obviously they +are taking a break from their rigorous studies. There are benches, +tables and a small water fountain here, otherwise the room is quite +unremarkable. + Exits lead off in all directions. +~ +25 dg 0 +D0 +~ +~ +0 -1 2517 +D1 +The mages' bar can be seen to the east. +~ +~ +0 -1 2518 +D2 +~ +~ +0 -1 2513 +D3 +~ +~ +0 -1 2519 +S +#2515 +The Hallway~ + You are in a long hallway, it seems rather unremarkable. The +hallway continues east and back west. +~ +25 dg 0 +D1 +~ +~ +0 -1 2530 +D3 +~ +~ +0 -1 2513 +S +#2516 +The Dining Room~ + You are in the dining area of the student mages. From the number of +tables and chairs here, you can see that this room could easily seat +several hundred people. It is oddly deserted here, obviously not meal +time. + Exits lead west to the kitchen, and back east. +~ +25 dg 0 +D1 +~ +~ +0 -1 2513 +D3 +~ +door wooden~ +1 -1 2520 +S +#2517 +A Dark Hallway~ + You are in a dark hallway. It is apparent that this area is seldom +used by the regular occupants of the tower. Dust covers the floors +here. + The faint outline of a trapdoor can be seen in the dust. +~ +25 adg 0 +D2 +~ +~ +0 -1 2514 +D5 +~ +trapdoor~ +1 -1 2521 +S +#2518 +The Mages' Tavern~ + You are in the mages' tavern. The air is smokey and filled with the +smells of foreign food and drink. The other patrons pay you little heed, +as they obviously have more interesting things to contemplate. + The only exit leads back west. +~ +25 dg 0 +D3 +~ +~ +0 -1 2514 +S +#2519 +The Magic Shop~ + You are in the High Tower's store of magic. This place sells all +sorts of herbs, parchment and other reagents used in magical studies. + The only exit leads back east to the common room. +~ +25 dg 0 +D1 +~ +~ +0 -1 2514 +S +#2520 +The Kitchen~ + You are in a small kitchen. All the usual kitchen type utensils and +equipment is here, including some not so usual ones. Among the later, +a huge black oven against one wall, it must be at least 12 feet high. + Opposite the oven is an equally enormous meat locker, large enough +to comfortably store several hapless adventurers no doubt. In the middle +of the room, hanging in mid-air is a spice rack. +~ +25 dg 0 +D1 +~ +door wooden~ +1 -1 2516 +S +#2521 +Below The Trapdoor~ + You are below the trapdoor. It is very dark and dusty here, very +little light filters through from above. A faint sound of dripping +water can be heard in the distance below. + A rope ladder leads down. +~ +25 adg 0 +D4 +~ +trapdoor~ +1 -1 2517 +D5 +~ +~ +0 -1 2522 +S +#2522 +A Damp Intersection~ + You are in a damp intersection of what seems to be the basement of +the tower. The sound of running water can be heard coming from the +south, other than that, an almost tangible stillness fills the air. + Passages lead off in all directions, and a ladder leads up. +~ +25 adg 0 +D0 +~ +~ +0 -1 2523 +D1 +A faint light can be seen in the distance up the east passage. +~ +~ +0 -1 2524 +D2 +~ +~ +0 -1 2525 +D3 +~ +~ +0 -1 2526 +D4 +~ +~ +0 -1 2521 +S +#2523 +A Dark Passage~ + You are at the end of a dark passage which ends in a stout wooden door. +Other then through the door, the only apparent exit is back the way you +came. +~ +25 adg 0 +D0 +~ +door oak~ +2 2522 2527 +D2 +~ +~ +0 -1 2522 +S +#2524 +A Dark Passage~ + You are at the end of a dark passage. A half opened door is to the +east, shedding soft light around the edges. Faint snoring sounds can +be heard behind the door. + Exits lead east through the door, or back west. +~ +25 adg 0 +D1 +~ +door~ +1 -1 2528 +D3 +~ +~ +0 -1 2522 +S +#2525 +The Stagnant Pool~ + You are at the edge of a stagnant pool of water. The smell here is quite +nauseating. This is apparently where the denizens of the tower dispose of +their garbage. Faint gurgling can be heard from beneath the surface of the +pool. + Exits lead back north, or perhaps for the very adventurous, down into the +pool. +~ +25 adg 0 +D0 +~ +~ +0 -1 2522 +D5 +No light penetrates the gloom of the stagnant pool. +~ +~ +0 -1 2529 +S +#2526 +A Dark Passage~ + You are in a dark passage, which comes to an abrupt stop at what appears +to be a cave-in to the west. It is certainly unpassable, and perhaps quite +dangerous just being this close. + The only exit leads back east. +~ +25 adg 0 +D1 +~ +~ +0 -1 2522 +S +#2527 +A Dark Cell~ + You are in a dark cell. Straw and dirt cover the floors here, it is +very dark. Someone, or something seems to be chained to the far wall. + The only exit is back south. +~ +25 adg 0 +D2 +~ +door oak~ +2 2522 2523 +S +#2528 +The Jailor's office~ + You are in the Jailor's office. It is rather messy here. Judging +by the sleeping form of the Jailor on duty, you can surmise that very +few, if any prisoners survive long enough to spend much time in these +dank dungeons. + The only exit leads back west. +~ +25 dg 0 +D3 +~ +door~ +1 -1 2524 +S +#2529 +Below The Stagnant Pool~ + As you dive beneath the putrid waters, you feel a strong tug and a +whirlpool drags you under. You are sucked into blackness. You feel +your lungs burst from lack of oxygen. Just as you feel your life fading, +you notice a change in direction... and are sucked under by a rip tide. +~ +25 abdg 0 +S +#2530 +The Hallway~ + You are in a long hallway leading east and west. The walls emit a faint +magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +door wooden~ +1 -1 2532 +D1 +~ +~ +0 -1 2531 +D2 +~ +door wooden~ +1 -1 2533 +D3 +~ +~ +0 -1 2515 +S +#2531 +A Bend In The Hallway~ + You are at a bend in the hallway. The walls emit a faint magical glow +which provides enough light to see by. +~ +25 dg 0 +D0 +~ +door wooden~ +1 -1 2534 +D1 +~ +door wooden~ +1 -1 2536 +D2 +~ +door wooden~ +1 -1 2535 +D3 +~ +~ +0 -1 2530 +S +#2532 +A Store Room~ + You are in a small store room. Assorted junk is piled on shelves or +leaning against walls. + The only apparent exit it back south. +~ +25 adg 0 +D2 +~ +door wooden~ +1 -1 2530 +S +#2533 +A Broom Closet~ + You are in a dark broom closet. Many straw brooms and other cleaning +instruments have been left here, apparently unused (perhaps the maid +quit?). + The only exit leads back north to the hallway. +~ +25 adg 0 +D0 +~ +door wooden~ +1 -1 2530 +S +#2534 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2538 +D1 +~ +door wooden~ +1 -1 2537 +D2 +~ +door wooden~ +1 -1 2531 +E +walls wall~ +The walls shed a warm light +~ +S +#2535 +The Guardians' chamber~ + You are in the chamber of the tower guardians. It is rather sparsely +furnished, but then again the odd occupants don't look to need furniture. +Here and there a disembodied pair of hands or eyes flits about. +~ +25 dg 0 +D0 +~ +door wooden~ +1 -1 2531 +S +#2536 +A Guest Bedroom~ + You are in a small guest bedroom. A small cot is in one corner, and a +dusty mirror on one wall, other than that the room looks quite bare, and +unused. + The only apparent exit leads back west to the hallway. +~ +25 dg 0 +D3 +~ +door wooden~ +1 -1 2531 +E +mirror~ +Why, someone seems to be looking back at you from the other side! +~ +S +#2537 +A Guest Bedroom~ + You are in a comfortable looking bedroom. A small globe of magical +energy floats overhead, providing light. A small cot is in one corner +looking ever so comfortable, so comfortable in fact... someone is sleeping +in it. + The only apparent exit leads back west to the hallway. +~ +25 dg 0 +D3 +~ +door wooden~ +1 -1 2534 +S +#2538 +A hallway~ + You are in a long hallway leading from the south. The walls emit a +faint magical glow which provides enough light to see by. + Stairs lead up to the next level and the hallway leads back south. +~ +25 dg 0 +D1 +~ +door wooden~ +1 -1 2539 +D2 +~ +~ +0 -1 2534 +D4 +~ +~ +0 -1 2540 +S +#2539 +The Burnt Room~ + You are in what looks to have once been a guest bed room. The walls +are blackened and burnt by what you could only imagine to be magical fire. +There is no sign of the previous occupant, undoubtedly he left in a hurry. + The only exit leads back west to the hallway. +~ +25 adg 0 +D3 +~ +door charred~ +1 -1 2538 +S +#2540 +A Hallway~ + You are in a long hallway leading west from here. The walls emit a +faint magical glow which provides enough light to see by. Some faint +moonlight can be seen in the cul de sac to the east. + The hallway continues west and stairs lead down to the level below. +~ +25 dg 0 +D0 +~ +door oak~ +1 -1 2542 +D1 +Faint moonlight can be seen to the east. +~ +~ +0 -1 2541 +D3 +~ +~ +0 -1 2543 +D5 +~ +~ +0 -1 2538 +S +#2541 +A Cul De Sac~ + You are in a small cul de sac. A window to the east is letting in +moonlight and a pleasant breeze. Through it, the surrounding country +side can be seen. + The only apparent exit leads back west to the hallway. +~ +25 dg 0 +D1 +Stretching out as far as the eye can see is a canopy of dark tree +tops which can only be the Haon-Dor-Dark Forest. A faint light in +the distance to the northeast marks what is probably the city of +Midgaard. +~ +~ +0 -1 -1 +D3 +~ +~ +0 -1 2540 +E +window~ +Stretching out as far as the eye can see is a canopy of dark tree +tops which can only be the Haon-Dor-Dark Forest. A faint light in +the distance to the northeast marks what is probably the city of +Midgaard. +~ +S +#2542 +The Apprentices' Barracks~ + You are in the barracks of the apprentice magic users. Here and there, +a young apprentice sits engrossed in magical study, or practicing a feeble +cantrip. Cots line the walls, and the room continues west. +~ +25 dg 0 +D2 +~ +door oak~ +1 -1 2540 +D3 +~ +~ +0 -1 2544 +S +#2543 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + There is a door to the north, and the hallway continues west or back +east. +~ +25 dg 0 +D0 +~ +door oak~ +1 -1 2544 +D1 +~ +~ +0 -1 2540 +D3 +~ +~ +0 -1 2545 +S +#2544 +The Apprentices' Barracks~ + You are in the barracks of the apprentice magic users. Here and there, +a young apprentice sits engrossed in magical study, or practicing a feeble +cantrip. Cots line the walls, and the room continues east. +~ +25 dg 0 +D1 +~ +~ +0 -1 2542 +D2 +~ +door oak~ +1 -1 2543 +S +#2545 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. Flashes of +light can be seen under the doorway to the north. +~ +25 dg 0 +D0 +A flash of blue light momentarily lights up the door's outline. +~ +door oak~ +1 -1 2546 +D1 +~ +~ +0 -1 2543 +D3 +~ +~ +0 -1 2547 +S +#2546 +The Apprentices' Workshop~ + You are in a small workshop. Writing implements and parchment are +strewn about on a few worktables. In the far corner several young mages +have a small kitten cornered and seem to be testing spells upon it. + The only apparent exit leads back south to the hallway. +~ +25 dg 0 +D2 +~ +door oak~ +1 -1 2545 +S +#2547 +A Bend In The Hallway~ + You are at a bend in the hallway. The walls emit a faint magical glow +which provides enough light to see by. + The hallway continues south and back east. +~ +25 dg 0 +D1 +~ +~ +0 -1 2545 +D2 +~ +~ +0 -1 2548 +S +#2548 +The Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + There is a closed metal door to the west. +~ +25 dg 0 +D0 +~ +~ +0 -1 2547 +D2 +~ +~ +0 -1 2550 +D3 +~ +door metal~ +1 -1 2549 +S +#2549 +A Classroom~ + You are in a large classroom filled with bored looking students of the +art. The instructor stops in his lecture on the fine uses of magic missile +at your entry and lunges to attack you. + The only apparent exit is back east to the hallway. +~ +25 dg 0 +D1 +~ +door metal~ +1 -1 2548 +S +#2550 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2548 +D2 +~ +~ +0 -1 2551 +D3 +~ +door metal~ +1 -1 2552 +S +#2551 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2550 +D2 +~ +~ +0 -1 2553 +D3 +~ +door metal~ +1 -1 2554 +S +#2552 +An Empty Classroom~ + You are in an empty classroom. Some strange sigils are written on a +blackboard which is floating in the air here. Other than a few desks, +it is bare of furnishings. + The only apparent exit leads back east to the hallway. +~ +25 dg 0 +D1 +~ +door metal~ +1 -1 2550 +S +#2553 +A Bend In The Hallway~ + You are at a bend in the hallway. The walls emit a faint magical glow +which provides enough light to see by. + The hallway continues east and north. +~ +25 dg 0 +D0 +~ +~ +0 -1 2551 +D1 +~ +~ +0 -1 2555 +S +#2554 +An Empty Classroom~ + You are in an apparently empty classroom. A strange feeling of being +watched comes over you, and you hear the faint rustle of robes. + The only apparent exit is back east to the hallway. +~ +25 dg 0 +D1 +~ +door metal~ +1 -1 2551 +S +#2555 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + A sturdy iron door can be seen to the south. +~ +25 dg 0 +D1 +~ +~ +0 -1 2556 +D2 +~ +door sturdy iron~ +1 -1 2557 +D3 +~ +~ +0 -1 2553 +S +#2556 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + There is a large oaken door to the south. +~ +25 dg 0 +D1 +~ +~ +0 -1 2558 +D2 +~ +door large oaken~ +1 -1 2559 +D3 +~ +~ +0 -1 2555 +S +#2557 +The Amphitheater~ + You are in a small amphitheater. Rows of comfortable looking chairs +circle a large podium. The echos of your footsteps seem very loud here. + The only apparent exit leads north to the hallway. +~ +25 dg 0 +D0 +~ +door sturdy iron~ +1 -1 2555 +S +#2558 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow providing enough light to see by. + A small door can be seen to the south. +~ +25 dg 0 +D1 +~ +~ +0 -1 2560 +D2 +~ +door small~ +1 -1 2561 +D3 +~ +~ +0 -1 2556 +S +#2559 +The Training Room~ + You are in a large training room. It is filled with battle scared +manikins, and many other devices used in the practice of fighting. +~ +25 dg 0 +D0 +~ +door~ +1 -1 2556 +S +#2560 +A Bend In The Hallway~ + You are at a bend in the hallway. The walls emit a faint magical glow +which provides enough light to see by. + The hallway continues north and west. +~ +25 dg 0 +D0 +~ +~ +0 -1 2562 +D3 +~ +~ +0 -1 2558 +S +#2561 +A Dueling Room~ + You are in a large room used for duals arcane. The walls, ceiling and +floor all bare the scars of many fiery spells, but still look quite strong +and hold fast. + The only exit leads north to the hallway. +~ +25 dg 0 +D0 +~ +door small~ +1 -1 2558 +S +#2562 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + A doorway can be seen to the east. +~ +25 dg 0 +D0 +~ +~ +0 -1 2563 +D1 +~ +door~ +1 -1 2564 +D2 +~ +~ +0 -1 2560 +S +#2563 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + A wooden door can been seen to the east. +~ +25 dg 0 +D0 +~ +~ +0 -1 2566 +D1 +~ +door wooden~ +1 -1 2565 +D2 +~ +~ +0 -1 2562 +S +#2564 +The Spellmasters' Lounge~ + You are in a large comfortable looking lounge. Off duty spell teachers +are here relaxing in their idle time. A large coffee machine is against +the far wall. + The only apparent exit leads back west to the hallway. +~ +25 dg 0 +D3 +~ +door wooden~ +1 -1 2562 +S +#2565 +A Bedroom~ + You are in a large, plush bedroom. The owner is obviously someone of +high standing in the magical community here. An ice mirror is on one wall, +and a scrying globe sit on a stand in the middle of the room. An enormous +bed can be seen floating about a meter above the floor. + The only exit leads back west to the hallway. +~ +25 dg 0 +D3 +~ +door wooden~ +1 -1 2563 +S +#2566 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow providing enough light to see by. + A glass door can be seen to the east. +~ +25 dg 0 +D0 +~ +~ +0 -1 2568 +D1 +~ +door glass~ +1 -1 2567 +D2 +~ +~ +0 -1 2563 +S +#2567 +The Study~ + You are in a small, well kept study. Ancient tomes are on shelves +on the walls, A huge table sits in the middle of the room, with maps +weighted down upon it. The only light source here comes from an +interestingly non-magical oil lamp. + The only apparent exit leads back west to the hallway. +~ +25 dg 0 +D3 +~ +door glass~ +1 -1 2566 +S +#2568 +Below The Stairs~ + You are at the end of a long hallway. The walls emit a faint magical +glow which provides enough light to see by. A lesser guardian is here +keeping silent watch on the entrance to the levels above. + Stairs lead up and the hallway continues back south. +~ +25 dg 0 +D2 +~ +~ +0 -1 2566 +D4 +~ +~ +0 -1 2569 +S +#2569 +Atop The Stairway~ + You are atop a stairway. The halls here look quite a bit less used than +those below. Obviously access to these magic filled corridors is limited +to those of the upper echelon of mages. The walls here emit a faint blue +magical aura which provides some light. + The hallway leads west from here and the stairs go down. +~ +25 dg 0 +D3 +~ +~ +0 -1 2570 +D5 +~ +~ +0 -1 2568 +S +#2570 +A Hallway~ + You are in a long hallway stretching east and west. The walls here emit +a faint magical energy providing enough light to see by. + There is a thick looking wooden door to the north. +~ +25 dg 0 +D0 +~ +door wooden~ +1 -1 2571 +D1 +~ +~ +0 -1 2569 +D3 +~ +~ +0 -1 2572 +S +#2571 +A Small Office~ + You are in a small office. It looks like a calligrapher's +study, there are quills, inkpots and parchments all about on +desks and worktables. + A section to the west seems to be curtained off, but the +flicker of a candle can be seen through the curtain. +~ +25 dg 0 +D2 +~ +door wooden~ +1 -1 2570 +D3 +~ +curtain~ +1 -1 2573 +S +#2572 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D1 +~ +~ +0 -1 2570 +D3 +~ +~ +0 -1 2574 +S +#2573 +The Master Scribe's Workshop~ + You are in the workshop of the tower's master scribe. Many half +finished scrolls lay on the writing table in the center of the room. +A giant candle flickering with soft blue flames provides the only +light here. + The only apparent exit is the way you came in. +~ +25 dg 0 +D1 +~ +curtain~ +1 -1 2571 +S +#2574 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + A half-closed door can be seen to the north. +~ +25 dg 0 +D0 +A dark room can be seen through the half-opened door. +~ +door wooden~ +1 -1 2575 +D1 +~ +~ +0 -1 2572 +D3 +~ +~ +0 -1 2576 +S +#2575 +A Store Room~ + You are in a small dark store room. A few common items are stacked +upon the shelves here, but very little looks interesting. +~ +25 adg 0 +D2 +~ +door wooden~ +1 -1 2574 +S +#2576 +A Bend In The Hallway~ + You are at a bend in the long hallway. The walls emit a faint magical +glow which provides enough light to see by. + The hallway continues south and east from here. +~ +25 dg 0 +D1 +~ +~ +0 -1 2574 +D2 +~ +~ +0 -1 2577 +S +#2577 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + An iron bound door can be seen to the west. +~ +25 dg 0 +D0 +~ +~ +0 -1 2576 +D2 +~ +~ +0 -1 2578 +D3 +~ +door iron~ +2 2515 2579 +S +#2578 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + The sharp sound of metal on metal can be heard to the west. +~ +25 dg 0 +D0 +~ +~ +0 -1 2577 +D2 +~ +~ +0 -1 2580 +D3 +~ +door iron~ +1 -1 2581 +S +#2579 +A Store Room~ + You are in a large store room. Bins of ores, minerals and +other rare materials are here along with many neatly stacked +piles of precious metals. The ring of metal on metal can be +heard to the south. A large cabinet with sigils of warding +is bolted to one wall. +~ +25 dg 0 +D1 +~ +door iron~ +2 2515 2577 +D2 +~ +door~ +2 2515 2581 +S +#2580 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2578 +D2 +~ +~ +0 -1 2583 +S +#2581 +A Very Hot Room~ + You are in a very hot room. Against one wall is a large forge, magical +fires crackle within and heavy blue smoke pours into a vent in the ceiling. +A rune-encrusted mithril anvil is in the center of the room, looking well +used. Other tools of metallurgy hang on a rack which floats about three +meters in the air of its own force. +~ +25 dg 0 +D0 +~ +door~ +2 2515 2579 +D1 +~ +door iron~ +1 -1 2578 +D2 +~ +door~ +1 -1 2582 +D4 +~ +vent~ +1 -1 2612 +S +#2582 +The Master Enchanter's Chamber~ + You have entered the Master Enchanter's chamber. Upon all the walls +here are racks of finely crafted weapons. A huge chest with a glowing +lock is set to one side. Several unfinished looking blades rest atop a +small work table. +~ +25 dg 0 +D0 +~ +door~ +1 -1 2581 +S +#2583 +A Bend In The Hallway~ + You are at a bend in a long hallway. The walls emit a faint magical +glow which provides enough light to see by. + The hallway continues north and east. +~ +25 dg 0 +D0 +~ +~ +0 -1 2580 +D1 +~ +~ +0 -1 2584 +S +#2584 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + A steel door can be seen to the south. +~ +25 dg 0 +D1 +~ +~ +0 -1 2585 +D2 +~ +door steel~ +1 -1 2586 +D3 +~ +~ +0 -1 2583 +S +#2585 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D1 +~ +~ +0 -1 2587 +D3 +~ +~ +0 -1 2584 +S +#2586 +A Laboratory~ + You are in a small laboratory. Many strange instruments, vials, bottles +and some scrawled notes are piled about a workbench. This room is very +untidy, looking almost abandoned, or used by a madman. + The only apparent exits are east and north. +~ +25 dg 0 +D0 +~ +door steel~ +1 -1 2584 +D1 +~ +~ +0 -1 2588 +S +#2587 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + You can see a steel door to the south. +~ +25 dg 0 +D1 +~ +~ +0 -1 2589 +D2 +~ +door steel~ +1 -1 2590 +D3 +~ +~ +0 -1 2585 +S +#2588 +The Mad Alchemist's Workroom~ + You are in the workroom of The Mad Alchemist. Bubbling braziers, +long glass tubes and scores of oddly shaped vials and bottles are +everywhere. It is incredibly messy here, crushed glass and other +trash litter the floor. + The only apparent exit is the one you entered by. +~ +25 dg 0 +D3 +~ +~ +0 -1 2586 +S +#2589 +A Bend In The Hallway~ + You are at a bend in a long hallway. The walls emit a faint magical +glow which provides enough light to see by. + The hallway continues north and west. +~ +25 dg 0 +D0 +~ +~ +0 -1 2591 +D3 +~ +~ +0 -1 2587 +S +#2590 +The Pentagram Chamber~ + You are in a large room with a five pointed star etched into the +floor. A crackling energy field can be seen to the south, it looks +quite dangerous. +~ +25 dg 0 +D0 +~ +door steel~ +1 -1 2587 +D2 +The energy field crackles and glows, nothing seems to be beyond. +~ +~ +0 -1 2592 +S +#2591 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + A bronze door can be seen to the east. +~ +25 dg 0 +D0 +~ +~ +0 -1 2593 +D1 +~ +door bronze~ +1 -1 2594 +D2 +~ +~ +0 -1 2589 +S +#2592 +Inside The Energy Field~ + You feel a stomach twisting sensation as you enter the energy field. +Nice going! You might as well wait here until the wizard who built this +trap comes back to imprison your soul as well as your body. +~ +25 cdefgj 0 +S +#2593 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + A bronze door can be seen to the east. +~ +25 dg 0 +D0 +~ +~ +0 -1 2596 +D1 +~ +door bronze~ +1 -1 2595 +D2 +~ +~ +0 -1 2591 +S +#2594 +An Empty Room~ + You are in an empty room. It is both quiet and comfortable here, it +looks like a safe place to rest. +~ +25 cdg 0 +D3 +~ +door bronze~ +1 -1 2591 +S +#2595 +The Charm Master's Chamber~ + You are in the chambers of the tower's Master of Charm. Some straw +and dirt litters the floor here, it looks to have been recently used by +wild animals. + Strange sounds can be heard through the bars to the north. +~ +25 dg 0 +D0 +~ +cage bars~ +1 -1 2597 +D3 +~ +door bronze~ +1 -1 2593 +S +#2596 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2598 +D2 +~ +~ +0 -1 2593 +S +#2597 +The Animal Pens~ + You are in the animal pens. Many caged animals are here looking unhappy. +Obviously they are destined to be enslaved, or used in some cruel magical +experimentation. +~ +25 dg 0 +D2 +~ +cage bars~ +1 -1 2595 +S +#2598 +The End Of The Hallway~ + You are at the end of a long north-south hallway. The walls emit +a faint magical glow which provides enough light to see by. + Stairs here lead up to the next level, and the hallway continues +south. +~ +25 dg 0 +D2 +~ +~ +0 -1 2596 +D4 +~ +~ +0 -1 2599 +S +#2599 +Atop The Stairway~ + You are atop the stairway to the upper levels of the high tower. The +walls emit a faint magical glow which provides enough light to see by. + A hallway leads west from here, and the stairs lead down. +~ +25 dg 0 +D3 +~ +~ +0 -1 2600 +D5 +~ +~ +0 -1 2598 +S +#2600 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + A silver door can be seen to the north. +~ +25 dg 0 +D0 +~ +door silver~ +1 -1 2601 +D1 +~ +~ +0 -1 2599 +D3 +~ +~ +0 -1 2604 +S +#2601 +A Store Room~ + You are in a large store room. Raw materials are neatly bundled and +piled here and here. Many freshly cut staves rods and wands of different +sizes are here. + You can see a silver door to the west. +~ +25 dg 0 +D2 +~ +door silver~ +1 -1 2600 +D3 +~ +door silver~ +1 -1 2602 +S +#2602 +The Master Spellbinder's Chamber~ + You are in the chambers of the Master Spellbinder. Unlike other work +shops of similar nature, this one is without furnishings or tools. The +spell binder obviously needs none for the working of his art. + A silver door can be seen to the west. +~ +25 dg 0 +D1 +~ +door silver~ +1 -1 2601 +D3 +~ +door silver~ +2 2524 2603 +S +#2603 +The Spellbinder's Cache~ + You have discovered the cache of the Master Spellbinder. There are +three very large silver chased cabinets here, other than that, the room +is bare. + A silver door can be seen to the south. +~ +25 dg 0 +D1 +~ +door silver~ +2 2524 2602 +D2 +~ +door silver~ +2 2524 2605 +S +#2604 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D1 +~ +~ +0 -1 2600 +D3 +~ +~ +0 -1 2605 +S +#2605 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + A silver door can be seen to the north. +~ +25 dg 0 +D0 +~ +door silver~ +2 2524 2603 +D1 +~ +~ +0 -1 2604 +D3 +~ +~ +0 -1 2606 +S +#2606 +A Bend In The Hallway~ + You are at a bend in the long hallway. The walls emit a faint magical +glow which provides enough light to see by. + The hallway continues east and south. +~ +25 dg 0 +D1 +~ +~ +0 -1 2605 +D2 +~ +~ +0 -1 2607 +S +#2607 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2606 +D2 +~ +~ +0 -1 2608 +S +#2608 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + A rusty old door can be seen to the west. +~ +25 dg 0 +D0 +~ +~ +0 -1 2607 +D2 +~ +~ +0 -1 2613 +D3 +~ +door rusty~ +1 -1 2609 +S +#2609 +The Golem Master's Workshop~ + You are in the golem master's workshop. A few unfinished looking humanoid +forms of different make are here, some moving, some not. The animated forms +lunge to attack you. +~ +25 dg 0 +D0 +~ +~ +0 -1 2610 +D1 +~ +door rusty~ +1 -1 2608 +D2 +~ +~ +0 -1 2611 +D5 +~ +trapdoor~ +1 -1 2612 +S +#2610 +A Store Room~ + You are in a small store room. Large chunks of clay, stone, wood and +many other raw materials are here. +~ +25 dg 0 +D2 +~ +~ +0 -1 2609 +S +#2611 +The Golem Chamber~ + You are in the golem chamber. Golems made of every imaginable material +are here, ranging in size from a hand-span to nearly the ceiling. They all +seem to be sleeping. +~ +25 dg 0 +D0 +~ +~ +0 -1 2609 +S +#2612 +It Is Very Dark Here...~ + It is very dark here... +~ +25 adg 0 +D4 +~ +trapdoor~ +1 -1 2609 +D5 +~ +vent~ +1 -1 2581 +S +#2613 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2608 +D2 +~ +~ +0 -1 2614 +S +#2614 +A Bend In The Hallway~ + You are at a bend in the long hallway. The walls emit a faint magical +glow which provides enough light to see by. + The hallway continues north and east from here. +~ +25 dg 0 +D0 +~ +~ +0 -1 2613 +D1 +~ +~ +0 -1 2615 +S +#2615 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D1 +~ +~ +0 -1 2616 +D3 +~ +~ +0 -1 2614 +S +#2616 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + An emerald door can be seen to the south. +~ +25 dg 0 +D1 +~ +~ +0 -1 2619 +D2 +~ +door emerald~ +1 -1 2617 +D3 +~ +~ +0 -1 2615 +S +#2617 +The Illusion Master's Chamber~ + You are in the chamber of the Master of Illusions. The walls here +are ever changing in colour and texture, as if they were reforming before +your very eyes. Many splendorous treasures lie all around in heaps and +piles, or at least they seem to be treasures... +~ +25 dg 0 +D0 +~ +door emerald~ +1 -1 2616 +D3 +~ +~ +0 -1 2618 +S +#2618 +A Bedroom~ + You are in the bedroom of the Master of Illusions. Strange looking +items and artifacts float here and there in the air. The ripples of +strong magic can be felt everywhere. + The room seems much larger than it looks... +~ +25 dg 0 +D0 +The room stretches off to the north. +~ +~ +0 -1 2618 +D1 +~ +~ +0 -1 2617 +D2 +The room stretches off to the south. +~ +~ +0 -1 2618 +D3 +The room stretches off to the west. +~ +~ +0 -1 2618 +S +#2619 +A Hallway~ + You are in a long hallway leading east and west. The walls emit a +faint magical glow which provides enough light to see by. + A glass door can be seen to the south. +~ +25 dg 0 +D1 +~ +~ +0 -1 2621 +D2 +~ +door glass~ +1 -1 2620 +D3 +~ +~ +0 -1 2616 +S +#2620 +The Meditation Chamber~ + You are in a meditation chamber. It is very silent here, in fact +you can not even hear your own footsteps. + You feel very peaceful. +~ +25 cdeg 0 +D0 +~ +door glass~ +1 -1 2619 +S +#2621 +A Bend In The Hallway~ + You are at a bend in the long hallway. The walls emit a faint +magical glow which provides enough light to see by. + The hallway continues north and west from here. +~ +25 dg 0 +D0 +~ +~ +0 -1 2622 +D3 +~ +~ +0 -1 2619 +S +#2622 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. + A blackened door can be seen to the east. +~ +25 dg 0 +D0 +~ +~ +0 -1 2626 +D1 +~ +door black~ +1 -1 2623 +D2 +~ +~ +0 -1 2621 +S +#2623 +A Dark Room~ + You are in a large dark room. The air here seems quite stale, and a +sense of extreme dread comes over you. The stench of rotten flesh seems +to be wafting in from the open doorway to the north. +~ +25 adg 0 +D0 +~ +~ +0 -1 2624 +D3 +~ +door black~ +1 -1 2622 +S +#2624 +A Dark Room~ + You are in a large dark room. The stench here makes you gag and retch. +There are body parts and half rotted corpses strewn about with complete +abandon. Several operating tables with still forms that resemble nothing +you have ever seen alive are here. + Tortured screams can be heard from the north. +~ +25 adg 0 +D0 +Gazing northwards, you are filled with deep dread. +~ +~ +0 -1 2625 +D2 +~ +~ +0 -1 2623 +S +#2625 +The Necromancer's Lair~ + You are in the lair of the evil Necromancer. Undead minions of all +types, human and otherwise stand here waiting to do their master's bidding. +Some glowing arcane sigils have been etched into walls and floor, no doubt +to protect the evil master from his own ungodly creations. +~ +25 adg 0 +D2 +~ +~ +0 -1 2624 +S +#2626 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2627 +D2 +~ +~ +0 -1 2622 +S +#2627 +A Hallway~ + You are in a long hallway leading north and south. The walls emit a +faint magical glow which provides enough light to see by. +~ +25 dg 0 +D0 +~ +~ +0 -1 2628 +D2 +~ +~ +0 -1 2626 +S +#2628 +The End Of The Hallway~ + You are at the end of a long hallway. The walls here glow with a faint +magical energy which provides plenty of light. + Stairs lead up to the next level here and the hallway continues south. +~ +25 dg 0 +D2 +~ +~ +0 -1 2627 +D4 +~ +~ +0 -1 2629 +S +#2629 +A Corridor~ + You are at the east end of a long corridor. Obsidian walls +engraved with ancient runes of power stretch out before you. +Magical energies seem to crackle with power all around and +whisper in tongues long forgotten, almost as if the corridor +itself were alive. +~ +25 dg 0 +D3 +~ +~ +0 -1 2630 +D5 +~ +~ +0 -1 2628 +S +#2630 +A Corridor~ + You are in a long corridor. Obsidian walls engraved with ancient runes +of power stretch out before you. Magical energies seem to crackle with +power all around and whisper in tongues long forgotten, almost as if the +corridor itself were alive. +~ +25 dg 0 +D1 +~ +~ +0 -1 2629 +D3 +~ +~ +0 -1 2631 +S +#2631 +A Bend In The Corridor~ + You are at a bend in the long corridor. Obsidian walls engraved with +ancient runes of power stretch out before you. Magical energies seem to +crackle with power all around and whisper in tongues long forgotten, almost +as if the corridor itself were alive. +~ +25 dg 0 +D1 +~ +~ +0 -1 2630 +D2 +~ +~ +0 -1 2632 +S +#2632 +A Corridor~ + You are in a long corridor leading north and south. Obsidian walls +engraved with ancient runes of power stretch out before you. Magical +energies seem to crackle with power all around and whisper in tongues +long forgotten, almost as if the corridor itself were alive. +~ +25 dg 0 +D0 +~ +~ +0 -1 2631 +D2 +~ +~ +0 -1 2633 +S +#2633 +An Intersection~ + You are at an intersection in the corridor. The obsidian walled halls +lead off in every direction from here, pulsing with the power of their +ancient runes. +~ +25 dg 0 +D0 +~ +~ +0 -1 2632 +D1 +~ +~ +0 -1 2634 +D2 +~ +~ +0 -1 2646 +D3 +~ +~ +0 -1 2636 +S +#2634 +A Corridor~ + You are at the end of a long corridor. Obsidian walls engraved with +ancient runes of power stretch out before you. A darkened door is to the +east. Tendrils of mist cling to the floor here, they seem to be seeping +from under the door. +~ +25 dg 0 +D1 +~ +door black~ +1 -1 2635 +D3 +~ +~ +0 -1 2633 +S +#2635 +The Scrying Chamber~ + You are in the scrying chamber of the high tower of sorcerery. It is +here that arcane rituals are performed to enable those of the art to look +in upon denizens throughout the world and spy out their darkest secrets. +A huge black cauldron is in the center of the room, bubbling and gurgling, +it pours forth a constant stream of smokey fog into the air about you. Here +and there on stands of different sizes are crystal balls and oddly shaped +mirrors. +~ +25 adg 0 +D3 +~ +door black~ +1 -1 2634 +S +#2636 +A Corridor~ + You have reached an end in the long corridor. Obsidian walls engraved +with ancient runes of power stretch out before you. The sound of snoring +can barely be heard through the door to the west. +~ +25 dg 0 +D1 +~ +~ +0 -1 2633 +D3 +~ +door wooden~ +1 -1 2637 +S +#2637 +The Entrance To The Library~ + You are in the entrance to the great library of magic. A giant desk is +here, covered with books parchments and scrolls. Long shelves loaded with +row upon row of books stretch out in every direction as far as the eye can +see. +~ +25 dg 0 +D0 +All you can see are books. +~ +~ +0 -1 2639 +D1 +~ +door wooden~ +1 -1 2636 +D2 +All you can see are books. +~ +~ +0 -1 2640 +D3 +All you can see are books. +~ +~ +0 -1 2638 +S +#2638 +In The Library~ + You are in the great library of magic. A strong musty smell permeates +the entire area. Upon shelves which float just out of reach are hundreds +of books, tomes and scrolls of every possible shape size and colour. The +elusive books seem to wink in and out of existence before your untrained +eyes. It is very quiet here. +~ +25 dg 0 +D0 +All you can see are books. +~ +~ +0 -1 2641 +D1 +All you can see are books. +~ +~ +0 -1 2637 +D2 +All you can see are books. +~ +~ +0 -1 2642 +D3 +All you can see are books. +~ +~ +0 -1 2643 +S +#2639 +In The Library~ + You are in the great library of magic. A strong musty smell permeates +the entire area. Upon shelves which float just out of reach are hundreds +of books, tomes and scrolls of every possible shape size and colour. The +elusive books seem to wink in and out of existence before your untrained +eyes. It is very quiet here. +~ +25 dg 0 +D0 +All you can see are books. +~ +~ +0 -1 2640 +D1 +All you can see are books. +~ +~ +0 -1 2642 +D2 +All you can see are books. +~ +~ +0 -1 2637 +D3 +All you can see are books. +~ +~ +0 -1 2641 +S +#2640 +In The Library~ + You are in the great library of magic. A strong musty smell permeates +the entire area. Upon shelves which float just out of reach are hundreds +of books, tomes and scrolls of every possible shape size and colour. The +elusive books seem to wink in and out of existence before your untrained +eyes. It is very quiet here. +~ +25 dg 0 +D0 +All you can see are books. +~ +~ +0 -1 2637 +D1 +All you can see are books. +~ +~ +0 -1 2641 +D2 +All you can see are books. +~ +~ +0 -1 2639 +D3 +All you can see are books. +~ +~ +0 -1 2642 +S +#2641 +In The Library~ + You are in the great library of magic. A strong musty smell permeates +the entire area. Upon shelves which float just out of reach are hundreds +of books, tomes and scrolls of every possible shape size and colour. The +elusive books seem to wink in and out of existence before your untrained +eyes. It is very quiet here. +~ +25 dg 0 +D0 +All you can see are books. +~ +~ +0 -1 2642 +D1 +All you can see are books. +~ +~ +0 -1 2639 +D2 +All you can see are books. +~ +~ +0 -1 2638 +D3 +All you can see are books. +~ +~ +0 -1 2640 +S +#2642 +In The Library~ + You are in the great library of magic. A strong musty smell permeates +the entire area. Upon shelves which float just out of reach are hundreds +of books, tomes and scrolls of every possible shape size and colour. The +elusive books seem to wink in and out of existence before your untrained +eyes. It is very quiet here. +~ +25 dg 0 +D0 +All you can see are books. +~ +~ +0 -1 2638 +D1 +All you can see are books. +~ +~ +0 -1 2640 +D2 +All you can see are books. +~ +~ +0 -1 2641 +D3 +All you can see are books. +~ +~ +0 -1 2639 +S +#2643 +In The Library~ + You are in the great library of magic. A strong musty smell permeates +the entire area. Upon shelves which float just out of reach are hundreds +of books, tomes and scrolls of every possible shape size and colour. The +elusive books seem to wink in and out of existence before your untrained +eyes. It is very quiet here. +~ +25 dg 0 +D1 +All you can see are books. +~ +~ +0 -1 2638 +D3 +You see a small gap between some shelves. +~ +~ +0 -1 2644 +S +#2644 +Between The Shelves~ + You are in the great library of magic. The shelves seem uncomfortably +close here, you can barely maneuver between them. The musty smell is still +strong, and the elusive books still hover just out of reach. + A faint flicker of light can barely be made out to the north. +~ +25 dg 0 +D0 +~ +~ +0 -1 2645 +D1 +~ +~ +0 -1 2643 +S +#2645 +The Reading Room~ + You are in a small room completely devoid of furnishings. The only thing +here is an enormous tome, lying face open on the floor. The great book looks +both heavy and ancient. Its jewel encrusted bindings are well worn as the +bark of a tree. Spidery writings seem to crawls across the pages, totally +incomprehensible to your mortal eye. Something seems to be wedged between +the pages. +~ +25 dg 0 +D2 +~ +~ +0 -1 2644 +S +#2646 +A Corridor~ + You are in a long corridor leading north and south. Obsidian walls +engraved with ancient runes of power stretch out before you. Magical +energies seem to crackle with power all around and whisper in tongues +long forgotten, almost as if the corridor itself were alive. +~ +25 dg 0 +D0 +~ +~ +0 -1 2633 +D2 +~ +~ +0 -1 2647 +S +#2647 +The End Of The Corridor~ + You are at the end of a long corridor. The obsidian walls come to an +abrupt halt at the edge of a golden archway here. The hum of power is so +strong it nearly numbs your body. + The archway lies before you, glowing and pulsing with energy. +~ +25 dg 0 +D0 +~ +~ +0 -1 2646 +D2 +~ +~ +0 -1 2648 +S +#2648 +The Arched Entrance~ + You feel a slight tingle as you pass through the archway, as if the living +magical energies here had infused your body, found it wanting and left. The +intense glow from the arch above you is almost blinding. Through the light +you can barely make out a stairway leading up. +~ +25 dg 0 +D0 +~ +~ +0 -1 2647 +D4 +~ +~ +0 -1 2649 +S +#2649 +The Landing~ + You are on a small landing in the middle of a long stairway leading up. +Your senses seem dulled here, no sound or smell can be detected at all, and +the only thing you can see in any direction is endless stairway. +~ +25 dg 0 +D4 +~ +~ +0 -1 2650 +D5 +~ +~ +0 -1 2648 +S +#2650 +An Intersection~ + You are at an intersection of several hallways. You feel as if strange +mystical forces are pushing and pulling at each other from all around you. +The sensation of being trapped, in the middle is almost tangible in the air +here. + A grey tiled hallway leads south, black tiled east, white tiled west, +and a multi-coloured hallway swirling with patterns that remain just barely +unrecognizable is to the north. +~ +25 dg 0 +D0 +~ +~ +0 -1 2673 +D1 +~ +~ +0 -1 2658 +D2 +~ +~ +0 -1 2651 +D3 +~ +~ +0 -1 2665 +D5 +~ +~ +0 -1 2649 +S +#2651 +A Grey Tiled Hallway~ + You are in a grey tiled hallway leading north and south. Dim balls +of energy float here and there shedding a warm light, and showing the +way. A feeling of peace and balance comes over you. +~ +25 dg 0 +D0 +~ +~ +0 -1 2650 +D2 +~ +~ +0 -1 2652 +S +#2652 +A Grey Tiled Hallway~ + You are in a grey tiled hallway leading north and south. Dim balls +of energy float here and there shedding a warm light, and showing the +way. A feeling of peace and balance comes over you. + Large, grey metal double doors can be seen to the south. +~ +25 dg 0 +D0 +~ +~ +0 -1 2651 +D2 +~ +door grey~ +1 -1 2653 +S +#2653 +The Antechamber~ + You are in the antechamber of the Master Magician of the Grey Light. +A feeling of strong magic floats in the air about you, almost as if you +could taste the power held within these walls. + Once your eyes adjust to the semi-light, you can make out a larger +room to the south. +~ +25 dg 0 +D0 +~ +door grey~ +1 -1 2652 +D2 +~ +~ +0 -1 2654 +S +#2654 +The Main Chamber~ + A feeling of tranquility comes over you as you enter the main chamber +of Neutrality. Some artifacts are hung on the walls here, or set on stands. +The room in general looks both comfortable and official. Probably where the +Master of Neutrality holds audience. +~ +25 dg 0 +D0 +~ +~ +0 -1 2653 +D1 +~ +~ +0 -1 2656 +D2 +~ +~ +0 -1 2657 +D3 +~ +~ +0 -1 2655 +S +#2655 +The Study~ + You are in a large study. Shelves filled with many books or arcane +knowledge are on every wall. A large oaken desk is in the center, with +many parchments and scrolls on it. The most notable thing in the room is +a small set of scales, which floats about eye level. In perfect balance, +the scales are no doubt a sign of the Master's neutrality. +~ +25 dg 0 +D1 +~ +~ +0 -1 2654 +S +#2656 +A Closet~ + You are in a small closet. It is filled with many cloaks, and some +other apparel. +~ +25 adg 0 +D3 +~ +~ +0 -1 2654 +S +#2657 +A Bedroom~ + You are in the bedroom of the Master Magician of Neutrality. +Curtained windows can be seen on the south wall. A large +comfortable looking bed takes up most of the room. +~ +25 dg 0 +D0 +~ +~ +0 -1 2654 +S +#2658 +A Dark Hallway~ + You are in a long dark hallway leading east and west. Not much can +be seen in the unnatural darkness here, but you get a deep sense of dread +the further you go. +~ +25 adg 0 +D3 +~ +~ +0 -1 2650 +D1 +~ +~ +0 -1 2659 +S +#2659 +A Dark Hallway~ + You are in a long dark hallway leading east and west. Not much can +be seen in the unnatural darkness here, but you get a deep sense of dread +the further you go. +~ +25 adg 0 +D1 +~ +~ +0 -1 2660 +D3 +~ +~ +0 -1 2658 +S +#2660 +The End Of The Hallway~ + You are at the end of a long dark hallway. The darkness here is almost +tangible in its thickness. A deep sense of fear and loathing comes over +you. + A pair of obsidian doors can be seen to the east. +~ +25 adg 0 +D1 +~ +door obsidian~ +1 -1 2661 +D3 +~ +~ +0 -1 2659 +S +#2661 +The Chamber Of Darkness~ + You are in a vast chamber. The walls fade into darkness, leaving you +with a very vague idea of the actual size of the room. Swirling here and +there in the dark, are patches of pure black which seem to suck in your +light and leave it that much darker here. +~ +25 adg 0 +D0 +~ +~ +0 -1 2662 +D1 +~ +~ +0 -1 2664 +D2 +~ +~ +0 -1 2663 +D3 +~ +door obsidian~ +1 -1 2660 +S +#2662 +It Is Very Dark Here...~ + It is very dark here... +~ +25 adg 0 +D2 +~ +~ +0 -1 2661 +S +#2663 +A Torture Chamber~ + You are in an ill lit chamber. Instruments of torture hang from a rack +on the wall, they seem to quiver with anticipation of a victim as if they +had a mind of their own. An operating table is here, though it is bare. + An extreme feeling of evil permeates the entire area. +~ +25 adg 0 +D0 +~ +~ +0 -1 2661 +S +#2664 +The Inner Chamber~ + You are in a small dark chamber. Upon the walls are glowing sigils of +dark power, scrawled and traced in an evil language no longer known to most +of this plane of existence. There is an obsidian altar here which seems to +glow, but does not shed any light, in fact it seems to be taking light in. +~ +25 adg 0 +D3 +~ +~ +0 -1 2661 +S +#2665 +A Bright Hallway~ + You are in a long well lit hallway leading east and west. The walls +here are a milky white colour, and glow with a warm luminescence, as does +the floor. A feeling of goodness permeates the area, and you feel unworthy +to tread upon these sacred floors. +~ +25 dg 0 +D1 +~ +~ +0 -1 2650 +D3 +~ +~ +0 -1 2666 +S +#2666 +A Bright Hallway~ + You are in a long well lit hallway leading east and west. The walls +here are a milky white colour, and glow with a warm luminescence, as does +the floor. A feeling of goodness permeates the area, and you feel unworthy +to tread upon these sacred floors. + A huge set of double doors in finely worked ivory can be seen to the +west. +~ +25 dg 0 +D1 +~ +~ +0 -1 2665 +D3 +~ +door ivory~ +1 -1 2667 +S +#2667 +An Antechamber~ + You are in a small antechamber. It is well lit here, though the source +of light cannot be seen. It is almost as if the room itself exudes a warm +glow of goodness. A larger chamber can be seen to the west, but you do not +feel worthy to pass into it. +~ +25 dg 0 +D1 +~ +door ivory~ +1 -1 2666 +D3 +~ +~ +0 -1 2669 +S +#2669 +The Chamber Of The White Light~ + You are in a vast chamber, its walls floor and ceiling are of an +unknown metallic material, the brightest white, almost blindingly stark. +A flickering flame is in the center of the room, seeming to feed off of +darkness and cleansing the room of any evil. You feel a slight tug at +your being as the flame flickers towards you. +~ +25 dg 0 +D0 +~ +~ +0 -1 2670 +D1 +~ +~ +0 -1 2667 +D2 +~ +~ +0 -1 2671 +D3 +~ +~ +0 -1 2672 +S +#2670 +The Meditation Chamber~ + You are in a small meditation chamber. White silk cushions are +everywhere, looking very comfortable. You get an easy peaceful +feeling of relaxation here, almost making you want to lie down and +fall asleep. +~ +25 dg 0 +D2 +~ +~ +0 -1 2669 +S +#2671 +A Study~ + You are in a spacious study. It is extremely tidy here, to an almost +antiseptic nature. One would wonder how anyone could study without a +mess all around them, the master of this chamber obviously can. +~ +25 dg 0 +D0 +~ +~ +0 -1 2669 +S +#2672 +A Closet~ + You are in a small closet. Cloaks and vests hang from hooks in +the wall, and a few old boots are all that can be seen here. Rather +featureless all in all. +~ +25 adg 0 +D1 +~ +~ +0 -1 2669 +S +#2673 +A Wide Hallway~ + You are in a large hallway, wide enough to accommodate several people +standing abreast. The floor here is a swirl of multicoloured patterns, in +constant motion. + A huge, grey metal door blocks the way north, it looks quite sturdy. +~ +25 dg 0 +D0 +~ +door metal grey~ +2 2593 2674 +D2 +~ +~ +0 -1 2650 +S +#2674 +A Wide Hallway~ + You are in a large hallway, wide enough to accommodate several people +standing abreast. The floor here is a swirl of multicoloured patterns, in +constant motion. + A huge, black obsidian door blocks the way north, it looks quite sturdy. +~ +25 dg 0 +D0 +~ +door obsidian black~ +2 2594 2675 +D2 +~ +door metal grey~ +2 2593 2673 +S +#2675 +A Wide Hallway~ + You are in a large hallway, wide enough to accommodate several people +standing abreast. The floor here is a swirl of multicoloured patterns, in +constant motion. + A huge, white ivory door blocks the way north, it looks quite sturdy. +~ +25 dg 0 +D0 +~ +door ivory white~ +2 2595 2676 +D2 +~ +door obsidian black~ +2 2594 2674 +S +#2676 +The Entranceway~ + You are at the entrance to the audience chamber of the Grand Master of +Magic. Beautiful tapestries displaying the ancient masters of lore are on +the walls, and the floor is covered with a plush multicoloured carpet, which +seems to rustle and move at the touch of your boots. +~ +25 dg 0 +D0 +~ +~ +0 -1 2677 +D2 +~ +door white ivory~ +2 2595 2675 +S +#2677 +The Audience Chamber~ + You are in a large chamber. Small bolts of energy leap from wall to +wall, crackling with power. The floor is a swirl of indeterminable colours +and patterns ever changing. Bright bursts of colour seem to explode into +the air and fade again at random times. All this splendor plays about and +draws attention to a large throne in the center of the room, it seems to be +cut from a single enormous emerald. +~ +25 dg 0 +D0 +~ +~ +0 -1 2680 +D1 +~ +~ +0 -1 2678 +D2 +~ +~ +0 -1 2676 +D3 +~ +~ +0 -1 2679 +E +throne~ +The giant emerald is flawless, and must be incredibly valuable. +~ +S +#2678 +A Dressing Room~ + You are in a plush dressing room. Fine garments of many styles and some +outlandish colours hang from a rack suspended in mid air at eye level. The +only other interesting feature in the room is a large silver mirror on a +finely crafted gold stand. +~ +25 dg 0 +D3 +~ +~ +0 -1 2677 +S +#2679 +The Library~ + You are in a small cosy looking library. A few well made books sit atop +shelves which span every wall. A large oaken writing table is in the center +of the room with odd papers and parchments on it. The illumination here, +to your surprise is a quite un-magical oil lamp. +~ +25 dg 0 +D1 +~ +~ +0 -1 2677 +S +#2680 +The Altar~ + You are in a small chapel designed around a beautifully crafted golden +altar. Many icons to lesser deities line the room, but it is obvious by +one glance at the symbols on the altar, that this room was designed for +the worship of Mystra, the goddess of magic. +~ +25 dg 0 +D1 +~ +door secret~ +1 -1 2681 +D2 +~ +~ +0 -1 2677 +D3 +~ +door secret~ +1 -1 2682 +S +#2681 +The Treasury~ + You are in a small chamber, the stale air here is testament to the fact +that it has gone undisturbed for many years. +~ +25 dg 0 +D3 +~ +door secret~ +1 -1 2680 +S +#2682 +A Passage~ + You are in a small dark passage, which would be unremarkable if not for +the fact that it ends in a blinding blue light to the west. On hooks set +into the wall here there hang several travel worthy cloaks, and a small +leather backpack. It looks as if someone has prepared this room to be used +in the event speedy of a evacuation. +~ +25 adg 0 +D1 +~ +door~ +1 -1 2680 +D3 +~ +~ +0 -1 2683 +S +#2683 +In The Light~ + You seem to be floating in a magical energy field, though you cannot +see the source of the energy, you can feel its power pushing at you from +all sides, completely negating the effects of gravity. + An imperfection in the uniform blue can be seen overhead, it might be +an exit. +~ +25 dg 0 +D4 +~ +~ +0 -1 3001 +S +$ diff --git a/lib/world/wld/30.wld b/lib/world/wld/30.wld new file mode 100644 index 0000000..57f20c2 --- /dev/null +++ b/lib/world/wld/30.wld @@ -0,0 +1,1444 @@ +#3000 +The Reading Room~ + You are in a small, simple room which is mostly empty, save a few +wooden desks and benches. To the east you hear the bustle of the Temple +of Midgaard, a sharp contrast to the relative quiet of this peaceful +room. +~ +30 cdeh 0 +D1 +You see the Temple of Midgaard. +~ +~ +0 -1 3001 +S +#3001 +The Temple Of Midgaard~ + You are in the southern end of the temple hall in the Temple of Midgaard. +The temple has been constructed from giant marble blocks, eternal in +appearance, and most of the walls are covered by ancient wall paintings +picturing Gods, Giants and peasants. + Large steps lead down through the grand temple gate, descending the huge +mound upon which the temple is built and ends on the temple square below. +To the west, you see the Reading Room. The donation room is in a small +alcove to your east. +~ +30 cdeh 0 +D0 +At the northern end of the temple hall is a statue and a huge altar. +~ +~ +0 -1 3054 +D1 +In the east, you see a small alcove with a rickety wooden sign which +reads "Midgaard Donation Room." +~ +~ +0 -1 3063 +D2 +You look down the huge stone steps at the temple square below. +~ +~ +0 -1 3005 +D3 +You see the Reading Room. +~ +~ +0 -1 3000 +D5 +You see the temple square. +~ +~ +0 -1 3005 +S +#3002 +The Clerics' Inner Sanctum~ + This is the inner sanctum. A picture of the mighty Thor, is hanging on +the wall, just above the altar which is set against the western wall. A well +in the middle of the floor leads down into darkness. Vile smells waft from +the depths. +~ +30 cd 0 +D1 +You see your favorite place, the bar of divination. +~ +~ +0 -1 3003 +D5 +You can't see what is down there, it is too dark. Looks like it would be +impossible to climb back up. +~ +~ +0 -1 7026 +S +#3003 +The Bar Of Divination~ + The bar is one of the finest in the land, lucky it is members only. Fine +furniture is set all around the room. A small sign is hanging on the wall. +~ +30 cdh 0 +D2 +You see the entrance. +~ +~ +0 -1 3004 +D3 +You see the inner sanctum. +~ +~ +0 -1 3002 +E +sign~ +The sign reads: +Free instructions provided by the waiter: + + Buy - Buy something (drinkable) from the waiter. + List - The waiter will show you all the different drinks and + specialties, and tell the price of each. +~ +S +#3004 +The Entrance To The Clerics' Guild~ + The entrance hall is a small modest room, reflecting the true nature of +the Clerics. The exit leads east to the temple square. A small entrance to +the bar is in the northern wall. +~ +30 d 0 +D0 +You see the bar, richly decorated with really stylish furniture. +~ +~ +0 -1 3003 +D1 +You see the Temple Square. +~ +~ +0 -1 3005 +S +#3005 +The Temple Square~ + You are standing on the temple square. Huge marble steps lead up to the +temple gate. The entrance to the Clerics' Guild is to the west, and the old +Grunting Boar Inn, is to the east. Just south of here you see the market +square, the center of Midgaard. +~ +30 0 1 +D0 +You see the temple. +~ +~ +0 -1 3001 +D1 +You see the good old Grunting Boar Inn. +~ +~ +0 -1 3006 +D2 +You see the Market Square. +~ +~ +0 -1 3014 +D3 +You see the entrance to the Clerics' Guild. +~ +~ +0 -1 3004 +S +#3006 +The Entrance Hall Of The Grunting Boar Inn~ + You are standing in the entrance hall of the Grunting Boar Inn. The hall +has been wisely decorated with simple, functional furniture. The heavy smell +of dust and aging paper drifts in from the Post Office to the north. A small +staircase leads up to the reception and the bar is to the east. +~ +30 d 0 +D0 +You see the Midgaard Post Office. +~ +~ +0 -1 3062 +D1 +Surprise! You see the bar. +~ +~ +0 -1 3007 +D3 +You see the temple square. +~ +~ +0 -1 3005 +D4 +You see the reception. +~ +~ +0 -1 3008 +S +#3007 +The Grunting Boar~ + You are standing in the bar. The bar is set against the northern wall, old +archaic writing, carvings and symbols cover its top. A fireplace is built into +the western wall, and through the southeastern windows you can see the temple +square. This place makes you feel like home. +A small sign with big letters is fastened to the bar. +~ +30 dh 0 +D3 +You see the exit to the entrance hall. +~ +~ +0 -1 3006 +E +sign~ +The sign reads: +Free instructions provided by the Grunting Boar Inn. + + Buy - Buy something (drinkable) from the bartender. + List - The bartender will show you all the different drinks and + specialties, and tell the price of each. +~ +E +writing carving carvings symbols symbol~ +Although it is very hard to understand, you think it looks a lot like beer, +poems about beer, and small beer-mugs. +~ +S +#3008 +The Reception~ + You are standing in the reception. The staircase leads down to the +entrance hall. An exit to the north leads to the Cryogenic Center. +There is a small sign on the counter. +~ +30 d 0 +D0 +You see the Cryogenic Center. +~ +~ +0 -1 3064 +D5 +You see the entrance hall. +~ +~ +0 -1 3006 +E +sign~ +Rooms are expensive but good! You may: + + Offer - get an offer on a room - Time is in real life days. + Rent - Rent a room (saves your stuff, and quits the game), + minimum charge is one day. + + + MY WAY OR THE HIGHWAY + PAY YOUR RENT! + WE WON'T THINK TWICE BEFORE KICKING YOU OUT. +~ +S +#3009 +The Bakery~ + You are standing inside the small bakery. A sweet scent of Danish and +fine bread fills the room. The bread and Danish are arranged in fine order +on the shelves, and seem to be of the finest quality. +A small sign is on the counter. +~ +30 dh 0 +D2 +You see the main street. +~ +~ +0 -1 3013 +E +danish pastry~ +You see that this is truly delicious pastry. Must be made by a Dane from +Denmark (which surely is not the capital of Sweden!). Former ruler of +Scandinavia, England, Northern Germany, Northern France, Russia, Greenland, +Iceland, Estonia etc. etc. + The sight of those large, wholesome chokoladeboller makes your mouth water +and your soul sing. +~ +E +sign~ +Free instructions provided by the store: + + Buy - Will buy you some bread or pastry. + List - The baker will kindly tell you the price and sort of the bread in + his bakery. +~ +S +#3010 +The General Store~ + You are inside the general store. All sorts of items are stacked on shelves +behind the counter, safely out of your reach. +A small note hangs on the wall. +~ +30 dh 0 +D2 +You see the main street. +~ +~ +0 -1 3015 +E +note~ +The note reads: + + List - Show which various items are in the store. + Buy - Buy an item. + Value - The shopkeeper will (free of charge) tell how much he will + pay for your item. + Sell - Sell an item. +~ +S +#3011 +The Weapon Shop~ + You are inside the weapon shop. There is a small note on the counter. +~ +30 dh 0 +D2 +You see the main street. +~ +~ +0 -1 3016 +E +note~ +The note reads: + + List - Show which various items are in the store. + Buy - Buy an item. + Value - The shopkeeper will (free of charge) tell how much he will + pay for your item. + Sell - Sell an item. +~ +S +#3012 +Main Street~ + You are at the end of the main street of Midgaard. South of here is the +entrance to the Guild of Magic Users. The street continues east towards the +market square. The magic shop is to the north and to the west is the city +gate. +~ +30 0 1 +D0 +You see the magic shop. +~ +~ +0 -1 3033 +D1 +You see the main street. +~ +~ +0 -1 3013 +D2 +You see the entrance to the Guild of Magic Users. +~ +~ +0 -1 3017 +D3 +You see the city gate. +~ +~ +0 -1 3040 +S +#3013 +Main Street~ + You are on the main street passing through the City of Midgaard. South of +here is the entrance to the Armory, and the bakery is to the north. East of +here is the market square. +~ +30 0 1 +D0 +You see the bakery. +~ +~ +0 -1 3009 +D1 +You see the market square. +~ +~ +0 -1 3014 +D2 +You see the armory. +~ +~ +0 -1 3020 +D3 +You see the main street. +~ +~ +0 -1 3012 +S +#3014 +Market Square~ + You are standing on the market square, the famous Square of Midgaard. +A large, peculiar looking statue is standing in the middle of the square. +Roads lead in every direction, north to the temple square, south to the +common square, east and westbound is the main street. +~ +30 0 1 +D0 +You see the temple square. +~ +~ +0 -1 3005 +D1 +You see the main street. +~ +~ +0 -1 3015 +D2 +You see the common square. +~ +~ +0 -1 3025 +D3 +You see the main street. +~ +~ +0 -1 3013 +E +statue~ +What you see is the Midgaard Worm, stretching around the Palace of Midgaard. +~ +S +#3015 +Main Street~ + You are on the main street crossing through town. To the north is the +general store, and the main street continues east. To the west you see and +hear the market place, to the south a small door leads into the Pet Shop. +~ +30 0 1 +D0 +You see the general store. +~ +~ +0 -1 3010 +D1 +You see the main street. +~ +~ +0 -1 3016 +D2 +You see the Pet Shop. +~ +~ +0 -1 3031 +D3 +You see the market square. +~ +~ +0 -1 3014 +S +#3016 +Main Street~ + The main street, to the north is the weapon shop and to the south is the +Guild of Swordsmen. To the east you leave town and to the west the street +leads to the market square. +~ +30 0 1 +D0 +You see the weapon shop. +~ +~ +0 -1 3011 +D1 +You see the city gate. +~ +~ +0 -1 3041 +D2 +You see the swordsmen's guild. +~ +~ +0 -1 3021 +D3 +You see the main street leading to the market square. +~ +~ +0 -1 3015 +S +#3017 +The Entrance To The Mages' Guild~ + The entrance hall to this guild is a small, poor lighted room. +~ +30 d 0 +D0 +You see the main street. +~ +~ +0 -1 3012 +D2 +You see your favorite place, the Mages' Bar. +~ +~ +0 -1 3018 +S +#3018 +The Mages' Bar~ + The bar is one of the weirdest in the land. Mystical images float around +the air. Illusions of fine furniture appear all around the room. +~ +30 cdh 0 +D0 +You see the lobby. +~ +~ +0 -1 3017 +D1 +You see the laboratory. +~ +~ +0 -1 3019 +S +#3019 +The Mages' Laboratory~ + This is the Magical Experiments Laboratory. Dark smoke-stained stones +arch over numerous huge oaken tables, most of these cluttered with strange- +looking pipes and flasks. The floor is covered with half-erased pentagrams +and even weirder symbols, and a blackboard in a dark corner has only been +partially cleaned, some painful-looking letters faintly visible. A well in +the middle of the floor leads down into darkness. Vile smells waft from the +depths. +~ +30 cd 0 +D3 +You see the bar. +~ +~ +0 -1 3018 +D5 +You can't see what is down there, it is too dark. Looks like it would be +impossible to climb back up. +~ +~ +0 -1 7017 +S +#3020 +The Armory~ + The armory with all kinds of armors on the walls and in the window. You +see helmets, shields and chain mails. To the north is the main street. +On the wall is a small note. +~ +30 dh 0 +D0 +You see the main street. +~ +~ +0 -1 3013 +E +note~ +You can use these commands for trading: + + value <item> To get the price of an item in your possession. + sell <item> To sell something. + buy <item> To buy something (provided that the shop has it in store). + list Gives you a listing of the shop's inventory. + + WE DON'T GIVE CREDIT; WE DON'T EXPECT TO RECEIVE CREDIT! + NO HAGGLING +~ +S +#3021 +The Entrance Hall To The Guild Of Swordsmen~ + The entrance hall to the Guild of Swordsmen. A place where one has to be +careful not to say something wrong (or right). To the east is the bar and to +the north is the main street. +~ +30 d 0 +D0 +You see the main street. +~ +~ +0 -1 3016 +D1 +You see the swordsmen's bar, many noises comes from there. +~ +~ +0 -1 3022 +S +#3022 +The Bar Of Swordsmen~ + The bar of swordsmen, once upon a time beautifully furnished. But now the +furniture is all around you in small pieces. To the south is the yard, and +to the west is the entrance hall. +~ +30 cdh 0 +D2 +You see the practice yard. +~ +~ +0 -1 3023 +D3 +You see the entrance hall to the warriors' guild. +~ +~ +0 -1 3021 +S +#3023 +The Tournament And Practice Yard~ + This is the practice yard of the fighters. To the north is the bar. +A well leads down into darkness. +~ +30 cd 0 +D0 +You see the bar. +~ +~ +0 -1 3022 +D5 +You can't see what is down there, it is too dark. Looks like it would be +impossible to climb back up. +~ +~ +0 -1 7048 +S +#3024 +The Eastern End Of Poor Alley~ + You are at the poor alley. South of here is the Grubby Inn and to the +east you see common square. The alley continues further west. +~ +30 0 1 +D1 +You see the common square. +~ +~ +0 -1 3025 +D2 +You see the Inn. +~ +~ +0 -1 3048 +D3 +You see the poor alley. +~ +~ +0 -1 3044 +S +#3025 +The Common Square~ + The common square, people pass you, talking to each other. To the west is +the poor alley and to the east is the dark alley. To the north, this square +is connected to the market square. From the south you notice a nasty smell. +~ +30 0 1 +D0 +You see the market square. +~ +~ +0 -1 3014 +D1 +You see the dark alley. +~ +~ +0 -1 3026 +D2 +You see the city dump. +~ +~ +0 -1 3030 +D3 +You see Poor Alley. +~ +~ +0 -1 3024 +S +#3026 +The Dark Alley~ + The dark alley, to the west is the common square and to the south is the +Guild of Thieves. The alley continues east. +~ +30 0 1 +D1 +The alley continues east. +~ +~ +0 -1 3045 +D2 +You see the entrance to the thieves' guild. +~ +~ +0 -1 3027 +D3 +You see the common square. +~ +~ +0 -1 3025 +E +guild~ +It is the thieves' guild, don't enter if you care about your health or money. +~ +S +#3027 +The Entrance Hall To The Guild Of Thieves~ + The entrance hall to the thieves' and assassins' guild. A place where you +can lose both your life and your money, if you are not careful. To the north +is the dark alley and to the east is the thieves' bar. +~ +30 d 0 +D0 +You see the alley. +~ +~ +0 -1 3026 +D1 +You see the thieves bar, where everything disappears. +~ +~ +0 -1 3028 +S +#3028 +The Thieves' Bar~ + The bar of the thieves. Once upon a time this place was beautifully +furnished, but now it seems almost empty. To the south is the yard, and to +the west is the entrance hall. + (Maybe the furniture has been stolen?!) +~ +30 cdh 0 +D2 +You see the secret yard. +~ +~ +0 -1 3029 +D3 +You see the entrance hall to the thieves' guild. +~ +~ +0 -1 3027 +E +furniture~ +As you look at the furniture, the chair you sit on disappears. +~ +S +#3029 +The Secret Yard~ + The secret practice yard of thieves and assassins. To the north is the +bar. A well leads down into darkness. +~ +30 cd 0 +D0 +You see the bar. +~ +~ +0 -1 3028 +D5 +You can't see what is down there, it is too dark. Looks like it would be +impossible to climb back up. +~ +~ +0 -1 7043 +S +#3030 +The Dump~ + The dump, where the people from the city drop their garbage. Through the +garbage you can see a large junction of pipes, looks like the entrance to the +sewer system. North of here you see the common square. +~ +30 c 2 +D0 +You see the common square. +~ +~ +0 -1 3025 +D5 +You see the sewers. +~ +grate~ +2 3005 7030 +S +#3031 +The Pet Shop~ + The Pet Shop is a small crowded store, full of cages and animals of +various sizes. There is a sign on the wall. +~ +30 cdh 0 +D0 +You see the main street. +~ +~ +0 -1 3015 +E +sign~ +The sign reads: + + Use 'List' to see the available pets. + Use 'Buy <pet>' to buy yourself a pet. + + Instructions for having pets: + + You can use 'order <pet> <instructions>' to order your pets around. + If you abuse your pet, it will no longer regard you as its master. + If you have several pets you may use 'order followers <instructions>' + + You can name the pet you buy with: 'buy <pet> <name>' + + Regards, + + The Shopkeeper + +~ +S +#3032 +Pet Shop Store~ + This is the small dark room in which the Pet shop keeps his pets. +It is vital that this room's virtual number is exactly one larger +than the Pet Shop number. +~ +30 dk 0 +S +#3033 +The Magic Shop~ + Behind the counter you see various items, neatly placed in racks, +presumably most of them are magic. +~ +30 dh 0 +D2 +You see the main street. +~ +~ +0 -1 3012 +S +#3040 +Inside The West Gate Of Midgaard~ + You are by two small towers that have been built into the city wall and +connected with a footbridge across the heavy wooden gate. Main Street leads +east and Wall Road leads south from here. +~ +30 0 1 +D1 +You see Main Street. +~ +~ +0 -1 3012 +D2 +You see the road running along the inner side of the city wall. You notice +that it is called Wall Road. +~ +~ +0 -1 3042 +D3 +The city gate is to the west. +~ +gate~ +1 3112 3052 +E +bridge footbridge~ +It is too high up to reach but it looks as if one easily could walk across it +from one tower to the other. +~ +E +gate~ +It is a set of very big double doors made from hard wood. They have been +reinforced with large iron bands to make them even more sturdy. One of the +doors is equipped with a very big lock. +~ +E +tower towers~ +Both of the towers are built from large grey rocks that have been fastened to +each other with some kind of mortar, just like the city wall. +~ +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3041 +Inside The East Gate Of Midgaard~ + You are by two small towers that have been built into the city wall and +connected with a footbridge across the heavy wooden gate. Main Street leads +west from here. To the south you see the Water Shop. +~ +30 0 1 +D1 +You see the city gate. +~ +gate~ +1 3112 3053 +D2 +You see the water shop. +~ +~ +0 -1 3058 +D3 +You see Main Street. +~ +~ +0 -1 3016 +E +bridge footbridge~ +It is too high up to reach but it looks as if one easily could walk across it +from one tower to the other. +~ +E +gate~ +It is a set of very big double doors made from hard wood. They have been +reinforced with large iron bands to make them even more sturdy. One of the +doors is equipped with a very big lock. +~ +E +tower towers~ +Both of the towers are built from large grey rocks that have been fastened to +each other with some kind of mortar, just like the city wall. +~ +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3042 +Wall Road~ + You are walking next to the western city wall. The road continues further +south and the city gate is just north of here. +~ +30 0 1 +D0 +You see the city gate. +~ +~ +0 -1 3040 +D2 +The road continues further south. +~ +~ +0 -1 3043 +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3043 +Wall Road~ + You are walking next to the western city wall. Wall Road continues further +north and south. A small, poor alley leads east. +Some letters have been written on the wall here. +~ +30 0 1 +D0 +The road continues further north. +~ +~ +0 -1 3042 +D1 +Poor Alley leads east. +~ +~ +0 -1 3044 +D2 +The road continues further south. +~ +~ +0 -1 3047 +E +wall writing letters~ +It says 'Who watches the watchmen?' +~ +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3044 +Poor Alley~ + You are on Poor Alley, which continues further east. You see the +city wall to the west. +~ +30 0 1 +D1 +The alley leads east. +~ +~ +0 -1 3024 +D3 +The alley leads west. +~ +~ +0 -1 3043 +S +#3045 +The Dark Alley At The Levee~ + You are standing in the alley which continues east and west. South of +here you see the levee. +~ +30 0 1 +D1 +The alley leads east. +~ +~ +0 -1 3046 +D2 +You see the levee. +~ +~ +0 -1 3049 +D3 +The alley leads west. +~ +~ +0 -1 3026 +S +#3046 +The Eastern End Of The Alley~ + You are standing at the eastern end of the alley, the city wall is just +east, blocking any further movement. A small warehouse is directly south of +here. +~ +30 0 1 +D2 +You see the warehouse. +~ +~ +0 -1 3050 +D3 +You see the alley. +~ +~ +0 -1 3045 +S +#3047 +Wall Road~ + You are standing on the road next to the western city wall, which +continues north. South of here is a bridge across the river. +~ +30 0 1 +D0 +You see the road. +~ +~ +0 -1 3043 +D2 +You see the bridge. +~ +~ +0 -1 3051 +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3048 +Grubby Inn~ + You are inside the old Grubby Inn. This place has not been cleaned for +several decades; vile smells make you dizzy. +~ +30 dh 0 +D0 +You see the alley. +~ +~ +0 -1 3024 +S +#3049 +The Levee~ + You are at the levee. South of here you see the river gently flowing west. +The river bank is very low making it possible to enter the river. +~ +30 h 1 +D0 +You see the alley. +~ +~ +0 -1 3045 +D2 +You see the river flowing west. +~ +~ +0 -1 3203 +S +#3050 +The Deserted Warehouse~ + You are inside the warehouse. The room is decorated with various old +items from ships. +~ +30 d 0 +D0 +You see the alley. +~ +~ +0 -1 3046 +S +#3051 +On The Bridge~ + You are standing on the stone bridge crosses the river. The bridge is +built out from the western city wall and the river flows west through an +opening in the wall ten feet below the bridge. +~ +30 0 1 +D0 +You see the road. +~ +~ +0 -1 3047 +D2 +You see the Concourse. +~ +~ +0 -1 3100 +E +bridge~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar, just like the wall. +~ +E +opening~ +You cannot really see it from here as it is somewhere beneath your feet. +~ +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3052 +Outside The West Gate Of Midgaard~ + You are by two small towers that have been built into the city wall and +connected with a footbridge across the heavy wooden gate. To the west you +can see the edge of a big forest. +~ +30 0 1 +D1 +The city gate is to the east. +~ +gate~ +1 3112 3040 +D3 +The forest edge is to the west. +~ +~ +0 -1 6092 +E +bridge footbridge~ +It is too high up to reach but it looks as if one easily could walk across it +from one tower to the other. +~ +E +gate~ +It is a set of very big double doors made from hard wood. They have been +reinforced with large iron bands to make them even more sturdy. One of the +doors is equipped with a very big lock. +~ +E +tower towers~ +Both of the towers are built from large grey rocks that have been fastened to +each other with some kind of mortar, just like the city wall. +~ +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3053 +Outside The East Gate Of Midgaard~ + You are by two small towers that have been built into the city wall and +connected with a footbridge across the heavy wooden gate. To the east the +plains stretch out in the distance. +~ +30 0 1 +D1 +You see the plains. +~ +~ +0 -1 3503 +D3 +You see the city gate. +~ +gate~ +1 3112 3041 +E +bridge footbridge~ +It is too high up to reach but it looks as if one easily could walk across it +from one tower to the other. +~ +E +gate~ +It is a set of very big double doors made from hard wood. They have been +reinforced with large iron bands to make them even more sturdy. One of the +doors is equipped with a very big lock. +~ +E +tower towers~ +Both of the towers are built from large grey rocks that have been fastened to +each other with some kind of mortar, just like the city wall. +~ +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3054 +By The Temple Altar~ + You are by the temple altar in the northern end of the Temple of +Midgaard. A huge altar made from white polished marble is standing +in front of you and behind it is a ten foot tall sitting statue of +Odin, the King of the Gods. + To the north, steps lead out the back of the temple towards the +countryside. +~ +30 d 0 +D0 +You see the vast Midgaard countryside. +~ +~ +0 -1 3059 +D2 +You see the southern end of the temple. +~ +~ +0 -1 3001 +E +altar~ +Even though the altar is more than ten feet long it appears to be made from +a single block of white virgin marble. +~ +E +statue odin king god~ +The statue represents the one-eyed Odin sitting on a his throne. He has +long, grey hair and beard and a strict look on his face. On top of the +throne, just above his shoulders, his two ravens Hugin and Munin are sitting +and at his feet are his wolves Gere and Freke. +~ +S +#3055 +Odin's Store~ + This is the small dark room in which Odin keeps the player items that he +takes care of. It is vital that this room's virtual number is exactly one +larger than the room by the temple altar. +~ +30 dj 0 +S +#3058 +Ye Olde Water Shoppe~ + You are standing in the center of a small wooden shop whose walls are +covered with racks upon racks of water jugs. Several large barrels with +spigots are stacked in the corner. +~ +30 dh 0 +D0 +You see the East Gate. +~ +~ +0 -1 3041 +S +#3059 +Behind The Temple Altar~ + You are on a dirt path leading away from the Temple Altar which is south +of here. To the north, the path continues through the lush contryside of +Midgaard towards the Dragonhelm Mountains far off to the north. +~ +30 0 1 +D0 +You see the lush, green countryside of Midgaard. +~ +~ +0 -1 3060 +D2 +You see the Temple Altar. +~ +~ +0 -1 3054 +S +#3060 +The Great Field Of Midgaard~ + You are walking on a wide dirt path through the lush, green, fresh +Midgaard countryside. You can see to the horizon to the north, east, +and west; the busy city of Midgaard lies to the south. All around you +is healthy green grass and an occasional large oak tree. The sun feels +wonderful on your face and a pleasant wind blows through your hair. Birds +chirp quietly to themselves and you can smell the faint scent of flowers +and freshly cut grass. You feel like you could lie down in the grass and +stay here forever, surrounded by powerful beauty in all directions. + The path you are on continues north through the field and south back +to Midgaard. +~ +30 0 1 +D0 +You see more of the path through the Great Field. +~ +~ +0 -1 3061 +D2 +You see the path which goes back to Midgaard. +~ +~ +0 -1 3059 +S +#3061 +The Great Field Of Midgaard~ + You are walking on a wide dirt path through the lush, green, fresh +Midgaard countryside. You can see to the horizon to the north, east, +and west; the busy city of Midgaard lies to the south. All around you +is healthy green grass and an occasional large oak tree. The sun feels +wonderful on your face and a pleasant wind blows through your hair. Birds +chirp quietly to themselves and you can smell the faint scent of flowers +and freshly cut grass. You feel like you could lie down in the grass and +stay here forever, surrounded by powerful beauty in all directions. + There is a strange structure on the eastern side of the path. A small +dirt path splits off of the main path and leads off to the west. +~ +30 c 1 +D0 +The path continues northwards bringing you ever closer to the Dragonhelm +Mountains. +~ +~ +0 -1 3065 +D1 +There is a strange structure to the east on the edge of the trail. +~ +~ +0 -1 18600 +D2 +You see more of the Field. +~ +~ +0 -1 3060 +D3 +There is a strange path leading towards a rusty gate to the west. +~ +~ +0 -1 3066 +S +#3062 +The Post Office~ + You are in the central post office for Midgaard. Piles of assorted mail +lay untouched in the corners, collecting cobwebs. Several large crates have +been pried open by curious customs agents, and are now stacked along the west +wall, hiding plenty of 'WANTED' posters. +There is a sign posted on the wall here. +~ +30 deh 1 +D2 +You see the entrance to the Grunting Boar Inn and Tavern. +~ +~ +0 -1 3006 +E +sign~ +********************************************************** +* * +* Mail Instructions: * +* * +* To send a note to someone: * +* MAIL <playername> * +* * +* To see if you have any mail: * +* CHECK * +* * +* To get the Postmaster to give you your mail: * +* RECEIVE * +* * +* Stamps cost 150 coins per letter * +* Type 'HELP MAIL' for more info * +********************************************************** +~ +E +letters envelopes assorted~ +Envelopes of all sizes are heaped into hugh piles around the room. As you +look closer, you see a letter that you had posted a full week ago, laying +unnoticed and slightly rat-chewed towards the bottom of the pile. +~ +E +cobwebs~ +They seem to cover everything here, even the Postmaster himself. +~ +E +crates opened large~ +As you know, it is illegal to send contraband items through the Midgaard +Mail. The customs agents use this as a great excuse to seize liquor, +rare spices, and just about anything they might find useful or profitable. +~ +E +WANTED posters poster wall~ +Faces of various known Killers and Thieves can barely be seen behind the +crates on the west wall. Some of them look quite familar, sorta like that +guy who you saw in the Reception a minute ago... but then again, they are +rather hard to see past the crates. +~ +S +#3063 +The Midgaard Donation Room~ + You are in a small, undecorated room just off of the main temple. There +are a couple of small wooden benches here where people occasionally sit +while they wait for items to appear. The temple is to the west. +~ +30 cde 1 +D3 +The busy temple is back west. +~ +~ +0 -1 3001 +S +#3064 +The Cryogenic Center~ + You are standing in an impossible white sterile room with cylindrical +body-length canisters lined up against the walls. The Reception is to the +south. +~ +30 d 1 +D2 +The Reception is to the south. +~ +~ +0 -1 3008 +S +#3065 +The Great Field Of Midgaard~ + You are walking on a wide dirt path through the lush, green, fresh +Midgaard countryside. You can see to the horizon to the north, east, +and west; the busy city of Midgaard lies to the south. All around you +is healthy green grass and an occasional large oak tree. The sun feels +wonderful on your face and a pleasant wind blows through your hair. Birds +chirp quietly to themselves and you can smell the faint scent of flowers +and freshly cut grass. You feel like you could lie down in the grass and +stay here forever, surrounded by powerful beauty in all directions. + The way north appears to be blocked by a large plot device and you cannot +see any way around it. +~ +30 0 2 +D0 +Unfortunately the way north is blocked by a large plot device and there +does not seem to be any way around it. +~ +~ +0 -1 -1 +D2 +The path continues through the field to the south past an odd structure +on the eastern side of the path. +~ +~ +0 -1 3061 +E +plot device~ +What more is a plot device than something to block a certain direction +for reasons beyond your comprehension. +~ +S +#3066 +The Dirt Path~ + You are walking along a narrow dirt path through the lush, green, +fresh Midgaard countryside. You can see to the horizon to the north +and east; the busy city of Midgaard lies to the south. All around +you is healthy green grass and an occasional large oak tree. The sun +feels wonderful on your face and a pleasant wind blows through your +hair. Birds chirp quietly to themselves and you can smell the faint +scent of flowers and freshly cut grass. You feel like you could lie +down in the grass and stay here forever, surrounded by powerful beauty +in all directions. + There is a large rusty gate sitting in a stone archway just to the +west. +~ +30 0 2 +D1 +The path meets up with a larger path just to the east. +~ +~ +0 -1 3061 +D3 +There is a large rusty gate just to the west. +~ +~ +0 -1 3600 +S +$ diff --git a/lib/world/wld/31.wld b/lib/world/wld/31.wld new file mode 100644 index 0000000..32f9495 --- /dev/null +++ b/lib/world/wld/31.wld @@ -0,0 +1,1013 @@ +#3100 +The Northwest End Of The Concourse~ + You are at the concourse, the city wall is just west. A small promenade +goes east, and the bridge is just north of here. The concourse continues +south along the city wall. +~ +31 0 1 +D0 +You see the Bridge. +~ +~ +0 -1 3051 +D1 +You see the promenade. +~ +~ +0 -1 3101 +D2 +The promenade continues far south. +~ +~ +0 -1 3127 +S +#3101 +The Promenade~ + The river gently flows westwards just north of here. The promenade +continues further east and to the west you see the city wall. Park Road +leads south from here. +~ +31 0 1 +D1 +The promenade continues. +~ +~ +0 -1 3102 +D2 +Park Road leads south. +~ +~ +0 -1 3131 +D3 +You see the Concourse. +~ +~ +0 -1 3100 +S +#3102 +The Promenade~ + The river gently flows westwards just north of here. The promenade +continues both east and west. South of here you see the entrance to +the park, and a small building seems to be just west of the entrance. +~ +31 0 1 +D1 +You see the promenade. +~ +~ +0 -1 3103 +D2 +You see the park entrance. +~ +~ +0 -1 3105 +D3 +You see the promenade. +~ +~ +0 -1 3101 +S +#3103 +The Promenade~ + The river gently flows westwards just north of here. The promenade +continues both east and west. A small path leads south. Looking across +the river you see the levee. +~ +31 0 1 +D1 +You see the Concourse. +~ +~ +0 -1 3104 +D2 +The small path leads south. +~ +~ +0 -1 3132 +D3 +You see the promenade. +~ +~ +0 -1 3102 +S +#3104 +The Northeast End Of The Concourse~ + You are at the Concourse. The city wall is just east and a small +promenade goes west. Looking across the river you see a building that +resembles a warehouse. The Concourse continues south along the city +wall. +~ +31 0 1 +D2 +The Concourse continues south. +~ +~ +0 -1 3130 +D3 +You see the promenade. +~ +~ +0 -1 3103 +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. It is far too high to climb. +~ +S +#3105 +The Park Entrance~ + You are standing just inside the small park of Midgaard. To the north is +the promenade and a small path leads south into the park. To your east is +the famous Park Cafe. +~ +31 c 1 +D0 +You see the promenade. +~ +~ +0 -1 3102 +D1 +You see Park Cafe. +~ +~ +0 -1 3106 +D2 +You see the park. +~ +~ +0 -1 3108 +S +#3106 +Park Cafe~ + You are inside Park Cafe, a very cozy place with many tables and +seats where you can relax and enjoy the view. To the east you can +see the entrance to the park. +~ +31 dh 0 +D3 +You see the park entrance. +~ +~ +0 -1 3105 +S +#3107 +A Small Path In The Park~ + You are walking along a small path through the park. The path continues +south and east. +~ +31 0 1 +D1 +~ +~ +0 -1 3108 +D2 +~ +~ +0 -1 3113 +S +#3108 +A Small Path In The Park~ + You are standing on a small path inside the park. The park entrance is +just north of here, and Park Cafe is just east of the entrance. The path +leads further east and west. +~ +31 0 1 +D0 +You see the northern park entrance. +~ +~ +0 -1 3105 +D1 +~ +~ +0 -1 3109 +D3 +~ +~ +0 -1 3107 +S +#3109 +A Small Path In The Park~ + You are on a small path running through the park. It continues west and +south and just north of here you see the southern wall of Park Cafe. +~ +31 0 1 +D2 +~ +~ +0 -1 3115 +D3 +~ +~ +0 -1 3108 +S +#3110 +Cityguard HeadQuarters~ + You are inside a tidy office. +~ +31 d 0 +D1 +You see Park Road. +~ +door~ +1 3105 3111 +S +#3111 +Park Road~ + The road continues north and south. A building is just west of here, you +notice a sign on the door. The park entrance is to the east. +~ +31 0 1 +D0 +~ +~ +0 -1 3131 +D1 +You see the park entrance. +~ +~ +0 -1 3112 +D2 +~ +~ +0 -1 3118 +D3 +You see the Cityguard HeadQuarters. +~ +door~ +1 3105 3110 +E +building door sign~ +The sign on the door says: + + Cityguard HeadQuarters + + WARNING: Authorized Personnel Only! + +~ +S +#3112 +The Western Park Entrance~ + You are standing at the western end of the park. A small path leads east +into the park and going west through the entrance you will reach Park Road. +~ +31 c 1 +D1 +~ +~ +0 -1 3113 +D3 +~ +~ +0 -1 3111 +S +#3113 +A Path In The Park~ + You are in the park. The paths lead north and west. Westward is the +park entrance and to the east you see a small pond. +~ +31 0 1 +D0 +~ +~ +0 -1 3107 +D1 +You see the pond. +~ +~ +0 -1 3114 +D3 +You see the western park entrance. +~ +~ +0 -1 3112 +S +#3114 +The Pond~ + You are swimming around in the pond, feeling rather stupid. You can get +back on the path from the eastern and western end of the pond. +~ +31 0 6 +D1 +~ +~ +0 -1 3115 +D3 +~ +~ +0 -1 3113 +S +#3115 +A Path In The Park~ + You are in the park. The paths lead north and east. Eastward is the +park entrance and to the west you see a small pond. +~ +31 0 1 +D0 +~ +~ +0 -1 3109 +D1 +~ +~ +0 -1 3116 +D3 +~ +~ +0 -1 3114 +S +#3116 +The Eastern Park Entrance~ + You are standing at the eastern end of the park. A small path leads west +into the park. Going east through the entrance you will reach Emerald +Avenue. +~ +31 c 1 +D1 +~ +~ +0 -1 3117 +D3 +~ +~ +0 -1 3115 +S +#3117 +Emerald Avenue~ + You are standing on the north end of Emerald Avenue. To the north is the +promenade and to the west is the park entrance. To the east is the not very +big Town Hall of Midgaard. +~ +31 0 1 +D0 +~ +~ +0 -1 3132 +D1 +~ +~ +0 -1 3137 +D2 +~ +~ +0 -1 3119 +D3 +~ +~ +0 -1 3116 +S +#3118 +Park Road~ + You are on Park Road which leads north and south. +~ +31 0 1 +D0 +~ +~ +0 -1 3111 +D2 +~ +~ +0 -1 3135 +S +#3119 +Emerald Avenue~ + You are standing at a bend on Emerald Avenue. The road leads north and +west. +~ +31 0 1 +D0 +~ +~ +0 -1 3117 +D3 +~ +~ +0 -1 3133 +S +#3120 +The Road Crossing~ + You are in the middle of the road cross. Roads lead in all directions. +A huge black iron chain as thick as a tree trunk is fastened into the ground +at the center of the road cross. Its other end leads directly upwards towards +the sky. +A road sign is here. +~ +31 0 1 +D0 +~ +~ +0 -1 3133 +D1 +~ +~ +0 -1 3136 +D2 +~ +~ +0 -1 3134 +D3 +~ +~ +0 -1 3135 +D4 +The chain disappears in the clouds. +~ +~ +0 -1 7914 +E +sign~ +The sign points in all directions: + + North - Emerald Avenue. + East - Park Road. + South - Emerald Avenue. + West - Park Road. + +Someone has added the following with red paint: + + Up - Redferne's Flying Citadel. + +~ +E +chain~ +The chain reaches the clouds high above you. It must take some really +powerful magic to hold such a chain in place. +~ +S +#3121 +Emerald Avenue~ + You are standing at a bend on Emerald Avenue. The road leads south and +east. +~ +31 0 1 +D1 +~ +~ +0 -1 3134 +D2 +~ +~ +0 -1 3125 +S +#3122 +Park Road~ + You are on Park Road which leads south and north. Elm Street is east of +here. +~ +31 0 1 +D0 +~ +~ +0 -1 3136 +D1 +~ +~ +0 -1 3123 +D2 +~ +~ +0 -1 3126 +S +#3123 +Elm Street~ + You are on Elm street. Park Road is to the west and Elm Street continues +in eastward direction. +~ +31 0 1 +D1 +~ +~ +0 -1 3124 +D3 +~ +~ +0 -1 3122 +S +#3124 +The End Of Elm Street~ + You are at the end of Elm Street. +~ +31 0 1 +D3 +~ +~ +0 -1 3123 +S +#3125 +Emerald Avenue~ + You are on Emerald Avenue which continues north. The Concourse is south +of here. +~ +31 0 1 +D0 +~ +~ +0 -1 3121 +D2 +~ +~ +0 -1 3128 +S +#3126 +Park Road~ + You are on Park Road which continues north. The Concourse is south of +here. +~ +31 0 1 +D0 +~ +~ +0 -1 3122 +D2 +~ +~ +0 -1 3129 +S +#3127 +On The Concourse~ + You are at the southwest corner of the city wall. The Concourse leads +both north and east. +~ +31 0 1 +D0 +~ +~ +0 -1 3100 +D1 +~ +~ +0 -1 3128 +D3 +Through the South Gate you can see a small path leading southwards. +~ +~ +0 -1 3504 +S +#3128 +On The Concourse~ + The Concourse continues both east and west. Emerald Avenue is north of +here. +~ +31 0 1 +D0 +~ +~ +0 -1 3125 +D1 +~ +~ +0 -1 3129 +D3 +~ +~ +0 -1 3127 +S +#3129 +On The Concourse~ + The Concourse continues both east and west. Park Road is north of here +and an iron grate leads south to the graveyard. +~ +31 0 1 +D0 +~ +~ +0 -1 3126 +D1 +~ +~ +0 -1 3130 +D2 +Through the solid iron bars you see the graveyard. +~ +grate~ +2 3106 3150 +D3 +~ +~ +0 -1 3128 +S +#3130 +On The Concourse~ + You are at the southeast corner of the city wall. The Concourse leads +both north and west. +~ +31 0 1 +D0 +~ +~ +0 -1 3104 +D3 +~ +~ +0 -1 3129 +S +#3131 +Park Road~ + You are at Park Road which continues north and south. +~ +31 0 1 +D0 +~ +~ +0 -1 3101 +D2 +~ +~ +0 -1 3111 +S +#3132 +Emerald Avenue~ + You are at Emerald Avenue which continues north and south. Penny Lane leads +east from here. +~ +31 0 1 +D0 +~ +~ +0 -1 3103 +D1 +~ +~ +0 -1 3139 +D2 +~ +~ +0 -1 3117 +S +#3133 +Emerald Avenue~ + You are standing at a bend on Emerald Avenue. To the east the road goes on +and to the south is the Road Crossing. +~ +31 0 1 +D1 +~ +~ +0 -1 3119 +D2 +~ +~ +0 -1 3120 +S +#3134 +Emerald Avenue~ + You are standing at a bend on Emerald Avenue. To the west the road goes on +and to the north is the Road Crossing. +~ +31 0 1 +D0 +~ +~ +0 -1 3120 +D3 +~ +~ +0 -1 3121 +S +#3135 +Park Road~ + You are at a bend on Park Road. To the north the road goes on and to the +east is the Road Crossing. +~ +31 0 1 +D0 +~ +~ +0 -1 3118 +D1 +~ +~ +0 -1 3120 +S +#3136 +Park Road~ + You are at a bend on Park Road. To the south the road goes on and to the +west is the Road Crossing. +~ +31 0 1 +D2 +~ +~ +0 -1 3122 +D3 +~ +~ +0 -1 3120 +S +#3137 +The Waiting Room~ + You are standing in the waiting room at the town hall. Wooden chairs stand +along the walls and a long desk with a typewriter is placed in the middle of +the room. +~ +30 d 0 +D1 +It looks like some kind of office. +~ +~ +0 -1 3138 +D3 +The exit west leads to Emerald Avenue. +~ +~ +0 -1 3117 +E +chair chairs~ +Not the very least comfortable. +~ +E +desk~ +An extremely heavy desk. It is so large that it doesn't even need drawers. +Everything can be stored on its top. +~ +E +typewriter~ +It is an ancient Quifatronic T-1000 mk I. These machines are known for their +incredible durability, and for their even more incredible weight. They make +a Cray II look like a laptop. +~ +S +#3138 +The Mayor's Office~ + You are in the not very big office of the Mayor of Midgaard. A large and +polished but completely empty desk is standing in front of an armchair that +looks so comfortable that it most of all resembles a bed with the head end +raised slightly. +~ +30 d 0 +D3 +The waiting room is to the west. +~ +~ +0 -1 3137 +E +desk~ +This desk is obviously very old. Nevertheless it looks as if has never been +used. +~ +E +chair armchair~ +This chair is really a masterpiece. A chair where one can sit as comfortably +as in a bed. All auditoriums should be equipped with these things. A shame +that there wouldn't be room for the students too, though. +~ +S +#3139 +Penny Lane~ + You are on Penny Lane. Emerald Avenue is to the west and Penny Lane +continues in eastward direction. +~ +31 0 1 +D1 +~ +~ +0 -1 3140 +D3 +~ +~ +0 -1 3132 +S +#3140 +Penny Lane~ + You are on Penny Lane. The narrow road continues north and west. +~ +31 0 1 +D0 +~ +~ +0 -1 3141 +D3 +~ +~ +0 -1 3139 +S +#3141 +The End Of Penny Lane~ + You are at the end of Penny Lane. The only exit appears to be south. +~ +31 0 1 +D2 +~ +~ +0 -1 3140 +S +#3150 +A Gravel Road In The Graveyard~ + You are on a well-kept gravel road that leads north-south through the +graveyard. On both sides of the road grow dark evergreen trees. An iron +grate is to the north. +~ +31 0 2 +D0 +Through the solid iron bars you see the Concourse. +~ +grate~ +2 3106 3129 +D2 +The gravel road continues southward. +~ +~ +0 -1 3151 +S +#3151 +A Gravel Road In The Graveyard~ + You are on a well-kept gravel road that leads north-south through the +graveyard. On both sides of the road grow dark evergreen trees. +~ +31 0 2 +D0 +The gravel road continues northwards. +~ +~ +0 -1 3150 +D2 +The gravel road continues southward. +~ +~ +0 -1 3152 +S +#3152 +A Gravel Road In The Graveyard~ + You are on a well-kept gravel road that leads north-south through the +graveyard. On both sides of the road grow dark evergreen trees. +~ +31 0 2 +D0 +The gravel road continues northwards. +~ +~ +0 -1 3151 +D2 +The gravel road continues southward. +~ +~ +0 -1 3153 +S +#3153 +A Gravel Road In The Graveyard~ + You are on a well-kept gravel road that leads north-south through the +graveyard. On both sides of the road grow dark evergreen trees. +~ +34 0 1 +D0 +The gravel road continues northwards. +~ +~ +0 -1 3152 +D2 +The gravel road continues southward to an open space before a small +building. +~ +~ +0 -1 3154 +S +#3154 +In Front Of The Chapel~ + You are on an open space before a small chapel. A gravel road leads north +through the graveyard and the chapel entrance is to the south. +~ +31 0 2 +D0 +The gravel road continues northwards. +~ +~ +0 -1 3153 +D2 +The chapel door is made of dark wood. +~ +door~ +1 -1 3155 +S +#3155 +Inside The Chapel~ + You are in a small, dark chapel. The dark brown glass in the tiny windows +do not let much light through. A few rows of worn wooden benches stand here +and an ancient altar sits in the middle of the floor. +~ +34 ad 0 +D0 +The chapel door is made of dark wood. +~ +door~ +1 -1 3154 +E +glass windows~ +The windows must be meant to be dark. At least they are completely clean. +~ +E +altar~ +The altar looks very old... you examine the floor around the altar and notice +that it seems less dusty than the rest of the room... someone must clean here +regularly... maybe that old guy in Park Cafe, he looked like that sort... +~ +E +benches rows~ +The benches are not of the comfortable kind. +~ +S +#3200 +Under The Bridge~ + The arch under the bridge is covered by seaweed about a foot above the +surface of the river. The water gently flows through an opening in the lower +part of the city wall. +~ +31 0 7 +D1 +~ +~ +0 -1 3201 +D3 +~ +~ +0 -1 900 +E +wall~ +It is built from large grey rocks that have been fastened to each other with +some kind of mortar. Looks pretty solid. +~ +S +#3201 +On The River~ + North of here you see the miserable buildings of Poor Alley. The +river flows west towards the bridge. The riverbanks are too steep to +climb. +~ +31 0 7 +D1 +~ +~ +0 -1 3202 +D3 +~ +~ +0 -1 3200 +S +#3202 +On The River~ + North of here you see the dump. The river flows from east to west. The +riverbanks are too steep to climb. +~ +31 0 7 +D1 +~ +~ +0 -1 3203 +D3 +~ +~ +0 -1 3201 +S +#3203 +On The River~ + The levee is directly north of here. The river flows in an east west +direction. +~ +31 0 7 +D0 +~ +~ +0 -1 3049 +D1 +~ +~ +0 -1 3204 +D3 +~ +~ +0 -1 3202 +S +#3204 +On The River~ + You see the warehouse on the northern riverbank. East of here you see the +city wall. The river flows west towards the levee. +~ +31 0 7 +D1 +~ +~ +0 -1 3205 +D3 +~ +~ +0 -1 3203 +S +#3205 +On The River~ + The river enters from a hole in the eastern city wall. The hole has been +blocked by several vertically positioned iron bars set into the wall. +~ +31 0 7 +D1 +The iron bars make it difficult to pass through the hole in the wall. +Beyond the bars you see that the river leads into a cavern below the +mountain range to the east. +~ +~ +0 -1 5001 +D3 +~ +~ +0 -1 3204 +S +$ diff --git a/lib/world/wld/33.wld b/lib/world/wld/33.wld new file mode 100644 index 0000000..0252de8 --- /dev/null +++ b/lib/world/wld/33.wld @@ -0,0 +1,1528 @@ +#3300 +A Scraggly Trail~ + This trail slopes up and away from the main road to +the west. At points the trail seems to fade into +obscurity against the grey stone and near-grey mountain +grass prevalent here. The trail leads generally eastward +and up higher into the rocky ground. There is a sign +here, seemingly out-of-place in this rough country. +~ +33 cg 5 +D1 +~ +~ +0 -1 3301 +D3 +~ +~ +0 -1 3500 +E +sign~ + ,_____________________________. + | | + | Gabadiel's | + | Smithery | + | --------------> | + | | + | -- BUAG SIGNS INC.| + `-----------------------------' + | | + | | + | | + | | +~ +S +#3301 +A Scraggly Trail~ + What could barely be called a trail leads west back +down the mountainside, and down into a very small valley +where a small house sits in the middle of a well-groomed +yard. The door to the house is open and inviting, +welcoming you for a visit. +~ +33 0 5 +D3 +~ +~ +0 -1 3300 +D5 +~ +~ +0 -1 3302 +S +#3302 +A Groomed Path~ + You are standing in the western end of a very, very +small valley, just about room enough for the one house +standing to your east. You can see from here that the +door to the cozy cottage is open and inviting, but the +interior seems very dark. A path bordered by shrubberies +leads up to the structure, and ends where you are +standing; right by the easiest path back up into the +mountains. +~ +33 0 5 +D1 +~ +~ +0 -1 3303 +D4 +~ +~ +0 -1 3301 +S +#3303 +Outside A House~ + The path you are on leads from the front door of the +cottage to your east, to the edge of the small valley +to the west. The building seems quiet...almost too +quiet. A small voice in the back of your head, the +same voice that has saved your life on countless +occasions, seems to be telling you that something is +very, very wrong here. +~ +33 0 2 +D1 +It is a normal front door to a house. +~ +door front~ +1 -1 3304 +D3 +~ +~ +0 -1 3302 +S +#3304 +The Smithery~ + Devastation greets your eyes. + The forge has been blasted apart, along with most of +the back door. Hammers, tongs, and anvils lie about in +one gigantic mess, and the smith's bed smoulders yet. +This place has been utterly wrecked and blasted apart, by +more than one man you would think from all the tracks in +the dust... +~ +33 d 0 +D1 +It is a normal hole torn in the wall leading outside into +a garden. +~ +~ +0 -1 3305 +D3 +It is a normal front door. +~ +door front~ +1 -1 3303 +E +bed~ +Ha! Lucky, you were always lucky! Under the pillow is a +half-written letter, unaddressed. The bits of text that +aren't smudged, burnt, and smeared tell tale of the smith/mage +Gabadiel's masterwork: a sword of unequalled power, and two +swords that came before, discarded as 'Not quite what I was +working towards'. Looking around, you notice a distinct lack +of any swords. You think you may have a motive now... +~ +E +tracks dust~ +Three sets of prints lead out where the back door used to stand. +~ +S +#3305 +A Small Garden~ + This garden was probably once kept orderly and weedless. +Unfortunately, it seems someone has been careless with a +fireball. There is nothing here now but blast-marks and +ashes, and the remains of a trail leading to the east edge +of this tiny valley. +~ +33 0 2 +D1 +~ +~ +0 -1 3306 +D3 +~ +~ +0 -1 3304 +E +tracks track~ +They lead east. +~ +S +#3306 +Mountain Ridge~ + You are standing on a ridge in the mountains, just east +of a very small valley. You spot a tiny cottage sitting +in the center of the valley, and the ridge continues +south. Looking at the sheer drops to the north and west, +you consider not taking those directions. +~ +33 0 5 +D2 +~ +~ +0 -1 3307 +D3 +~ +~ +0 -1 3305 +E +tracks track~ +The tracks lead south. +~ +S +#3307 +The Mountain Ridge~ + The mountain range continues north from here, and +widens out into a small plateau just to your south. Going +east and west from here would be a bad idea, considering +the steepness of the drop. From this height, you have a +fairly good panoramic view to the south, including what +appears to be a small mountain village to your south and +west, and a tall, ominous peak westwards from here. +~ +33 0 5 +D0 +~ +~ +0 -1 3306 +D2 +~ +~ +0 -1 3308 +E +tracks track~ +They lead south. +~ +S +#3308 +The Diverging Paths~ + You are standing on a small plateau in the mountains, +just south of a ridge that leads northwards through the +rocky area. To the east, south, and west are gentle +slopes leading down into different areas of the mountains. + A giant, dark peak looks down over you to the west, +looking quite spooky indeed! +~ +33 0 5 +D0 +~ +~ +0 -1 3307 +D1 +~ +~ +0 -1 3341 +D2 +~ +~ +0 -1 3309 +D3 +~ +~ +0 -1 3359 +E +tracks track~ +The three sets of tracks split up here, one west, one east, +one south. +~ +S +#3309 +A Steep Slope~ + This slopes leads down and to the west from here. Up +above, you see a plateau at the southern end of a long +mountain ridge. Surpisingly, there seems to be signs of +traffic in this area, leading into the large depression +here. The going looks somewhat dangerous, and you decide +to exercise a little caution. +~ +33 0 4 +D0 +~ +~ +0 -1 3308 +D3 +~ +~ +0 -1 3310 +D4 +~ +~ +0 -1 3308 +E +signs tracks~ +A few boot prints lead way in the dust here. There is +definitely traffic here, but this area is not what you +would call well-travelled. +~ +S +#3310 +A Small Plateau~ + You are standing upon another mini-plateau, bordered by +a sheer wall of rock to the north. You can climb up the +slope to the east, or continue along the flat area to the +west. Another slope leads downwards to the south, looking +unsafe but climbable. +~ +33 0 4 +D1 +~ +~ +0 -1 3309 +D2 +~ +~ +0 -1 3314 +D3 +~ +~ +0 -1 3311 +S +#3311 +A Small Plateau~ + This plateau ends here, with a steep drop-off to the +south, and a solid wall of rock to the north. Eastwards +the plateau continues, and you think you can climb up the +steep rocky slope just west of here. You are afforded a +good view of the lower regions of this depression, and you +think you spot what might be a cave south and down from +here... +~ +33 0 4 +D1 +~ +~ +0 -1 3310 +D3 +~ +~ +0 -1 3312 +S +#3312 +A Rocky Slope~ + This slope is fairly treacherous, but looks to be +somewhat safer to the north. East the slope leads down +to a small plateau that also looks considerably safer +than your other choices. The shale under your feet +slips badly, and you are almost thrown off balance; +this is no place to be without mountaineering equipment. +~ +33 0 5 +D0 +~ +~ +0 -1 3313 +D1 +~ +~ +0 -1 3311 +S +#3313 +The Overlook~ + You are standing on a point outcropping with a +beautiful view of the mountains to the north. Far +below, you see what appears to be a foot-path climb +up to the central mountain, a peak that looks dark +and disturbing. You get very bad vibes from that +mountain for some reason, and it doesn't seem like +a very good idea to try to find a way to get there. + The only safe way to leave this overlook is to +the south. +~ +33 0 4 +D2 +~ +~ +0 -1 3312 +S +#3314 +A Rocky Slope~ + You slip and slide your way across the steep ground, +trying desperately to keep your balance. You can climb +up to a small plateau to the north from here, or carefully +head down to the floor of the depression to the west. +You're not sure which is safer... +~ +33 0 5 +D0 +~ +~ +0 -1 3310 +D3 +~ +~ +0 -1 3315 +S +#3315 +The Depression Floor~ + A small path leads south here, away from the rocky +slope leading up to the east. A small spring burbles +here, evidently the cause of much of the traffic. +Looking up, you see sheer rock walls surrounding much +of the depression, making an effective fortress of +this place. +~ +33 0 4 +D1 +~ +~ +0 -1 3314 +D2 +~ +~ +0 -1 3316 +S +#3316 +The Depression Floor~ + The small path you are standing on leads north, and +east into what appears to be a large cave hollowed out +of the mountainside. The whole place seems quiet, too +quiet in fact. Your little adventurer's intuition is +busily warning you of traps. +~ +33 0 4 +D0 +~ +~ +0 -1 3315 +D1 +~ +~ +0 -1 3317 +S +#3317 +A Cave Entrance~ + A cave leads into the heart of the mountainside, well- +lit by sconces upon the walls. A large rock sits by +the side here, near a small firepit. Debris litters the +area; rabbit bones, half of a broken whetstone, and random +litter. The ground is devoid of grass, and well trodden +by many pairs of boots. Strange that someone should live +so deep in the mountains... +~ +33 c 0 +D1 +~ +~ +0 -1 3318 +D3 +~ +~ +0 -1 3316 +S +#3318 +A Cave Passageway~ + You are near the entrance of the cave. The outside +light streams in from the west, accompanied by a slight +breeze, making the flames in the sconces flutter a bit +and throw stange shadows upon the walls. This passageway +heads north and south from here, each way seeming dark and +stuffy compared to outdoors. From the tracks in the +floor, you guess that the north is the more used. +~ +33 d 0 +D0 +~ +~ +0 -1 3319 +D2 +~ +~ +0 -1 3331 +D3 +~ +~ +0 -1 3317 +S +#3319 +A Cave Passageway~ + The passage turns here, one end leading south, towards +the cave's entrance, and east -- that much deeper into the +mountain. The light sconces keep the area bright enough +to see, but not nearly bright enough for you to be quite +comfortable in this strange place. From far off you hear +the echoes of what sound to be voices. +~ +33 d 0 +D1 +~ +~ +0 -1 3320 +D2 +~ +~ +0 -1 3318 +S +#3320 +A Cave Passageway~ + This twisty passage leads east and west from here. +Eastwards you hear the unmistakable sounds of low +voices. The echoes seem to be playing funny effects +on you, however, and you are not sure from how far +off these voices might be coming. +~ +33 d 0 +D1 +~ +~ +0 -1 3321 +D3 +~ +~ +0 -1 3319 +S +#3321 +A Cave Passageway~ + The passage you are standing in turns west and south +from here. One of the sconces here is out, making this +area extremely dark and hard to see in. You do see lights +from the south, however, seemingly brighter than the +sconces you've seen along the walls so far. +~ +33 d 0 +D2 +~ +~ +0 -1 3322 +D3 +~ +~ +0 -1 3320 +S +#3322 +A Cave Passageway~ + This is a T-intersection in the cave passageway, the +north leading back towards the cave's entrance (you +think!), the west leading towards a well-lighted area. +Eastwards the passageway continues into the shadowy +recesses of the mountain uninvitingly. The echoes of +voices are confusing you a bit, and you are not sure +whether you should try to remain quiet or not. +~ +33 d 0 +D0 +~ +~ +0 -1 3321 +D1 +~ +~ +0 -1 3324 +D3 +~ +~ +0 -1 3323 +S +#3323 +A Cave~ + Many sconces line the walls here, casting light on +some weapon racks and chests of armor. Everything +is neat, orderly, and actually well-dusted. Someone +cares for these items...frequently it seems. +~ +33 d 0 +D1 +~ +~ +0 -1 3322 +S +#3324 +A Cave Passageway~ + The passageway you are in leads south and west from +here. Many large stones and rocks are on the floor of the +cave, making walking difficult in the dim light from the +sconces on the walls. You hear the continued echo of +voices, seemingly fainter now. Must be the strange +acoustics of this place... +~ +33 d 0 +D2 +~ +~ +0 -1 3325 +D3 +~ +~ +0 -1 3322 +S +#3325 +A Cave Passageway~ + The cave twists around like a coiled snake, leading +east and north from here. You begin to wonder if your +orientations are still correct. That worries you for +some reason. +~ +33 d 0 +D0 +~ +~ +0 -1 3324 +D1 +~ +~ +0 -1 3326 +S +#3326 +A Cave Passageway~ + You can head north and west through the cave passageways +here, both ways dimly lit by the ever-present sconces on +the walls. The echoes you heard earlier seem to be getting +louder, and seem to be coming from the northern passage. +You feeled a bit chilled from the cooled cave air and +shiver a bit in the faint whisper of a breeze. This place +is a little too eerie and dark to be comfortable in. +~ +33 d 0 +D0 +~ +~ +0 -1 3327 +D3 +~ +~ +0 -1 3325 +S +#3327 +A Cave Passageway~ + The echoes are growing louder, and seem to be coming +from the northern end of this corridor. Southwards you +see the tunnel continue right before yet another bend in +the passagway. You spot a small piece of red cloth torn +against a sharp rock jutting out from the passage's side. +It looks like silk, very nice in fact. +~ +33 d 0 +D0 +~ +~ +0 -1 3328 +D2 +~ +~ +0 -1 3326 +S +#3328 +A Cave Passageway~ + The main passageway leads south from here, and a smaller +cave tunnel leads away to the west. Two large boulders +sit against the wall, wiped clean of dirt and grime. A +paper food wrapper has been trodden under several pairs of +feet here; at best guess, you'd say this would probably be +a guard post. +~ +33 d 0 +D2 +~ +~ +0 -1 3327 +D3 +~ +~ +0 -1 3329 +S +#3329 +The End Of The Passageway~ + The cave passageway ends abruptly here to the north in a +large wooden door set into the stone walls. The craftsmanship +is superb! You can also head back to the main passage to the +west, where there seems to be more light than here. An echo +from down the passage makes you wonder for a moment if you are +being followed, but you see nothing there... +~ +33 d 0 +D0 +It is a sturdy wooden door. +~ +door wooden~ +1 -1 3330 +D1 +~ +~ +0 -1 3328 +S +#3330 +A Cavern~ + This natural cavern has been turned into a combination +office/storeroom. A small brook rushes through the south +wall, and flows back into the west wall through a tiny +hole. Boxes and crates are stacked against the walls, and +a beat up oaken desk stands near the door stacked with +papers written upon by an unsteady hand. Some large +lanterns keep the place very well lighted. +~ +33 d 0 +D2 +It is a sturdy wooden door. +~ +door wooden~ +1 -1 3329 +S +#3331 +A Cave Passageway~ + You are standing south of the main entrance to this +cave. The passage you are in continues south, very badly +lit along its length by the sconces lining the walls +every fifteen feet or so. From somewhere deep in the +recesses of the cave, you hear a faint, rhythmic thumping +sound distorted by the passage's strange acoustics. +~ +33 d 0 +D0 +~ +~ +0 -1 3318 +D2 +~ +~ +0 -1 3332 +S +#3332 +A Cave Passageway~ + You are standing at the southern bend of this passage, +able to head east and north from here. The rock around you +echoes the sound of far-off pounding to you, making the +place seem somehow alive, with a heartbeat. This place +is fairly eerie, now that you come to think of it. +~ +33 d 0 +D0 +~ +~ +0 -1 3331 +D1 +~ +~ +0 -1 3333 +S +#3333 +A Cave Passageway~ + The passageway makes a U-turn here, heading north and +westwards to the other side of the 'U'. The air seems +humid and hard to breathe. Some algae grows near the +floor in the slick spots, giving a definite subtle smell +of rot to the air. +~ +33 d 0 +D0 +~ +~ +0 -1 3334 +D3 +~ +~ +0 -1 3332 +S +#3334 +A Cave Passageway~ + The tunnel twists to the south and east from here, +its dark length seemingly dismal and lifeless. A faint +thumping sound reverberates from the walls, making you +perk your ears for the direction of the noise. +~ +33 d 0 +D1 +~ +~ +0 -1 3335 +D2 +~ +~ +0 -1 3333 +S +#3335 +A Cave Passageway~ + This area darker than the rest of the passageway, due +to the fact that the sconces along the walls stop abruptly +here. The way to the south is completely dark, in direct +contrast to the tunnels to the west. You peer hard to the +south, but can make out nothing in the impenetrable +darkness. And still that distant thumping impinges on +your consciousness... +~ +33 d 0 +D2 +~ +~ +0 -1 3336 +D3 +~ +~ +0 -1 3334 +S +#3336 +A Cave Passageway~ + You are standing in a north-south tunnel carved +naturally through the stone of the mountain. To the +north the tunnel is lighted by sconces along the wall, +banishing the deep, deep darkness you now stand in. To +the south you can see nothing. A deep thumping noise +seems to be getting louder and louder as you stand here, +coming from somewhere deep inside. +~ +33 ad 0 +D0 +~ +~ +0 -1 3335 +D2 +~ +~ +0 -1 3337 +S +#3337 +A Cave Passageway~ + The passageway switches directions again in the dark +gloom of the mountain, heading to the north and east from +here. As you round the corner, a trick of the acoustics +make the deep thrumming and pounding you've been hearing +sound as if its coming from two feet away! Very unsettling. +~ +33 ad 0 +D0 +~ +~ +0 -1 3336 +D1 +~ +~ +0 -1 3338 +S +#3338 +A Cave Passageway~ + The tunnel weaves around, twisting to the north and +west here. The darkness around you is near total. Ahead, +you hear the sounds of something metal banging against +stone. Could someone be mining out the tunnel, perhaps? +~ +33 ad 0 +D0 +~ +~ +0 -1 3339 +D3 +~ +~ +0 -1 3337 +S +#3339 +A Cave Passageway~ + A glimmer of light to the east alerts you to the fact +that something is going on in the tunnel nearby. The south +exit of the tunnel leads off into complete darkness. All +around on the ground are piles of earth and stone, making +you have to wend through the tunnel carefully. Hmm. +~ +33 ad 0 +D1 +~ +~ +0 -1 3340 +D2 +~ +~ +0 -1 3338 +S +#3340 +The End Of The Passage~ + The tunnel stops abruptly here at a fissure in the stone. +All around on the ground are rocks and gravel, mined from +the fissure in an attempt to widen it enough for passage. +A few pieces of paper litter and wrappers tells you that +the work here is relatively recent. +~ +33 d 0 +D3 +~ +~ +0 -1 3339 +S +#3341 +A Rocky Slope~ + This treacherous slope leads ever-downward quite a ways, +down to a valley where there seems to be a small village! +What a village is doing this far from civilization, and how +they survive you've no idea. From the smoke wafting from +some of the chimneys, it looks like this place is still +inhabited as well. + Now if you can only get down this slope without breaking +an ankle... +~ +33 0 5 +D1 +~ +~ +0 -1 3342 +D3 +~ +~ +0 -1 3308 +S +#3342 +A Rocky Slope~ + You're slipping and sliding across this slope, trying to +get to your destination without breaking your leg or falling +and shattering your head. Below, you spot some movement in +the village, giving proof the place is not a ghost-town. + The main road of the village starts at the bottom of +the slope just to the east, and the slope continues west +and up far, far up the mountain. +~ +33 c 5 +D1 +~ +~ +0 -1 3343 +D3 +~ +~ +0 -1 3341 +S +#3343 +Main Road~ + This place leaves you very unimpressed. And bored. +You are definitely bored by this place. The people are +listless, going about their daily chores with a slowness +that pains your eyes. A slope to the west climbs up the +mountainside, and two open shops made of wood and stone +are to your north and south. East-wards this road continues. + There is a small sign here. +~ +33 0 1 +D0 +~ +~ +0 -1 3344 +D1 +~ +~ +0 -1 3346 +D2 +~ +~ +0 -1 3345 +D3 +~ +~ +0 -1 3342 +E +sign~ + + ,_____________________________. + | | + | Stanneg by the Mountains | + | | + | Population: 27 | + | | + | -- BUAG SIGNS INC.| + `-----------------------------' + | | + | | + | | + | | + +~ +S +#3344 +The Mountain Tavern~ + Hmm. Looks like there's no one here, not even an bartender. +Evidently you've come during off hours, since no bar could be +THIS dull. The walls are decorated with mounted animal heads +and arrows and longbows and other hunting equipment/trophies. +All of it looks rather plain. +~ +33 d 0 +D2 +~ +~ +0 -1 3343 +S +#3345 +The General Store~ + A bored shopkeeper waves an idle hand towards his stock +of stuff. Browse, type list, buy, sell, whatever... +~ +33 d 0 +D0 +~ +~ +0 -1 3343 +S +#3346 +Main Road~ + Nothing is going on in this section of village either. To the +east is an actual road intersection, and to the west you see one +of the ends of this road. A large grassy area to the south is +fenced off for a horse corral. +~ +33 0 1 +D1 +~ +~ +0 -1 3348 +D2 +~ +~ +0 -1 3347 +D3 +~ +~ +0 -1 3343 +S +#3347 +The Corral~ + Many horses look up at you when you enter this corral. +The horses are kept in by a big wooden fence, which they +seem quite happy to been kept in by. You don't see anyone +around taking care of these horses, but someone is probably +close by. +~ +33 d 0 +D0 +~ +~ +0 -1 3346 +S +#3348 +The Intersection~ + You are standing in an intersection deep in the heart +of Stanneg by the Mountains. In fact, this is the ONLY +intersection anywhere in Stanneg by the Mountain it +appears. + There are some buildings to the north, and south, and +east, and west. None particularly stand out from the +others. +~ +33 0 1 +D0 +~ +~ +0 -1 3349 +D1 +~ +~ +0 -1 3355 +D2 +~ +~ +0 -1 3353 +D3 +~ +~ +0 -1 3346 +S +#3349 +A Small Road~ + This road runs north through Stanneg by the Mountains, +if through would be the operative word for such a motley +collection of buildings. Westwards is a small, open-roofed +building that appears to be a farmer's market. The road +you are on continues north, and comes to an intersection +just south of here. +~ +33 0 1 +D0 +~ +~ +0 -1 3351 +D2 +~ +~ +0 -1 3348 +D3 +~ +~ +0 -1 3350 +S +#3350 +The Farmer's Market~ + One farmer's wife stands here, waiting for someone to +buy the food her family has grown. She looks bored, but +not unhappy... no competition! +~ +33 0 1 +D1 +~ +~ +0 -1 3349 +S +#3351 +A Small Road~ + The small, north-south road running through Stanneg +by the Mountains ends here, curving to become the front +walk of a private home to the east. The road runs south +from this house, towards the center of the village. +~ +33 0 1 +D1 +A normal, wooden front door to a normal looking home. It is +nothing to write home about. +~ +door front~ +1 -1 3352 +D2 +~ +~ +0 -1 3349 +S +#3352 +A Private Home~ + The interior of this home is simple and rustic. A +ladder leads up to the loft, where the sleeping pallets +are tucked away. A wood-burning stove keeps the place +well heated and cozy. A homemade rocking chair stands +crooked in the corner, draped with a old looking afghan. +This home is a nice place, very comfortable. +~ +33 d 0 +D3 +There is a normal appearing door set in the western wall. +~ +door front~ +1 -1 3351 +S +#3353 +A Small Road~ + The road ends here, leading up to a stone house +to the south. Smoke rises from the chimney in a dark +stream, and the windows are frosted over with humidity. +North, you see the main intersection of Stanneg. +~ +33 0 1 +D0 +~ +~ +0 -1 3348 +D2 +A normal looking front door made of wood serves as the entrance. +~ +door front~ +1 -1 3354 +S +#3354 +A Private Home~ + This home strikes you as unbearable warm and uncomfortable. +The fireplace is going at a full-bonfire, a mammoth stack of +firewood beside it against the wall. The decorations seem +somewhat spartan and plain; a landscape, an old hunting +bow... nothing much of interest. +~ +33 d 0 +D0 +You see a normal looking wooden door. +~ +door front~ +1 -1 3353 +S +#3355 +Main Road~ + The main road through Stanneg ends here at a large well +that leads deep, deep into the earth. To the north of the +well is a large building, with a large WELCOME mat outside +its front door. Westwards you see the a road intersection +in the center of the tiny village. Around you is a rocky +terrain in the middle of this mountain range...not very +many places else to go. +~ +33 0 1 +D0 +There is a large set of double doors, made of wood blocking the way. +~ +door doors double~ +1 -1 3356 +D3 +~ +~ +0 -1 3348 +S +#3356 +Stanneg Inn~ + This is a plainly decorated room, the main room of the +Stanneg Inn. A large arch to the west leads to a common +room where food and drink can be ordered, and a set of +rickety wooden stairs lead up to the rooms are. A thread- +bare rug lies in the middle of the floor, evidently well- +loved by a cat or two from the quantity of hair on it. +~ +33 d 0 +D2 +There is a large set of double doors, made of wood set into the wall. +~ +door doors double~ +1 -1 3355 +D3 +~ +~ +0 -1 3357 +D4 +~ +~ +0 -1 3358 +S +#3357 +The Common Room~ + A large fireplace warms this room in great waves of +heat, to combat the chill drafts eminating from the windows +on the west and north sides of this room. A few benches +and tables are clustered in the center of the room, for +the use of the locals. Fairly plain, for a frequented +gathering place. +~ +33 d 0 +D1 +~ +~ +0 -1 3356 +S +#3358 +The Reception~ + A hall leads away to the west lined with small brown +doors. A small table has a ledger on it, seemingly +almost unused. The hall is plain and without any +decoration, except for a nice painting of (what else) +a mountain hanging above the stairs that lead back +down to the inn proper. +~ +33 d 0 +D5 +~ +~ +0 -1 3356 +S +#3359 +A Rocky Slope~ + This slope is fairly shallow and easy to walk on, +despite the loose shale and gravel. To the east is a high +ridge you could stand on, and to the west is a flat area +near two trails leading up and down into the mountains. +High above you, to your west, is that ominous, dark peak, +which seems to radiating a sense of hopelessness... +~ +33 0 5 +D1 +~ +~ +0 -1 3308 +D3 +~ +~ +0 -1 3360 +S +#3360 +A Ledge~ + This ledge overlooks a small path that leads up and +down from here. Below, you see the path head down to a +large flat area where a small cottage lies nestled in the +mountains, smoke rising from it in a curling line. Above, +the path seems to head towards that dark peak piercing the +sky. You notice a few boot-tracks in the earth, seemingly +to lead down towards the cottage. +~ +33 0 4 +D1 +~ +~ +0 -1 3359 +D4 +~ +~ +0 -1 3363 +D5 +~ +~ +0 -1 3361 +S +#3361 +Outside Of A Cottage~ + Now that you approach closer to the cottage, you notice +that the smoke is not coming from the chimney, but rather +the gutted ruins of the building. Something torched this +place, badly. You see no signs of life among the wreckage. +You can enter one of the particularly large holes in the +wall to the west, with caution. +~ +33 0 4 +D3 +~ +~ +0 -1 3362 +D4 +~ +~ +0 -1 3360 +S +#3362 +The Torched Cottage~ + This whole place is smouldering still from whatever +decided to try to burn it to the ground. On the floor +near the center of the ruined structure is the burnt and +dessicated corpse of a man, outstretched and blackened. +There's not much to see here; whatever decided to destroy +this place did it very well. +~ +33 0 1 +D1 +~ +~ +0 -1 3361 +S +#3363 +A Mountain Trail~ + This mountain trail leads straight up into the evil +looking mountains. High above you, one mountain peak +seems to radiate danger and fear, and the trail seems +to be leading straight up to it. You wonder if it is +wise to continue this way... + The trail goes even higher up to the west, and back +down to the west. +~ +33 0 5 +D3 +~ +~ +0 -1 3364 +D5 +~ +~ +0 -1 3360 +S +#3364 +A Mountain Trail~ + The trail leads up even higher into the mountains to the +west here. You shiver as the cold mountain air washes over +you, and your back prickles as you wonder if anything lives +up here, or anything _dangerous_ for that matter. Maybe +heading back down to the east would be a good idea... +~ +33 0 5 +D1 +~ +~ +0 -1 3363 +D3 +~ +~ +0 -1 3365 +S +#3365 +A Mountain Trail~ + The trail leads up the side of the tallest mountain in +the range -- the one that sticks up into the dark sky like +a monument to death and futility. The trail leads back to +safety to the east, and goes even higher to the west. +~ +33 0 5 +D1 +~ +~ +0 -1 3364 +D3 +~ +~ +0 -1 3366 +S +#3366 +Near The Peak~ + This is as close to the peak as you're going to get, +unless you use that tiny, tiny path leading up to your +north. Up the side of the mountain you see a great cave +hollowed out, the inside pitch black. The path leads down +the mountains to your east, which seems to be the best +place to go. +~ +33 gj 5 +D0 +~ +~ +0 -1 3367 +D1 +~ +~ +0 -1 3365 +S +#3367 +A Small, Dangerous Path~ + This path leads up, up, up the side of the mountain, to +the evil-seeming cave. It also heads down to the south--a +lot safer place to be. In fact, you hear footsteps above +your head... +~ +33 gj 5 +D2 +~ +~ +0 -1 3366 +D4 +~ +~ +0 -1 3368 +S +#3368 +A Small, Dangerous Path~ + Unfortunately, you realize too late that this bigger +ledge that leads north to the darkened cave is an ideal +spot for an ambush. This ledge gives you a beautiful +panoramic view of the entire mountain range, however. +Breathtaking! +~ +33 gj 5 +D0 +~ +~ +0 -1 3369 +D5 +~ +~ +0 -1 3367 +S +#3369 +The Cave Entrance~ + You are standing in the entrance of a simply huge cave! +The size is stunning! All around the entrance are burnt +bones and various types of wooden and metal debris. Giant +claw marks are all along the ground, leading back deeper +into the cave. + Two tunnels lead off from here, one up, one down. There +are claw marks leading in either direction. +~ +33 adgj 4 +D2 +~ +~ +0 -1 3368 +D4 +~ +~ +0 -1 3370 +D5 +~ +~ +0 -1 3373 +S +#3370 +A Sloping Tunnel~ + The tunnels slopes up to the north deeper into the +mountain. A rather gusty breeze riffles your clothing +from ahead somewhere. The claw marks in the stone floor +continue up the passage, through the darkness. +~ +33 adgj 0 +D0 +~ +~ +0 -1 3371 +D5 +~ +~ +0 -1 3369 +S +#3371 +A Sloping Tunnel~ + The tunnel continues its slope upwards, and the wind +blows at you even stronger yet. The claw tracks in the +stone stop abruptly here, where there seems to be a lot +of unearthed dirt and stone around, heaped upon the floor. +You feel uneasy about this place. +~ +33 adgj 4 +D0 +~ +~ +0 -1 3372 +D2 +~ +~ +0 -1 3370 +E +dirt stone~ +It has been dug from somewhere, but where? +~ +E +claw claws track tracks mark marks~ +They stop very abruptly here, right where the piles of earth begin, +it seems. +~ +E +floor~ +The floor up ahead looks... strange. You don't think going ahead +would be a good idea. +~ +S +#3372 +The Pit~ + You fall through the illusionary floor. + + You hit the poisoned spikes below. + + You die very slowly of bloodloss, your head impaled at +an awkward angle. + + + + + + + +~ +33 bdgj 0 +D2 +~ +~ +0 -1 3371 +S +#3373 +A Sloping Tunnel~ + This tunnel slopes deep, down into the mountain's heart. +The air feels still and uncomfortably warm, despite the +closeness of the cave's entrance above you. There's a +deep, musky odor in the air, and the giant claw marks +continue downwards. +~ +33 adgj 4 +D4 +~ +~ +0 -1 3369 +D5 +~ +~ +0 -1 3374 +S +#3374 +A Sloping Tunnel~ + A bright light greets your eyes from the north, in +direct contrast to the darkness of the tunnel overhead. +You break out in a sweat due to the overwhelming warmth +of the air. The musky odor has grown quite intense, +drowning out everything else in the air and making it hard +to breathe. Something in your gut begins squirming +uncomfortably as you wonder what's ahead... +~ +33 adgj 4 +D0 +~ +~ +0 -1 3375 +D4 +~ +~ +0 -1 3373 +S +#3375 +The Lair~ + This place is huge!!! It should be considering the +dragon's great bulk. However, instead of seeing the +customary carnage and mound of gold that one is accustomed +to seeing in a dragon lair, this one is decorated subtly +with tapestries and drapes, and other comforts of human +life. There is even a huge-dragon sized bed -- undoubtedly +conjured to life by its elder dragon owner. +~ +33 dgj 4 +D2 +~ +~ +0 -1 3374 +S +$ diff --git a/lib/world/wld/35.wld b/lib/world/wld/35.wld new file mode 100644 index 0000000..036ee7b --- /dev/null +++ b/lib/world/wld/35.wld @@ -0,0 +1,937 @@ +#3500 +The Plains~ + You are standing on the plains. This is a vast desolate place where +the wind can howl undisturbed since nothing but you bars its way. However +you are not the first to wander here. Before you somebody has left a small +path. The path looks rather bewildered and is not the kind of path to lead +to anywhere significant or important but it seems to have made up its mind +to enter the hills far away north. A narrow trail scars its way off to the +east as it leads up towards a hillside. +~ +35 0 1 +D0 +~ +~ +0 -1 4000 +D1 +~ +~ +0 -1 3300 +D2 +~ +~ +0 -1 3501 +S +#3501 +The Lane~ + You are strolling along a pleasant, shady lane. The road is lined on both +sides by tall, stately trees which lend the scene with a sense of quiet +serenity. + You can follow the road north or south. +~ +35 0 1 +D0 +~ +~ +0 -1 3500 +D2 +~ +~ +0 -1 3502 +S +#3502 +The Laneway~ + The trees stand close here, and the tall, bushy undergrowth prevents you +from seeing far in any direction save east, where a broad lane continues off +into the distance; and west, where the same lane continues towards what looks +like a fairly large city. The muted sounds of city commotion reach your ears +from a distance; stray dogs barking, children crying, and street salesmen +shouting. + A steep path leads down from here to the northeast towards the Dwarven +Village, and a small trail leads through the trees towards the hills to the +north. +~ +35 0 1 +D0 +~ +~ +0 -1 3501 +D1 +You see a fairly large road leading towards a grand castle in the distance. +~ +~ +0 -1 15000 +D3 +~ +~ +0 -1 3503 +D5 +The well trodden path leads down to the northeast towards a small bustling +village. +~ +~ +0 -1 6500 +S +#3503 +The City Entrance~ + You stand on the outskirts of a large city - Midgaard; the capital of +this land. The road leads east into the peace and quiet - and dangers - +of the forest; and to the west it becomes the main street of the town; +surrounded by a confusion of shops, bars, and market places. +~ +35 c 1 +D1 +~ +~ +0 -1 3502 +D3 +~ +~ +0 -1 3053 +S +#3504 +The South Gate~ + You are standing on a small, dusty path leading away from the south +gate of Midgaard, to the forest of Miden'Nir (Goblinic for 'Green Blood'). +You can still see the city to the east, but if you go south, there is +fresh air and greenery. +~ +35 0 3 +D1 +You can see the walls of the South Gate. +~ +~ +0 -1 3127 +D2 +If you go south, you will enter the Miden'Nir. +~ +~ +0 -1 3505 +S +#3505 +The Trail To Miden'Nir~ + You are in a light forest. A path leads south, but the passage to +the east is easy enough. To the west, smoke can be seen rising above +the treetops. The sprawl of Midgaard lies north of here. +~ +35 c 3 +D0 +To the north, you see the South Gate of Midgaard. +~ +~ +0 -1 3504 +D1 +More light forest. +~ +~ +0 -1 3506 +D2 +This path cuts through the darkness of the Miden'Nir. +~ +~ +0 -1 3507 +D3 +The Woodsman's Inn can be seen a short distance to the west, it appears +to be the source of the smoke. +~ +~ +0 -1 3570 +S +#3506 +The Miden'nir~ + You are in a dark forest. To the east, mountains block passage. From +here, only the lighter forest to the west or south offer a way to travel. +~ +35 0 3 +D1 +The mountains can be seen jutting up to the east. +~ +~ +0 -1 3550 +D2 +The forest is darker to the south. +~ +~ +0 -1 3509 +D3 +The forest gets lighter as you go west. +~ +~ +0 -1 3505 +S +#3507 +The Miden'nir~ + The forest is deep here and the wind blows through the trees and +through your hair. To the north, the forest gets lighter. However, +the southern and western paths place you even deeper in the wood. +~ +35 0 3 +D0 +The forest is lighter in this direction. +~ +~ +0 -1 3505 +D2 +More and darker woods. +~ +~ +0 -1 3510 +D3 +There is a small path leading west. +~ +~ +0 -1 3508 +S +#3508 +On a Small Path~ + A path is here, leading east and south through the dark woods of +Miden'nir. Mountains slash the scenery to the west of here. +~ +35 0 3 +D1 +Wind-swept forest. +~ +~ +0 -1 3507 +D2 +To the south, the trail continues. +~ +~ +0 -1 3511 +S +#3509 +The Miden'nir~ + The trees of Miden'nir are lush and green, hiding the evil that lurks +in these woods. The trees become too thick to the west, but you may go +north, south or travel toward the mountains that lie east of here. +~ +35 0 3 +D0 +The trees lighten up a bit this way. +~ +~ +0 -1 3506 +D1 +Huge grey mountains lie in this direction. +~ +~ +0 -1 3512 +D2 +The forest continues. +~ +~ +0 -1 3514 +S +#3510 +A Crossroads~ + Here footworn paths meet leading north, south and east. The trees +seem to be closing in on you at this point, and you can barely see +the sky through the thick branches above your head. +~ +35 0 3 +D0 +Trees as far as the eye can see. +~ +~ +0 -1 3507 +D1 +There is an especially dark part of the forest this way. +~ +~ +0 -1 3514 +D2 +There is an especially dark section of forest this way. +~ +~ +0 -1 3516 +S +#3511 +The Trail~ + You are on a north-south trail through the woods. To the west, +impassable mountains glare at you, and the thick woods and undergrowth +prevent any movement westward. +~ +35 0 3 +D0 +The trail bends to the north. +~ +~ +0 -1 3508 +D2 +To the south, the path re-enters the forest. +~ +~ +0 -1 3515 +S +#3512 +The Miden'nir~ + The trees of Miden'nir are lush and green, hiding the evil that lurks +in these woods. You can go north toward the mountains, or west to the +forest, but the steep mountains prevent any movement east. +~ +35 0 3 +D0 +The mountains can be seen to the north. +~ +~ +0 -1 3550 +D2 +A light section of forest. +~ +~ +0 -1 3513 +D3 +The forest continues here. +~ +~ +0 -1 3509 +S +#3513 +The Miden'nir~ + The forest is dark, and becomes even darker west. You sense +that there is something evil hidden in these woods. The forest +gets lighter to the north. The wind kicks up as you ponder your +options. +~ +35 0 3 +D0 +There is a small clearing to the north. +~ +~ +0 -1 3512 +D3 +It gets darker and thicker this way. +~ +~ +0 -1 3514 +S +#3514 +The Deep Forest~ + It is quite dark here, forest surrounds you. With each step, the +forest seems to close around you, and get darker and more foreboding. +It might just be time to head back to somewhere safe. +~ +35 0 3 +D0 +More forest. +~ +~ +0 -1 3509 +D1 +Lighter forest and mountains in the distance. +~ +~ +0 -1 3513 +D2 +More trees. +~ +~ +0 -1 3517 +D3 +The forest continues. +~ +~ +0 -1 3510 +S +#3515 +The Light Forest~ + The forest is light here and you can easily pick your way through the +trail. To the east, the forest becomes thick and darker. South, the +trail continues. +~ +35 0 3 +D0 +A trail leading north-south. +~ +~ +0 -1 3511 +D1 +The trees get thicker as you go east. +~ +~ +0 -1 3516 +D2 +More trees and some small hills. +~ +~ +0 -1 3518 +S +#3516 +Some Muddy Ground~ + The ground is quite muddy here and puddles are all around. Your +boots make a disgusting SQUISH as you walk here. You can go in any +of the four cardinal directions from here. Hopefully, it will be +dryer. +~ +35 0 3 +D0 +The Miden'nir continues. +~ +~ +0 -1 3510 +D1 +More trees. +~ +~ +0 -1 3517 +D2 +The trees get VERY thick to the south. You can barely see... +~ +~ +0 -1 3519 +D3 +Some light trees and daylight. +~ +~ +0 -1 3515 +S +#3517 +Near The Mountains~ + The most prominent feature here is the mountains that lie to the +east. You can only go north and west from here as the rocks stop all +other movement. +~ +35 0 3 +D0 +Many trees to the north. +~ +~ +0 -1 3514 +D3 +There is a bit of a slope downward to the west. +~ +~ +0 -1 3516 +S +#3518 +The Fading Trail~ + The trail becomes nearly unpassable here. You can go north +as the forest is relatively light. To the south, you can see a +path. +~ +35 0 3 +D0 +You can see a trail this way. +~ +~ +0 -1 3515 +D1 +The trees are nearly trunk-to-trunk this way. +~ +~ +0 -1 -1 +D2 +Dark forests. +~ +~ +0 -1 3522 +S +#3519 +The Dark Path~ + You are hemmed in by trees on either side of you. The path +continues north and south, and while is much to thick to explore +west, you can head off into the woods to the west. +~ +35 0 3 +D0 +The forest gets lighter this way. +~ +~ +0 -1 3516 +D1 +The forest continues. +~ +~ +0 -1 3520 +D2 +There is a strong stench coming from this direction. +~ +~ +0 -1 3521 +D3 +The trees are nearly trunk-to-trunk this way. +~ +~ +0 -1 -1 +S +#3520 +The Dark Forest~ + You stomp your way through the underbrush. The dark forest of +Miden'nir get pretty thick here, and the branches high above your +head are so thick that they block out all direct sunlight. While +it is much too thick to go further east, you might be able to make +your way though the forest to the south and west. +~ +35 0 3 +D2 +The thick forest continues. +~ +~ +0 -1 3523 +D3 +The thick forest continues. +~ +~ +0 -1 3519 +S +#3521 +The Carnage~ + Here, you see a gruesome sight. Blood is everywhere... on the trees and +soaked into the ground. Two carcasses lie in front of you, seeming to look +up at you. The forest is impassible to the south, but the other directions +look ok. +~ +35 1 3 +D0 +Darkness... +~ +~ +0 -1 3519 +D1 +Your light does not extend that far. +~ +~ +0 -1 3523 +D3 +More dark forest. +~ +~ +0 -1 3522 +E +carcass body corpse carcasses bodies corpses~ +The corpses looked as if they have been pierced by a large, jagged +spear. The damage these people sustained is simply amazing. Worse, +the lips on the bodies are a light shade of blue, hinting at poison +in their systems. +~ +S +#3522 +Deep In The Forest Of Miden'nir~ + There is a sickening stench here. It smells of blood and death. +To the north, you catch glimpses of daylight. To the east, you +simply cannot see. The trees are close and stifling. +~ +35 0 3 +D0 +You see daylight and a trail to follow. +~ +~ +0 -1 3518 +D1 +The stench seems to becoming from this direction. +~ +~ +0 -1 3521 +S +#3523 +The Dark Forest~ + The branches above you block out all direct sunlight, making the forest +in this area rather dark. The forest continues east, where it meets the +mountains. The air is still and stuffy - a stench comes from the west and +an ugly feeling causes the hair to rise on the back of your neck! +~ +35 0 3 +D0 +It appears to get much darker that direction. +~ +~ +0 -1 3520 +D1 +The forest appears to get much darker in this direction. +~ +~ +0 -1 3551 +D3 +The sky becomes lighter in this direction. +~ +~ +0 -1 3521 +S +#3550 +At The Foot Of The Mountains~ + You find yourself at the foot of the mountains, where it is much +to steep to continue north or east. You see the lush, green forest +of Miden'nir to the south and west. +~ +35 0 5 +D2 +The forest of Miden'nir spreads out before you. +~ +~ +0 -1 3512 +D3 +The forest of Miden'nir spreads out before you. +~ +~ +0 -1 3506 +S +#3551 +Deep In The Forest Of Miden'nir~ + The branches above you block out all direct sunlight, making +the forest in this area very dark. The forest continues west, +but mountains block further exploration in all other directions, +except south, where you notice a small tunnel dug into the +mountainside. +~ +35 a 3 +D2 +The tunnel leads into the mountainside. +~ +~ +0 -1 3552 +D3 +The forest continues, but appears to be getting lighter. +~ +~ +0 -1 3523 +S +#3552 +A Tunnel In The Mountains~ + The walls of this tunnel were carved out many years ago by the goblins +of this forest. The floor is well worn, and continues south, into the +mountain, or back north out into the forest. +~ +35 a 1 +D0 +Outside, you see the forest of Miden'nir. +~ +~ +0 -1 3551 +D2 +The tunnel continues to the south. +~ +~ +0 -1 3553 +S +#3553 +A Tunnel In The Mountains~ + The tunnel gets lighter to the north, presumably leading out, while to +the south the passage gets smaller and smaller. A small alcove has been +carved into the east wall. +~ +35 a 1 +D0 +The tunnel gets wider in this direction. +~ +~ +0 -1 3552 +D1 +You see a small alcove. +~ +~ +0 -1 3554 +D2 +The tunnel gets smaller in this direction. +~ +~ +0 -1 3555 +S +#3554 +A Small Alcove~ + A small alcove has been carved out here. There are a bunch of twigs +and leaves thrown into a pile here, probably serving as a bed. +~ +35 a 1 +D3 +You see the main passageway. +~ +~ +0 -1 3553 +E +twigs leaves bead~ +The twigs and leaves have all been piled together as a makeshift bed for +some small humanoid. +~ +S +#3555 +A Tunnel In The Mountains~ + As you explore further into the mountainside, the tunnel gets smaller +and smaller to the south. You almost have to hunch over to make your way +through this area. A small archway to the south leads into a large chamber. +~ +35 a 1 +D0 +The tunnel continues north. +~ +~ +0 -1 3553 +D2 +You see a small cavern. +~ +~ +0 -1 3556 +S +#3556 +The Goblin HeadQuarters~ + The tunnel widens into a large (well, large for goblins) cavern that +serves as the living quarters for the goblins of Miden'nir. The bones of +numbers woodland creatures are strewn about the room, the remanents of a +recent meal. +~ +35 a 1 +D0 +The tunnel heads north. +~ +~ +0 -1 3555 +S +#3570 +The Front Of The Inn~ + You are standing on a well-worn path which opens into a clearing. +An old, wooden building is here with smoke billowing from its +chimney. A painted sign is visible on the porch to the west. You +could go north or south around the building or leave this place and +return to the forest. +~ +35 0 3 +D0 +You can go north around the Inn. +~ +~ +0 -1 3571 +D1 +Back through the trees to the Miden'nir. +~ +~ +0 -1 3505 +D2 +You can go south around the Inn. +~ +~ +0 -1 3572 +D3 +The front door of the Inn beckons. +~ +~ +0 -1 3574 +E +sign~ +The sign reads: + + The Woodsman + +~ +S +#3571 +North Of The Inn~ + You are standing north of the Inn. Things don't look much different +from this angle. The air here is filled with smells of smoke and cooking. +South, the front porch is waiting for you... or you can see if there is +a back door. +~ +4 0 3 +D2 +You see the front of the Inn. +~ +~ +0 -1 3570 +S +#3572 +South Of The Inn~ + You are standing south of the Inn. You could easily go north and enter +through the front door, or west and to the rear of the establishment. You +here some muffled cries from a tiny trail leading south of here. +~ +35 0 3 +D0 +This way leads to the front of the Inn. +~ +~ +0 -1 3570 +D2 +The trail heads south. +~ +~ +0 -1 3575 +D3 +This way leads to the back of the Inn. +~ +~ +0 -1 3573 +S +#3573 +Behind The Inn~ + You now stand behind the Inn. The smell here is not so pleasant as +the keeper and his help throw a good deal of garbage here. A couple of +piles of rubbish are to the west, but you will smell the worse for +meddling there. As a clean alternative, you can go north or east around +the Inn. +~ +35 0 3 +D1 +You can go around the Inn this way. +~ +~ +0 -1 3572 +D3 +Only rats and fool adventurers play in garbage. +~ +~ +0 -1 3578 +S +#3574 +The Woodsman Inn~ + You are in the common room of the Woodsman Inn. A thin haze of smoke +sits in the air here. The Inn is often empty, as the forest has become +overrun by goblins as of late, and it is no longer safe in these parts. +The bar is just north of here. If you'd rather have your own table, one +is empty to the south. +~ +35 cd 1 +D0 +The bar is here, manned by the Innkeeper. +~ +~ +0 -1 3576 +D1 +You can leave now and return to fresher air. +~ +~ +0 -1 3570 +D2 +An empty table is a rare commodity. +~ +~ +0 -1 3579 +D3 +There is a table to the south occupied by a heavy drinker. +~ +~ +0 -1 3577 +S +#3575 +The Ambush Point~ + This is a overgrown foot-trail south of the Inn. It leads west, but you +would be hard pressed to follow it far. A number of bushes are trampled on +and some medium sized branches have been knocked down. Obviously there has +been a battle here rather recently. +~ +35 0 3 +D0 +The Inn lies to the north. +~ +~ +0 -1 3572 +D3 +A trail through the woods. +~ +~ +0 -1 3581 +S +#3576 +The Bar~ + This is where people use to come and enjoy the food, drink and +hospitality of the Innkeeper, but as of late, he only serves the +few adventurers that manage to survive a trip through the forest. +You can leave south and return to the common room. +~ +35 df 1 +D2 +You may retreat south back to the common room. +~ +~ +0 -1 3574 +S +#3577 +The Bard's Table~ + You are in a darker corner in the Inn. A large round table with a few +wooden chairs sits here. There is a large stain on the table, the remnants +of a spilled drink. +~ +35 d 1 +D1 +You see the main floor of the Inn to the east. +~ +~ +0 -1 3574 +S +#3578 +The Garbage Dump~ +You stand knee deep in garbage. YECCH!!! It smells terrible and who knows +what vermin live in these piles of filth... +~ +35 0 3 +D1 +You can return to cleaner lands this way. +~ +~ +0 -1 3573 +S +#3579 +A Quieter Section Of The Inn~ +There seems to be no one in this end of the Woodsman, probably a safe place +to rest and lick your wounds... +~ +35 d 0 +D0 +You see the common room. +~ +~ +0 -1 3574 +S +#3581 +On The Trail Of The Horsemen~ + The path continues east and west of here. You notice fresh tracks in +the soft ground that show the horsemen fled to the west. +~ +35 0 3 +D1 +Back to ambush point. +~ +~ +0 -1 3575 +D3 +The trail continues. +~ +~ +0 -1 3582 +S +#3582 +On The Trail Of The Horsemen~ + The path continues east and south. You notice fresh tracks in the +soft ground that show the horsemen turned, and fled south. +~ +35 0 3 +D1 +The trail continues. +~ +~ +0 -1 3581 +D2 +The tracks lead south. +~ +~ +0 -1 3583 +S +#3583 +On The Trail Of The Horsemen~ + The trail of the horsemen continues east and north along this path +through the forest. The tracks are still fresh, so they must be near. +~ +35 0 3 +D0 +The trail continues. +~ +~ +0 -1 3582 +D3 +The tracks lead east. +~ +~ +0 -1 3584 +S +#3584 +A Dead End Trail~ + The path comes to an abrupt end here, as the trees close around you and +make any further exploration impossible. Fresh tracks cover the ground, and +end right here. The horsemen must be nearby. +~ +35 0 3 +D1 +Back to along the trail. +~ +~ +0 -1 3583 +S +$ + diff --git a/lib/world/wld/36.wld b/lib/world/wld/36.wld new file mode 100644 index 0000000..c0704b6 --- /dev/null +++ b/lib/world/wld/36.wld @@ -0,0 +1,1597 @@ +#3600 +The Great Chessboard Of Midgaard~ + You stand in the archway of the Chessboard of Midgaard. The giant +wooden gate is rusted open. + A narrow dirt path leads eastwards into the thick grass and the +chessboard opens up to the west. +~ +36 c 1 +D1 +A dirt path leads away through the great field north of Midgaard. +~ +~ +0 -1 3066 +D3 +The huge chessboard opens up to the west. +~ +~ +0 -1 3632 +S +#3601 +A White Square~ + You are standing on a white marble square. This is usually the home +of the Black Queen's Rook. +~ +36 0 1 +D1 +A black square lies to the east. +~ +~ +0 -1 3602 +D2 +A black square lies to the south. +~ +~ +0 -1 3609 +S +#3602 +A Black Square~ + You are standing on a black marble square. This is usually the home +of the Black Queen's Knight. +~ +36 0 1 +D1 +A white square lies to the east. +~ +~ +0 -1 3603 +D2 +A white square lies to the south. +~ +~ +0 -1 3610 +D3 +A white square lies to the west. +~ +~ +0 -1 3601 +S +#3603 +A White Square~ + You are standing on a white marble square. This is usually the home +of the Black Queen's Bishop. +~ +36 0 1 +D1 +A black square lies to the east. +~ +~ +0 -1 3604 +D2 +A black square lies to the south. +~ +~ +0 -1 3611 +D3 +A black square lies to the west. +~ +~ +0 -1 3602 +S +#3604 +A Black Square~ + You are standing on a black marble square. This is usually the home +of the Black Queen. +~ +36 0 1 +D1 +A white square lies to the east. +~ +~ +0 -1 3605 +D2 +A white square lies to the south. +~ +~ +0 -1 3612 +D3 +A white square lies to the west. +~ +~ +0 -1 3603 +D5 +~ +marble square~ +2 3614 3665 +S +#3605 +A White Square~ + You are standing on a white marble square. This is usually the home +of the Black King. +~ +36 0 1 +D1 +A black square lies to the east. +~ +~ +0 -1 3606 +D2 +A black square lies to the south. +~ +~ +0 -1 3613 +D3 +A black square lies to the west. +~ +~ +0 -1 3604 +S +#3606 +A Black Square~ + You are standing on a black marble square. This is usually the home +of the Black King's Bishop. +~ +36 0 1 +D1 +A white square lies to the east. +~ +~ +0 -1 3607 +D2 +A white square lies to the south. +~ +~ +0 -1 3614 +D3 +A white square lies to the west. +~ +~ +0 -1 3605 +S +#3607 +A White Square~ + You are standing on a white marble square. This is usually the home +of the Black King's Knight. +~ +36 0 1 +D1 +A black square lies to the east. +~ +~ +0 -1 3608 +D2 +A black square lies to the south. +~ +~ +0 -1 3615 +D3 +A black square lies to the west. +~ +~ +0 -1 3606 +S +#3608 +A Black Square~ + You are standing on a black marble square. This is usually the home +of the Black King's Rook. +~ +36 0 1 +D2 +A white square lies to the south. +~ +~ +0 -1 3616 +D3 +A white square lies to the west. +~ +~ +0 -1 3607 +S +#3609 +A Black Square~ + You are standing on a black marble square. This is usually the home +of one of the Black Queen's Pawns. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3601 +D1 +A white square lies to the east. +~ +~ +0 -1 3610 +D2 +A white square lies to the south. +~ +~ +0 -1 3617 +S +#3610 +A White Square~ + You are standing on a white marble square. This is usually the home +of one of the Black Queen's Pawns. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3602 +D1 +A black square lies to the east. +~ +~ +0 -1 3611 +D2 +A black square lies to the south. +~ +~ +0 -1 3618 +D3 +A black square lies to the west. +~ +~ +0 -1 3609 +S +#3611 +A Black Square~ + You are standing on a black marble square. This is usually the home +of one of the Black Queen's Pawns. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3603 +D1 +A white square lies to the east. +~ +~ +0 -1 3612 +D2 +A white square lies to the south. +~ +~ +0 -1 3619 +D3 +A white square lies to the west. +~ +~ +0 -1 3610 +S +#3612 +A White Square~ + You are standing on a white marble square. This is usually the home +of one of the Black Queen's Pawns. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3604 +D1 +A black square lies to the east. +~ +~ +0 -1 3613 +D2 +A black square lies to the south. +~ +~ +0 -1 3620 +D3 +A black square lies to the west. +~ +~ +0 -1 3611 +S +#3613 +A Black Square~ + You are standing on a black marble square. This is usually the home +of one of the Black King's Pawns. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3605 +D1 +A white square lies to the east. +~ +~ +0 -1 3614 +D2 +A white square lies to the south. +~ +~ +0 -1 3621 +D3 +A white square lies to the west. +~ +~ +0 -1 3612 +S +#3614 +A White Square~ + You are standing on a white marble square. This is usually the home +of one of the Black King's Pawns. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3606 +D1 +A black square lies to the east. +~ +~ +0 -1 3615 +D2 +A black square lies to the south. +~ +~ +0 -1 3622 +D3 +A black square lies to the west. +~ +~ +0 -1 3613 +S +#3615 +A Black Square~ + You are standing on a black marble square. This is usually the home +of one of the Black King's Pawns. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3607 +D1 +A white square lies to the east. +~ +~ +0 -1 3616 +D2 +A white square lies to the south. +~ +~ +0 -1 3623 +D3 +A white square lies to the west. +~ +~ +0 -1 3614 +S +#3616 +A White Square~ + You are standing on a white marble square. This is usually the home +of one of the Black King's Pawns. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3608 +D2 +A black square lies to the south. +~ +~ +0 -1 3624 +D3 +A black square lies to the west. +~ +~ +0 -1 3615 +S +#3617 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3609 +D1 +A black square lies to the east. +~ +~ +0 -1 3618 +D2 +A black square lies to the south. +~ +~ +0 -1 3625 +S +#3618 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3610 +D1 +A white square lies to the east. +~ +~ +0 -1 3619 +D2 +A white square lies to the south. +~ +~ +0 -1 3626 +D3 +A white square lies to the west. +~ +~ +0 -1 3617 +S +#3619 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3611 +D1 +A black square lies to the east. +~ +~ +0 -1 3620 +D2 +A black square lies to the south. +~ +~ +0 -1 3627 +D3 +A black square lies to the west. +~ +~ +0 -1 3618 +S +#3620 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3612 +D1 +A white square lies to the east. +~ +~ +0 -1 3621 +D2 +A white square lies to the south. +~ +~ +0 -1 3628 +D3 +A white square lies to the west. +~ +~ +0 -1 3619 +S +#3621 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3613 +D1 +A black square lies to the east. +~ +~ +0 -1 3622 +D2 +A black square lies to the south. +~ +~ +0 -1 3629 +D3 +A black square lies to the west. +~ +~ +0 -1 3620 +S +#3622 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3614 +D1 +A white square lies to the east. +~ +~ +0 -1 3623 +D2 +A white square lies to the south. +~ +~ +0 -1 3630 +D3 +A white square lies to the west. +~ +~ +0 -1 3621 +S +#3623 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3615 +D1 +A black square lies to the east. +~ +~ +0 -1 3624 +D2 +A black square lies to the south. +~ +~ +0 -1 3631 +D3 +A black square lies to the west. +~ +~ +0 -1 3622 +S +#3624 +A Black Square~ + You are standing on a black marble square. You can see a rusty gate +to the south. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3616 +D2 +A white square lies to the south. +~ +~ +0 -1 3632 +D3 +A white square lies to the west. +~ +~ +0 -1 3623 +S +#3625 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3617 +D1 +A white square lies to the east. +~ +~ +0 -1 3626 +D2 +A white square lies to the south. +~ +~ +0 -1 3633 +S +#3626 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3618 +D1 +A black square lies to the east. +~ +~ +0 -1 3627 +D2 +A black square lies to the south. +~ +~ +0 -1 3634 +D3 +A black square lies to the west. +~ +~ +0 -1 3625 +S +#3627 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3619 +D1 +A white square lies to the east. +~ +~ +0 -1 3628 +D2 +A white square lies to the south. +~ +~ +0 -1 3635 +D3 +A white square lies to the west. +~ +~ +0 -1 3626 +S +#3628 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3620 +D1 +A black square lies to the east. +~ +~ +0 -1 3629 +D2 +A black square lies to the south. +~ +~ +0 -1 3636 +D3 +A black square lies to the west. +~ +~ +0 -1 3627 +S +#3629 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3621 +D1 +A white square lies to the east. +~ +~ +0 -1 3630 +D2 +A white square lies to the south. +~ +~ +0 -1 3637 +D3 +A white square lies to the west. +~ +~ +0 -1 3628 +S +#3630 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3622 +D1 +A black square lies to the east. +~ +~ +0 -1 3631 +D2 +A black square lies to the south. +~ +~ +0 -1 3638 +D3 +A black square lies to the west. +~ +~ +0 -1 3629 +S +#3631 +A Black Square~ + You are standing on a black marble square. There is a rusty gate +a short distance to the east. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3623 +D1 +A white square lies to the east. +~ +~ +0 -1 3632 +D2 +A white square lies to the south. +~ +~ +0 -1 3639 +D3 +A white square lies to the west. +~ +~ +0 -1 3630 +S +#3632 +A White Square~ + You are standing on a white marble square. There is a large rusty +gate to the east. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3624 +D1 +The gate to the chessboard is just to the east. +~ +~ +0 -1 3600 +D2 +A black square lies to the south. +~ +~ +0 -1 3640 +D3 +A black square lies to the west. +~ +~ +0 -1 3631 +S +#3633 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3625 +D1 +A black square lies to the east. +~ +~ +0 -1 3634 +D2 +A black square lies to the south. +~ +~ +0 -1 3641 +S +#3634 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3626 +D1 +A white square lies to the east. +~ +~ +0 -1 3635 +D2 +A white square lies to the south. +~ +~ +0 -1 3642 +D3 +A white square lies to the west. +~ +~ +0 -1 3633 +S +#3635 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3627 +D1 +A black square lies to the east. +~ +~ +0 -1 3636 +D2 +A black square lies to the south. +~ +~ +0 -1 3643 +D3 +A black square lies to the west. +~ +~ +0 -1 3634 +S +#3636 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3628 +D1 +A white square lies to the east. +~ +~ +0 -1 3637 +D2 +A white square lies to the south. +~ +~ +0 -1 3644 +D3 +A white square lies to the west. +~ +~ +0 -1 3635 +S +#3637 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3629 +D1 +A black square lies to the east. +~ +~ +0 -1 3638 +D2 +A black square lies to the south. +~ +~ +0 -1 3645 +D3 +A black square lies to the west. +~ +~ +0 -1 3636 +S +#3638 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3630 +D1 +A white square lies to the east. +~ +~ +0 -1 3639 +D2 +A white square lies to the south. +~ +~ +0 -1 3646 +D3 +A white square lies to the west. +~ +~ +0 -1 3637 +S +#3639 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3631 +D1 +A black square lies to the east. +~ +~ +0 -1 3640 +D2 +A black square lies to the south. +~ +~ +0 -1 3647 +D3 +A black square lies to the west. +~ +~ +0 -1 3638 +S +#3640 +A Black Square~ + You are standing on a black marble square. There is a rusty gate +to the north. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3632 +D2 +A white square lies to the south. +~ +~ +0 -1 3648 +D3 +A white square lies to the west. +~ +~ +0 -1 3639 +S +#3641 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3633 +D1 +A white square lies to the east. +~ +~ +0 -1 3642 +D2 +A white square lies to the south. +~ +~ +0 -1 3649 +S +#3642 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3634 +D1 +A black square lies to the east. +~ +~ +0 -1 3643 +D2 +A black square lies to the south. +~ +~ +0 -1 3650 +D3 +A black square lies to the west. +~ +~ +0 -1 3641 +S +#3643 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3635 +D1 +A white square lies to the east. +~ +~ +0 -1 3644 +D2 +A white square lies to the south. +~ +~ +0 -1 3651 +D3 +A white square lies to the west. +~ +~ +0 -1 3642 +S +#3644 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3636 +D1 +A black square lies to the east. +~ +~ +0 -1 3645 +D2 +A black square lies to the south. +~ +~ +0 -1 3652 +D3 +A black square lies to the west. +~ +~ +0 -1 3643 +S +#3645 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3637 +D1 +A white square lies to the east. +~ +~ +0 -1 3646 +D2 +A white square lies to the south. +~ +~ +0 -1 3653 +D3 +A white square lies to the west. +~ +~ +0 -1 3644 +S +#3646 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3638 +D1 +A black square lies to the east. +~ +~ +0 -1 3647 +D2 +A black square lies to the south. +~ +~ +0 -1 3654 +D3 +A black square lies to the west. +~ +~ +0 -1 3645 +S +#3647 +A Black Square~ + You are standing on a black marble square. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3639 +D1 +A white square lies to the east. +~ +~ +0 -1 3648 +D2 +A white square lies to the south. +~ +~ +0 -1 3655 +D3 +A white square lies to the west. +~ +~ +0 -1 3646 +S +#3648 +A White Square~ + You are standing on a white marble square. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3640 +D2 +A black square lies to the south. +~ +~ +0 -1 3656 +D3 +A black square lies to the west. +~ +~ +0 -1 3647 +S +#3649 +A White Square~ + You are standing on a white marble square. This is usually the home +of one of the White Queen's Pawns. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3641 +D1 +A black square lies to the east. +~ +~ +0 -1 3650 +D2 +A black square lies to the south. +~ +~ +0 -1 3657 +S +#3650 +A Black Square~ + You are standing on a black marble square. This is usually the home +of one of the White Queen's Pawns. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3642 +D1 +A white square lies to the east. +~ +~ +0 -1 3651 +D2 +A white square lies to the south. +~ +~ +0 -1 3658 +D3 +A white square lies to the west. +~ +~ +0 -1 3649 +S +#3651 +A White Square~ + You are standing on a white marble square. This is usually the home +of one of the White Queen's Pawns. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3643 +D1 +A black square lies to the east. +~ +~ +0 -1 3652 +D2 +A black square lies to the south. +~ +~ +0 -1 3659 +D3 +A black square lies to the west. +~ +~ +0 -1 3650 +S +#3652 +A Black Square~ + You are standing on a black marble square. This is usually the home +of one of the White Queen's Pawns. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3644 +D1 +A white square lies to the east. +~ +~ +0 -1 3653 +D2 +A white square lies to the south. +~ +~ +0 -1 3660 +D3 +A white square lies to the west. +~ +~ +0 -1 3651 +S +#3653 +A White Square~ + You are standing on a white marble square. This is usually the home +of one of the White King's Pawns. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3645 +D1 +A black square lies to the east. +~ +~ +0 -1 3654 +D2 +A black square lies to the south. +~ +~ +0 -1 3661 +D3 +A black square lies to the west. +~ +~ +0 -1 3652 +S +#3654 +A Black Square~ + You are standing on a black marble square. This is usually the home +of one of the White King's Pawns. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3646 +D1 +A white square lies to the east. +~ +~ +0 -1 3655 +D2 +A white square lies to the south. +~ +~ +0 -1 3662 +D3 +A white square lies to the west. +~ +~ +0 -1 3653 +S +#3655 +A White Square~ + You are standing on a white marble square. This is usually the home +of one of the White King's Pawns. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3647 +D1 +A black square lies to the east. +~ +~ +0 -1 3656 +D2 +A black square lies to the south. +~ +~ +0 -1 3663 +D3 +A black square lies to the west. +~ +~ +0 -1 3654 +S +#3656 +A Black Square~ + You are standing on a black marble square. This is usually the home +of one of the White King's Pawns. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3648 +D2 +A white square lies to the south. +~ +~ +0 -1 3664 +D3 +A white square lies to the west. +~ +~ +0 -1 3655 +S +#3657 +A Black Square~ + You are standing on a black marble square. This is usually the home +of the White Queen's Rook. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3649 +D1 +A white square lies to the east. +~ +~ +0 -1 3658 +S +#3658 +A White Square~ + You are standing on a white marble square. This is usually the home +of the White Queen's Knight. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3650 +D1 +A black square lies to the east. +~ +~ +0 -1 3659 +D3 +A black square lies to the west. +~ +~ +0 -1 3657 +S +#3659 +A Black Square~ + You are standing on a black marble square. This is usually the home +of the White Queen's Bishop. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3651 +D1 +A white square lies to the east. +~ +~ +0 -1 3660 +D3 +A white square lies to the west. +~ +~ +0 -1 3658 +S +#3660 +A White Square~ + You are standing on a white marble square. This is usually the home +of the White Queen. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3652 +D1 +A black square lies to the east. +~ +~ +0 -1 3661 +D3 +A black square lies to the west. +~ +~ +0 -1 3659 +D5 +~ +marble square~ +2 3615 3666 +S +#3661 +A Black Square~ + You are standing on a black marble square. This is usually the home +of the White King. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3653 +D1 +A white square lies to the east. +~ +~ +0 -1 3662 +D3 +A white square lies to the west. +~ +~ +0 -1 3660 +S +#3662 +A White Square~ + You are standing on a white marble square. This is usually the home +of the White King's Bishop. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3654 +D1 +A black square lies to the east. +~ +~ +0 -1 3663 +D3 +A black square lies to the west. +~ +~ +0 -1 3661 +S +#3663 +A Black Square~ + You are standing on a black marble square. This is usually the home +of the White King's Knight. +~ +36 0 1 +D0 +A white square lies to the north. +~ +~ +0 -1 3655 +D1 +A white square lies to the east. +~ +~ +0 -1 3664 +D3 +A white square lies to the west. +~ +~ +0 -1 3662 +S +#3664 +A White Square~ + You are standing on a white marble square. This is usually the home +of the White King's Rook. +~ +36 0 1 +D0 +A black square lies to the north. +~ +~ +0 -1 3656 +D3 +A black square lies to the west. +~ +~ +0 -1 3663 +S +#3665 +The Black Treasury~ + You are standing in the treasury of the Black Court. Hopefully no one +has looted the Crown's treasure. +~ +36 adj 0 +D4 +A small staircase rises above you. +~ +marble square~ +2 3614 3604 +S +#3666 +The White Treasury~ + You are standing in the treasury of the White Court. Hopefully no one +has looted the Crown's treasure. +~ +36 adj 0 +D4 +A small staircase rises above you. +~ +marble square~ +2 3615 3660 +S +$ diff --git a/lib/world/wld/40.wld b/lib/world/wld/40.wld new file mode 100644 index 0000000..d1f1580 --- /dev/null +++ b/lib/world/wld/40.wld @@ -0,0 +1,1918 @@ +#4000 +The Hills~ + You are on a path leading north, small hills surround you. +You feel the forces of evil approach you from the north. Off +in the distance to the northeast you can see the beginning of +a large mountain range. +~ +40 c 4 +D0 +~ +~ +0 -1 4001 +D2 +~ +~ +0 -1 3500 +S +#4001 +The Hills~ + You are on a small path leading north, dark threatening hills +surround you on almost all sides. A fair distance off to the +north, you can see the enormous shadow of a strangely solitaire +mountain. +~ +40 c 4 +D0 +~ +~ +0 -1 4002 +D2 +~ +~ +0 -1 4000 +S +#4002 +The End Of The Path~ + The path stops here, to the north is a single mountain and around +you are some threatening hills. A small trail leads up the hillside +through the rocks to a dark cave located to the north. Off to the +northeast, you can see the southern end of what appears to be a large +mountain range. +~ +40 c 4 +D0 +~ +~ +0 -1 4010 +D2 +~ +~ +0 -1 4001 +S +#4010 +The Cave~ + You are standing in a small cave, about fifteen feet across at +the widest point and about forty feet long. Off to the south you +sense fresh air and you surmise that the entrance must be located +off in that direction. To the north a small tunnel continues into +the mountain. +~ +40 ad 2 +D0 +~ +~ +0 -1 4011 +D2 +~ +~ +0 -1 4002 +S +#4011 +The Tunnel~ + You force your way into a narrow tunnel, aided by the wet walls +which help you slide through the passageway. The smell of mouldy +moss is growing greater the farther north you head, but you can smell +fresh air off to the south as a light breeze wafts past you. +~ +40 ad 3 +D0 +~ +~ +0 -1 4014 +D2 +~ +~ +0 -1 4010 +S +#4012 +The Tunnel~ + You find yourself at a turn in this narrow tunnel. The tunnel +appears to open up to the north into a cave of some sort while to +the east it leads onwards through the mountain. +~ +40 ad 3 +D0 +~ +~ +0 -1 4016 +D1 +~ +~ +0 -1 4013 +S +#4013 +The Tunnel~ + Standing in the middle of the dusty floor of this tunnel, you can +see that it is not a highly travelled passageway. It looks to lead +in an east-west direction. +~ +40 ad 3 +D1 +~ +~ +0 -1 4014 +D3 +~ +~ +0 -1 4012 +S +#4014 +The Tunnel~ + You find yourself at a small intersection of sorts in this tunnel. +The main tunnel appears to curve from south to west but there is an +entrance into a cave to the north. The entrance itself looks to be +unnatural and much more recent than the tunnel or even the cave. +~ +40 ad 3 +D0 +~ +~ +0 -1 4018 +D2 +~ +~ +0 -1 4011 +D3 +~ +~ +0 -1 4013 +S +#4015 +The Tunnel~ + You clamber on through this narrow tunnel. The walls are damp +with condensation and the weight of the rock above you is beginning +to make you feel almost claustrophobic. The tunnel makes a jagged +turn from west to north here. +~ +40 ad 3 +D0 +~ +~ +0 -1 4019 +D3 +~ +~ +0 -1 4014 +S +#4016 +The Large Cave~ + You find yourself in a fairly large cave. Large enough that the +eastern and western ends are almots completely shrouded in darkness. +A small tunnel breaks through the southern wall, and it too is full +of shadows. +~ +40 ad 2 +D1 +~ +~ +0 -1 4017 +D2 +~ +~ +0 -1 4012 +D3 +~ +~ +0 -1 4023 +S +#4017 +The Large Cave~ + You move along the cave to the west end of it and find that there +appears to be no other exit from here. The walls are fairly smooth +and look to have been naturally carved out of the rock by the passage +of water. +~ +40 ad 2 +D3 +~ +~ +0 -1 4016 +S +#4018 +The Cave~ + You find yourself at the southern end of a cave as it begins +to turn into a tunnel which leads off to the south. The cave +continues northwards deeper into the darkness. +You notice a large pile of bones in the corner. +~ +40 ad 2 +D0 +~ +~ +0 -1 4025 +D2 +~ +~ +0 -1 4014 +E +pile bones~ +You had better watch out - some of the bones are human! +~ +S +#4019 +The Tunnel~ + You stand in the middle of a fairly wide passageway that leads +in a north-south direction. The walls are quite smooth, almost as +if a river had gouged them out of the earth. +~ +40 ad 3 +D0 +~ +~ +0 -1 4026 +D2 +~ +~ +0 -1 4015 +S +#4020 +The Hole~ + You are standing in a small alcove off the main tunnel. There is +a fairly wide hole broken through the floor of the alcove. The only +other exit is to the north. +~ +40 acd 3 +D0 +~ +~ +0 -1 4027 +D5 +~ +~ +0 -1 4064 +S +#4021 +The Hole~ + As you stand at the end of this tunnel, you notice a large hole +sitting in the floor by the northwestern corner of the walls. The +tunnel itself leads off towards the east. The air here feels very +damp and you feel like your clothes are becoming sticky with sweat. +~ +40 acd 3 +D1 +~ +~ +0 -1 4022 +D5 +~ +~ +0 -1 4115 +S +#4022 +The Damp Tunnel~ + You are standing in the middle of a damp tunnel. The moisture +in the air is so thick that you can almost seem it seeping into your +clothes. The tunnel continues to the north and west. A large cave +opens up to the east. +~ +40 ad 3 +D0 +~ +~ +0 -1 4024 +D1 +~ +~ +0 -1 4023 +D3 +~ +~ +0 -1 4021 +S +#4023 +The Large Cave~ + You are in the western part of the large cave, to the east you can +see a tunnel. The air near the tunnel entrance is heavy with moisture, +giving you a feeling as if you were standing in the rain. The walls +of the cave are almost totally shrouded in darkness and shadow as is +the southern end of the cavern. +~ +40 ad 2 +D1 +~ +~ +0 -1 4016 +D3 +~ +~ +0 -1 4022 +S +#4024 +The Damp Tunnel~ + The tunnel you are in now is very humid, and the air seems to almost +hang with moisture. The walls drip with an almost constant water flow, +and the ground is covered with small pools of stagnent water. + The tunnel leads away to the south, and to the west you can feel that +the air is even damper than here. +~ +40 ad 3 +D2 +~ +~ +0 -1 4022 +D3 +~ +~ +0 -1 4059 +S +#4025 +The Cave~ + You find yourself standing in the northern end of a reasonably +large cave. The cave wall to the east has an opening that appears +to lead to a junction of several tunnels. +~ +40 ad 2 +D1 +~ +~ +0 -1 4026 +D2 +~ +~ +0 -1 4018 +S +#4026 +The Many Tunnels~ + You find yourself standing in the midst of an intersection +of numerous tunnels. There is a musty smell emanating from the +tunnel to the north, whilst the one to the west appears to open +up almost immediately into a cave. The tunnels to the south and +east are totally shrouded in darkness. +~ +40 ad 3 +D0 +~ +~ +0 -1 4028 +D1 +~ +~ +0 -1 4027 +D2 +~ +~ +0 -1 4019 +D3 +~ +~ +0 -1 4025 +S +#4027 +The Tunnel~ + You find yourself at an elbow turn in the tunnel as it turns to the +west and north. You spot a small alcove hidden in the shadows just to +the south of you, and you can feel a breeze coming from somewhere to the +north you believe. +~ +40 ad 3 +D0 +~ +~ +0 -1 4029 +D2 +~ +~ +0 -1 4020 +D3 +~ +~ +0 -1 4026 +S +#4028 +The Smelly Tunnel~ + You are in a fairly small north-south leading tunnel. There +is a a small light visible off to the north. As you stop for a +moment, you notice a strange smell from the north. +~ +40 ad 3 +D0 +~ +~ +0 -1 4030 +D2 +~ +~ +0 -1 4026 +S +#4029 +The Cave~ + You are in a cave that is filled with fresh air, you sense the +wind blowing from the north. To the south you see a small tunnel +continue into the mountain. +~ +40 ad 2 +D0 +~ +~ +0 -1 4031 +D2 +~ +~ +0 -1 4027 +S +#4030 +The Light Cave~ + You are in a light cave, through a hole large above you, you +see the sky. A small tunnel to the south is the only way out. +You notice the source of the strange smell, all around you there +are corpses of several monsters. +~ +40 d 2 +D2 +~ +~ +0 -1 4028 +E +corpse corpses~ +Looking at the corpses lying around the cave, they all appear to +have been torn to shreds by some large creature. As a further +not too unexpected point to note, they all smell terrible. +~ +S +#4031 +The Valley~ + You are in a small valley, surrounded by hills and a mountain to +the south. In the mountain there is a cave. To the north you can +enter the hills. There is a small trail leading up a steep hill to +the east. +~ +40 0 2 +D0 +~ +~ +0 -1 4032 +D1 +You spot a small trail leading into the hills to the east. +~ +~ +0 -1 4045 +D2 +~ +~ +0 -1 4029 +S +#4032 +The Foothills~ + You are on a winding path that leads through the foothills on the +north side of Mount Moria. The path continues north. +~ +40 0 4 +D0 +~ +~ +0 -1 4033 +D2 +~ +~ +0 -1 4031 +S +#4033 +The Intersection In The Foothills~ + You stand at a point by a small path that splits off here. The +path continues north and south while a rough trail leads east into +the mountains. +~ +40 0 4 +D0 +~ +~ +0 -1 4034 +D1 +~ +~ +0 -1 4037 +D2 +~ +~ +0 -1 4032 +S +#4034 +The Grassy Area In The Foothills~ + The grass here is unusually high. You notice several areas where +someone or something large has crushed spots of it down. Several +very large rocks litter this area. You can go north towards the end +of the foothills, west to go deeper into the foothills, or south to +a small path intersection. +~ +40 0 2 +D0 +~ +~ +0 -1 4035 +D2 +~ +~ +0 -1 4033 +D3 +~ +~ +0 -1 4042 +S +#4035 +At The Foothills' End~ + You find yourself standing at the northern edge of the foothills +where they meet the plains which lie to the north. You can head back +into the foothills to the south or the plains to the north. +~ +40 0 4 +D0 +~ +~ +0 -1 4036 +D2 +~ +~ +0 -1 4034 +S +#4036 +The Plains~ + You are in the plains. The path leads to the south. As you look +around you notice a small almost invisible trail leading away to the +west towards a copse of trees. +~ +40 0 2 +D2 +~ +~ +0 -1 4035 +D3 +~ +~ +0 -1 4075 +S +#4037 +The Path Through The Foothills~ + You stand on a path that leads through the foothills in an +east-west direction. Some distance off to the west you can see +a small intersection of paths and off to the east you see that +the path seems to come to an end as part of the mountain chain +juts out of the ground, blocking your view of the sky. +~ +40 0 4 +D1 +~ +~ +0 -1 4038 +D3 +~ +~ +0 -1 4033 +S +#4038 +The Base Of The Mountain~ + You find yourself standing at the bottom of a large mountain in +the mountain chain which begins at Mount Moria and stretches north +towards the top of the world. A small path leads off through the +foothills towards the west, where you can see plains quite a ways +away. To the east you spot a small worn trail leading up the side +of the mountain. +~ +40 0 5 +D1 +~ +~ +0 -1 4039 +D3 +~ +~ +0 -1 4037 +S +#4039 +A Trail Up The Mountain~ + You stand partway up the mountainside on a narrow yet well worn +trail. The trail curves its way up the side of the mountain towards +the top and westwards down the mountain into the foothills below. +~ +40 0 5 +D3 +~ +~ +0 -1 4038 +D4 +~ +~ +0 -1 4040 +S +#4040 +The Mountain Top~ + You find yourself at what is essentially the summit of this mountain. +It certainly seemed taller from the ground didn't it? The plateau you +stand on is close to thirty metres across and a small gouge in the north +side of it looks to lead to a small cavern. A small trail leads down +towards a valley that was hidden away on the east side of the mountain. +~ +40 0 5 +D0 +~ +~ +0 -1 4041 +D1 +~ +~ +0 -1 4076 +D5 +~ +~ +0 -1 4039 +S +#4041 +The Lion's Den~ + Following the gouge down to the cave entrance, you clamber through +the small entranceway only to find yourself in what appears to be the +living den of a large carnivorous animal! +~ +40 ad 2 +D2 +~ +~ +0 -1 4040 +S +#4042 +The Level Foothills~ + You continue to move through the foothills and notice that off in +the distance to the west, you can see a rather large cave entrance in +the side of a large hill. The hill seems to jut up from the rest of +the foothills quite unnaturally. A path leads off towards the east +as it seems to begin from nothing here. +~ +40 0 2 +D1 +~ +~ +0 -1 4034 +D3 +~ +~ +0 -1 4043 +S +#4043 +The Cave Entrance~ + You stand in a large tunnel, much larger than it seemed from +the outside. The ceiling is at least twenty feet above, and the +width of the tunnel runs at least fifteen feet. You can feel the +fresh air coming from the east, and off to the west, it looks to +lead into darkness. +~ +40 d 2 +D1 +~ +~ +0 -1 4042 +D3 +~ +~ +0 -1 4044 +S +#4044 +The Hill Giant Cave~ + You find yourself inside a rather large cavern. The ceiling stands +at least twenty five feet above you, if not more. The walls are so far +away, that the shadows of the room obscure them almost completely. Out +of all of the grandeur in this cave however, nothing seems to catch your +eye quite as much as the enormous table standing in the middle of the +sandy floor. It stands tall enough for you to walk under it without the +need to hunch over. A large tunnel leads out of the eastern wall of the +cavern. +~ +40 ad 2 +D1 +~ +~ +0 -1 4043 +S +#4045 +The Steep Trail~ + This trail leads up a steep hill to a point where it levels out as +it begins to pass between the mountains that surround you. It continues +through the hills to the east and heads down to the valley to the west. +~ +40 c 5 +D1 +The rocky trail continues. +~ +~ +0 -1 4046 +D3 +The valley lies at the bottom of the steep trail. +~ +~ +0 -1 4031 +S +#4046 +Between The Mountains~ + The trail between the mountains seems almost endless as you continue +to trek along it. It continues to both the east and west. +~ +40 c 5 +D1 +The trail continues eastwards. +~ +~ +0 -1 4047 +D3 +The trail continues westwards. +~ +~ +0 -1 4045 +S +#4047 +The Foothills~ + After a long trek, you find yourself in the foothills again. You spot +a narrow trail leading away to the northwest not too far distant to the +west. +~ +40 c 5 +D1 +You can head towards the narrow trail this way. +~ +~ +0 -1 4049 +D3 +The trail leading back through the mountains seems to go on forever. +~ +~ +0 -1 4046 +S +#4048 +The Foothills~ + A short trek through the foothills and you find yourself facing a +trail that leads between the mountains to the west. The trail through +them looks to be very long and probably quite tiring. You spot a narrow +trail leading away to the northwest not too far distant to the west. +~ +40 c 5 +D1 +You can head towards the narrow trail this way. +~ +~ +0 -1 4049 +D3 +The trail leading through the mountains seems to go on forever. +~ +~ +0 -1 4046 +S +#4049 +The Foothills~ + You are at a point on the trail where it turns slowly from an +almost straight westwards trail into a trail meandering towards +the northwest. +~ +40 c 4 +D0 +A small trail leads away to the northwest. +~ +~ +0 -1 5628 +D3 +A trail heads towards the mountains to the west. +~ +~ +0 -1 4048 +S +#4050 +The Tunnel~ + You are at a bend in the tunnel here. It turns from an eastwards +heading to a southwards one. The walls are cold and seem to be damp +with moisture. you can see some greenish moss growing up near the +roof of the passageway on the northern wall. +~ +40 ad 3 +D1 +~ +~ +0 -1 4051 +D2 +~ +~ +0 -1 4053 +S +#4051 +The Tunnel~ + Standing in this part of the tunnel, you notice that not only does +the tunnel get suddenly narrower, but the floor does not seem to be +nearly as smooth as it was before. In fact, the floor drops almost +five feet in jagged steps as you look eastward. The western path +seems to be quite smooth however. +~ +40 ad 3 +D1 +~ +~ +0 -1 4052 +D3 +~ +~ +0 -1 4050 +S +#4052 +The Tunnel~ + Continuing along the tunnel, you find that the floor has begun +to smooth itself out once more. Looking about, you notice a small +spring of water bubbling up near the southern wall. +~ +40 ad 3 +D1 +~ +~ +0 -1 4100 +D3 +~ +~ +0 -1 4051 +S +#4053 +The Tunnel~ + You continue along the tunnel to find yourself at a right +angle turn. The passage leads north and east from here. The +way to the north seems to be a longer tunnel which continues +on through the gloom of the underearth. The way to the east +is a fresh change from what would normally be found this far +underground in that the tunnel seems to open up into a fairly +large and well lit cave. +~ +40 ad 3 +D0 +~ +~ +0 -1 4050 +D1 +~ +~ +0 -1 4054 +S +#4054 +The Light Cave~ + The cave you stand in now is lit by an eerie flickering light, +which probably comes from the enormous fire which is burning a +short distance to the south in what looks to be the middle of +the cave. The flickering light creates some really strange and +almost frightening shadows on the walls, almost hiding the two +tunnels that lead away from here, one to the east and one to the +west. +~ +40 d 2 +D1 +~ +~ +0 -1 4055 +D2 +~ +~ +0 -1 4056 +D3 +~ +~ +0 -1 4053 +S +#4055 +The Maze~ + You stand in yet another small and damp tunnel. The ceiling hangs +quite low overhead and the passage twists off into darkness. The only +exit from here looks to be off to the west. +~ +40 ad 3 +D3 +~ +~ +0 -1 4054 +S +#4056 +The Light Cave~ + The cave you stand in now is lit by an eerie flickering light, +which comes from the enormous fire which is burning right in +front of you in the middle of this large cave. The fire gives +off more than enough light to see both the north and south ends +of the cave. +~ +40 d 2 +D0 +~ +~ +0 -1 4054 +D2 +~ +~ +0 -1 4061 +E +fire~ +The fire seems to have been burning for quite a long time. The +ceiling is covered with soot from the smoke, and ashes are littered +all over the floor of the cave. +~ +S +#4057 +The Maze~ + You stand in yet another small and damp tunnel. The ceiling hangs +quite low overhead and the passage twists off into darkness. The only +exits from here look to be off to the north and south. +~ +40 ad 3 +D0 +~ +~ +0 -1 4055 +D2 +~ +~ +0 -1 4062 +S +#4058 +The Maze~ + You stand in yet another small and damp tunnel. The ceiling hangs +quite low overhead and the passage twists off into darkness. The only +exits from here look to be off to the south and west. +~ +40 ad 3 +D2 +~ +~ +0 -1 4063 +D3 +~ +~ +0 -1 4057 +S +#4059 +The Tunnel~ + You are standing in a tunnel deep inside the heart of Mount Moria. A +small rivulet of water runs alongside the wall to the north as the tunnel +seems to lead slightly down towards the east. + The tunnel continues on to the east as it plunges deeper into the earth, +and upwards a bit towards the west where the air seems to be quite damp. +~ +40 acd 3 +D1 +~ +~ +0 -1 4060 +D3 +~ +~ +0 -1 4024 +S +#4060 +The Tunnel~ + You stand in a section of this small tunnel which seems to be +almost level. There is a small pool of water collecting beside +the north wall indicating perhaps a low spot on the floor. The +pool is being fed by a small rivulet which is coursing along the +northern wall from the west, but yet the water level in the pool +does not seem to be changing. + Looking either way down the tunnel, you can see that the tunnel +climbs to the west, and to the east, a strange flickering light +shows that the tunnel opens up into a cave of sorts. +~ +40 ad 3 +D1 +~ +~ +0 -1 4061 +D3 +~ +~ +0 -1 4059 +S +#4061 +The Light Cave~ + The cave you stand in now is lit by an eerie flickering light, +which probably comes from the enormous fire which is burning a +short distance to the north in what looks to be the middle of +the cave. The flickering light creates some really strange and +almost frightening shadows on the walls, almost hiding the two +tunnels that lead away from here, one to the west and one to the +south. +~ +40 d 2 +D0 +~ +~ +0 -1 4056 +D2 +~ +~ +0 -1 4065 +D3 +~ +~ +0 -1 4060 +S +#4062 +The Maze~ + You stand in yet another small and damp tunnel. The ceiling hangs +quite low overhead and the passage twists off into darkness. The only +exits from here look to be off to the east and west. +~ +40 ad 3 +D1 +~ +~ +0 -1 4063 +D3 +~ +~ +0 -1 4061 +S +#4063 +The Maze~ + You stand in yet another small and damp tunnel. The ceiling hangs +quite low overhead and the passage twists off into darkness. The only +exits from here look to be off to the east and north. +~ +40 ad 3 +D0 +~ +~ +0 -1 4058 +D1 +~ +~ +0 -1 4064 +S +#4064 +The Tunnel~ + You stand in a small chamber beneath the earth. The chamber +closes down to tunnel size to the west as the only obvious exit +leads away in that direction. Before heading off that way, you +decide to look around the cave. The walls are slightly damp to +the touch, and the ceiling is very smooth. Almost right in the +centre of the ceiling, a well rounded hole has been made. +~ +40 ad 3 +D3 +~ +~ +0 -1 4063 +D4 +~ +~ +0 -1 4020 +S +#4065 +The Maze~ + You stand in yet another small and damp tunnel. The ceiling hangs +quite low overhead and the passage twists off into darkness. The only +exits from here look to be off to the east and north. To the north, +you can see the entrance to what looks to be a large and well lit cave. +~ +40 ad 3 +D0 +~ +~ +0 -1 4061 +D1 +~ +~ +0 -1 4066 +S +#4066 +The Maze~ + You stand in yet another small and damp tunnel. The ceiling hangs +quite low overhead and the passage twists off into darkness. The only +exits from here look to be off to the east, south, and north. To the +south, the tunnel looks to open up into a cavern. +~ +40 ad 3 +D0 +~ +~ +0 -1 4062 +D1 +~ +~ +0 -1 4067 +D2 +~ +~ +0 -1 4069 +S +#4067 +The Maze~ + You stand in yet another small and damp tunnel. The ceiling hangs +quite low overhead and the passage twists off into darkness. The only +exits from here look to be off to the west and north. +~ +40 ad 3 +D0 +~ +~ +0 -1 4063 +D3 +~ +~ +0 -1 4066 +S +#4068 +The Large Cave~ + You find yourself in what is perhaps the largest cave you +have ever been in. It stretches through the darkness to the +east and south. The cave is nigh filled with echoes created +by the sound of your breathing. Stalactites and stalagmites +hang down from the ceiling and climb upwards from the ground +of the cavern respectively. +~ +40 ad 2 +D1 +~ +~ +0 -1 4069 +D2 +~ +~ +0 -1 4070 +S +#4069 +The Large Cave~ + You find yourself in what is perhaps the largest cave you +have ever been in. It stretches through the darkness to the +west and south. The cave is nigh filled with echoes created +by the sound of your breathing. Stalactites and stalagmites +hang down from the ceiling and climb upwards from the ground +of the cavern respectively. A narrow tunnel leads away from +the cave to the north. +~ +40 ad 2 +D0 +~ +~ +0 -1 4066 +D2 +~ +~ +0 -1 4071 +D3 +~ +~ +0 -1 4068 +S +#4070 +The Large Cave~ + You find yourself in what is perhaps the largest cave you +have ever been in. It stretches through the darkness to the +east and north. The cave is nigh filled with echoes created +by the sound of your breathing. Stalactites and stalagmites +hang down from the ceiling and climb upwards from the ground +of the cavern respectively. +~ +40 ad 2 +D0 +~ +~ +0 -1 4068 +D1 +~ +~ +0 -1 4071 +S +#4071 +The Large Cave~ + You find yourself in what is perhaps the largest cave you +have ever been in. It stretches through the darkness to the +west and south. The cave is nigh filled with echoes created +by the sound of your breathing. Stalactites and stalagmites +hang down from the ceiling and climb upwards from the ground +of the cavern respectively. A narrow tunnel leads away from +the cave to the east. +~ +40 ad 2 +D0 +~ +~ +0 -1 4069 +D1 +~ +~ +0 -1 4072 +D3 +~ +~ +0 -1 4070 +S +#4072 +The Tunnel~ + You stand in a narrow tunnel. It makes a turn from east to south +here as it heads through the rock of the mountain. The western wall +of the tunnel looks to have broken through a small, natural crack in +the rock to lead into what appears to be a fairly large cave. +~ +40 ad 3 +D1 +~ +~ +0 -1 4073 +D2 +~ +~ +0 -1 4074 +D3 +~ +~ +0 -1 4071 +S +#4073 +The End Of The Tunnel~ + The tunnel comes to a sudden halt here. How very bizarre. The +only exit is back to the west, where the tunnel leads back through +the mountain. There is absolutely nothing of any interest down at +the end of this passageway either. How odd. +~ +40 ad 3 +D3 +~ +~ +0 -1 4072 +S +#4074 +The Hole~ + You are at a small hole in the floor. Alas, you can only leave +north because to leave down into the unknown, you must be able to +fit through the hole, which is far too small for you! +~ +40 ad 3 +D0 +~ +~ +0 -1 4072 +D5 +The small hole in the floor refuses to give up its secrets about +what can be found below. +~ +~ +0 -1 -1 +E +hole floor~ +The small hole in the floor refuses to give up its secrets about +what can be found below. +~ +S +#4075 +The Copse Of Trees~ + Standing in this copse of trees gives you an eerie feeling. Off to +the east you can see the plains, and just to the north a strange shadow +seems to be changing shape constantly and almost seems to beckon you to +enter it. +~ +40 0 4 +D0 +There is a strange shadow forming before you. +~ +~ +0 -1 2500 +D1 +~ +~ +0 -1 4036 +S +#4076 +On A Mountain Trail~ + You find yourself on a mountain trail twisting down towards a small +hidden valley located in the shadow of another mountain a short distance +to the east. The trail is fairly rough going and looks to dip down into +the small valley before climbing up the side of the other mountain. As +you look at the valley from a closer vantage point, you realize that it +is much smaller than you had expected, being maybe thirty feet long. It +is quite surprising how deceptive distances can be this high up in the +mountains, isn't it? +~ +40 0 5 +D3 +~ +~ +0 -1 4040 +D5 +~ +~ +0 -1 4077 +S +#4077 +In The Hidden Valley~ + This valley seems to be a complete waste of a climb down the +mountainside. Of course, there is always the carefully hidden +trail that you just noticed on the eastern side of the valley, +leading up the eastern mountain that is blocking most of the sky +from you. +~ +40 0 5 +D1 +~ +~ +0 -1 6400 +D4 +~ +~ +0 -1 4076 +S +#4078 +In The Hidden Valley~ + This small valley is hidden away in the shadow of the large +mountain to the east. The trail leading up it to the east seems +to vanish before your eyes, but you are quickly able to find it +once again. A trail leads up the mountain to the west as well. +~ +40 0 5 +D1 +~ +~ +0 -1 6400 +D4 +~ +~ +0 -1 4076 +S +#4100 +The Tunnel~ + As you continue along this tunnel which heads deeper and deeper into +the earth, you notice that the tunnel must be a lot steeper than you +previously expected as there is a small rivulet of water gushing down +the one side of the tunnel. The tunnel appears to extend straight to +the east for quite some distance. +~ +40 acd 3 +D1 +~ +~ +0 -1 4101 +D3 +~ +~ +0 -1 4052 +S +#4101 +The Long Tunnel~ + The tunnel seems to be slightly sloped here as it continues in its +east-west direction. The tunnel walls are far apart, almost allowing +for four people to travel abreast with ease. The walls do not seem to +be very damp, but there is a small rivulet running along the northern +wall of the tunnel. +~ +40 ad 3 +D1 +~ +~ +0 -1 4102 +D3 +~ +~ +0 -1 4100 +S +#4102 +The Long Tunnel~ + As you travel along this long tunnel, you begin to wonder just +how long it is. The walls are fairly far apart, but you can see +that they begin to close in rather rapidly to the east. In fact, +the manner in which they come together almost reminds you of a +funnel. +~ +40 ad 3 +D1 +~ +~ +0 -1 4103 +D3 +~ +~ +0 -1 4101 +S +#4103 +The Long Tunnel~ + You are standing in a long east-west tunnel. It is not all that +wide at this point, perhaps wide enough for two people to stand side +by side without impeding each other. Off to the west it appears that +the tunnel opens up some more while to the east it dives further down +into the earth, and you can see a small hole about two feet in diameter +about waist height in the southern wall. +~ +40 ad 3 +D1 +~ +~ +0 -1 4104 +D2 +~ +~ +0 -1 4106 +D3 +~ +~ +0 -1 4102 +S +#4104 +The Long Tunnel~ + You find yourself in a small bulbous cavern ending. The somewhat +circular 'room' is about thirty feet in diameter and you can see one +exit from it; a tunnel leading sharply upwards from the western wall. +The walls of this cavern are quite indistinct and you cannot see any +moss or dampness on them whatsoever. +~ +40 ad 3 +D3 +~ +~ +0 -1 4103 +S +#4105 +The Golden Cave~ + You are standing in what appears to be the north-east corner of +this large cavern. The cave is lit by the eerie, soft, golden light +which looks to be emanating from the walls themselves. The cave +itself is enormous, extending quite a distance to the west and south. +~ +40 d 1 +D2 +~ +~ +0 -1 4108 +D3 +~ +~ +0 -1 4106 +E +light gold golden~ +It looks good, but as you look closely you notice that it has no value. +~ +S +#4106 +The Golden Cave~ + You are standing in what appears to be the north-west corner of +this large cavern. The cave is lit by the eerie, soft, golden light +which looks to be emanating from the walls themselves. The cave +itself is enormous, extending quite a distance to the east and south. +There is a hole in the northern wall, about two feet in diameter. +All that can be seen through the hole is darkness. +~ +40 d 1 +D0 +~ +~ +0 -1 4103 +D1 +~ +~ +0 -1 4105 +D2 +~ +~ +0 -1 4109 +E +light gold golden~ +It looks good, but as you look closely you notice that it has no value. +~ +S +#4107 +The Passage~ + You are standing at the elbow turn of a small passageway. It turns +quite sharply to the south and west. To the south, it appears that the +passage continues, but to the west you can see what almost appears to +be a golden light. +~ +40 ad 3 +D2 +~ +~ +0 -1 4113 +D3 +~ +~ +0 -1 4108 +S +#4108 +The Golden Cave~ + You are standing in what appears to be the south-east corner of +this large cavern. The cave is lit by the eerie, soft, golden light +which looks to be emanating from the walls themselves. The cave +itself is enormous, extending quite a distance to the west and north. +A crack in the wall to the east appears to lead into a passageway of +sorts. +~ +40 d 1 +D0 +~ +~ +0 -1 4105 +D1 +~ +~ +0 -1 4107 +D3 +~ +~ +0 -1 4109 +E +light gold golden~ +It looks good, but as you look closely you notice that it has no value. +~ +S +#4109 +The Golden Cave~ + You are standing in what appears to be the middle of the western +wall of this large cavern. The cave is lit by the eerie, soft, golden +light which looks to be emanating from the walls themselves. The cave +itself is enormous, extending quite a distance to the east, south, +and north. +~ +40 d 1 +D0 +~ +~ +0 -1 4106 +D1 +~ +~ +0 -1 4108 +D2 +~ +~ +0 -1 4114 +E +light gold golden~ +It looks good, but as you look closely you notice that it has no value. +~ +S +#4110 +The Hole~ + You find yourself standing in a small alcove as the tunnel comes to +a somewhat sudden end. Looking about you suddenly notice a rather big +hole in the floor of the tunnel. In fact, it seems that another step +forward and you would have fallen into it. + The tunnel itself leads to the west, and looking down into the hole +in the floor reveals little beyond the fact that it seems to be very +deep and very dark. There is a very strange smell emanating from the +hole, it almost smells like something down there is rotting. +~ +40 acd 3 +D3 +~ +~ +0 -1 4111 +D5 +Before you head down, you drop a rock to see how deep the hole is... +After about five minutes, it still hasn't hit bottom. Thus, for +reasons of sanity, you decide not to go this way. +~ +~ +0 -1 -1 +E +hole floor~ +Before you head down, you drop a rock to see how deep the hole is... +After about five minutes, it still hasn't hit bottom. Thus, for +reasons of sanity, you decide not to go this way. +~ +S +#4111 +The Tunnel~ + The walls of this small tunnel are almost completely covered in a +strange orange moss that flakes off to the touch. The tunnel leads +in an east-west direction and the air within is very damp and very +stagnant. There is no detectable breeze at all but a strange smell +emanates from the east. There is a small, almost unnoticed hole in +the southern wall. +~ +40 ad 3 +D1 +~ +~ +0 -1 4110 +D2 +The hole looks very small. You will probably have to crawl through +it. +~ +~ +0 -1 4126 +D3 +~ +~ +0 -1 4112 +E +moss walls wall~ +The moss on the walls is orange. When you touch it, it feels very +scrubby and flakes off to the touch leaving a slight orange tinge +on your fingertips. +~ +S +#4112 +The Tunnel~ + The tunnel in which you currently stand is fairly wide (very wide +relative to almost all the other tunnels around here it seems) and +yet the air is quite damp. The walls have a thin coating of moisture +upon them which looks and feels somewhat oiley. The tunnel leads in +an east-west direction. +~ +40 ad 3 +D1 +~ +~ +0 -1 4111 +D3 +~ +~ +0 -1 4113 +E +wall walls moisture coat coating~ +The coating of moisture on the walls has strange little patterns of +colour weaving through it, almost as if someone had spilled oil on +a horizontal water surface. +~ +S +#4113 +The Passage~ + This north-south passageway looks to be a natural creation, except +that the walls looks to have been roughly hewn in order to smooth them +a somewhat to make passage easier. The walls still meander as the +passage makes its way deeper into the bowels of the earth. A bizarre +shadow in the eastern wall leads you to suspect that a small passage +meets the tunnel there. +~ +40 ad 3 +D0 +~ +~ +0 -1 4107 +D1 +~ +~ +0 -1 4112 +D2 +~ +~ +0 -1 4116 +S +#4114 +The Golden Cave~ + You are standing in what appears to be the south-west corner of +this large cavern. The cave is lit by the eerie, soft, golden light +which looks to be emanating from the walls themselves. The cave +itself is enormous, extending quite a distance to the north and a +strange shadow formation seems to indicate a passage entrance to the +west. +~ +40 d 1 +D0 +~ +~ +0 -1 4109 +D3 +~ +~ +0 -1 4115 +E +light gold golden~ +It looks good, but as you look closely you notice that it has no value. +~ +S +#4115 +The Dark Passage~ + You find yourself in a small passage ending. It is quite dark in here. +As you look about the damp walls, you notice that the passageway almost +appears to curve upwards towards the ceiling. Looking up, you notice that +there is a small hole, just large enough to pass through. Looking closely +at the curved part of the wall, it appears that someone (or something) has +carved small handholds into the wall to ease passage upwards. The tunnel +itself leads off to the east. +~ +40 ad 3 +D1 +~ +~ +0 -1 4114 +D4 +~ +~ +0 -1 4021 +S +#4116 +The Passage~ + You find yourself in quite an ordinary passageway which leads north +and south. It looks to be wide enough for two people to walk side by +side with plenty of room. The passage appears to be almost rectangular +in form. Far off to the south you can see the pinpoint of a light. +~ +40 ad 3 +D0 +~ +~ +0 -1 4113 +D2 +~ +~ +0 -1 4120 +E +light~ +Well, you can't see where it comes from... +~ +S +#4117 +The Secret Tunnel~ + You are currently standing in a narrow passageway that does not seem +to have been heavily visited at any time. It leads northwards towards +a lit room and south towards what appears to be a chamber. +~ +40 ad 3 +D0 +~ +~ +0 -1 4114 +D2 +~ +~ +0 -1 4122 +S +#4118 +The Cave~ + This rather large cave is surprisingly very well lit. There are +about twenty torches spread about the room set in sconces which hang +several feet above your head. The dancing shadows created by the +flickering flames catch your eyes for a few minutes and threaten to +hold you entranced. + Looking about the cave, it appears to continue to the west and +south. In the north wall a strange vertical crack looks as if it may +lead somewhere. +~ +40 d 1 +D0 +It looks like quite the tight fit. +~ +~ +0 -1 4126 +D2 +~ +~ +0 -1 4123 +D3 +~ +~ +0 -1 4119 +S +#4119 +The Cave~ + This rather large cave is surprisingly very well lit. There are +about twenty torches spread about the room set in sconces which hang +several feet above your head. The dancing shadows created by the +flickering flames catch your eyes for a few minutes and threaten to +hold you entranced. + Looking about the cave, it appears to continue to the east and +south. +~ +40 d 1 +D1 +~ +~ +0 -1 4118 +D2 +~ +~ +0 -1 4124 +D3 +The rock wall to the west looks odd for some strange reason. +~ +wall rock~ +1 -1 4121 +S +#4120 +The Passage~ + You stand in a fairly normal passage, slightly wider than is +necessary for one person, but not quite wide enough for two. The +ceiling dips here rather surprisingly, or wait, is that because the +floor climbs upwards toward it? The tunnel seems to narrow slightly +more as you look to the south, and widens up somewhat as you look +northward. The light to the south continues to flicker. +~ +40 ad 3 +D0 +~ +~ +0 -1 4116 +D2 +~ +~ +0 -1 4125 +E +light~ +It nearly is enough to light the passage. +~ +S +#4121 +The Secret Tunnel~ + You stand in a very unnatural hallway, about ten feet across and +about ten or twelve feet up. The passageway funnels down towards +the west where it leads to a doorway that looks to be about five feet +across. The east end of the tunnel comes to a sudden end at a very +smooth rock wall. +~ +40 ad 3 +D1 +The rock wall to the east looks like it might be able to be moved. +~ +wall rock~ +1 -1 4119 +D3 +~ +~ +0 -1 4122 +E +wall rock~ +The rock wall to the east looks like it might be able to be moved. +~ +S +#4122 +The Secret Chamber~ + You stand in a small chamber that you never would have thought +could exist. This small, almost perfectly round cave does not +appear to be a natural formation at all, since the walls are far +too smooth and the doorways to the north and east are both almost +exactly five feet wide and eleven feet tall. +~ +40 ad 3 +D0 +~ +~ +0 -1 4117 +D1 +~ +~ +0 -1 4121 +S +#4123 +The Cave~ + This rather large cave is surprisingly very well lit. There are +about twenty torches spread about the room set in sconces which hang +several feet above your head. The dancing shadows created by the +flickering flames catch your eyes for a few minutes and threaten to +hold you entranced. + Looking about the cave, it appears to continue to the west and +north. +~ +40 d 1 +D0 +~ +~ +0 -1 4118 +D3 +~ +~ +0 -1 4124 +S +#4124 +The Cave~ + This rather large cave is surprisingly very well lit. There are +about twenty torches spread about the room set in sconces which hang +several feet above your head. The dancing shadows created by the +flickering flames catch your eyes for a few minutes and threaten to +hold you entranced. + Looking about the cave, it appears to continue to the east and +north. There is a passageway leading out of the western wall of the +cave which looks to turn northwards. +~ +40 d 1 +D0 +~ +~ +0 -1 4119 +D1 +~ +~ +0 -1 4123 +D3 +~ +~ +0 -1 4125 +S +#4125 +The Passage~ + You are at the end of a narrow passage which leads away from +here to the north. The southern wall is bare and almost seems to +dance with the shadows created by the flickering light emanating +from the cave to the east. +~ +40 d 3 +D0 +~ +~ +0 -1 4120 +D1 +~ +~ +0 -1 4124 +S +#4126 +The Crawlway~ + You are in a very narrow crawlway. To back out of it, you would have +to move carefully in order to not catch anything on the jutting rocks of +the ceiling and walls. The diameter of the crawlway is about two feet, +and is a rather tight squeeze. You'd better hope that there aren't any +worms or similar creatures down this way since it might be difficult to +defend yourself in here. +~ +40 acdfgij 5 +D0 +You can see a small hole marking the north exit of the crawlway. +~ +~ +0 -1 4111 +D2 +You can see the light emanating from the southern exit of the crawlway. +~ +~ +0 -1 4118 +S +$ diff --git a/lib/world/wld/50.wld b/lib/world/wld/50.wld new file mode 100644 index 0000000..f3fecdd --- /dev/null +++ b/lib/world/wld/50.wld @@ -0,0 +1,1483 @@ +#5001 +A Long Tunnel~ + You encounter some rapids as you enter this tunnel cut out of +the mountains by the river. +~ +50 ad 7 +D1 +~ +~ +0 -1 5002 +D3 +There appear to be some bars here, making passage to the west +difficult. +~ +~ +0 -1 3205 +S +#5002 +A Long Tunnel~ + The tunnel branches off north. +~ +50 ad 7 +D0 +~ +~ +0 -1 5008 +D1 +~ +~ +0 -1 5003 +D3 +~ +~ +0 -1 5001 +S +#5003 +A Long Tunnel~ + The tunnel branches off south. +~ +50 ad 7 +D1 +~ +~ +0 -1 5004 +D2 +~ +~ +0 -1 5017 +D3 +~ +~ +0 -1 5002 +S +#5004 +A Tunnel Intersection~ + The tunnel branches off to the north and south. +~ +50 ad 7 +D0 +~ +~ +0 -1 5643 +D1 +~ +~ +0 -1 5005 +D2 +~ +~ +0 -1 5018 +D3 +~ +~ +0 -1 5003 +S +#5005 +An Underground Lake~ + You are floating on a jet-black underground lake fed by dripping +water and lime from above. The tunnel continues to the east and the +river leads back west. Leading upwards to the northwest is a roughly +hewn hallway. +~ +50 ad 7 +D0 +~ +~ +0 -1 5671 +D1 +~ +~ +0 -1 5006 +D2 +~ +~ +0 -1 5023 +D3 +~ +~ +0 -1 5004 +S +#5006 +A Long Narrow Tunnel~ + The tunnel rises sharply to the east. Another narrow tunnel +leads away to the north. +~ +50 adi 5 +D0 +~ +~ +0 -1 5016 +D1 +~ +~ +0 -1 5007 +D3 +~ +~ +0 -1 5005 +S +#5007 +A Wide Tunnel~ + The tunnel continues east and west. To the east the tunnel dives +down into a bright light. A small passage way opens to the north. +~ +50 ad 5 +D1 +~ +~ +0 -1 5026 +D3 +~ +~ +0 -1 5006 +S +#5008 +The Cave-In~ + You stand at the edge of a large pile of rubble created from the last +rockslide. +~ +50 ad 5 +D2 +~ +~ +0 -1 5002 +D5 +You can easily slide down the rocks without getting hurt. +~ +~ +0 -1 5009 +S +#5009 +At The Foot Of The Rubble~ + You are at the bottom of a large pile of rubble. A tunnel branches +off to the north and east. +~ +50 ad 5 +D0 +~ +~ +0 -1 5010 +D1 +~ +~ +0 -1 5012 +D4 +~ +~ +0 -1 5008 +S +#5010 +A Cave Entrance~ + You stand in the middle of a large and beautiful cave. A path leads +deeper into the darkness. +~ +50 ad 5 +D2 +~ +~ +0 -1 5009 +D5 +You look down into the cave. Bones are strewn about everywhere. +~ +~ +0 -1 5011 +S +#5011 +A Giant Cave~ + This cavern overwhelms you. The walls and ceiling seem miles away. +Bones of previous adventurers lie strewn on the cavern floor. There is +a passage that spirals downwards in the northeast corner of the cavern. +~ +50 ad 5 +D4 +~ +~ +0 -1 5010 +D5 +The passageway spirals down into the gloom. +~ +~ +0 -1 5100 +S +#5012 +A Narrow Bend~ + The tunnel turns to the south and west. +~ +50 ad 5 +D2 +~ +~ +0 -1 5013 +D3 +~ +~ +0 -1 5009 +S +#5013 +A Large Cave~ + You are standing in a large cave. Many furs are spread out on the floor. +~ +50 ad 5 +D0 +~ +~ +0 -1 5012 +D1 +~ +~ +0 -1 5014 +S +#5014 +A Damp Hallway~ + The walls here are extremely damp, as well as the floor. +~ +50 ad 5 +D1 +You hear drops of water. +~ +~ +0 -1 5015 +D3 +~ +~ +0 -1 5013 +S +#5015 +An Underground Pool~ + You are wading in a knee deep pool of lime-water. +~ +50 ad 6 +D1 +~ +~ +0 -1 5016 +D3 +~ +~ +0 -1 5014 +S +#5016 +A Damp Hallway~ + The walls of the tunnel are extremely damp here. The tunnel +leads sharply upwards to the south as it starts to get narrow. +~ +50 ad 5 +D2 +~ +~ +0 -1 5006 +D3 +You hear drops of water. +~ +~ +0 -1 5015 +S +#5017 +A Narrow Crawlway~ + This crawlway is just big enough for a human to crawl through or a +halfling to walk through. +~ +50 ad 5 +D0 +~ +~ +0 -1 5003 +D1 +~ +~ +0 -1 5018 +D2 +You smell the fragrant odor of fungus. +~ +~ +0 -1 5019 +S +#5018 +A Large Cavern~ + You have entered a very large cavern. The rock formations would amaze +almost any dwarf. +~ +50 ad 5 +D0 +~ +~ +0 -1 5004 +D3 +~ +~ +0 -1 5017 +S +#5019 +A Fungus Patch~ + As you walk through the fungus patch, you are shot at by many millions of +spores. You can hardly breathe. +~ +50 ad 5 +D0 +~ +~ +0 -1 5017 +D1 +The fragrant smell of fungus spores continues to the east. +~ +~ +0 -1 5020 +S +#5020 +The Fungus Path~ + As you walk along the path, millions of spores are shot at you. It is +difficult to breathe. +~ +50 ad 5 +D2 +A giant mushroom temple stands to the south. +~ +~ +0 -1 5021 +D3 +The fragrant smell of spores continues to the west. +~ +~ +0 -1 5019 +S +#5021 +The Fungus Temple~ + You find yourself standing inside of a giant mushroom. The inside +is decorated in the fashion of a temple. +~ +50 ad 5 +D0 +~ +~ +0 -1 5020 +D1 +~ +~ +0 -1 5022 +S +#5022 +A Sloping Passage~ + You follow a path sloping down from the fungus temple. +~ +50 ad 5 +D0 +~ +~ +0 -1 5023 +D2 +~ +~ +0 -1 5021 +S +#5023 +A Sloping Passage~ + You are on a path that gently slopes up from the underground pool. +~ +50 ad 5 +D0 +You hear sounds of trickling water. +~ +~ +0 -1 5005 +D2 +~ +~ +0 -1 5022 +S +#5024 +The Great Eastern Desert~ + A vast desert stretches for miles, the sand constantly shifting around +you. A pyramid lies to the east and a snow-capped mountain range to the +west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5030 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5034 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5025 +S +#5025 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the east and a snow-capped mountain range to the +west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5024 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5031 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5026 +S +#5026 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the east and a snow-capped mountain range to the +west. The hole which you tumbled out of is too high for you to reach. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5025 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5036 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5027 +S +#5027 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the east and a snow-capped mountain range to the +west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5026 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5033 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5028 +S +#5028 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north-east and a snow-capped mountain range to +the west. You spy a narrow dirt trail leading away to the west into the +foothills. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5027 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5033 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5029 +D3 +A small dirt trail leads off to the west where it joins a large clay road +some distance away. +~ +~ +0 -1 12068 +S +#5029 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north-east and a snow-capped mountain range to +the west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5028 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5037 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5044 +S +#5030 +A Small Oasis~ + You stand beside a small pool of crystal-blue water bathed in the +shade of a few scarce palm trees. To the north you see a small +encampment stopped for the day. +~ +50 0 2 +D0 +You see three tents and some camels hitched to a stake. Shadows moving +across the tents suggest activity. +~ +~ +0 -1 5056 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5036 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5032 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5025 +S +#5031 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5031 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5031 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5032 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5024 +S +#5032 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5035 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5036 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5033 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5032 +S +#5033 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north-east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5037 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5037 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5043 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5028 +S +#5034 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the south-east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5038 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5035 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5034 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5035 +S +#5035 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the east, it looks enormous, even from this distance. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5039 +D1 +Even from here, you can sense a great evil residing within the pyramid +protruding from the sand to the east. +~ +~ +0 -1 5300 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5032 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5034 +S +#5036 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north-east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5035 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5041 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5032 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5030 +S +#5037 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north-east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5048 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5033 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5042 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5033 +S +#5038 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the south. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5046 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5045 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5040 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5034 +S +#5039 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting +around you. A pyramid lies to the south. The gates of a city lie a +short distance off to the north. +~ +50 0 2 +D0 +Some city gates stand off to the north. +~ +~ +0 -1 5411 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5039 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5048 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5039 +S +#5040 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. You are standing near a gigantic pyramid located a couple hundred +meters west of you. From here you can sense the great evil which resides +within the massive structure. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5036 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5049 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5041 +D3 +The pyramid can be seen across the sands to the west. +~ +~ +0 -1 5300 +S +#5041 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north. +~ +50 0 2 +D0 +Even from here, you can sense a great evil residing within the pyramid +protruding from the sand to the north. +~ +~ +0 -1 5040 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5048 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5041 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5037 +S +#5042 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5049 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5055 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5043 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5041 +S +#5043 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5042 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5055 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5044 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5033 +S +#5044 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north and a ruined city to the west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5050 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5055 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5029 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5200 +S +#5045 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the south. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5045 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5052 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5045 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5038 +S +#5046 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the south-west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5038 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5047 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5047 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5039 +S +#5047 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5046 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5051 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5053 +D3 +Even from here, you can sense a great evil residing within the pyramid +protruding from the sand to the west. +~ +~ +0 -1 5040 +S +#5048 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5039 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5048 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5053 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5041 +S +#5049 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north-west. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5053 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5054 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5050 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5042 +S +#5050 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north. +~ +50 0 2 +D0 +Sand as far as the eye can see... and a pyramid in the distance. +~ +~ +0 -1 5300 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5054 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5044 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5042 +S +#5051 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the south-west and a deep canyon to the east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5051 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5052 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5047 +S +#5052 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the south-west and a deep canyon to the east. Just +below you can make out a tiny ledge. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5051 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5053 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5045 +D5 +~ +~ +0 -1 5063 +S +#5053 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the west and a deep canyon to the east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5052 +D1 +A rickety rope bridge stretches across the canyon... it doesn't look too safe. +~ +~ +0 -1 5062 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5054 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5049 +S +#5054 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the west and a deep canyon to the east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5053 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5055 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5050 +S +#5055 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. A pyramid lies to the north-west and a deep canyon to the east. +~ +50 0 2 +D0 +Sand as far as the eye can see. +~ +~ +0 -1 5054 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5055 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5043 +S +#5056 +A Nomad Camp~ + This small group of desert nomads has stopped for the day to rest +and refresh themselves beside this beautiful oasis. Three tents and some +camels make up the party. From within two of the tents you hear muffled +voices, obviously surprised at your visit. +~ +50 g 2 +D0 +Some camels are tied up to a mass of stakes plugged into the ground. +~ +~ +0 -1 5058 +D1 +You see inside one of the tents a huddled mass of people, probably slaves. +~ +~ +0 -1 5057 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5030 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5025 +S +#5057 +Inside A Small Tent~ + This is a small and simple tent with few possessions in sight. Lying +here and there are young-looking men and women, possibly slaves to the +leader of this band. +~ +50 dg 2 +D3 +You see the center of the nomad camp. +~ +~ +0 -1 5056 +S +#5058 +Beside The Camels~ + Here stand about ten camels, all hitched to some stakes plugged into +the ground. To the east you see a small tent while to the north you see a +larger, fancier tent. +~ +50 g 2 +D0 +This tent seems to be the temporary abode of the nomad leader. You make a +mental note to visit it before you leave. +~ +~ +0 -1 5060 +D1 +In this tent there are very large men, all carrying weapons. +~ +~ +0 -1 5059 +D2 +You see the center of the nomad camp. +~ +~ +0 -1 5056 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5024 +S +#5059 +The Warriors' Tent~ + This tent has a few furnishings, but mainly it holds the band's +protectors. They all stare at you coldly as you enter. +~ +50 dg 2 +D3 +Outside you see some peaceful camels. +~ +~ +0 -1 5058 +S +#5060 +The Main Tent~ + This tent is as lavishly decorated on the inside as it is on the +outside. A fancy carpet lies on the sand and numerous baskets line the +walls. +~ +50 dg 2 +D1 +~ +~ +0 -1 5061 +D2 +You see some peaceful camels. +~ +~ +0 -1 5058 +S +#5061 +The Main Tent~ + This is where the leader of this band of nomads resides. He is +definitely rich as you inspect the tapestries, baskets, and a few +paintings as well. +~ +50 dg 2 +D3 +You see the entrance to this tent. +~ +~ +0 -1 5060 +S +#5062 +The Rickety Rope Bridge~ + You carefully begin to walk across the bridge, but suddenly the rope +breaks and you fall... + ... and fall + and fall + and fall + ... to your death on the rocks below. +~ +50 bd 5 +D3 +~ +~ +0 -1 5053 +S +#5063 +The Wind-Swept Ledge~ + Being very careful not to lose your balance, you look around and +find that this canyon is about a half a kilometer deep. To the west is +a dark cave leading under the desert sands and above you a rope bridge +spans the gap. +~ +50 0 5 +D3 +~ +~ +0 -1 5064 +D4 +The desert sands blow down in your face. +~ +~ +0 -1 5052 +S +#5064 +The Cave Mouth~ + The air in here is MUCH cooler than outside. From the west you hear +strange sounds, but can see nothing. The cave slopes down into the +darkness. +~ +50 ad 5 +D1 +Outside is lighter and very windy. +~ +~ +0 -1 5063 +D3 +~ +~ +0 -1 5065 +S +#5065 +The Mysterious Lair~ + You have stumbled upon the home of something. From the treasure +haphazardly strewn about and the rotting carcasses, you would guess +that this is a dragon's lair. As to what type, you can't really say. +The cave narrows out into a tunnel to the west. +~ +50 adgh 5 +D1 +~ +~ +0 -1 5064 +D3 +~ +~ +0 -1 5066 +S +#5066 +A Wide Tunnel~ + This tunnel seems to go on forever into the darkness. You carefully +feel your way along the walls. +~ +50 ad 5 +D1 +~ +~ +0 -1 5065 +D3 +~ +~ +0 -1 5067 +S +#5067 +A Narrower Tunnel~ + The tunnel becomes very narrow and you fight to squeeze your way through. +The floor seems to level off a little. +~ +50 ad 5 +D1 +~ +~ +0 -1 5066 +D2 +~ +~ +0 -1 5068 +S +#5068 +A Narrow Crack~ + This part of the tunnel is the hardest to move through as the walls +move in to meet you. +~ +50 adi 5 +D0 +~ +~ +0 -1 5067 +D3 +~ +~ +0 -1 5069 +S +#5069 +A Small Cavern~ + It is dark and damp and bats hang from the ceiling. A narrow crack is +in the east wall. The floor now slopes upwards. +~ +50 ad 5 +D1 +~ +~ +0 -1 5068 +D3 +~ +~ +0 -1 5070 +S +#5070 +A Small Shaft~ + From within this shaft you can see a narrow hole in the roof just +large enough for one person. Back east is the cavern. +~ +50 ad 5 +D1 +~ +~ +0 -1 5069 +D4 +~ +~ +0 -1 5009 +S +$ diff --git a/lib/world/wld/51.wld b/lib/world/wld/51.wld new file mode 100644 index 0000000..4f39116 --- /dev/null +++ b/lib/world/wld/51.wld @@ -0,0 +1,821 @@ +#5100 +The City Entrance~ + You are at the entrance to a small underground city. A great adamantite +gate lies open to the west allowing entrance into the city. +~ +51 acd 0 +D3 +A huge gate opens to the west allowing entrance into the city. +~ +gate~ +1 -1 5101 +D4 +A passageway opens up into a fairly large cave above. +~ +~ +0 -1 5011 +E +gate~ +A large adamantite gate with giant spider shaped emblems stands here. +~ +S +#5101 +A City Street~ + You walk along a highly ornate street going north-south. A large gate +lies to the east while a building lies to the west. +~ +51 ad 0 +D0 +~ +~ +0 -1 5123 +D1 +~ +gate~ +1 -1 5100 +D2 +~ +~ +0 -1 5102 +D3 +~ +~ +0 -1 5122 +S +#5102 +A City Street~ + You walk along a highly ornate city street going north and west. +~ +51 ad 0 +D0 +~ +~ +0 -1 5101 +D3 +~ +~ +0 -1 5103 +S +#5103 +A City Street~ + You walk along a highly ornate city street going east-west. A large house +stands to the south. +~ +51 ad 0 +D1 +~ +~ +0 -1 5102 +D2 +~ +~ +0 -1 5104 +D3 +~ +~ +0 -1 5106 +S +#5104 +The 3rd House~ + You stand inside the 3rd house of the city; it is fairly well decorated +by drow standards having a few statues, murals and such. A door leads to the +south. +~ +51 ad 0 +D0 +~ +~ +0 -1 5103 +D2 +~ +door~ +1 -1 5105 +S +#5105 +The Throne Room~ + The throne room of the 3rd house is about as decorated as the inner +courtyard except with a blood covered altar in the center of the room. +~ +51 ad 0 +D0 +~ +door~ +1 -1 5104 +S +#5106 +A City Street~ + You walk along a highly ornate city street going east-west. To the north +is a large building. +~ +51 ad 0 +D0 +~ +~ +0 -1 5118 +D1 +~ +~ +0 -1 5103 +D3 +~ +~ +0 -1 5107 +S +#5107 +A City Street~ + You walk along a highly ornate city street leading north and east. To the +south is an extremely large house. +~ +51 ad 0 +D0 +~ +~ +0 -1 5110 +D1 +~ +~ +0 -1 5106 +D2 +~ +~ +0 -1 5108 +S +#5108 +The 2nd House~ + You stand inside the 2nd house of the city. The room is highly decorated +with statues of spiders and murals everywhere. +~ +51 ad 0 +D0 +~ +~ +0 -1 5107 +D3 +~ +door~ +1 -1 5109 +S +#5109 +The Throne Room~ + The throne room of the 2nd house is just a little more decorative than +the inner courtyard having an altar in the center of the room. +~ +51 ad 0 +D1 +~ +door~ +1 -1 5108 +S +#5110 +The Main Gate~ + You are at the entrance to the 1st house of the city. A large gate, +almost as big and elegant as the one at the entrance to the city, stands +here. +~ +51 ad 0 +D0 +~ +~ +0 -1 5114 +D2 +~ +~ +0 -1 5107 +D3 +A large gate lies to the west. +~ +gate~ +1 -1 5111 +S +#5111 +The 1st House~ + You stand in the inner courtyard of the 1st and largest house in the city. +The room is extremely large and decorative. Mural and paintings hang on the +walls depicting some battles and a spider queen. +~ +51 ad 0 +D1 +~ +gate~ +1 -1 5110 +D3 +~ +~ +0 -1 5112 +S +#5112 +The Throne Room~ + The throne room of the 1st house is in one word...awesome. It is so +horrifying it is almost beautiful. +~ +51 ad 0 +D0 +~ +door~ +1 -1 5113 +D1 +~ +~ +0 -1 5111 +S +#5113 +The Main Chamber~ + This is the council chamber for the Matron Mother herself. A huge table +and chairs surrounding it sits in the center of the room. +~ +51 ad 0 +D2 +~ +door~ +1 -1 5112 +S +#5114 +A City Street~ + You walk along a highly ornate city street leading north-south and east. +~ +51 ad 0 +D0 +~ +~ +0 -1 5115 +D1 +~ +~ +0 -1 5117 +D2 +~ +~ +0 -1 5110 +S +#5115 +A City Street~ + You walk along a highly ornate city street leading south. A building is +to the west. +~ +51 ad 0 +D2 +~ +~ +0 -1 5114 +D3 +~ +~ +0 -1 5116 +S +#5116 +The Clerics' Academy~ + This is the most lavish of the academies being that it is for the clerics. +~ +51 ad 0 +D1 +~ +~ +0 -1 5115 +S +#5117 +A City Street~ + You walk along a highly ornate city street going east-west. To the north +is a giant temple. +~ +51 ad 0 +D0 +The entrance to the temple of Lloth is blocked by large ornamental gates. +~ +gates gate~ +1 -1 5119 +D1 +~ +~ +0 -1 5121 +D3 +~ +~ +0 -1 5114 +S +#5118 +The Warriors' Academy~ + This looks more like a barracks than a school. +~ +51 ad 0 +D2 +~ +~ +0 -1 5106 +S +#5119 +The Entrance To The Temple Of Lloth~ + The temple is the largest building in the city. Even its doors are beyond +imagination. Inside of the temple entrance, the walls are made of gold and +adamantite. +~ +51 ad 0 +D2 +~ +gates gate~ +1 -1 5117 +D5 +~ +~ +0 -1 5126 +S +#5120 +The Mages' Academy~ + The Mages' Academy is fairly well decorated and you can see that the +drow prefer magic over physical power greatly. +~ +51 ad 0 +D2 +~ +~ +0 -1 5121 +S +#5121 +A City Street~ + You walk along a highly ornate city street going eastward. To the north +is a building. +~ +51 ad 0 +D0 +~ +~ +0 -1 5120 +D1 +~ +~ +0 -1 5123 +D3 +~ +~ +0 -1 5117 +S +#5122 +The Slave Chamber~ + The room is in shambles. Straw is strewn all about the room as beds for +the unfortunate creatures who have fallen prey to drow imperialism. +~ +51 ad 0 +D1 +~ +~ +0 -1 5101 +S +#5123 +A City Street~ + You walk along a highly ornate city street leading west and south. To +the north is a relatively small house. +~ +51 ad 0 +D0 +~ +gate~ +1 -1 5124 +D2 +~ +~ +0 -1 5101 +D3 +~ +~ +0 -1 5121 +S +#5124 +The 4th House~ + You stand inside the 4th house of the city. Its inner courtyard is rather +dull by drow standards and rather small as well. +~ +51 ad 0 +D1 +~ +~ +0 -1 5125 +D2 +~ +gate~ +1 -1 5123 +S +#5125 +The Throne Room~ + The throne room is basically similar to the inner courtyard in regards +to decor. there is a small throne behind the altar but that is about it. +~ +51 ad 0 +D3 +~ +~ +0 -1 5124 +S +#5126 +The Entrance Hall~ + You stand in the entrance way to the temple which opens up to the north +into a large hallway going east and west. Small statues os spiders line the +entrance way's walls. +~ +51 ad 0 +D0 +~ +~ +0 -1 5127 +D4 +~ +~ +0 -1 5119 +S +#5127 +A Hallway~ + You are in a long hallway lined with adamantite. The walls are engraved +with pictures of elves and spiders. The hallway continues east and west. As +you look down the hallway you can make out one or two figures moving away from +you. +To the north is a obsidian stairway. +~ +51 ad 0 +D0 +~ +~ +0 -1 5135 +D2 +~ +~ +0 -1 5126 +D1 +~ +~ +0 -1 5128 +D3 +~ +~ +0 -1 5131 +S +#5128 +A Long Hallway~ + You are in a long hallway lined with adamantite. The walls are engraved +with pictures of elves and spiders. The hallway continues east and west. As +you look down the hallway you can make out one or two figures moving away from +you. +~ +51 ad 0 +D1 +~ +~ +0 -1 5129 +D3 +~ +~ +0 -1 5127 +S +#5129 +A Long Hallway~ + You are in a long hallway lined with adamantite. The walls are engraved +with pictures of elves and spiders. The hallway continues east and west. As +you look down the hallway you can make out one or two figures moving away from +you. +To the north is a door. +~ +51 ad 0 +D0 +~ +door~ +1 -1 5150 +D1 +~ +~ +0 -1 5130 +D3 +~ +~ +0 -1 5128 +S +#5130 +A Long Hallway~ + You are in a long hallway lined with adamantite. The walls are engraved +with pictures of elves and spiders. The hallway continues east and west. As +you look down the hallway you can make out one or two figures moving away from +you. +~ +51 ad 0 +D1 +~ +~ +0 -1 5134 +D3 +~ +~ +0 -1 5129 +S +#5131 +A Long Hallway~ + You are in a long hallway lined with adamantite. The walls are engraved +with pictures of elves and spiders. The hallway continues east and west. As +you look down the hallway you can make out one or two figures moving away from +you. +~ +51 ad 0 +D1 +~ +~ +0 -1 5127 +D3 +~ +~ +0 -1 5132 +S +#5132 +A Long Hallway~ + You are in a long hallway lined with adamantite. The walls are engraved +with pictures of elves and spiders. The hallway continues east and west. As +you look down the hallway you can make out one or two figures moving away from +you. +To the south is a door. +~ +51 ad 0 +D1 +~ +~ +0 -1 5131 +D2 +~ +door~ +1 -1 5133 +D3 +~ +~ +0 -1 5134 +S +#5133 +The Warriors' Barracks~ + The room is a complete mess. None of the beds are made, clothes and other +items have been left all about the room. Well drow warriors never were known +for neatness. +~ +51 ad 0 +D0 +~ +door~ +1 -1 5131 +S +#5134 +A Long Hallway~ + You are in a long hallway lined with adamantite. The walls are engraved +with pictures of elves and spiders. The hallway continues east and west. As +you look down the hallway you can make out one or two figures moving away from +you. +~ +51 ad 0 +D1 +~ +~ +0 -1 5132 +D3 +~ +~ +0 -1 5130 +S +#5135 +The Grand Stairway~ + You are standing at the bottom of a giant obsidian and adamantite +stairway. The edges are trimmed with gold. +~ +51 ad 0 +D2 +~ +~ +0 -1 5127 +D4 +~ +~ +0 -1 5136 +S +#5136 +The Grand Hallway~ + You are standing in the middle of a grand hallway. The walls are +of the purest adamantite with gold trim. Mosaics line the walls. +~ +51 ad 0 +D0 +~ +~ +0 -1 5138 +D1 +~ +door~ +1 -1 5137 +D5 +~ +~ +0 -1 5135 +S +#5137 +The Mages' Barracks~ + The mage's living quarters is rather clean with the exception of a few +used component containers. It is rather well decorated as well. Cots line +the floor for the mages to sleep on. The only door is to the west. +~ +51 ad 0 +D3 +~ +door~ +1 -1 5136 +S +#5138 +The Grand Hallway~ + You are walking down a grand hallway, heavily decorated with adamantite +and gold. To the north the hall goes down a flight of stairs while a door is +to the west. +~ +51 ad 0 +D2 +~ +~ +0 -1 5136 +D3 +~ +door~ +1 -1 5139 +D5 +~ +~ +0 -1 5140 +S +#5139 +The Clerics' Barracks~ + The bed chamber is brightly decorated with spider shaped statues, murals +and the like. Large beds line the floor making this a comfortable room to +live in. +~ +51 ad 0 +D1 +~ +door~ +1 -1 5138 +S +#5140 +The Grand Stairway~ + You are climbing a set of obsidian stairs surrounded by adamantite walls. +To the north are a set of large golden doors. +~ +51 ad 0 +D0 +~ +doors door golden gold~ +1 -1 5141 +D4 +~ +~ +0 -1 5138 +S +#5141 +The Main Chamber~ + This is the south side of a large auditorium used for services by the +drow priestesses. In the center is a large sacrificial pit and beyond that +is an altar. +~ +51 ad 0 +D1 +~ +~ +0 -1 5142 +D2 +~ +doors door golden gold~ +1 -1 5140 +D3 +~ +~ +0 -1 5144 +S +#5142 +The Eastern Side Of The Main Chamber~ + You are on the eastern side of the chamber overlooking the pit. To the +east is a door while to the north is an altar. +~ +51 ad 0 +D0 +~ +~ +0 -1 5145 +D1 +~ +door~ +1 -1 5146 +D2 +~ +~ +0 -1 5141 +S +#5143 +The Sacrificial Pit~ + As you climb down into the pit, thousands of spiders cover you, tearing +your fragile body to shreds. + +Lloth thanks you for your sacrifice. + +~ +51 bd 0 +S +#5144 +The Western Side Of The Main Chamber~ + You are on the western side of the main chamber overlooking a sacrificial +pit. To the north is an altar. +~ +51 ad 0 +D0 +~ +~ +0 -1 5145 +D2 +~ +~ +0 -1 5141 +S +#5145 +The Altar~ + You are standing in front of a highly and freshly bloodstained altar. +Engraved on the top of the altar is a giant spider with a human head. Looking +down from the altar you see a large sacrificial pit with thousands of swarming +spiders looking for their next meal! +~ +51 ad 0 +D0 +~ +~ +0 -1 5148 +D1 +~ +~ +0 -1 5142 +D3 +~ +~ +0 -1 5144 +D5 +Thousands of spiders eye you with undisguised hunger. +~ +~ +0 -1 5143 +S +#5146 +The Slave Cells~ + This is the main room to the cell chambers for the slaves to be +sacrificed. You notice there are no guards around. +~ +51 ad 0 +D0 +~ +cell~ +1 -1 5147 +D3 +~ +door~ +1 -1 5142 +S +#5147 +The Slave Pen~ + Rotten meat and breads lie about the floor while shackles hang from the +walls. The room reeks of death. You almost become nauseous and decide to +leave the room since you were obviously too late to save the slave. +~ +51 ad 0 +D2 +~ +cell~ +1 -1 5146 +S +#5148 +The Dias~ + You stand upon a dias behind the altar. Above you is a enormous illusion +of a female drow turning into a giant spider and back again. There is a door +to the west. +~ +51 ad 0 +D2 +~ +~ +0 -1 5145 +D3 +~ +door~ +2 5115 5149 +S +#5149 +The Treasury~ + This is obviously only a temporary storage place for the collected +treasure being rather bare. +~ +51 ad 0 +D1 +~ +door~ +2 5115 5148 +S +#5150 +The Weaponsmaster's Chamber~ + This one-person bedchamber is very elegant. The owner must be held in +high regard to get this kind of treatment. +~ +51 ad 0 +D2 +~ +door~ +1 -1 5129 +S +$ diff --git a/lib/world/wld/52.wld b/lib/world/wld/52.wld new file mode 100644 index 0000000..782f9e6 --- /dev/null +++ b/lib/world/wld/52.wld @@ -0,0 +1,1036 @@ +#5200 +The Grand Gate Of Thalos~ + You stand in the archway of a gigantic stone archway. The two +steel gates have been forced open and have rusted in place. A hollow +gust of wind blows by you into the deserted, and seemingly destroyed, +city. +~ +52 0 1 +D1 +The desert sands stretch on for miles and miles. +~ +~ +0 -1 5044 +D3 +You see devastation everywhere. Houses lie in ruin and skeletons litter +the streets. You see strange beasts stalking the shadows. +~ +~ +0 -1 5201 +S +#5201 +Main Street~ + This was once a magnificent street, but now is in total ruin. The +streets are barren and windswept and the silence is unending. To the south +you see a ruined cottage while north leads into a dark back alley. Howls +and screams echo through the deserted city. +~ +52 0 1 +D0 +It seems to be a dark alley. +~ +~ +0 -1 5239 +D1 +The entrance to the city lies this way. +~ +~ +0 -1 5200 +D2 +A ruined shack lies to the south. +~ +~ +0 -1 5235 +D3 +Main Street lies this way. +~ +~ +0 -1 5202 +S +#5202 +Main Street~ + This was once a magnificent street, but now is in total ruin. The +streets are barren and windswept and the silence is unending. On one +side is a collapsed house while on the other is the entrance to a large +ruined mansion. Eerie sounds echo within the mansion. Near the center of +town you see a large domed building, relatively intact. +~ +52 0 1 +D0 +The remnants of a store lie this way. +~ +~ +0 -1 5236 +D1 +~ +~ +0 -1 5201 +D2 +It looks like what used to be the main building in the city. +~ +~ +0 -1 5232 +D3 +A withered garden path lies this way. +~ +~ +0 -1 5203 +S +#5203 +A Garden Path~ + A circular path surrounds a magnificent domed temple in the center +of the city. Flowers have withered away and the once lush trees are bare. +Vines and ivy snake up the sides of the temple and entangle themselves +around your feet. A sudden volley of howls pierces the air. +~ +52 0 1 +D0 +The garden path continues around the building. +~ +~ +0 -1 5204 +D1 +This is the main street leading to the city's entrance. +~ +~ +0 -1 5202 +D2 +The garden path continues around the building. +~ +~ +0 -1 5206 +D3 +Inside the temple, small patches of light shoot through each doorway as +well as a few holes in the ceiling. +~ +~ +0 -1 5250 +S +#5204 +A Garden Path~ + A circular path surrounds a magnificent domed temple in the center +of the city. Flowers have withered away and the once lush trees are bare. +Vines and ivy snake up the sides of the temple and entangle themselves +around your feet. +~ +52 0 1 +D0 +A side street leads of to the northern half of the city. +~ +~ +0 -1 5211 +D1 +The garden path continues around the building. +~ +~ +0 -1 5203 +D2 +Inside the temple, small patches of light shoot through each doorway as +well as a few holes in the ceiling. +~ +~ +0 -1 5250 +D3 +The garden path continues around the building. +~ +~ +0 -1 5205 +S +#5205 +A Garden Path~ + A circular path surrounds a magnificent domed temple in the center +of the city. Flowers have withered away and the once lush trees are bare. +Vines and ivy creep up the sides of the temple and entangle themselves +around your feet. +~ +52 0 1 +D0 +The garden path continues around the building. +~ +~ +0 -1 5204 +D1 +Inside the temple, small patches of light shoot through each doorway as +well as a few cracks in the ceiling. +~ +~ +0 -1 5250 +D2 +The garden path continues around the building. +~ +~ +0 -1 5206 +D3 +What looks like a market place lies this way. +~ +~ +0 -1 5207 +S +#5206 +A Garden Path~ + A circular path surrounds a magnificent domed temple in the center +of the city. Flowers have withered away and the once lush trees are bare. +Vines and ivy creep up the sides of the temple and entangle themselves +around your feet. +~ +52 0 1 +D0 +Inside the temple, small patches of light shoot through each doorway as +well as a few cracks in the ceiling. +~ +~ +0 -1 5250 +D1 +The garden path continues around the building. +~ +~ +0 -1 5203 +D2 +A small side street leads to the southern half of the city. +~ +~ +0 -1 5212 +D3 +The garden path continues around the building. +~ +~ +0 -1 5205 +S +#5207 +The Market Place~ + You stand in the middle of a large square lined on each side with +baskets, carts, and stands of all shapes and sizes. Abandoned, these +little shops still contain some of their goods once sold to a demanding +public. +~ +52 0 1 +D0 +A small table has been toppled over, spilling fine jewellery and gems +onto the ground. +~ +~ +0 -1 5225 +D1 +A small garden path encircles a large domed temple in the center of the +city. +~ +~ +0 -1 5205 +D2 +Rotted remains of fruits and vegetables lie strewn about. +~ +~ +0 -1 5220 +D3 +The market place continues. +~ +~ +0 -1 5208 +S +#5208 +The Market Place~ + You stand at the end of the market square. Stands and carts line +each side, filled with remnants of fine foods and exquisite goods. +~ +52 0 1 +D0 +Tattered carpets and ruined bales of silk sit idly by a run down stand. +~ +~ +0 -1 5222 +D1 +The center of the market lies this way. +~ +~ +0 -1 5207 +D2 +From the massive stench, this must have been a meat and poultry stand. +It lies totally bare. +~ +~ +0 -1 5217 +S +#5209 +A Side Street~ + This small side street leads east and west into back alleys while +to the south you see the temple. The incessant howling tears at your +mind. +~ +52 0 1 +D1 +~ +~ +0 -1 5243 +D2 +~ +~ +0 -1 5210 +D3 +~ +~ +0 -1 5228 +S +#5210 +A Side Street~ + You are in the common section of the city. Ruined buildings made of +clay and stone is all the view has to offer. Most of these homes are +nothing but piles of rubble, but some look almost safe enough to venture +into. + The street continues north and south and buildings line the street. +~ +52 0 1 +D0 +~ +~ +0 -1 5209 +D1 +A small doorway leads into a partially collapsed house. +~ +~ +1 -1 5244 +D2 +~ +~ +0 -1 5211 +D3 +A small clay dwelling sits here. +~ +~ +0 -1 5226 +S +#5211 +A Side Street~ + This small side street leads away from the garden path to the south. +Around you stand large piles or rubble where the houses of commoners +used to be. A lone howl makes you worry greatly about your safety here. +~ +52 0 1 +D0 +~ +~ +0 -1 5210 +D1 +An unusually tall dwelling stands looming over you. +~ +~ +0 -1 5237 +D2 +A garden path circles around the temple. +~ +~ +0 -1 5204 +D3 +Here lies a small stone house with a thatched roof. +~ +~ +0 -1 5227 +S +#5212 +A Side Street~ + This small side street leads south away from the temple into the +business section of town. The destruction that leveled this city was not +biased; these important looking buildings have been almost totally +destroyed. There is a hole in the wall of a very large structure to the +east. +~ +52 0 1 +D0 +A small garden path encircles the temple. +~ +~ +0 -1 5206 +D1 +This possibly could be the city hall. +~ +~ +0 -1 5232 +D2 +~ +~ +0 -1 5213 +D3 +Inside the building you see long pieces of metal, an oven, and some +anvils. +~ +~ +0 -1 5221 +S +#5213 +A Side Street~ + This small side street is lined with the remains of once great +buildings. To the west is a dark, foreboding structure while to the +east lies the entrance to a small tavern. The street continues north +and south. +~ +52 0 1 +D0 +~ +~ +0 -1 5212 +D1 +From the looks of it, this was once a two story abode. The entire second +floor has collapsed leaving a very little part of the bar still free +from debris. +~ +~ +0 -1 5230 +D2 +~ +~ +0 -1 5214 +D3 +This seems to be the only guild house in the entire city. Its dark nature +makes you wonder about its origins. +~ +~ +0 -1 5219 +S +#5214 +A Side Street~ + You are at the end of a long street leading to the center of the city. +A long dark alley runs east and west. +~ +52 0 1 +D0 +~ +~ +0 -1 5213 +D1 +~ +~ +0 -1 5229 +D3 +~ +~ +0 -1 5218 +S +#5215 +Under A Ruined Watchtower~ + You stand at the base of a tall watchtower built to protect the city +from invaders. From the looks of things, it did not do a good job. +~ +52 0 1 +D0 +~ +~ +0 -1 5216 +D1 +~ +~ +0 -1 5218 +D4 +~ +~ +0 -1 5247 +S +#5216 +A Back Alley~ + This alley leads to the rear of what used to be a meat stand. You wince +at the stench. South is one of the city watchtowers. +~ +52 0 1 +D0 +You see the back-side of the market place meat stand. +~ +~ +0 -1 5217 +D2 +A tall watchtower stands a silent vigil over the city. +~ +~ +0 -1 5215 +S +#5217 +The Meat Stand~ + A large stand has been set up here with metal hooks and wooden racks +in the background. Hanging on the hooks are very small scraps of meat +and other game. This stand is relatively empty, and a sudden burst of +howling and screaming makes you realize why this is so. +~ +52 0 1 +D0 +The market place lies this way. +~ +~ +0 -1 5208 +D1 +This is a cart full of rotted vegetables and fruits. +~ +~ +0 -1 5220 +D2 +~ +~ +0 -1 5216 +S +#5218 +A Back Alley~ + A narrow alley leads east to a wider street and west to one of +the city watchtowers. +~ +52 0 1 +D1 +A small side street greets you. +~ +~ +0 -1 5214 +D3 +A tall watchtower stands a silent vigil over the city. +~ +~ +0 -1 5215 +S +#5219 +The Guild House~ + You are standing in what once was this city's ONLY guild house. +Tables and chairs have been smashed and broken weapons lie strewn about +the floor as if some massive battle had taken place here. Draped along +the back wall is a tattered, jet-black banner with the symbol of the +Darkside set upon it. +~ +52 d 1 +D1 +A small side street runs past the building. +~ +~ +0 -1 5213 +S +#5220 +The Produce Stand~ + A large cart sits here carrying rotted fruit and vegetables. Flies +swarm all about what seems to be the last remaining bits of food left +in the city. +~ +52 0 1 +D0 +The market place is deserted. +~ +~ +0 -1 5207 +D3 +A strong stench emanates from the meat stand next to you. +~ +~ +0 -1 5217 +S +#5221 +The Smithy~ + In here you find tools and anvils used to make various weapons +and items. The walls have been stripped clean and only a few incomplete +pieces of armor and weaponry are left. +~ +52 d 1 +D1 +A small side street runs past the building. +~ +~ +0 -1 5212 +S +#5222 +The Tapestry Stand~ + Tattered and torn tapestries and rugs lie heaped in piles. Fancy +robes and various articles of clothing are now just rags. You stare at +the strange piles for a long time until a piercing howl makes you +think these might be beds. +~ +52 0 1 +D0 +~ +~ +0 -1 5223 +D1 +A fine jewellery stand lies in ruin next to you. +~ +~ +0 -1 5225 +D2 +The market place is deserted. +~ +~ +0 -1 5208 +S +#5223 +A Back Alley~ + A narrow alley leads north to one of the city watchtowers while +to the south there lies a market stand full of torn clothes and rugs. +~ +52 0 1 +D0 +A tall watchtower stands a silent vigil over the city. +~ +~ +0 -1 5224 +D2 +~ +~ +0 -1 5222 +S +#5224 +Under The Watchtower~ + You stand under one of the city watchtowers built to protect +the city from invaders. Obviously, it failed. +~ +52 0 1 +D1 +~ +~ +0 -1 5228 +D2 +~ +~ +0 -1 5223 +D4 +Above you looms a tall watchtower. +~ +~ +0 -1 5246 +S +#5225 +The Jewellery Stand~ + A table has been tipped over, spilling fine jewellery and gems +across the market place. Most of these trinkets are battered and +tarnished and few would have any value anymore. +~ +52 0 1 +D2 +The market place is deserted. +~ +~ +0 -1 5207 +D3 +Next to you is a stand full of ruined clothes and rugs. +~ +~ +0 -1 5222 +S +#5226 +A Ruined Clay Dwelling~ + This was once a very plain house with nothing more than a few chairs +and a bed. A cold fireplace suggests that the city has been abandoned +for quite a while. Almost nothing remains of this humble abode. +~ +52 d 1 +D1 +Outside is a small side street. +~ +~ +0 -1 5210 +S +#5227 +A Collapsed Stone Dwelling~ + This small house has completely collapsed upon itself leaving piles +of debris here and there. A few rafters still stand with thatched straw +hanging down and a hot wind gusts through the hollow dwelling. +~ +52 0 1 +D1 +A small side street runs past the house. +~ +~ +0 -1 5211 +S +#5228 +A Back Alley~ + A narrow alley leads west to one of the city watchtowers and east to +a small side street. +~ +52 0 1 +D1 +~ +~ +0 -1 5209 +D3 +~ +~ +0 -1 5224 +S +#5229 +An Abandoned Shop~ + From the outside this place looks like an ordinary pile of rubble, +but inside these cramped quarters you discover what used to be a shop +filled with armor, weapons, and various other goods. A small sign +flutters in the wind. +~ +52 d 1 +D3 +A small side street runs past the shop. +~ +~ +0 -1 5214 +S +#5230 +The Tavern Of The Sun~ + A glorious place in its prime, this tavern now lies in ruin; tables +and chairs are broken scattered, bottles and glasses shattered, and +a small performance stage crushed. Musical instruments and personal +belongings lie under the rubble, but the people they once belonged to are +not with them. Looking up you see that the entire second floor and roof +has fallen in, leaving a gaping hole above. +~ +52 0 1 +D3 +A small side street runs past the tavern. +~ +~ +0 -1 5213 +S +#5231 +The South Wing Of The City Hall~ + You stand in a large room attached to this end of the hallway which +leads back north to the reception area. Pedestals and columns have fallen +and most of the valuable items have been taken, leaving worthless debris. +A few chairs have survived, as well as a large curved desk. To the east +is a vine-covered archway leading out into a private courtyard. +~ +52 d 1 +D0 +The long hallway leads back to the main reception area of the city hall. +~ +~ +0 -1 5232 +D1 +~ +~ +0 -1 5234 +S +#5232 +The City Hall~ + This is the main reception area of Thalos' city hall. The walls have +been charred and scored massively and debris is spread from wall to wall. +A large gaping hole in the west wall allows you to see out to one of +the city's side streets. Obviously no one will be seeing you through today. +Hallways lead south and east. +~ +52 d 1 +D0 +Main street runs past the city hall. +~ +~ +0 -1 5202 +D1 +A hallway leads to the east wing of the city hall. +~ +~ +0 -1 5233 +D2 +A hallway leads to the south wing of the city hall. +~ +~ +0 -1 5231 +D3 +~ +~ +0 -1 5212 +S +#5233 +The East Wing Of The City Hall~ + Here lies the remnants of a fancy office, possibly the mayor's. A few +withered plants and broken pieces of furniture make this place anything +but fancy, though. The only thing remaining intact here is a large +glass cabinet. A long hallway leads west back to the reception area and +an ivy-covered archway leads south into a private courtyard. +~ +52 d 1 +D2 +~ +~ +0 -1 5234 +D3 +~ +~ +0 -1 5232 +S +#5234 +The Private Gardens And Courtyard Of Thalos~ + What a shame that this mass destruction also touched this once +beautiful place. The temple's garden path has nothing on this garden. +Flowers and trees have been smashed into the ground and lawn benches +thrown through walls. A large marble fountain in the center of the +courtyard still stands, though, defying any attempts to destroy its +beauty. Above stands the remnants of one of the watchtowers. Archways +north and west lead back into the city hall. +~ +52 0 1 +D0 +~ +~ +0 -1 5233 +D3 +~ +~ +0 -1 5231 +S +#5235 +A Small Guard House~ + This was once the barracks for Thalos' Cityguards. Now just an empty +shell, this small shack still stands guarding the entrance both to the +city and to the city hall. +~ +52 d 1 +D0 +Main street runs by this building. +~ +~ +0 -1 5201 +S +#5236 +A Collapsed Home~ + All that's left of this house is a few scattered piles of rubble +and a very large blast crater. Obviously someone or something important +was once housed here. A shrieking howl chills your blood. +~ +52 0 1 +D2 +Main street runs past this ruined home. +~ +~ +0 -1 5202 +S +#5237 +A Tall Dwelling~ + This seems to be the tallest structure remaining in the city. At +one time this could have been an inn of some sort, but now it is just +a mess. The back wall as been completely knocked down revealing an +entrance into another building through yet another collapsed wall. +Between the two buildings are a few blast craters and boulders. An old +set of wooden steps leads up to a creaking second floor. +~ +52 d 1 +D1 +~ +~ +0 -1 5238 +D3 +A small side street winds past the dwelling. +~ +~ +0 -1 5211 +D4 +The stairs and even the entire second floor itself looks very unsafe +for travel. Gusts of wind make them creak and shudder. +~ +~ +0 -1 5245 +S +#5238 +A Small Shack~ + This cramped dwelling could not have housed more than one person. Now +with the back wall missing, it could hold many more. Looking around you +find broken shelves and workbenches with various vials and pouches spilling +contents all across the floor. This was possibly the magic shop of the +city. The doorway to the east is blocked, making the only exit back west. +~ +52 d 1 +D3 +~ +~ +0 -1 5237 +S +#5239 +A Back Alley~ + A narrow back alley goes south to main street and north towards +a watchtower. A mass of howls catches you of guard. +~ +52 0 1 +D0 +~ +~ +0 -1 5240 +D2 +Main street runs past here. +~ +~ +0 -1 5201 +S +#5240 +A Back Alley~ + A narrow back alley leads north to one of the city watchtowers +and south towards main street. To the west is a doorway to a small +house blocked by debris. +~ +52 0 1 +D0 +A tall watchtower stands a silent vigil over the city. +~ +~ +0 -1 5241 +D2 +~ +~ +0 -1 5239 +S +#5241 +Under A Watchtower~ + You stand under a tall watchtower. Narrow back alleys lead west and +south and a very weak looking ladder leads up into the tower. Above you, +you hear the screams of tens of starving lamias! Beware! +~ +52 0 1 +D2 +~ +~ +0 -1 5240 +D3 +~ +~ +0 -1 5243 +D4 +Winds howl high above your head in the tower above. You hear the screams +of tens of howling lamias above you! +~ +~ +0 -1 5248 +S +#5242 +A Bath House~ + This was once the bath house for the commoners of the city. Hot +steamy water still wells up from a hole in the floor. Obviously there +is a hot spring located under the city (making the decision to put +a city here seem much more reasonable). Closer inspection of the water +yields a dead body floating around in it, skin melted away from months +of floating in there. The west wall has collapsed revealing another +collapsed house. +~ +52 d 1 +D0 +~ +~ +0 -1 5243 +D3 +The wall has collapsed on the adjoining house, creating a new opening +in it. +~ +~ +0 -1 5244 +S +#5243 +A Back Alley~ + A narrow back alley leads west to a small side street and east to one +of the city watchtowers. Great amounts of steam issue forth from the +building to the south. +~ +52 0 1 +D1 +A watchtower stands a silent vigil over the city. +~ +~ +0 -1 5241 +D2 +~ +~ +0 -1 5242 +D3 +A side street runs by here. +~ +~ +0 -1 5209 +S +#5244 +An Upright House~ + This home is practically the only one around that is still standing. +Except for the massive hole in the east wall, everything else looks +intact, including the windows. Great amounts of steam issue forth from +the hole in the east wall. +~ +52 d 1 +D1 +~ +~ +0 -1 5242 +D3 +A small side street runs past the house. +~ +~ +0 -1 5210 +S +#5245 +On The Second Floor~ + The minute you step off onto this floor you realize it was a mistake. +The old rotted floorboards suddenly give way and you fall down, impaling +yourself on jagged boards below. +~ +52 bd 1 +S +#5246 +The North-West Watchtower~ + You stand atop one of the city watchtowers. The view is magnificent +from here and you can see all the way to the western mountains. No wonder +this place stood for so long. +~ +52 0 1 +D5 +The city lies below. +~ +~ +0 -1 5224 +S +#5247 +The South-West Watchtower~ + You stand atop one of the city watchtowers. The view is magnificent +from here and you can see all the way to the western mountains. To the +south the desert stretches to the horizon. No wonder this place stood +for so long. +~ +52 0 1 +D5 +The city lies below. +~ +~ +0 -1 5215 +S +#5248 +The North-East Watchtower~ + You stand atop one of the city watchtowers. The view is magnificent +from here and you the desert sand stretches to the horizon. No wonder +this place stood for so long. The ladder leading down seems rotted in +some places! +~ +52 c 1 +D5 +The city lies below... far, far below. +~ +~ +0 -1 5249 +S +#5249 +Under A Watchtower~ + As you descend the ladder, the rotted rungs break, sending you quickly +to your demise far below on the city street. Splat. +~ +52 bd 1 +S +#5250 +The Temple Of Thalos~ + You stand within one of the most holy places in the realm. This +stunning domed temple once housed the city's worshipers en masse. +Unfortunately, it succumbed to the destruction brought on this city. +Long benches lie toppled and the altar desecrated. Large chunks of stone +have fallen from the walls and roof, sending sunlight streaming in on +you. A few books lie about, conveying to you a holy message in a +strange tongue. + Wind gusts through the four archways and howls and screams can be +heard from all parts of the city. +~ +52 cdh 1 +D0 +A side street leads to the northern half of the city. +~ +~ +0 -1 5204 +D1 +Main street leads out to the main gate of the city. +~ +~ +0 -1 5203 +D2 +A side street leads to the southern part of the city. +~ +~ +0 -1 5206 +D3 +The market place lies this way. +~ +~ +0 -1 5205 +S +$ diff --git a/lib/world/wld/53.wld b/lib/world/wld/53.wld new file mode 100644 index 0000000..4620e1a --- /dev/null +++ b/lib/world/wld/53.wld @@ -0,0 +1,1465 @@ +#5300 +The Great Eastern Desert~ + A vast desert stretches for miles, the sands constantly shifting around +you. Rising out of the sand to the north you see a mighty pyramid. +~ +53 0 2 +D0 +The sands of the desert continue onward towards the pyramid. +~ +~ +0 -1 5301 +D1 +Sand as far as the eye can see. +~ +~ +0 -1 5040 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5050 +D3 +Sand as far as the eye can see. +~ +~ +0 -1 5035 +E +pyramid~ +The massive pyramid rises out of the sand, a monument to long-dead pharoahs. +~ +S +#5301 +At The Base Of The Pyramid~ + The mighty pyramid towers above you out of the hot desert sands, made +from huge blocks of stone that have been coated over with a rough sandy +plaster-like substance. The face of the pyramid is steep, but you think +you might be able to climb it. +~ +53 0 2 +D2 +Sand as far as the eye can see. +~ +~ +0 -1 5300 +D4 +The steep slope of the pyramid rises up before you. +~ +~ +0 -1 5302 +E +pyramid~ +You wonder how anyone could have built such a massive thing out in this +heat. +~ +S +#5302 +Climbing The Great Pyramid~ + Hot air rises off the sides of the pyramid, and the wind chokes you with +a flurry of sand and dust. So far you have made it halfway up the side. The +walls of the pyramid are quite steep. +~ +53 0 5 +D0 +If you are daring you could try to skirt around to the northern side. +~ +~ +0 -1 5303 +D2 +If you are daring you could try to skirt around to the southern side. +~ +~ +0 -1 5304 +D4 +It looks too dangerous to try to climb any higher. +~ +~ +0 -1 5307 +D5 +Far below you are the burning sands of the desert. +~ +~ +0 -1 5301 +E +pyramid~ +You wonder how anyone could have built such a massive thing out in this +heat. +~ +S +#5303 +Climbing The Great Pyramid~ + Hot air rises off the sides of the pyramid, and the wind chokes you with +a flurry of sand and dust. The walls of the pyramid are quite steep, and +you are having trouble keeping from sliding down into the sands below. +~ +53 0 5 +D1 +If you are daring you could try to skirt around to the eastern side. +~ +~ +0 -1 5305 +D3 +If you are daring you could try to skirt around to the western side. +~ +~ +0 -1 5302 +D4 +It looks too dangerous to try to climb any higher. +~ +~ +0 -1 5307 +D5 +This side of the pyramid has a dangerous drop before the sandy floor. +~ +~ +0 -1 5307 +E +pyramid~ +You wonder how anyone could have built such a massive thing out in this +heat. +~ +S +#5304 +Climbing The Great Pyramid~ + Hot air rises off the sides of the pyramid, and the wind chokes you with +a flurry of sand and dust. The walls of the pyramid are quite steep, and +you are having trouble keeping from sliding down into the sands below. +~ +53 0 5 +D1 +If you are daring you could try to skirt around to the eastern side. +~ +~ +0 -1 5305 +D3 +If you are daring you could try to skirt around to the western side. +~ +~ +0 -1 5302 +D4 +It looks too dangerous to try to climb any higher. +~ +~ +0 -1 5307 +D5 +This side of the pyramid has a dangerous drop before the sandy floor. +~ +~ +0 -1 5307 +E +pyramid~ +You wonder how anyone could have built such a massive thing out in this +heat. +~ +S +#5305 +Climbing The Great Pyramid~ + Here on the eastern side of the pyramid there is a little more shelter +from the heat and wind. The stone side is not nearly so slippery smooth +from the ravages of time, and you think you may be able to even reach the +top from here. +~ +53 0 5 +D0 +If you are daring you could try to skirt around to the northern side. +~ +~ +0 -1 5303 +D2 +If you are daring you could try to skirt around to the southern side. +~ +~ +0 -1 5304 +D4 +You see the apex of the pyramid many yards above you. +~ +~ +0 -1 5306 +D5 +This side of the pyramid has a dangerous drop before the sandy floor. +~ +~ +0 -1 5307 +E +pyramid~ +You wonder how anyone could have built such a massive thing out in this +heat. +~ +S +#5306 +The Apex Of The Great Pyramid~ + Bathed in sweat, you have managed to reach the summit of the great +pyramid. The four sides of the pyramid slope sharply down into the +hot sands in all four cardinal directions. +A plaque has been set into the sandy stones beneath your feet. +~ +53 0 1 +D0 +The north side of the pyramid slopes down into the sands. +It looks really dangerous. I wouldn't go that way. +~ +~ +0 -1 5307 +D1 +The east side of the pyramid slopes down into the sands. +~ +~ +0 -1 5305 +D2 +The south side of the pyramid slopes down into the sands. +It looks really dangerous. I wouldn't go that way. +~ +~ +0 -1 5307 +D3 +The west side of the pyramid slopes down into the sands. +It looks really dangerous. I wouldn't go that way. +~ +~ +0 -1 5307 +D5 +You see some sandy stones pressed closely together to form a hard surface. +~ +stones~ +1 -1 5308 +E +stones~ +As you look closer you can make out a crack in the center of the stones +beneath your feet. With some effort you might be able to lift that +section up and get inside! +~ +E +plaque~ +The plaque reads: + + The Great Pyramid + + Created by the Andersen work crew. + +~ +S +#5307 +On The Dangerous Stones~ + Here the elements have carved away at the sides of the pyramid quite a +bit. You aren't so sure of your footing anymore... + +Suddenly the wind picks up, and you lose your balance! +You tumble down the side of the pyramid, and fall to your death! + +SPLAT. + +Ouch. +~ +53 bd 0 +S +#5308 +A Ladder~ + You are climbing an ancient ladder that leads down into the depths of +the pyramid. The air around is thick with layers of dust and a strange +musty smell. Above you you see tiny beams of light coming through the +stones of the ceiling. +~ +53 cd 0 +D4 +You see the sandy stones of the ceiling. +~ +stones~ +1 -1 5306 +D5 +You see a small dusty chamber. +~ +~ +0 -1 5309 +E +stones~ +As you look closer you can make out a crack in the center of the stones +above your head. With some effort you might be able to lift that section +up and get outside! +~ +S +#5309 +A Musty Chamber~ + You are standing in a dank, musty chamber just inside the pyramid. +Footprints and other strange marks are set into the dusty floor here. +It would seem that some of the tenants of this monument are still alive. +Exits lead in all directions. The door to the west is covered with +inscriptions. +~ +53 d 0 +D0 +You see a tiny crawlway raised about three feet off the ground. +~ +~ +0 -1 5312 +D1 +A dust-covered hallway leads off to the east. +~ +~ +0 -1 5339 +D2 +You see a small crack in the wall through which you might be able to slide. +~ +~ +0 -1 5324 +D3 +You see a large stone door, covered in sigils and hieroglyphs. +~ +door stone~ +1 -1 5310 +D4 +A small rickety ladder leads up. +~ +~ +0 -1 5308 +E +door stone~ +The stone door is covered in strange inscriptions and hieroglyphs that warn +you not to proceed any further. +~ +E +sigils hieroglyphs inscriptions writing~ +You cannot understand the strange glyphs that cover the door, but most of +them seem to depict scenes of fire and massive creatures of apparently +tremendous strength. You have a feeling that the glyphs are serving as a +warning. +~ +S +#5310 +The Fire Pool~ + This room is dominated by a massive raised pool that is filled with +not water but flames of intense heat. The multicoloured flames lick out +at you, searching for things to burn. The pool proceeds to the east into +a small chamber. +~ +53 cd 0 +D1 +You see a large stone door. +~ +door stone~ +1 -1 5309 +D3 +You see a small chamber filled with fire. +~ +~ +0 -1 5311 +S +#5311 +The Chamber Of The Efreet~ + You make your way across the fire pool, and into a small stone chamber. +Here the flames are nearly as high as your head, singeing your face and +evaporating your sweat instantaneously. +~ +53 d 7 +D1 +The pool of fire ends to the east. +~ +~ +0 -1 5310 +S +#5312 +A Tiny Crawlway~ + You have to go down onto your hands and knees to fit inside this tiny +space. The crawlway is thick with sand and dust, and markings of the +passage of other creatures. +~ +53 ad 0 +D0 +The crawlway continues to the north. +~ +~ +0 -1 5313 +D2 +The crawlway ends to the south in a musty chamber. +~ +~ +0 -1 5309 +D4 +A small hole above your head leads into a dank chamber. +~ +~ +0 -1 5337 +S +#5313 +A Tiny Crawlway~ + You are on your hands and knees, inside a small crawlway that winds +through the inside of the pyramid. The crawlway is thick with sand, dust, +and markings of the passage of other creatures. +~ +53 ad 0 +D2 +The crawlway continues to the south. +~ +~ +0 -1 5312 +D3 +The crawlway continues to the west. +~ +~ +0 -1 5314 +S +#5314 +A Tiny Crawlway~ + You are on your hands and knees, inside a small crawlway that winds +through the inside of the pyramid. The crawlway is thick with sand, dust, +and markings of the passage of other creatures. +~ +53 ad 0 +D1 +The crawlway continues to the east. +~ +~ +0 -1 5313 +D3 +The crawlway gets a little tighter to the west. +~ +~ +0 -1 5315 +S +#5315 +A Tightening In The Crawlway~ + Here you are forced to slide on your belly through a particularly tight +section of the crawlway, as the stones of the pyramid close together about +you. Below you is a small, slippery-looking hole that plummets into +blackness. +~ +53 ad 0 +D1 +The crawlway gets a little larger to the east. +~ +~ +0 -1 5314 +D2 +The crawlway continues to diminish in size to the south. +~ +~ +0 -1 5316 +D5 +The hole looks very slippery and very dark. +~ +~ +0 -1 5317 +S +#5316 +The Crawlway's End~ + The crawlway shrinks away to nothing as the sandy stones of the pyramid +close together into a space through which only a snake could fit. There is +barely enough space to turn around and make your way back through the tiny +crawlway to the north. +~ +53 ad 0 +D0 +The crawlway gets a little larger to the north. +~ +~ +0 -1 5315 +S +#5317 +A Slippery Hole~ + The sides of this hole are slippery-smooth. You lower yourself in, and +proceed to move downward... when suddenly you lose your purchase! + +You fall for what seems like an eternity, and smash into the stones below... + + + +Under The Hole + You are in a small chamber underneath the slippery hole, far below +the pyramid now. The floor is strewn with bones. To the south is a +small rocky crevasse. +~ +53 acd 0 +D2 +You see a rocky crevasse that proceeds deep under the pyramid. +~ +~ +0 -1 5319 +D4 +The hole looks far too slippery to climb back up. +~ +~ +0 -1 -1 +E +bones~ +The bones have whitened and cracked in the dry air, apparently the remains +of adventurers, thieves, and creatures that did not survive the fall. +~ +S +#5318 +Under The Hole~ + You are in a small chamber underneath the slippery hole, far below +the pyramid now. The floor is strewn with bones. To the south is a +small rocky crevasse. +~ +53 ad 0 +D2 +You see a rocky crevasse that proceeds deep under the pyramid. +~ +~ +0 -1 5319 +D4 +The hole looks far too slippery to climb back up. +~ +~ +0 -1 -1 +E +bones~ +The bones have whitened and cracked in the dry air, apparently the remains +of adventurers, thieves, and creatures that did not survive the fall. +~ +S +#5319 +A Rough Crevasse~ + You are now exploring deep within a strange rocky crevasse that plunges +down into the rock on which the pyramid was constructed. To the south you +see the flickering light of a fire, and the crevasse proceeds downward. +~ +53 d 0 +D0 +You see a small stone chamber littered with bones. +~ +~ +0 -1 5318 +D2 +You see the flickering light of a small fire. +~ +~ +0 -1 5320 +D5 +The crevasse continues downward into total darkness. +~ +~ +0 -1 5321 +E +rough~ +As you look through the rough terrain, your eyes catch a small glint of light! +~ +S +#5320 +A Small Fire~ + Here a small fire burns in a nook in the rocks, providing some warmth and +comforting light in the cold, dark, dry air. +Standing here is a strange-looking old man, who stares at you balefully. +~ +53 d 0 +D0 +You see a massive crevasse that plunges into darkness. +~ +~ +0 -1 5319 +E +man old~ +The old man looks like he has been trapped down here far too long, and +has begun to lose his mind. He moves about slowly, cackling to himself. + +He turns to you and shouts, 'nope measse! nope measse!', then turns +back and stares into the fire. + +'What a strange person,' you think to yourself. + +~ +S +#5321 +Down The Crevasse~ + The crevasse proceeds downward into the dark depths of the earth. +The air about you is now cold and quite dry, and your light source +gutters in a cool breeze that wafts up from below. +~ +53 ad 0 +D4 +It is too dark for you to see any further along the crevasse. +~ +~ +0 -1 5319 +D5 +It is too dark for you to see any further along the crevasse. +~ +~ +0 -1 5322 +S +#5322 +At The Crevasse's End~ + Here the crevasse comes to an abrupt end. A chilling wind howls +at your face from a black shape to the south, but the light from your +source is too dim to see exactly what it is. +~ +53 ad 0 +D2 +You see a strange-looking black shape. +~ +sesame~ +2 5323 5323 +D4 +It is too dark for you to see anything along the crevasse. +~ +~ +0 -1 5321 +E +black shape~ +Wind howls about your ears like the roar of a tiger. As your eyes +adjust to the light the shape to the south almost seems to take the +form of a massive animal head. +~ +E +tiger head animal sesame~ +You are now certain that the wind is the cold breath of some unearthly +giant animal, whose voice rumbles lowly on the breeze, and whose +massive jaws could easily swallow you whole. + +You move closer for a better look, when suddenly a pair of eyes flashes. +A cold voice echoes: 'SEEK YE THE DIAMOND... IN THE ROUGH...' + +... Then all is silent. +~ +S +#5323 +The Vault Of The Lamp~ + The jaws of the massive stone tiger part wide to reveal a great vault. +An arched ceiling lies far above your head... and all about you is a low +guttural rumbling noise and a chill wind. +Giant heaps of ancient treasure, gold coins, and valuables surround you +on all sides. +~ +53 ad 0 +D0 +Through the jaws of the tiger you see the blackness of the crevasse. +~ +~ +2 5323 5322 +E +treasure gold coins valuables~ +You reach for some of the tasty goodies, when you hear a loud rumbling +sound and see a bright flash of light... + +Then the words: 'TAKE ONLY THE LAMP... TOUCH NOTHING ELSE.' + +... All is silent once again. +~ +S +#5324 +A Crack In The Wall~ + You exhale, and squeeze yourself into the narrow crack in the wall. +Dust fills your eyes as you disturb it, and chunks of mortar and stone +mixed with a touch of sand fall on you as you scrape your way through. +~ +53 ad 0 +D0 +You see a musty chamber. +~ +~ +0 -1 5309 +D2 +You see a tomb. +~ +~ +0 -1 5325 +S +#5325 +A Looted Tomb~ + The floor of this small tomb is littered with the lids of +smashed sarcophagi, bits of treasure dropped by thieves and +looters, and corpses pulled from their resting places. +~ +53 d 0 +D0 +You see a small crack in the wall through which you might be able to slide. +~ +~ +0 -1 5324 +D1 +To the east is another tomb. +~ +~ +0 -1 5333 +D3 +To the west is another tomb. +~ +~ +0 -1 5326 +S +#5326 +A Demolished Tomb~ + This tomb has been utterly destroyed by thieves and looters in search of +the treasures of the pharoahs. Nothing of interest remains in this room, +except a large stone coffin that leans against the western wall. +~ +53 d 0 +D1 +To the east is another tomb. +~ +~ +0 -1 5325 +D3 +You see a large stone coffin. +~ +coffin lid~ +2 5312 5327 +E +coffin lid~ +The coffin is sculpted into the form of a man, standing several heads above +you, and clad in the garments of pharoahs. It has apparently been untouched +by the ravages of time and the activities of looters. Several markings on the +side indicate spots where unsuccessful attempts were made to open the coffin. + +You can't see any way to open it. +~ +E +man garments pharoah~ +As you look closer at the figure sculpted into the stone coffin you notice a +small marking carved into its chest. It looks like a scarab or small beetle +would fit into the small space, if properly sized. + +Hmmm. +~ +S +#5327 +A Stairway~ + You stand now at the head of a stairway that goes down into darkness. +The steps and walls are smooth sandy stone, covered with a thick layer +of dust. Some inscriptions are carved into the wall here. +~ +53 ad 0 +D1 +You see the backside of the coffin lid, featureless stone. +~ +coffin lid~ +2 -1 5326 +D5 +It is too dark to see down the stairway. +~ +~ +0 -1 5328 +E +inscriptions~ +You blow dust away from the inscriptions to read: + +Beware the curse of the mummy. + +~ +E +coffin lid~ +On this side the coffin lid is smooth featureless stone. +~ +S +#5328 +A Stairway~ + You are on a stairway that disappears into darkness in both directions. +The smooth, uneven steps of the stairway have not been travelled in what +appears to be centuries. +~ +53 ad 0 +D4 +It is too dark to see up the stairway. +~ +~ +0 -1 5327 +D5 +It is too dark to see down the stairway. +~ +~ +0 -1 5329 +S +#5329 +A Stairway~ + You stand now at the base of the uneven stairway. The walls, floor, +and ceiling of this small landing are covered with strange hieroglyphics. +~ +53 ad 0 +D2 +You see a seam in the stone wall. +~ +stone~ +1 -1 5330 +D4 +It is too dark to see up the stairway. +~ +~ +0 -1 5328 +E +walls floor ceiling hieroglyphics~ +The hieroglyphics are covered with a thick layer of dust. You clear the +dust away with your hand, and find that you cannot comprehend them. +~ +S +#5330 +The Ancient Hall~ + Here the air is deathly still, motes of dust thickly obscuring your +vision. Several stone statues line the walls of the hall, depicting the +gods of an ancient society. Strange glyphs and sigils cover the walls, a +peculiar pictorial form of written language that you don't understand. + Some steps lead to a raised dais to the south. +~ +53 ad 0 +D0 +You see a seam in the stone wall. +~ +stone~ +1 -1 5329 +D2 +You see a small raised dais. +~ +~ +0 -1 5331 +E +writings glyphs sigils hieroglyphics symbols~ +You don't understand the meaning of these symbols. +~ +S +#5331 +A Raised Dais~ + You are at the southern end of the ancient hall, the dust and darkness +absorbing your light so that you cannot see past the steps of the dais. +A low pedestal rests here. You see something written into the face of it. +~ +53 ad 0 +D0 +You cannot see past the steps of the dais. +~ +~ +0 -1 5330 +D5 +You see a seam in the stone floor. +~ +tomb~ +1 -1 5332 +E +pedestal writings~ +The writings are covered in sand and worn nearly away by the passage +of time: 'I am Ramses the Damned, once counselor and aide to the mightiest +of pharoahs and queens of this land. Much time has passed since I last +walked the earth. Disturb my rest at your peril.' +~ +S +#5332 +The Tomb Of Ramses~ + You stand in an empty tomb, a cubicle no more then ten feet to a side. +~ +53 ad 0 +D4 +That leads back the way you came. +~ +tomb~ +1 -1 5331 +S +#5333 +A Ransacked Tomb~ + This tomb has been completely ransacked and destroyed by the actions +of pyramid thieves and looters. The floor is littered with junk. +~ +53 d 0 +D1 +To the east is a low-ceilinged tunnel. +~ +~ +0 -1 5334 +D3 +To the west is another tomb. +~ +~ +0 -1 5325 +S +#5334 +A Tunnel~ + The low-ceilinged tunnel runs east-west. +~ +53 ad 0 +D1 +You cannot see into the darkness of the low tunnel. +~ +~ +0 -1 5335 +D3 +You see a tomb. +~ +~ +0 -1 5333 +S +#5335 +A Fork In The Tunnel~ + Here the tunnel forks off through a gaping hole down in the +southern wall, continuing onward to the east and west as well. +~ +53 ad 0 +D1 +You cannot see into the darkness of the low tunnel. +~ +~ +0 -1 5336 +D2 +The hole is low, at the floor of the southern wall. +~ +~ +0 -1 -1 +D3 +You cannot see into the darkness of the low tunnel. +~ +~ +0 -1 5334 +D5 +Through the hole you see rubble and sand. +~ +~ +0 -1 5346 +E +hole~ +The hole is low, at the floor of the southern wall. +~ +S +#5336 +A Tunnel~ + The low-ceilinged tunnel makes a turn to the west and ends +to the north as it spills out into a dusty hallway. +~ +53 ad 0 +D0 +The mouth of the tunnel is stone that has been torn away by looters. +~ +~ +0 -1 5342 +D3 +You cannot see into the darkness of the low tunnel. +~ +~ +0 -1 5335 +S +#5337 +A Dank Chamber~ + This chamber has a dank, dusty, musty smell to it. Small footprints +in the dust betray the recent passage of some sort of creatures. A hole +in the floor lies to the west and a stairway is to the east. +~ +53 d 0 +D1 +You see a spiral stone stairway. +~ +~ +0 -1 5338 +D3 +You see only blackness through the hole in the floor. +~ +~ +0 -1 5312 +S +#5338 +A Spiral Stairway~ + Some dusty, broken stone stairs here spiral slowly in a constricted +space down towards a dusty hallway. +~ +53 d 0 +D4 +The stairs spiral up into a dank chamber. +~ +~ +0 -1 5337 +D5 +The stairs spiral down into a dusty hallway. +~ +~ +0 -1 5341 +S +#5339 +A Dust-Covered Hallway~ + This hallway is covered with dust that has accumulated over the +centuries that the pyramid has stood. Small markings and footprints +in the dust betray the recent passage of others -- perhaps thieves? +~ +53 d 0 +D1 +The hallway proceeds to the east towards a strange smell. +~ +~ +0 -1 5340 +D3 +The hallway proceeds towards the west towards a musty smell. +~ +~ +0 -1 5309 +S +#5340 +A Smelly Chamber~ + This small chamber has a sickly putrescent smell to it, the +smell of formaldehyde and other ointments used to preserve the +corpses of those who died ages ago. +~ +53 d 0 +D1 +You see a dusty hallway. +~ +~ +0 -1 5341 +D3 +You a dusty hallway. +~ +~ +0 -1 5339 +S +#5341 +A Dust-Covered Hallway~ + This hallway is covered with a thick, choking dust that rises +up to obscure your light source and sting your eyes. Small marks +and footprints in the dust betray the recent passage of others. +~ +53 d 0 +D1 +The hallway turns to the north. +~ +~ +0 -1 5342 +D3 +You smell something peculiar over there. +~ +~ +0 -1 5340 +D4 +A tightly spiralling stone stairway leads up. +~ +~ +0 -1 5338 +S +#5342 +A Turn In The Hallway~ + You are standing in an elbow turn in a dust-covered stone hallway, +that dead ends to the north and continues on to the west. To the south +the stones of the pyramid have been torn asunder by thieves, making +a low-ceilinged tunnel. +~ +53 d 0 +D0 +The hallway ends to the north. +~ +~ +0 -1 5343 +D2 +The tunnel is dark. +~ +~ +0 -1 5336 +D3 +The dust-covered hallway continues to the west. +~ +~ +0 -1 5341 +S +#5343 +A Dead End~ + The dust-covered hallway has come to an abrupt end at a stony, +featureless wall. Here and there are signs of the recent passage +of others in the dust. +~ +53 d 0 +D2 +The dusty hall continues to the south. +~ +~ +0 -1 5342 +D5 +The floor is quite dusty, and made of stone. You see some cracks. +~ +floor~ +1 -1 5344 +E +cracks~ +The cracks look like you might be able to pull away some pieces of +the floor, perhaps even fit your body through the space you make. +~ +S +#5344 +The Tomb Entrance~ + You are in a small, dark chamber that has stood undisturbed for +many years. To the north stands a massive stone tomb, which is +covered in hieroglyphics and gold-lined carvings that mark it as the +final resting place of the mighty pharoahs of this land. +~ +53 acd 0 +D0 +You see the tomb of the pharoahs. +~ +tomb~ +1 -1 5345 +D4 +The stone ceiling has some cracks in it, through which a dim light streams. +~ +ceiling~ +1 -1 5343 +E +tomb~ +The tomb looks like it has stood for many years, much like the pyramid +which encloses it. It is covered in small hieroglyphics. +~ +E +hieroglyphics carvings~ +The markings indicate that this tomb is indeed the tomb of the greatest +pharoahs of the ancient civilization that built this massive pyramid. +~ +S +#5345 +The Tomb Of The Pharoahs~ + Great golden sarcophogai line the walls of this massive tomb. It has +withstood the passage of time intact, untouched by the hands of thieves +and looters. The treasures taken by the pharoahs to their graves still +lie before your feet. +~ +53 ad 0 +D2 +That way leads back out of the tomb. +~ +tomb~ +1 -1 5344 +E +treasures~ +The treasures are dusty and fragile, but still seem quite valuable. +You decide not to take them out of respect for the ancient dead. +~ +S +#5346 +A Rubble-Strewn Hallway~ + This hallway formerly had a beautiful arch to the ceiling, now +collapsed under the weight of the slowly settling stones of the +pyramid. Now, a massive pile of rubble leads up into a hole high +in the northern portion of the hallway. To the south, through the +rubble and fallen stones you see a sandstone crypt. +~ +53 acd 0 +D2 +You see a sandstone crypt. +~ +~ +0 -1 5347 +D4 +From here you see only darkness. +~ +~ +0 -1 5335 +S +#5347 +A Sandstone Crypt~ + This small crypt is lit by a hole in the wall to the south, through +which sand pours from the desert outside. A hot wind blows in from the +desert, drying your skin instantly. To the east and north the arched +hallway continues. +~ +53 d 0 +D0 +The arched hallway collapses into rubble shortly to the north. +~ +~ +0 -1 5346 +D1 +You see a beautifully arched hallway. +~ +~ +0 -1 5348 +D2 +You see a lot of sand. +~ +~ +0 -1 5353 +S +#5348 +An Arched Hall~ + This hallway has a beautiful arch to it, formed painstakingly and +exquisitely out of the sandy stones of the pyramid. The dust that +covers most of the rest of the pyramid interior is not present here, +scoured away by the blowing of the desert winds that howl about +your ears. +~ +53 d 0 +D1 +The arched hall proceeds to the east, making a sharp southward turn. +~ +~ +0 -1 5349 +D3 +The arched hall proceeds into a sandstone crypt. +~ +~ +0 -1 5347 +S +#5349 +An Arched Hall~ + This hallway has a beautiful arch to it, formed painstakingly and +exquisitely out of the sandy stones of the pyramid. To the east is +a small, golden-coloured crypt, and the hall proceeds to the south +and north. +~ +53 d 0 +D0 +The arched hall proceeds to the north, making a sharp westward turn. +~ +~ +0 -1 5348 +D1 +A small golden crypt lies to the east. +~ +~ +0 -1 5350 +D2 +The arched hall proceeds to the south. +~ +~ +0 -1 5351 +S +#5350 +A Golden Crypt~ + You stand inside a small crypt with walls and ceiling made of +golden bricks that obscure the large sandy stones of the pyramid. +Small rugs and tapestries are scattered about the floor here, and +they appear to have been used recently. +~ +53 d 0 +D3 +You see an arched hall. +~ +~ +0 -1 5349 +E +rug rugs tapestry tapestries~ +The rugs and tapestries are very fine and worn with age, their colors +now faded. They depict scenes of life in an ancient desert city. +~ +E +bricks~ +The small golden bricks are very smooth and also quite soft. +~ +S +#5351 +An Arched Hall~ + This hallway has a beautiful arch to it, formed painstakingly and +exquisitely out of the sandy stones of the pyramid. The arched +hall proceeds to the north and ends to the south in a small vault. +~ +53 d 0 +D0 +The arched hall continues to the north. +~ +~ +0 -1 5349 +D2 +You see a small vault from which a shining light issues. +~ +~ +0 -1 5352 +S +#5352 +A Shining Vault~ + The stones of the pyramid here take on a strange, twinkling quality, +almost seeming to shine with an internal light. As you look closer you +see tiny glass-like glittery particles within the stones, that reflect +the light from your light source so perfectly that they seem to shine. +~ +53 d 0 +D0 +You see a hall with a beautifully arched ceiling. +~ +~ +0 -1 5351 +E +particles glass~ +The glassy particles reflect and refract your light source in a myriad +of dazzling colours that dance across your eyes and make you giggle. +~ +S +#5353 +A Massive Sand Dune~ + You stand now on a massive sand dune on the southern side of +the pyramid. At the foot of the sand dune to the north you see a +small hole where the stones of the pyramid have collapsed. Not +far to the south is a massive roiling sandstorm; the wind from the +storm howls and bites at your face even here. +~ +53 c 2 +D0 +You see a small hole leading back into the pyramid. +~ +~ +0 -1 5347 +D2 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5354 +E +sand dune sandstorm~ +The sand is very white, and very sandy. There sure is a lot of it. +~ +S +#5354 +A Swirling Sandstorm~ + You are caught in the midst of a massive sandstorm. Howling winds +buffet you from all sides, and the sand tears at your skin, blinding +you and choking you. You have lost all sense of direction. +~ +53 0 2 +D0 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5353 +D1 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5354 +D2 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5355 +D3 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5354 +E +sand~ +Sand is about all you CAN see right now. Unfortunately, it isn't very +interesting sand, only white, dry, and blowing all over the place. +~ +S +#5355 +A Swirling Sandstorm~ + You are caught in the midst of a massive sandstorm. Howling winds +buffet you from all sides, and the sand tears at your skin, blinding +you and choking you. You have lost all sense of direction. +~ +53 0 2 +D0 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5354 +D1 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5355 +D2 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5356 +D3 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5355 +E +sand~ +Sand is about all you CAN see right now. Unfortunately, it isn't very +interesting sand, only white, dry, and blowing all over the place. +~ +S +#5356 +A Swirling Sandstorm~ + You are caught in the midst of a massive sandstorm. Howling winds +buffet you from all sides, and the sand tears at your skin, blinding +you and choking you. You have lost all sense of direction. +~ +53 0 2 +D0 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5355 +D1 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5356 +D2 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5357 +D3 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5356 +E +sand~ +Sand is about all you CAN see right now. Unfortunately, it isn't very +interesting sand, only white, dry, and blowing all over the place. +~ +S +#5357 +A Swirling Sandstorm~ + You are caught in the midst of a massive sandstorm. Howling winds +buffet you from all sides, and the sand tears at your skin, blinding +you and choking you. You have lost all sense of direction. +~ +53 0 2 +D0 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5356 +D1 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5357 +D2 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5358 +D3 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5357 +E +sand~ +Sand is about all you CAN see right now. Unfortunately, it isn't very +interesting sand, only white, dry, and blowing all over the place. +~ +S +#5358 +A Massive Sand Dune~ + Somehow you managed to make your way through the howling winds +of the sandstorm, and clamber up on this sand dune. You can see the +storm to the north of you, and presumably the pyramid is somewhere +beyond it. Nothing but flat, featureless, open dunes of sand lie in +every other direction. +~ +53 0 2 +D0 +You see only a wall of whirling, blowing, dry sand. +~ +~ +0 -1 5357 +D2 +On the southern side of the sand dune is a small hole in the sand. +For some reason you seem unable to get to it. +~ +riddle~ +2 5317 5359 +E +sand dune~ +The sand is very white, and very sandy. There sure is a lot of it. +~ +E +riddle~ +A vision forms before your eyes, in glowing hieroglyphic symbols. +~ +E +hieroglyphics symbols~ +Like most of the ancient hieroglyphics of this land, the symbols are +totally incomprehensible to you. Perhaps the Sphinx has the answer +to this ancient riddle. +~ +S +#5359 +Through The Hole In The Sand~ + You squeeze through the small hole in the sand and land in a small +white chamber. Above you is a small hole, reachable by climbing up +the small sandy slope down which you slid. +~ +53 acd 0 +D4 +You see a sand dune. +~ +~ +0 -1 5358 +S +$ diff --git a/lib/world/wld/54.wld b/lib/world/wld/54.wld new file mode 100644 index 0000000..0b32729 --- /dev/null +++ b/lib/world/wld/54.wld @@ -0,0 +1,5167 @@ +#5400 +The Entrance To The Dancing Daemon Inn~ + You find yourself in an entrance foyer to the Dancing Daemon Inn. +Chrome plated stairs spiral up to the reception area. To the south +you hear the sounds of merriment and drinking and from the west you +hear the bustling activity of New Thalos. +~ +54 d 0 +D2 +You see people dancing and drinking. +~ +~ +0 -1 5402 +D3 +You see people walking by on Sultan's Walk. +~ +~ +0 -1 5420 +D4 +The spiral stairs lead up to the reception area. +~ +~ +0 -1 5401 +S +#5401 +The Reception Area~ + You are now standing in the reception of New Thalos. A huge mahogany +desk is here along with two sofas and a coffee table covered in magazines. +The plush carpeting under your feet is a nice change from the rugged paths +you are used to travelling. A chrome stairway spirals downstairs to the +tavern of the Dancing Daemon Inn, and your future adventures in New Thalos. +~ +54 deh 0 +D5 +The stairs lead down to the Daemon. +~ +~ +0 -1 5400 +S +#5402 +The Dancing Daemon Inn~ + A huge circling wet-bar takes up most of the east end of the Daemon. An +old mage reclines against the mirror behind the bar absentmindedly pouring +several drinks at once with his refined telekinesis. The Lokettes, a local +band, are playing their usual gig on the stage. The large booths along the +all are filled with people drinking and having a grand time. You feel like +partying here. +The only obvious exit is to the north. +~ +54 d 0 +D0 +You see the entrance to the Daemon. +~ +~ +0 -1 5400 +E +bar~ +The bar looks slightly out of place and you can only assume the powerful +magic of the bartender allows it to revolve. +~ +S +#5403 +The Medina~ + You stand on the Medina, on the larger open areas in New Thalos. +People walk to and fro carrying on their day to day business. The +Common Square of the people opens up to the south and the Medina +continues north. +~ +54 0 1 +D0 +You see Medina. +~ +~ +0 -1 5404 +D2 +You see the Common Square. +~ +~ +0 -1 5410 +S +#5404 +The Medina~ + You are walking along a wide open expanse of road connecting +Market Square to the Common Square. Panhandlers, beggars, and +other such riff-raff wander about hoping to catch those few who +with open hearts. The Medina continues to the south and the +Market Square spreads out to the north. +~ +54 0 1 +D0 +You see Market Square. +~ +~ +0 -1 5405 +D2 +You see the Medina. +~ +~ +0 -1 5403 +S +#5405 +Southern Market Square~ + The large square of markets fills your vision. Strange sights and +sounds, those known only to the New Thalos market, barrage your senses. +The only hope of making any sense of what is going on here is to wander +around. Market Square continues north, west, and east, with the Medina +trailing off th the south. +~ +54 0 1 +D0 +~ +~ +0 -1 5406 +D1 +~ +~ +0 -1 5407 +D2 +~ +~ +0 -1 5404 +D3 +~ +~ +0 -1 5408 +S +#5406 +The Center Of Market Square~ + You are standing in the center of Market Square, the famous square +of New Thalos. A large, peculiar looking statue is standing in the +middle of the square. The square extends in every direction. +~ +54 0 1 +D0 +~ +~ +0 -1 5415 +D1 +~ +~ +0 -1 5417 +D2 +~ +~ +0 -1 5405 +D3 +~ +~ +0 -1 5409 +E +statue~ +Before you is a statue of the mighty beholder! +A great beast with multiple eyes and wicked... wicked... um.... eyes... +The mighty beholder is in Excellent condition. +~ +S +#5407 +Southeastern Market Square~ + In this corner of the market some of the largest warriors in the land +tower over you. It is easy to understand why they hang out here once you +notice the weapon shop and the armoury close by. Perhaps you might stop +in and take a look at the wares these shops have to offer. +~ +54 0 1 +D0 +~ +~ +0 -1 5417 +D1 +~ +~ +0 -1 5529 +D2 +~ +~ +0 -1 5536 +D3 +~ +~ +0 -1 5405 +S +#5408 +Southwestern Market Square~ + This area of the market seems relatively quiet, save the high pitch +banter of the shopkeepers attempting to lure you into their stores. +South you see the bread stand and west is the entrance to the general +store. + The market's sprawl continues east and north of here. +~ +54 0 1 +D0 +~ +~ +0 -1 5409 +D1 +~ +~ +0 -1 5405 +D2 +You see the grocer's. +~ +~ +0 -1 5535 +D3 +You see the general store. +~ +~ +0 -1 5528 +S +#5409 +Western Market Square~ + This area of the square seems a bit more subdued than the rest. +You notice that most of the outland adventurers mill around the +southern end of the market, while the townfolk seem to keep their +business in the northern end. + West Main street begins here and heads for the gate, the market's +expanse fills the other directions. +~ +54 0 1 +D0 +~ +~ +0 -1 5414 +D1 +~ +~ +0 -1 5406 +D2 +~ +~ +0 -1 5408 +D3 +~ +~ +0 -1 5426 +S +#5410 +The Common Square~ + People pass by talking to each other, or rest their weary bones on this +grassy field. You can hear faint sounds of the river to the south of you +as it passes through the city. Ishtar drive heads east and west from here +and the Medina is to the north. South lies the River Ishtar Bridge and the +southern gate. +~ +54 0 1 +D0 +You see the medina. +~ +~ +0 -1 5403 +D1 +~ +~ +0 -1 5437 +D2 +You see the bridge over the river. +~ +~ +0 -1 5412 +D3 +~ +~ +0 -1 5436 +S +#5411 +Outside The Southern Gate Of New Thalos~ + You see before you the expanse of the Great Eastern Desert. +You have heard many tales of the Great Pyramid, the lost city +of Old Thalos and the friendly brass dragon that lies under the +desert. + To the south lies the desert and the city of New Thalos is +to the north. +~ +54 c 1 +D0 +~ +gate~ +1 5401 5413 +D2 +~ +~ +0 -1 5039 +S +#5412 +The Southern Bridge~ + Walking over the bridge you see the rushing waters of the River +Ishtar. To the south you see the Southern Gate of New Thalos and +the Common Square stretches out to the north +~ +54 c 1 +D0 +~ +~ +0 -1 5410 +D2 +~ +~ +0 -1 5413 +D5 +~ +~ +0 -1 5485 +S +#5413 +Inside The South Gate Of New Thalos~ + Two large stone towers rise up to greet you with the massive iron +gate swinging on ornately crafted hinges and emblazoned with the crest +of New Thalos. The makers of the city spared no expense in rebuilding +the defenses or their home. The River Ishtar bridge lies to the north +and the desert to the south. +~ +54 0 1 +D0 +~ +~ +0 -1 5412 +D2 +~ +gate~ +1 5401 5411 +S +#5414 +Northwestern Market Square~ + This corner of the market contains some of the most civilized folk +in New Thalos. To the north lies the humble store of the merchant +Ahkeem, his weavings known to be the best in the city. West of here +is the entrance to the First Royal Bank of New Thalos. +~ +54 0 1 +D0 +~ +~ +0 -1 5514 +D1 +~ +~ +0 -1 5415 +D2 +~ +~ +0 -1 5409 +D3 +~ +~ +0 -1 5521 +S +#5415 +Northern Market Square~ + You stand in one of the most heavily used parts of town. To the north +lies the Palace of New Thalos and the Casbah, east west and south of here +the busy market thrives with life. +~ +54 0 1 +D0 +~ +~ +0 -1 5418 +D1 +~ +~ +0 -1 5416 +D2 +~ +~ +0 -1 5406 +D3 +~ +~ +0 -1 5414 +S +#5416 +Northeastern Market Square~ + Pandemonium. Chaos. Madness. A few other choice words come to mind +as you gaze into this corner of the market. The vegetable stand seems +quiet enough so you have to assume the noise comes from the Butchery. +You have to think for a while before you muster the will to enter this +shop. The market continues to the south and west. +~ +54 0 1 +D0 +~ +~ +0 -1 5515 +D1 +~ +~ +0 -1 5522 +D2 +~ +~ +0 -1 5417 +D3 +~ +~ +0 -1 5415 +S +#5417 +Eastern Market Square~ + You stand in the market of New Thalos, the gem of the desert. The +market is the hub of the city, all trade and commerce of any significance +is carried on here. The market spreads out in all directions save east, +here Main Street heads for the easter gate. +~ +54 0 1 +D0 +~ +~ +0 -1 5416 +D1 +~ +~ +0 -1 5427 +D2 +~ +~ +0 -1 5407 +D3 +~ +~ +0 -1 5406 +S +#5418 +Sultan's Walk~ + This cobblestone road aides your journey through town. Traveling north +will take you by the Palace and the Dancing Daemon Inn, and south will put +you on Market Square. +~ +54 0 1 +D0 +~ +~ +0 -1 5419 +D2 +~ +~ +0 -1 5415 +S +#5419 +Sultan's Walk~ + This part of the road travels between one of the sturdy walls of +the Palace and the Dancing Daemon. To the east you peer through a +small window into the Daemon, seeing many people dancing and drinking. +After you tend to your other chores you plan on visiting the Daemon. + The walk continues north and south from here. +~ +54 0 1 +D0 +~ +~ +0 -1 5420 +D2 +~ +~ +0 -1 5418 +S +#5420 +Sultan's Walk~ + The road here between the Palace and the Dancing Daemon Inn seems well +worn by the travel of horses, carts, and leather boots. From the west you +hear the faint sound of trumpets announcing the arrival of some duke or +duchess to the Palace. Safe haven awaits you to the east in the halls +of the Daemon, and Sultan's Walk continues north and south. +~ +54 0 1 +D0 +~ +~ +0 -1 5421 +D1 +~ +~ +0 -1 5400 +D2 +~ +~ +0 -1 5419 +D3 +~ +~ +0 -1 5558 +S +#5421 +Sultan's Walk~ + The main road north from the square continues here, surrounded +by the walls of the Palace and the Daemon. To the north you see +the heavily guarded gate and can make out faint sounds of trade +to the south. +~ +54 0 1 +D0 +~ +~ +0 -1 5422 +D2 +~ +~ +0 -1 5420 +S +#5422 +Inside The Northern Gate Of New Thalos~ + Two large stone towers rise up to greet you with a massive iron +gate swinging between on ornately crafted hinges and emblazend with +the crest of New Thalos. The makers of this city spared no costs +in rebuilding the defenses of their home. + Sultan's Walk runs to the south and the Casbah stretches out east +and west. To the north is wilderness. +~ +54 0 1 +D0 +~ +gate~ +1 5401 5567 +D1 +~ +~ +0 -1 5449 +D2 +~ +~ +0 -1 5421 +D3 +~ +~ +0 -1 5448 +S +#5423 +Inside The West Gate Of New Thalos~ + Two large stone towers embedded in the wall loom over you. The +massive iron gate, emblazoned with the crest of New Thalos, swings +easily on four ornately crafted hinges. It is obvious the makers +of this city spared no expense in protecting their home. + Main street heads towards the market eastward and the wilderness +beckons from the west. To the south lies the entrance the Warriors' +Guild. +~ +54 c 1 +D1 +~ +~ +0 -1 5424 +D2 +~ +~ +0 -1 5526 +D3 +~ +gate~ +1 5401 5569 +S +#5424 +West Main Street~ + This is the main road traveling though the city. To the south you +hear the hammering of the repair shop and to the north is the grassy +field known as Temple Square. Main street continues east and west. +~ +54 0 1 +D0 +~ +~ +0 -1 5520 +D1 +~ +~ +0 -1 5425 +D2 +~ +~ +0 -1 5527 +D3 +~ +~ +0 -1 5423 +S +#5425 +West Main Street~ + A foreman stands stand here watching over two construction workers +fixing a pothole. The road here branches off north and south into +two alleys behind the stores of the market. The main street continues +east and west from here. +~ +54 0 1 +D0 +~ +~ +0 -1 5471 +D1 +~ +~ +0 -1 5426 +D2 +~ +~ +0 -1 5472 +D3 +~ +~ +0 -1 5424 +S +#5426 +West Main Street~ + You are strolling on the street between the bank and general store. +To the west you hear a roadcrew at work and to the east, the sounds of +commerce taking place. The air is filled with the smell of gold and +riches. +On the wall of the store is a poster. +~ +54 0 1 +D1 +~ +~ +0 -1 5409 +D3 +~ +~ +0 -1 5425 +E +poster~ +The poster is of a wealthy looking man in red robes smiling at you. +The caption reads: + + THE SULTAN REMINDS YOU TO PAY YOUR TAXES! + +~ +S +#5427 +East Main Street~ + Here on East Main, you smell the odor of freshly slaughtered meat +and, hear the pounding of new metal from the armory. The Square is +to the west and a junction is to the East. +~ +54 0 1 +D1 +~ +~ +0 -1 5428 +D3 +~ +~ +0 -1 5417 +S +#5428 +East Main Street~ + You are on East Main Street. To the North is the beginning +of Guildsman Row. To the South is a dark alley. The road also +continues to the East. +There is a small sign on a wire hanging across the junction. +~ +54 0 1 +D0 +~ +~ +0 -1 5464 +D1 +~ +~ +0 -1 5429 +D2 +~ +~ +0 -1 5465 +D3 +~ +~ +0 -1 5427 +E +sign~ +The sign reads: + + NO LOITERING! + + (by order of the Sultan of New Thalos) + +~ +S +#5429 +East Main Street~ + As you walk by the mercenary guild a cold chill causes you to shiver +uncontrollably. You see some shady looking characters lurking about the +entrance to this house of 'helpful' people. Perhaps curiosity gets the +best of you, but you wonder what could be going on inside. To the north +you see the open doors of the apothecary shop where one may buy many +magical livations. + Main Street continues east and west from here. +~ +54 0 1 +D0 +~ +~ +0 -1 5523 +D1 +~ +~ +0 -1 5430 +D2 +~ +~ +0 -1 5530 +D3 +~ +~ +0 -1 5428 +S +#5430 +East Main Street~ + The Main street through eastern New Thalos begins here and heads +westward towards the marketplace. One of the main gates can be seen +to the east and Braheem's Magic Shop awaits your business to the north. +~ +54 0 1 +D0 +~ +~ +0 -1 5524 +D1 +~ +~ +0 -1 5431 +D3 +~ +~ +0 -1 5429 +S +#5431 +Inside the Eastern Gate of New Thalos~ + Two large stone towers imbedded in the wall loom over you. The +massive iron gate, emblazened with the crest of New Thalos, swings +easily on four ornately crafted hinges. It is obvious the makers +of this city spared no expense in protecting their home. + Main street heads towards the market westward and the wilderness +beckons from the east. To the north lies the entrance to the Mages' +Guild. +~ +54 c 1 +D0 +~ +~ +0 -1 5525 +D1 +~ +gate~ +1 5401 5568 +D3 +~ +~ +0 -1 5430 +S +#5432 +Cassandra's Catch Of The Day~ + Nothing in your life has prepared you for the odor which fills your +lungs. Not wanting to offend the beautiful shopkeeper you hold your +tongue and quietly look over her selection. +~ +54 cd 0 +D2 +~ +~ +0 -1 5441 +S +#5433 +West Ishtar Drive~ + This is the warehouse district of New Thalos. Strong men walk back +and forth from the docks to the warehouse carrying large crates loading +and unloading the boats as they sail down the river. To the north is +one of the entrances of the warehouse and West Ishtar leads east. +~ +54 0 1 +D0 +~ +~ +0 -1 5540 +D1 +~ +~ +0 -1 5434 +S +#5434 +West Ishtar Drive~ + A few men walk by almost pushing you out of the way as they go about +their business of loading and unloading the boats. An entrance to one +of the huge warehouses of New Thalos is to the north and the River Ishtar +quietly flows by to the south. Ishtar Drive continues east and west. +~ +54 0 1 +D0 +~ +~ +0 -1 5541 +D1 +~ +~ +0 -1 5435 +D3 +~ +~ +0 -1 5433 +S +#5435 +West Ishtar Drive~ + The cobblestone road is moist here, the trail of water heading down to +the boat ramp. Catching your balance as you start to slide on the slick +pavement you grab on to the handrail someone has conveniently placed here. + To the north is the Shipwright and Ishtar Drive continues east and west. +~ +54 0 1 +D0 +~ +~ +0 -1 5542 +D1 +~ +~ +0 -1 5436 +D2 +~ +~ +0 -1 5443 +D3 +~ +~ +0 -1 5434 +S +#5436 +West Ishtar Drive~ + A cool breeze blows up off the river chilling the sweat otherwise +present on your skin. Orders and sometimes curses can be heard from +the west in the direction of the warehouses. The common square opens +up to the east and Ishtar Drive continues west. +~ +54 0 1 +D1 +~ +~ +0 -1 5410 +D3 +~ +~ +0 -1 5435 +S +#5437 +East Ishtar Drive~ + Loud hammering and the sound of red hot iron cooling in water reaches +your ears as you stand in front of the blacksmith. A small boy runs up +to you with big eyes and, as you return his gaze, runs off down the road. + The common square can be seen to the west and Ishtar Drive continues +to the east. +~ +54 0 1 +D0 +~ +~ +0 -1 5544 +D1 +~ +~ +0 -1 5439 +D3 +~ +~ +0 -1 5410 +S +#5438 +East Ishtar Drive~ + The wide road bordering the south of town continues to the east west +here, bordered only by the hay-loft to the north and the River Ishtar to +the south. +~ +54 0 1 +D1 +~ +~ +0 -1 5440 +D3 +~ +~ +0 -1 5439 +S +#5439 +East Ishtar Drive~ + Small clumps of hay strewn about the ground alerts you to the fact +that you have reached the stables. Arabian stallions as well as many +other fine breeds of horses can be purchased for a price. Ishtar Drive +continues east and west. +~ +54 0 1 +D0 +~ +~ +0 -1 5545 +D1 +~ +~ +0 -1 5438 +D3 +~ +~ +0 -1 5437 +S +#5440 +East Ishtar Drive~ + Even in broad daylight, you can hardly see into the back alley +that begins here and heads north. Sounds of loud drunken folk and +the occasional screaming cat emenate from the direction. Luckily +you have the choice of going east or west down the drive as well. +~ +54 0 1 +D0 +You see murky darkness. +~ +~ +0 -1 5468 +D1 +~ +~ +0 -1 5441 +D3 +~ +~ +0 -1 5438 +S +#5441 +East Ishtar Drive~ + Your highly acute sense of smell reports you have reached the +entrance to the fish market. Although renowned for it fresh catches +and wide selection of aquarian delicacies you wonder how much longer +you can endure the smell! The River Ishtar flows alongside to the +south with the drive running along side it east to west. +~ +54 0 1 +D0 +~ +~ +0 -1 5432 +D1 +~ +~ +0 -1 5442 +D3 +~ +~ +0 -1 5440 +S +#5442 +East Ishtar Drive~ + The sound of squawking gulls and the smell of rotting fish gives you +a hint of your location. The River Ishtar flows south of you, but looks +crystal clear, so it cannot be the source of this putrid smell. +Looking north you notice a small sign hanging over the dump. +~ +54 0 1 +D0 +~ +~ +0 -1 5547 +D3 +~ +~ +0 -1 5441 +E +sign~ +#====================================================# +| | +| THE DUMP OF NEW THALOS | +| | +| | +| ----- | +| | +| Enter at your own risk. | +| -the management | +| | +#====================================================# +~ +S +#5443 +The Boat Ramp~ + This sloped slab of stone allows easy passage to and from the River +Ishtar. Boats are moored to the docks here awaiting their masters to +return from the warehouses and the pubs. The waters of the River Ishtar +lap at your feet to the south and Ishtar Drive is to the north. +~ +54 c 1 +D0 +~ +~ +0 -1 5435 +D2 +~ +~ +0 -1 5486 +S +#5444 +West Casbah~ + The air takes on a somber note as you stand before the entrance to the +jailhouse of New Thalos. Hopefully you won't ever see this structure from +the inside. The northwest tower stands here with a spiral staircase +leading up. The Avenue ends here, only exiting to the east. +~ +54 0 1 +D1 +~ +~ +0 -1 5445 +D2 +~ +gate~ +2 5493 5553 +D4 +~ +~ +0 -1 5559 +S +#5445 +West Casbah~ + You have almost reached the end of the Avenue in this direction, the +number of guards in this part of town is nearly doubled. To the north +the familiar city wall protects you from the wilderness. Looking south +marble stairs rise towards the entrance of city hall surrounded by +massive white pillars. + The Avenue continues east and west from here. +~ +54 0 1 +D1 +~ +~ +0 -1 5446 +D2 +~ +~ +0 -1 5554 +D3 +~ +~ +0 -1 5444 +S +#5446 +The Casbah~ + The wall of the Palace curves south from here, a darkened alley runs +along it in that direction. West of here you see the steps of the City +Hall and notice the increase in the number of guards. + To the east the Avenue continues. +~ +54 0 1 +D1 +~ +~ +0 -1 5447 +D2 +~ +~ +0 -1 5458 +D3 +~ +~ +0 -1 5445 +S +#5447 +The Casbah~ + As you travel down the road towards towards the City Hall you look up +at the guards walking along the wall keeping watch. South of you stands +the great walls of the Palace and the Avenue goes east and west. +~ +54 0 1 +D1 +~ +~ +0 -1 5448 +D3 +~ +~ +0 -1 5446 +S +#5448 +The Casbah~ + The cobblestone pavement runs along the north wall here. South of you +stand the great walls of the Palace and the Avenue goes east and west. +~ +54 0 1 +D1 +~ +~ +0 -1 5422 +D3 +~ +~ +0 -1 5447 +S +#5449 +The Casbah~ + The activity here is only slightly less than chaotic. Young boys run +to and fro with stern intent, and older gentleman swagger down the street +towards the Library. To the west you can see the tall towers of the +northern gate, and the Avenue continues east. +~ +54 0 1 +D1 +~ +~ +0 -1 5450 +D3 +~ +~ +0 -1 5422 +S +#5450 +The Casbah~ + Walking along the cobblestone path you feel secure with the walls of +the city towering over you. You hear the scraping sounds of metal on +stone and look up to see a large, strong guard looking out to the north. + To the east lies the intersection on Guildsman's Row and the northern +gate is a short walk to the west. +~ +54 0 1 +D1 +~ +~ +0 -1 5451 +D3 +~ +~ +0 -1 5449 +S +#5451 +The Casbah~ + The din of the guilds assaults your senses as you reach this +intersection, the sound of hammering, the smell of tanned leather, +and the smoke rising from the smithy all rush up to greet you. + The Avenue continues east and west from here and the Row leads +south. +~ +54 0 1 +D1 +~ +~ +0 -1 5452 +D2 +~ +~ +0 -1 5460 +D3 +~ +~ +0 -1 5450 +S +#5452 +The Casbah~ + You walk between the solid stone wall of the city and that of the +Masons' Guild. Young children with their nannies walk around enjoying +the saftey of the city. + The Avenue runs east and west from here. +~ +54 0 1 +D1 +~ +~ +0 -1 5453 +D3 +~ +~ +0 -1 5451 +S +#5453 +The Casbah~ + You have almost reached the end of the Avenue in this direction. +Walking towards the north-east corner of the city you notice the +population density here is much less then the rest of the town. A +few old men hobbling on canes and young men intent on studies are +the only travelers of the path to the library on a regular basis. + The Avenue continues east and west from here. +~ +54 0 1 +D1 +~ +~ +0 -1 5454 +D3 +~ +~ +0 -1 5452 +S +#5454 +The Casbah~ + The Avenue ends here, turning south to become Kali Row. Traveling in +that direction will take you to the Library and the grand dance hall of +the city. + The northeast tower of the wall is accessible here up a spiral staircase. +~ +54 0 1 +D2 +~ +~ +0 -1 5455 +D3 +~ +~ +0 -1 5453 +D4 +~ +~ +0 -1 5562 +S +#5455 +Kali Row~ + This is a small, newly added section of the town. The city's Library +can be entered through the door to the west and the Casbah begins its +journey a little ways north of here. The Row and the entrance to the +dancehall is to the south. +~ +54 0 1 +D0 +~ +~ +0 -1 5454 +D2 +~ +~ +0 -1 5456 +D3 +~ +~ +0 -1 5551 +S +#5456 +Kali Row~ + The short Row ends abruptly here at the entrance to the dance +hall of New Thalos. + The entrance to the hall is to the west and the Row continues +northward. +~ +54 0 1 +D0 +~ +~ +0 -1 5455 +D3 +~ +~ +0 -1 5552 +S +#5457 +Underground~ + The small passage continues north and south. +~ +54 ad 1 +D0 +~ +~ +0 -1 5478 +D2 +~ +~ +0 -1 5480 +S +#5458 +Alley~ + This is a dark alley running between the Palace and City Hall. Not a +lot here, unless you're partial to spiders and rats. +~ +54 0 1 +D0 +~ +~ +0 -1 5446 +D2 +~ +~ +0 -1 5459 +S +#5459 +Alley~ + The alley ends here. +~ +54 a 1 +D0 +~ +~ +0 -1 5458 +D5 +You see a manhole covering an opening in the road. +~ +manhole hole man~ +1 -1 5475 +S +#5460 +Guildsman's Row~ + This Row is a hive of activity second only to the actual Market +Square itself. Along this row stands all the guilds of the working +class citizens of New Thalos, here all the items sold in the Square +are made. Along this particular stretch of the row lie the Boyer/ +Fletcher to the west and the Masons' to the east. + The Row leads off to the south and East Casbah is to the north. +~ +54 0 1 +D0 +~ +~ +0 -1 5451 +D1 +~ +~ +0 -1 5556 +D2 +~ +~ +0 -1 5461 +D3 +~ +~ +0 -1 5555 +S +#5461 +Guildsman's Row~ + The guilds continue here, to the west is the Weavers' Guild, and +to the east stands the Craftsmans' Guild. The row of guilds continues +north and south from here. +~ +54 0 1 +D0 +~ +~ +0 -1 5460 +D1 +~ +~ +0 -1 5507 +D2 +~ +~ +0 -1 5462 +D3 +~ +~ +0 -1 5506 +S +#5462 +Guildsman's Row~ + Only one guild offers its door to this stretch of the Row, the Tanners' +Guild, to the west. To the east is a beautifully sculpted marble door +allowing entrance to the Museum of the Greater Gods. + The Row of Guilds leads north and south. +~ +54 0 1 +D0 +~ +~ +0 -1 5461 +D1 +~ +~ +0 -1 5511 +D2 +~ +~ +0 -1 5463 +D3 +~ +~ +0 -1 5564 +S +#5463 +Guildsman's Row~ + After the guilds were built the people of the city used some of the +extra space to erect a shrine to their patron saints. The result of +this labor became the Museum of the Greater Gods. + You may enter the sacred hall to the east. +~ +54 0 1 +D0 +~ +~ +0 -1 5462 +D1 +~ +~ +0 -1 5516 +D2 +~ +~ +0 -1 5464 +S +#5464 +Guildsman's Row~ + This small cramped road is worn with travel as apprentices to the +guilds run merchandise from the guildhouses to the shops on Market +Square. + The guildhouses lie to the north and Main street is to the south. +~ +54 0 1 +D0 +~ +~ +0 -1 5463 +D2 +~ +~ +0 -1 5428 +S +#5465 +Alley~ + Even with your light you cannot seem to penetrate the magical cloak of +darkness covering this alley. +~ +54 ac 1 +D0 +~ +~ +0 -1 5428 +D2 +~ +~ +0 -1 5466 +S +#5466 +Alley~ + Even with your light you cannot seem to penetrate the magical cloak of +darkness covering this alley. +~ +54 a 1 +D0 +~ +~ +0 -1 5465 +D1 +~ +~ +0 -1 5467 +D3 +~ +~ +0 -1 5537 +S +#5467 +Alley~ + Even with your light you cannot seem to penetrate the magical cloak of +darkness covering this alley. +~ +54 a 1 +D1 +~ +~ +0 -1 5538 +D2 +~ +~ +0 -1 5468 +D3 +~ +~ +0 -1 5466 +S +#5468 +Alley~ + Even with your light you cannot seem to penetrate the magical cloak of +darkness covering this alley. +~ +54 ac 1 +D0 +~ +~ +0 -1 5467 +D2 +~ +~ +0 -1 5440 +S +#5469 +Alley~ + This is a tiny corner in the alley. The temple walls are north and +west. You notice a fair amount of footprints to the east. +~ +54 a 1 +D1 +~ +~ +0 -1 5470 +D2 +~ +~ +0 -1 5471 +E +footprint~ +Kind of looks like a yeti has been here... Hmmmm. +~ +S +#5470 +Alley~ + This is a dead end to the tiny alley. There is an unusual amount of +wear apparent on the ground. +~ +54 a 1 +D3 +~ +~ +0 -1 5469 +D5 +You see a small iron circle imbedded in the ground. +~ +manhole man hole~ +1 -1 5478 +S +#5471 +Alley~ + You are in a tiny ally between the temple and the bank. You hear +some shouting and general roadwork to the south. The ground is rough +and in need of repair. In the road is a small pothole. +~ +54 ac 1 +D0 +~ +~ +0 -1 5469 +D2 +~ +~ +0 -1 5425 +E +pothole~ +Why are you looking in a pothole? Are you poor or something? +~ +S +#5472 +Alley~ + You are on a small alley between the repair shop and the general +store. Nothing much here but small rodents and dust. +~ +54 ac 1 +D0 +~ +~ +0 -1 5425 +D2 +~ +~ +0 -1 5473 +S +#5473 +Alley~ + This is a small corner in the alley behind the warehouses and the guild +of warriors. You notice some small scrapings to the west. +~ +54 a 1 +D0 +~ +~ +0 -1 5472 +D1 +~ +~ +0 -1 5474 +S +#5474 +Alley~ + The alley ends here as do the footprints you had noticed earlier. +~ +54 a 1 +D3 +~ +~ +0 -1 5473 +D5 +You see a small round iron plate set in the ground. +~ +manhole man hole~ +1 -1 5481 +S +#5475 +Underground~ + You are in a small underground passage beneath the city. You see a +small glint of light from above and the passage continues south. +~ +54 ad 1 +D2 +~ +~ +0 -1 5476 +D4 +~ +man hole manhole~ +1 -1 5459 +S +#5476 +Underground~ + The passage continues north and south. +~ +54 ad 1 +D0 +~ +~ +0 -1 5475 +D2 +~ +~ +0 -1 5477 +S +#5477 +Underground~ + The tunnel branches here going north, east, and west. +~ +54 ad 1 +D0 +~ +~ +0 -1 5476 +D1 +~ +~ +0 -1 5478 +D3 +~ +~ +0 -1 5479 +S +#5478 +Underground~ + The alley turns again here and heads south and west. You notice a +small glint of light from above. +~ +54 ad 1 +D2 +~ +~ +0 -1 5457 +D3 +~ +~ +0 -1 5477 +D4 +~ +manhole man hole~ +1 -1 5470 +S +#5479 +Underground~ + The passage ends here and you hear some low chanting from the west. +You also notice the clearing of dust on the ground but can't seem to +find any door in that direction. +~ +54 ad 1 +D1 +~ +~ +0 -1 5477 +S +#5480 +Underground~ + The small passage continues north and south from here. +~ +54 ad 1 +D0 +~ +~ +0 -1 5457 +D2 +~ +~ +0 -1 5481 +S +#5481 +Underground~ + The small passage heads north and east from here. You here the sounds +of the city above you. +~ +54 ad 1 +D0 +~ +~ +0 -1 5480 +D1 +~ +~ +0 -1 5482 +D4 +~ +manhole man hole~ +1 -1 5474 +S +#5482 +Underground~ + The tunnel continues you west and east. Hopefully you have a good sense +of direction. +~ +54 ad 1 +D1 +~ +~ +0 -1 5492 +D3 +~ +~ +0 -1 5481 +S +#5483 +River Ishtar~ + High above you on the top of the city wall guards look down to see if +you wish to exit the city via water. To do so they must open the iron +grating in front of you from above. The horrid smell of the dump wafts +down from the shore. +~ +54 0 7 +D1 +~ +~ +0 -1 5624 +D3 +~ +grating~ +1 -1 5484 +S +#5484 +River Ishtar~ + The gentle flow of the river carries you eastward, looking up you +see couples strolling along the road. To the west you see the southern +bridge and to the east you see the iron grating protecting the city from +unwanted guests. +~ +54 0 7 +D1 +~ +grating~ +1 -1 5483 +D3 +~ +~ +0 -1 5485 +S +#5485 +River Ishtar~ + You hear your voice echo as you float under the bridge above. The +city construction crews have just recently finished the small ladder +giving common-folk easy access to the river. To the west and east you +see the river flowing by the city. +~ +54 0 7 +D1 +~ +~ +0 -1 5484 +D3 +~ +~ +0 -1 5486 +D4 +~ +~ +0 -1 5412 +S +#5486 +River Ishtar~ + This part of the river seems alive with activity. Boats moored to +the docks near the ramp north of here make navigation a bit more trying. +As the river flows eastward you can see the southern bridge in that +direction. +~ +54 0 7 +D0 +~ +~ +0 -1 5443 +D1 +~ +~ +0 -1 5485 +D3 +~ +~ +0 -1 5487 +S +#5487 +River Ishtar~ + The river flows through a huge iron grating from the wilderness +through the city. Strong guards above await word to open the portal +should any citizen require exit or entry. +~ +54 0 7 +D1 +~ +~ +0 -1 5486 +D3 +~ +grating~ +1 -1 5623 +S +#5488 +A Dark Passage~ + You seem to have stumbled into a small hand made passage. The wall +to the west doesn't look quite right but searching it reveals no secret +doors. The only exit it seems is east. +~ +54 ad 1 +D1 +~ +~ +0 -1 5489 +S +#5489 +A Dark Passage~ + The small passage continues east and west from here. Again you +notice something peculiar about the wall, this time to the north, +but you fail to find any secret doors. Voices can be faintly heard +from the north. +~ +54 ad 1 +D1 +~ +~ +0 -1 5490 +D3 +~ +~ +0 -1 5488 +S +#5490 +A Dark Passage~ + The small passage continues west and east from here. +~ +54 ad 1 +D1 +~ +~ +0 -1 5491 +D3 +~ +~ +0 -1 5489 +E +boulder~ +A huge boulder stands here. In its center someone has carved out a +perfect round hole. +~ +S +#5491 +A Dark Passage~ + The small passage ends here for no apparent reason. Looking around +you find a small ladder half buried in the dirt. setting it up you find +a trap door in the ceiling. The passage continues west from here. +~ +54 ad 1 +D3 +~ +~ +0 -1 5490 +D4 +~ +secret~ +1 -1 5570 +E +fire~ +Moving closer you see this fire is actually FROZEN in place. The +flames still radiate heat, but are not actually burning. Looking +around you notice a small hole about the size of a piece of charcoal +at the base of the flames. +~ +S +#5492 +Underground~ + The small passage continues west and east. +~ +54 ad 1 +D1 +~ +~ +0 -1 5493 +D3 +~ +~ +0 -1 5482 +S +#5493 +Underground~ + The small passage continues west and east. +~ +54 ad 1 +D1 +~ +~ +0 -1 5500 +D3 +~ +~ +0 -1 5492 +S +#5500 +Underground~ + The small passage continues west and east. +~ +54 ad 0 +D1 +~ +~ +0 -1 5501 +D3 +~ +~ +0 -1 5493 +S +#5501 +Underground~ + The small passage continues west and east. +~ +54 ad 0 +D1 +~ +~ +0 -1 5502 +D3 +~ +~ +0 -1 5500 +S +#5502 +Underground~ + The small passage continues west and east. +~ +54 ad 0 +D1 +~ +~ +0 -1 5488 +D3 +~ +~ +0 -1 5501 +S +#5503 +Clerics' Sanctum~ + You walk down the staircase into the silent inner sanctum. Here sits +your guildmaster ready to assist you when the time is right. The room +is completely silent. The only obvious exit is back up the staircase +into the the Nectar. +~ +54 deh 0 +D1 +You notice the floor at the base of the eastern wall has some faint +scratches in it. +~ +secret door~ +1 -1 5479 +D4 +~ +~ +0 -1 5519 +S +#5504 +The Chamber Of The High Priest~ + You have entered the chamber of the most holy man in New Thalos. The +High Priest advises the Sultan on all matters in the world of the sacred. +From what you have heard however, this holy man has a bit of a temper, +and he doesn't look very happy that you've disturbed his prayers. + The only obvious exit is south. +~ +54 d 0 +D2 +~ +~ +0 -1 5508 +S +#5505 +By The Altar~ + You are by the temple altar in the northern end of Temple of New +Thalos. A huge altar made of highly polished black onyx is standing +in front of you. Behind this altar sits a twelve foot tall statue of +Akbal, the highest god in all the lands. +~ +54 deg 0 +D2 +~ +~ +0 -1 5509 +E +statue~ +Looking up the huge statue you see Akbal calmly gazing out across his +lands, he seems pleased. +~ +S +#5506 +The Weavers' Guild~ + Rows and rows of uncut cloth lie about waiting to be hemed up +into tailored clothes. Cotten is brought in from the country side +and spun up into cloth and dyed different colors. A young boy walks +in, grabs a pile of clothing and leaves. +~ +54 d 0 +D1 +~ +~ +0 -1 5461 +S +#5507 +The Craftsmans' Guild~ + You have entered a busy workshop filled with people running amok +with various tools and materials. The air is tense with the rush to +complete various projects and creations. +~ +54 d 0 +D3 +~ +~ +0 -1 5461 +S +#5508 +Inside The Temple~ + The temple continues here, but not on such a grand scale. The place +still looks immaculate. To the north you see the chamber of the High +Priest and a sign on the door in BIG letters thats reads 'DO NOT DISTURB' +To the south is the entrance to the Clerics' Guild. +~ +54 dg 0 +D0 +~ +~ +0 -1 5504 +D1 +~ +~ +0 -1 5509 +D2 +~ +~ +0 -1 5512 +S +#5509 +Inside The Temple~ + Huge marble pillars rise on either side of you and grab hold of +the ceiling. Between each of these, fine softstone frescoes have +been carved depicting scenes from the religous history of New Thalos. +Rows of pews face forward giving their full attention to the pulpit +rising high above the ground. The deep red carpeting underfoot shows +not a speck of wear or dirt. It is obvious that New Thalonians take +religion seriously. +~ +54 dgh 0 +D0 +~ +~ +0 -1 5505 +D1 +~ +~ +0 -1 5510 +D2 +~ +~ +0 -1 5513 +D3 +~ +~ +0 -1 5508 +S +#5510 +The Donation Room~ + This room is new to the temple, it was created during the hard times +that had struck the city in recent decades. Luckily for them the Sultan +had been hoarding some of the basic neccesities for just such an occasion. +These days the donation room depends on the generosity of wealthy +adventurers, and a curse on any that walk in to take everything. +~ +54 cd 0 +D3 +~ +~ +0 -1 5509 +S +#5511 +The Museum Of The Greater Gods~ + Four large stone statues reside in the museum. They were constructed +by the people of New Thalos to pay homage to the saints they believe to +have saved all their lives. + The museum continues to the south. +~ +54 cd 0 +D2 +~ +~ +0 -1 5516 +D3 +~ +~ +0 -1 5462 +S +#5512 +The Entrance To The Guild of Clerics~ + This hall pales in comparison to that of the main hall, but is +beautiful in its own right. Shaven heads and brown robes can be +seen milling about quitely talking to each other. North is back +inside the temple proper, and south is the entrance to the clerics' +bar. +~ +54 deh 0 +D0 +~ +~ +0 -1 5508 +D2 +~ +~ +0 -1 5519 +S +#5513 +The Temple Gates~ + You stand before the entrance way to the Temple of New Thalos. Two +large wrought iron gates lie open before you. Although they might not +ever be used the priests in the temple are ready to defend themselves, +should their city ever come under seige again. +~ +54 0 1 +D0 +~ +~ +0 -1 5509 +D2 +~ +~ +0 -1 5520 +D5 +~ +~ +0 -1 5520 +S +#5514 +Ahkeem's Stuff~ + You step into a shop swirling with smoke. Ahkeem seems to have a +liking for things not of this world... very strange stuff indeed. +~ +54 d 0 +D2 +~ +~ +0 -1 5414 +S +#5515 +Vera's Veggies~ + This is a busy place. Customers shuffle around, bartering for lower +prices on the wide selection of vegetables. You can still hear your +mother telling you 'Eat your Veggies'. That is probably why you are +spending time in the city of New Thalos and not with her. But wait... +Vera looks just like your mother! +~ +54 d 0 +D2 +~ +~ +0 -1 5416 +S +#5516 +The Museum Of The Greater Gods~ + Four large stone statues reside in the museum. They were constructed +by the people of New Thalos to pay homage to the saints they believe to +have saved all their lives. + The museum continues to the north. +~ +54 cd 0 +D0 +~ +~ +0 -1 5511 +D3 +~ +~ +0 -1 5463 +S +#5517 +The Base Of The Tower~ + You walk into a cold room whose only feature is an old wooden +staircase spirling up along the wall to a higher level. Up these +stairs you are told awaits the old mage who may be able to help +you advance in your studies. +~ +54 de 0 +D1 +~ +~ +0 -1 5518 +D2 +You see some small scratches on the floor near the base of the wall. +~ +door secret~ +1 -1 5524 +D4 +~ +~ +0 -1 5548 +S +#5518 +The Mages' Courtyard~ + You enter a small tiled courtyard with a small fountain in the middle. +Around the sides are four wrought iron benches with cushions where the +mages of the land sit and exchange ideas. To the west stands a two-story +tower where the leader of the mages' guild performs his experiments. +~ +54 e 1 +D2 +~ +~ +0 -1 5525 +D3 +~ +~ +0 -1 5517 +S +#5519 +Nectar Of The Gods~ + You are startled by the lavishness of this place. From what you +know of clerics they are supposed to be humble people, giving all their +material goods to their cause. Perhaps because only clerics are +allowed to enter this bar they have condoned making it as comfortable +as possible. In the corner stands a staircase leading down to the +meditaion chambers. +~ +54 deh 0 +D0 +~ +~ +0 -1 5512 +D5 +~ +~ +0 -1 5503 +S +#5520 +Temple Square~ + You are standing on the meeting grounds of those with holy +intentions. Monks, bards, paladins and clerics mill around +either preaching or listening to their fellows preach. Huge +marble steps lead up to the gates of the temple and Main Street +lies to the south. +~ +54 cg 1 +D0 +~ +~ +0 -1 5513 +D2 +~ +~ +0 -1 5424 +D4 +~ +~ +0 -1 5513 +S +#5521 +The Bank~ + You stand in a large building decorated with black marble and red +satin. Huge pillars support an arched ceiling far above your head. +You wonder at the skill the dwarves have for detail as you examine +the trim. Fine silver seperates the polished blocks that make up the +floor. +~ +54 de 0 +D1 +~ +~ +0 -1 5414 +S +#5522 +The Butchery~ + This shop has the aroma of freshly slaughterd beasts. You feel right +at home. You see a fairly simple set up. The corpses... er... selections +hang on hooks, still bleeding into catch pans that drain into a single +underground vat. You wonder where that leads... +~ +54 d 0 +D3 +~ +~ +0 -1 5416 +E +vat~ +You think you hear noises from the vat... naaah. +~ +S +#5523 +The Witch's Brew~ + The first thing you notice as you walk into this spacious shop is +the hundreds of candles that line the shelves. The swirling mist that +surrounds your feet makes it seem that you have stepped into a gateway +to another plane. A cluttered table stands near the far wall, opposite +the doorway. +~ +54 d 0 +D2 +~ +~ +0 -1 5429 +S +#5524 +Braheem's Magic Shop~ + You enter a shop crowded with bookshelves and clutterd with scrolls. +The owner seems to be hard at work on his latest magical creation. +You see a small sign on the wall. +~ +54 d 0 +D2 +~ +~ +0 -1 5430 +E +sign~ +The sign reads: + +Welcome to Braheem's... + +LIST - Shows you all of my wonderful creations. +VALUE - Shows what an item might be worth to me. +SELL - Allows you to rid yourself of excessive magic items. +BUY - Allows you to rid youself of excessive cash. + +~ +S +#5525 +The Entrance To The Mages' Tower~ + The entrance hall is a small poor lighted room. It would seem its +only purpose is to house the powerful sorcerer standing here guarding +the entrance. +~ +54 deh 0 +D0 +~ +~ +0 -1 5518 +D2 +~ +~ +0 -1 5431 +S +#5526 +The Entrance To The Guild of Warriors~ + This small hall is merely a check point to keep the unwanted out. +~ +54 deh 0 +D0 +~ +~ +0 -1 5423 +D2 +~ +~ +0 -1 5533 +S +#5527 +The Repair Shop~ + One of the most popular shops in New Thalos, this shop is always a +hive of activity. It is almost inhuman the way one man can fix all +types of armour singlehandedly. If you have an item in need of repair +simply give it to the man behind the counter. +There is a small sign on the counter. +~ +54 cd 0 +D0 +~ +~ +0 -1 5424 +E +sign~ +The sign reads: + +Closed for renovations + +~ +S +#5528 +The General Store~ + The new found wealth of this beautiful city is apearant in the exotic +items for sale here. You wonder what would happen if you typed... LIST... +~ +54 d 0 +D1 +~ +~ +0 -1 5408 +S +#5529 +Abdul's Armour~ + The sound of hammering metal grows louder as you enter the armoury. +Young boys run to and fro carrying buckets of water and coal. A few +dwarves work on sections of armour in the back of the shop, their +hammers working too fast to follow. The walls are adorned in all of +Abdul's prize creations. Here you can purchase suits of armour meant +to keep monsters from hacking you into little pieces. +A note on the wall beckons your attention. +~ +54 d 0 +D3 +~ +~ +0 -1 5407 +E +note~ +The note reads: + +LIST : gives you a list of items for sale. +VALUE : tells you how much an item is worth to Abdul +SELL : sells an item to Abdul for a generous sum +BUY : Abdul's FAVORITE command lets you have an item for his low, + low price. + +~ +S +#5530 +The Mercenaries' Guild~ + This guild is frowned upon by most of the population of New Thalos, +but the laws of supply and demand are irresistable. People come here +when they feel unable or are unwilling to fight their own battles. For +a small fee you may hire a henchman. +~ +54 d 0 +D0 +~ +~ +0 -1 5429 +D1 +You notice some small scratches in the floor next to the eastern wall. +~ +door secret~ +1 -1 5532 +S +#5531 +The Mercenaries Guild~ + This is the storage room for the mercenaries to be hired. +~ +54 dj 0 +S +#5532 +Entrance To The Thieves' Guild~ + This small, dark room has a single torch mounted in the wall for +light. There is a small wooden bench and a book lying on it. The +assassin guarding the entrance from 'outsiders' stands as you walk +in. +~ +54 adeh 0 +D2 +~ +~ +0 -1 5539 +D3 +~ +door secret~ +1 -1 5530 +S +#5533 +The Whet Stone~ + Very large men with very large swords drink beer from very large mugs. +Everything in this room is BIG. The large round tables are scuffed and +nicked from the numerous bar brawls that have sprung up. It might be a +good idea to hold your tounge for a while as you soak up the atmosphere. + There is an exit to the east where the master swordsman awaits pupils +to train with. +~ +54 deh 0 +D0 +~ +~ +0 -1 5526 +D1 +~ +~ +0 -1 5534 +S +#5534 +The Tournament And Practice Yard~ + This is a wide expanse of grass filled with dummies, punching bags +and swordpupils. To the north you see a man dressed in black robes, +unlike his iron clad comrades, who you assume to be your master. +~ +54 deh 0 +D1 +You see the grass near the base of the wall here is slightly torn. +~ +secret door~ +1 -1 5473 +D3 +~ +~ +0 -1 5533 +S +#5535 +The Bread Stand~ + A small stand has been set up here, showing the shopkeep's humble +selection. You notice he has added a few things to his list. +~ +54 d 0 +D0 +~ +~ +0 -1 5408 +S +#5536 +Igor's Implements Of Destruction~ + You can't help but shiver as you look at the selection of vicious +weapons. Huge swords and wicked looking axes hang on pegs around the +room. A dwarf sits at a bench in the back hammering away on his latest +creation. It is here you can buy rare and exotic items not found in +other parts of the world. +A note catches your eye. +~ +54 d 0 +D0 +~ +~ +0 -1 5407 +E +note~ +The note simply reads: + +READ THE NOTE IN THE ARMOURY + + Igor. + +~ +S +#5537 +Ye Old Leather Shoppe~ + You are standing on a thick oriental rug surrounded on all sides by +racks of numerous leather goods. A few women sit on leather cushions +sewing in some detail work on custom ordered jackets. +~ +54 d 0 +D1 +~ +~ +0 -1 5466 +S +#5538 +Smuggler's Inn~ + You are inside a filthy inn, that seemingly has been cleaned in +decades. Poker tables line the walls and everyone stares at you as +you walk in, you don't feel very welcome. The bar has numerous +knife holes in it and the bartender leans over waiting for your +order. +~ +54 d 0 +D3 +~ +~ +0 -1 5467 +S +#5539 +The Filthy Unicorn~ + A draft chills your bones as you enter, though you see no open +window or door. Hooded figures lurk around in the shadows and speak +in low voices. A flash of steel lets you know that weapons are in +great abundance in this crowd. As you quickly check your beltpouch +you notice a small staircase leading down. +~ +54 deh 0 +D0 +~ +~ +0 -1 5532 +D5 +~ +~ +0 -1 5546 +S +#5540 +The Warehouse~ + You are standing in a large room used to store merchandise made in the +city before it is shipped off. All the items here are made in New Thalos +and shipped to other parts of the land. +~ +54 d 0 +D1 +~ +~ +0 -1 5541 +D2 +~ +~ +0 -1 5433 +S +#5541 +The Warehouse~ + Men walk to and fro counting crates and writing down their findings. +This area of the warehouse is used for storing the raw materials brought +in from areas outside the city. These goods are then delivered to the +various guilds. The export area of the warehouses is to the south. +~ +54 d 0 +D2 +~ +~ +0 -1 5434 +D3 +~ +~ +0 -1 5540 +S +#5542 +The Shipwright~ + The wood under you feet creaks from years of being soaked in saltwater. +An old man with a curly, grey beard stand behind a small counter waiting +to take your order. Behind him are mounted various model sailboats and +large fish. +~ +54 d 0 +D1 +~ +~ +0 -1 5543 +D2 +~ +~ +0 -1 5435 +S +#5543 +The Drafting Room~ + The walls are covered with paper sketchings of hull designs. This room +is used by the shipwright to build his creations on paper before making a +single cut in wood. +~ +54 d 0 +D3 +~ +~ +0 -1 5542 +S +#5544 +The Forge~ + Very much like the weaponsmith this man deals in the molding of metal. +It seems that most of his creations deal with horses. On the walls you +see several horseshoes made of iron. The room is hot, hotter than the +desert just south of here, and one wonders how the smithy can stand it. +~ +54 d 0 +D2 +~ +~ +0 -1 5437 +S +#5545 +The Royal Stables~ + Nothing you wouldn't expect is here. Several stalls hold the +Sultan's choice Arabian Stallions, and each has their own trough +for drinking. A small boy wanders in sometimes with a shovel to +remove the offensive by-product of such beasts. +~ +54 d 1 +D1 +~ +~ +0 -1 5549 +D2 +~ +~ +0 -1 5439 +S +#5546 +The Secret Yard~ + This is a hidden yard known to only a few people in New Thalos. Here +you may train in the arts of stealing, picking locks, and becoming almost +invisible. + A small staircase leads back up to the Unicorn. +~ +54 deh 0 +D2 +You see some small scratches in the wall to the south. +~ +secret door~ +1 -1 5489 +D4 +~ +~ +0 -1 5539 +S +#5547 +The Dump~ + This is the place where the people of the city dump their trash. Due +to the constant winds blowing down the moutains the smell is usually blown +outside the walls and over the desert. +~ +54 0 1 +D2 +~ +~ +0 -1 5442 +S +#5548 +The Mage's Laboratory~ + You stand in the top of an old stone tower. Along the walls hundreds +of potions, scroll, and wands lie in disaray. The man you see before you +sits hunched over a small wooden table with two beakers of bubbling liquid +in front of him. He looks up as you enter and smiles broadly. +~ +54 deh 0 +D5 +~ +~ +0 -1 5517 +S +#5549 +The Hay Loft~ + Not as big as the ones you see on farms in the country, this hay loft +serves as a storage area for the horses in the stables. The young boy +you saw with the shovel seems to have takes up residence on the second +story. +~ +54 d 0 +D3 +~ +~ +0 -1 5545 +S +#5550 +The Grand Entrance~ + Nowhere have you seen such an obscene display of wealth then in this +corridor. The shaggy carpeting under your feet makes it seem as if you +are walking on a cloud. Platinum candelabras hang delicately from the +ceiling casting light on the ancient tapestries adorning the walls. The +crick in your neck tells you that it is time to stop staring. To the west +the numerous halls of the palace being and the gate lies to the east. +~ +54 d 0 +D0 +~ +~ +0 -1 5560 +D1 +~ +gate~ +2 5400 5558 +D2 +~ +~ +0 -1 5557 +D3 +~ +~ +0 -1 5605 +S +#5551 +The Library~ + This building holds the vast collection of books and documents +that have been brought here by the commitee apointed to recover the +lost knowledge of Thalos. Rows of shelves filled with book in every +condition line the walls. The air has the aroma of old parchment +and glue. +~ +54 df 0 +D1 +~ +~ +0 -1 5455 +S +#5552 +The Dance Hall~ + You seem to have missed a huge party. The janitors are here cleaning +up the confetti and pieces of food. Hundreds of empty beer mugs on the +tables surrounding the dance floor suggest that the citizens love their +drink. There is still a banner on the wall. +~ +54 d 0 +D1 +~ +~ +0 -1 5456 +E +banner~ +======================================================================== + + H A P P Y B I R T H D A Y T O U S + +======================================================================== +~ +S +#5553 +The Jail~ + You are in jail. For some reason, someone feels that you've screwed +up pretty bad and should be put away safely for a while. +~ +54 defhj 0 +D0 +~ +gate~ +2 5493 5444 +S +#5554 +City Hall~ + You stand inside the administrative head of the city. Here the +decisions regarding city policy are made. Although the Sultan's +word is law, he usually spends his time on affairs outside the city +wall. +~ +54 d 0 +D0 +~ +~ +0 -1 5445 +S +#5555 +The Boyer/Fletchers' Guild~ + The walls in this room are covered with pegs that hold various types +of bows. There are few people working here, lending to the fact that +the skills are rare to come by in the general populas. A few boys are +busy in the corner preparing feathers for the fine shafts used in making +arrows. Some Elven craftsmen are carefuly inspecting each bow as it is +finnished. +~ +54 d 0 +D1 +~ +~ +0 -1 5460 +S +#5556 +The Masons' Guild~ + There is no doubt that the Dwarves here know what they're doing. They +have been invaluable in the building of this beautiful city. Here they +are hard at work doing what they do best. The hammers fly in a blur as +these talented craftsmen work the stone into ornate bricks, pillars, trim, +and many other forms. +~ +54 d 0 +D3 +~ +~ +0 -1 5460 +S +#5557 +The Guard House~ + You stand inside the southern of the two main guard houses. The +stone interior has a spartan look to it, only the bare neccesities. +A few weapons are mounted on the walls in case they might be needed. +~ +54 d 0 +D0 +~ +~ +0 -1 5550 +S +#5558 +The Palace Gate~ + You stand before a magnificantly crafted gate wrought in solid gold. +You gape in awe at the splendor of the spirilng towers beyond the portal. +The ruler of all the eastern lands resides in this fine palace, and he is +not a poor man. The grand entrance lies byond the gate, and Sultan's Walk +is to the east. +~ +54 0 1 +D1 +~ +~ +0 -1 5420 +D3 +~ +gate~ +2 5400 5550 +S +#5559 +The Northwest Tower~ + You stand on one of the four towers guarding the city. The view from +here is great! To the west you see the tall mountains that make up the +divide between here and Midgaard. The River Ishtar slowly flows from that +direction. South you can see the entire city of New Thalos and the Great +Eastern Desert to the south. +~ +54 d 0 +D5 +~ +~ +0 -1 5444 +S +#5560 +The Guard House~ + You stand inside the northern of the two main guard houses. Strong +guards are seated here, playing cards. The stone interior is clean but +bare walled save the weapons and armor mounted in the walls. + The only exit is south. +~ +54 d 0 +D2 +~ +~ +0 -1 5550 +S +#5561 +The Kitchen~ + Your footsteps echo off the stone tiles of the kitchen. On the south +wall you see the large fire place and a huge copper pot bubbling merrily. +The chef is busy chopping up greens and other vegetables at the wooden +table for tonight's meal. Servants scurry about grabbing utensils and +preparing fresh hares. + A small door leads out into the hall northward and the doorway to the +dining hall is west. +~ +54 d 0 +D0 +~ +door~ +1 -1 5563 +D3 +~ +~ +0 -1 5571 +S +#5562 +The Northeast Tower~ + You stand on one of the four towers guarding the city. To the north +you see the wide plains and then the forset. South of here you see the +city and the Great Eastern Desert beyond. +~ +54 d 0 +D5 +~ +~ +0 -1 5454 +S +#5563 +A Hall~ + You are at the eastern end of the southern hallway. A small servants' +entrance gives access to the kitchen and the hall continues west. +~ +54 d 0 +D2 +~ +door small~ +1 -1 5561 +D3 +~ +~ +0 -1 5572 +S +#5564 +The Tanners' Guild~ + You first notice the pungent smell of freshly tanned leather goods as +you enter this strange place. The next thing that grabs your attention +is the many colors that these people have transformed the beautiful +skins into. The people are streaching the leather and cutting it into +the shapes they need. +You notice a small message on a wall. +~ +54 d 0 +D1 +~ +~ +0 -1 5462 +E +message~ +The message appears to read: + + I hate being a Tanner + +~ +S +#5565 +A Hall~ + You have come to the eastern end of the northern hallway. The only +exit is west except for the simple wooden door to the north. +There is a golden plaque above the door. +~ +54 d 0 +D0 +~ +door~ +1 -1 5566 +D3 +~ +~ +0 -1 5574 +E +plaque~ +Engraved on the plaque are the following words: + + The Holy Shrine of Allah + +~ +S +#5566 +The Shrine Of Allah~ + As you step into this room you seem to leave the material plane. +The walls here are decorated with beautiful, multi-colored tiles. +There is a strange stillness about the air. You sense the presence +of an all-mighty being. +~ +54 d 0 +D2 +~ +door~ +1 -1 5565 +S +#5567 +Outside The Northern Gate Of New Thalos~ + You stand outside the gate of New Thalos. The city lies to the south, +and wilderness to the north. +~ +54 c 1 +D0 +~ +~ +0 -1 5681 +D2 +~ +gate~ +1 5401 5422 +S +#5568 +Outside The Eastern Gate Of New Thalos~ + You stand outside the protective walls of the city. The massive iron +gate sits to the west and the unknown awaits you eastward. +~ +54 0 1 +D1 +~ +~ +0 -1 5690 +D2 +~ +~ +0 -1 5570 +D3 +~ +gate~ +1 5401 5431 +S +#5569 +Outside The West Gate Of New Thalos~ + You stand outside the city walls, the iron gate to the east. The city +lies in that direction and the road to Midgaard lies west. +~ +54 0 1 +D1 +~ +gate~ +1 5401 5423 +D3 +~ +~ +0 -1 5618 +S +#5570 +Outside The Wall~ + You are in a small clearing outside the east wall of the city. The +ground seems well trodden but you can see no apparent exit save that +to the north. +~ +54 0 2 +D0 +~ +~ +0 -1 5568 +S +#5571 +The Grand Dining Hall~ + A long oaken table, coverd with silverware, plates, and a table cloth +with gold trim, dominates the room. Although no diners occupy the room +as of yet, servants sprint about setting the table and placing condiments. + The kitchen entrance is to the east, and two huge double doors open +into the hallway north. +~ +54 d 0 +D0 +~ +doors double~ +1 -1 5572 +D1 +~ +~ +0 -1 5561 +S +#5572 +A Hall~ + You stand at a T-crossing in the long hallways. There are two large +double doors to the south. +~ +54 d 0 +D0 +~ +~ +0 -1 5573 +D1 +~ +~ +0 -1 5563 +D2 +~ +doors double~ +1 -1 5571 +D3 +~ +~ +0 -1 5577 +S +#5573 +A Hall~ + You stand at an intersection of the hallways. Wooden corridors +lead off in all directions except west, the garden of the palace +can be entered there. +~ +54 d 0 +D0 +~ +~ +0 -1 5574 +D1 +~ +~ +0 -1 5605 +D2 +~ +~ +0 -1 5572 +D3 +~ +~ +0 -1 5578 +S +#5574 +A Hall~ + You have come to a T-crossing on the hallways. The wooden corridors +continue east, west and south. There is a large iron door to the north. +~ +54 d 0 +D0 +~ +door iron heavy~ +1 -1 5575 +D1 +~ +~ +0 -1 5565 +D2 +~ +~ +0 -1 5573 +D3 +~ +~ +0 -1 5579 +S +#5575 +The Entrance To The Dungeon~ + You enter a cold damp room with bare roughly hewn stone walls. +This room seems very out of place compared to the splendor of the +rest of the Palace. + A large steel grating leads down into darkness, and an iron door +returns you to the hallway. +~ +54 d 0 +D2 +~ +door iron~ +1 -1 5574 +D5 +~ +grating steel~ +1 -1 5591 +S +#5576 +A Guest Room~ + This is a simple room used for visiting nobles. A small dresser stands +on the east wall with a mirror hung right above it. A queen sized bed made +up in satin sheets stands in the middle of the room against the south +wall under a window. The only obvious exit is north back out into the +hallway. +~ +54 d 0 +D0 +~ +door~ +1 -1 5577 +E +window~ +Looking out this window you can see the grounds of the palace that +seperate the walls of the palace from the building itself. +~ +E +mirror~ +You see a the fighting image of some armor clad humanoid wielding a weapon. +~ +S +#5577 +A Hall~ + The long hall continues here with a wooden door in the south wall. On +the north wall hangs the picture of some forgotten nobleman who once ruled +the land. +~ +54 d 0 +D1 +~ +~ +0 -1 5572 +D2 +~ +door~ +1 -1 5576 +D3 +~ +~ +0 -1 5582 +S +#5578 +The Sultan's Garden~ + You have entered the Sultan's private gardens. A light sweat breaks +out on your skin from the humidity here. All around you are thousands of +exotic plants and flowers. The sweet smell of jasmine and honeysuckle +reminds you of happier days at home. Off to the north, through the palm +trees, you see a delicate white gazebo. + A path leads out into the hallway and west towards the gazebo. +To your right stands a gold sign. +~ +54 0 2 +D1 +~ +~ +0 -1 5573 +D3 +~ +~ +0 -1 5583 +E +sign~ +========================================================================= +========================================================================= +|| || +|| || +|| || +|| || +|| Welcome to my humble garden. I have created this || +|| tiny bit of paradise for the pleasure of my people. || +|| Take only memories... Leave only footprints... || +|| || +|| || +|| || +|| The Sultan || +|| || +|| || +|| || +========================================================================= +========================================================================= +~ +S +#5579 +A Hall~ + The long stretch of hallway continues east and west from here. The +small red carpet covering the centerline is always underfoot and an +occasional bench or potted plant lines the wall. +There is a door here to the north with a plaque mounted over it. +~ +54 d 0 +D0 +~ +door~ +1 -1 5580 +D1 +~ +~ +0 -1 5574 +D3 +~ +~ +0 -1 5584 +E +plaque door~ +The plaque on the door reads: + + THE ART EXHIBIT + of + NEW THALOS + + - the management is not responsible for lost items. + +~ +S +#5580 +The Art Exhibit~ + You are standing in the Sultan's tribute to the finer virtues. +Large paintings hang from the walls displaying nature scenes, nudes, +and glorious victories in battle. Strange scupltures rest on pedestals +at each corner of the room and mirrors are placed in strategic locations +so the viewer may see an entire sculpture at a glance. + Your eyes, however, are pulled towards a painting that dominates the +far wall. +~ +54 d 0 +D2 +~ +door~ +1 -1 5579 +E +painting~ +The large painting on the west wall appears to be of the temple of New +Thalos, and occupies the entire western wall of this room. +~ +S +#5581 +A Guest Room~ + This is another room made up for visiting nobles. There is a dresser +up against the eastern wall with a mirror above it and a queen sized bed, +made up in satin sheets, against the south wall. +~ +54 d 0 +D0 +~ +door~ +1 -1 5582 +S +#5582 +A Hall~ + You have reached the western end of the southern hallway. The only +exit is east except for the doors in the southern and western walls. +~ +54 d 0 +D1 +~ +~ +0 -1 5577 +D2 +~ +door~ +1 -1 5581 +D3 +~ +door~ +2 5401 5587 +S +#5583 +The Garden Gazebo~ + Walking through the gardens you come across a small white wooden +structure. The sounds of birds, the smell of flowers, ahhh, paradise. +You believe that you have never been in a more peaceful setting. +~ +54 d 0 +D1 +~ +~ +0 -1 5578 +S +#5584 +A Hall~ + This is the western end of the northern hallway. Two doors are set +in the walls here, one to the north, another to the west. +~ +54 d 0 +D0 +~ +door~ +1 -1 5585 +D1 +~ +~ +0 -1 5579 +D3 +~ +door~ +1 -1 5589 +S +#5585 +The Guard Room~ + You stand in a barren chamber lined with nothing but cots and +footlockers. The guards come here when off duty to sleep, for +they may only leave the Palace grounds with special permission. + The only exit is to the south. +~ +54 d 0 +D2 +~ +door~ +1 -1 5584 +S +#5586 +The Guard Room~ + This is living quarters for the guards of the palace. Barren compared +to the rest of the Palace, you see only cots and footlockers here. On the +walls you see pictures of well known knights who have give a proud name to +the Sultan's Guard. +~ +54 d 0 +D0 +~ +~ +0 -1 5587 +S +#5587 +The Harem~ + This is the room where the Sultan keeps the beautiful women of his +Palace. There are ten girls here lying about the room dressed in silks +you can almost see through. In the western end of the room stands a +large mound of pillows and a beautiful young maiden sits perched atop. +It is unfortunate for you that only the Sultan is allowed in here. +~ +54 d 0 +D0 +~ +door secret~ +1 -1 5588 +D1 +~ +door~ +2 5401 5582 +D2 +~ +~ +0 -1 5586 +S +#5588 +A Small room~ + This is secret chamber allowing the Sultan direct access to his harem +at any time he chooses. +~ +54 d 0 +D0 +~ +door~ +1 -1 5589 +D2 +~ +door secret~ +1 -1 5587 +S +#5589 +The Throne Room~ + You stand in the throne room of the mighty Sultan of New Thalos. Guards +stand at attention near his side ready to make the ultimate sacrifice for +their beloved leader. The gold inlaid throne studded with jewels stands +upon a mable dias. The Sultan is not a man to be trifled with. +~ +54 d 0 +D0 +~ +throne~ +2 5400 5590 +D1 +~ +door~ +1 -1 5584 +D2 +~ +door~ +1 -1 5588 +S +#5590 +The Treasure Room~ + You have somhow managed to gain access to the treaure vault of the +Sultan. The alarm sounding in the background tells you that you must +have tripped off some kind of alarm system. It might be adviseable to +grab as much stuff as you possibly can and run for the door. +~ +54 d 0 +D2 +~ +door~ +2 5400 5589 +S +#5591 +The Jailer's Room~ + Climbing down the old wooden ladder you enter a small cave like +room. There is a small bench with some old magazines and a low +burning candle sitting off to one side. A door is set into the +stone on the north wall, and the steel grating opens up above. +~ +54 ad 0 +D1 +~ +door~ +1 -1 5592 +D4 +~ +steel~ +1 -1 5575 +S +#5592 +A Tunnel In The Dungeon~ + You stand in a roughly hewn stone tunnel with cells to the north and +south. The tunnel continues east. +~ +54 ad 0 +D0 +~ +cell~ +2 5493 5597 +D1 +~ +~ +0 -1 5593 +D2 +~ +cell~ +2 5493 5601 +D3 +~ +door~ +1 -1 5491 +S +#5593 +A Tunnel In The Dungeon~ + You stand in a roughly hewn stone tunnel with cells to the north and +south. The tunnel continues east and west. +~ +54 ad 0 +D0 +~ +cell~ +2 5493 5598 +D1 +~ +~ +0 -1 5594 +D2 +~ +cell~ +2 5493 5602 +D3 +~ +~ +0 -1 5592 +S +#5594 +A Tunnel In The Dungeon~ + You stand in a roughly hewn stone tunnel with cells to the north and +south. The tunnel continues east and west. +~ +54 ad 0 +D0 +~ +cell~ +2 5493 5599 +D1 +~ +~ +0 -1 5595 +D2 +~ +cell~ +2 5493 5603 +D3 +~ +~ +0 -1 5593 +S +#5595 +A Tunnel In The Dungeon~ + You stand in a roughly hewn stone tunnel with cells to the north and +south. The tunnel continues west and you notice a small crack in the +stone to the east. +~ +54 ad 0 +D0 +~ +cell~ +2 5493 5600 +D1 +~ +crack~ +2 5400 5596 +D2 +~ +cell~ +2 5493 5604 +D3 +~ +~ +0 -1 5594 +S +#5596 +The Secret Cell~ + This room seems more like a lair than a cell. Small bits of hay lie +strewn about the floor covering bones of unkown origin. Spatterd blood +and tufts of grey hair lie matted in one corner. As you turn to leave +you notice a pair of small red eyes peering at you from the darkness. +~ +54 adfj 0 +D3 +~ +crack~ +2 5400 5595 +S +#5597 +The Cell~ + You are in a cold, cramped chamber with only one exit. +~ +54 adfj 0 +D2 +~ +cell~ +2 5493 5592 +S +#5598 +The Cell~ + You are in a cold, cramped chamber with only one exit. +~ +54 adfj 0 +D2 +~ +cell~ +2 5493 5593 +S +#5599 +The Cell~ + You are in a cold, cramped chamber with only one exit. +~ +54 adfj 0 +D2 +~ +cell~ +2 5493 5594 +S +#5600 +The Cell~ + You are in a cold, cramped chamber with only one exit. +~ +54 adfj 0 +D2 +~ +cell~ +2 5493 5595 +S +#5601 +The Cell~ + You are in a cold, cramped chamber with only one exit. +~ +54 adfj 0 +D0 +~ +cell~ +2 5493 5592 +S +#5602 +The Cell~ + You are in a cold, cramped chamber with only one exit. +~ +54 adfj 0 +D0 +~ +cell~ +2 5493 5593 +S +#5603 +The Cell~ + You are in a cold, cramped chamber with only one exit. +~ +54 adfj 0 +D0 +~ +cell~ +2 5493 5594 +S +#5604 +The Cell~ + You are in a cold, cramped chamber with only one exit. +~ +54 adfj 0 +D0 +~ +cell~ +2 5493 5595 +S +#5605 +A Hall~ + You stand in a large cedar wood hall leading east and west. On the +floor lies a thin and narrow purple rug. The hall leads west inside the +Palace and east to the Grand Entrance. +~ +54 d 0 +D1 +~ +~ +0 -1 5550 +D3 +~ +~ +0 -1 5573 +S +#5606 +A Path Through The Mountains~ + The narrow path turns here heading south and west. +~ +54 0 5 +D2 +~ +~ +0 -1 5607 +D3 +~ +~ +0 -1 5611 +S +#5607 +A Path Through The Mountains~ + Travel is hard and slow as you almost have to climb around large +boulders strewn about the path. +~ +54 0 5 +D0 +~ +~ +0 -1 5606 +D1 +~ +~ +0 -1 5608 +S +#5608 +The Edge Of The Ravine~ + The ground drops off below down to a rushing river. A small rope +bridge sways to and fro in the wind giving you access to the other +side. +~ +54 0 5 +D1 +~ +~ +0 -1 5609 +D3 +~ +~ +0 -1 5607 +S +#5609 +On A Rope Bridge~ + The small rope bridge shudders under your weight as you make your +way across the valley. +~ +54 0 2 +D1 +~ +~ +0 -1 5627 +D3 +~ +~ +0 -1 5608 +S +#5610 +The Ledge Around The Valley~ + You are walking around a small ledge overlooking a large valley +deep within the eastern mountains. The ledge turns north following +the shape of the valley and a steep trail continues to the east. +~ +54 0 5 +D0 +This can be used to add something onto... such as the valley that is +supposed to exist here. (= +~ +~ +0 -1 -1 +D1 +~ +~ +0 -1 5611 +S +#5611 +A Path Through The Mountains~ + You are walking through a rock strewn path deep within the mountains +east of Midgaard. The going is rough and you constantly twist your +ankle on the small stones lying about. +~ +54 0 5 +D1 +~ +~ +0 -1 5606 +D3 +~ +~ +0 -1 5610 +S +#5612 +On The Eastern Edge Of The Mountains~ + You stand on the eastern edge of the eastern mountains. The high +peaks lie to the west and rolling hills and plains open up to your +east. +~ +54 0 5 +D2 +~ +~ +0 -1 5613 +D3 +~ +~ +0 -1 5629 +S +#5613 +In The Foothills~ + The path curves down the face of the mountain allowing you to +move up or down the face of this missive hunk of stone. +~ +54 0 5 +D0 +~ +~ +0 -1 5612 +D1 +~ +~ +0 -1 5614 +S +#5614 +In The Foothills~ + The path curves down the face of the mountain allowing you to +move up or down as you please. +~ +54 0 5 +D2 +~ +~ +0 -1 5615 +D3 +~ +~ +0 -1 5613 +S +#5615 +A Rocky Trail~ + The faint sound of a flowing river reaches your ears from the south and +through the trees you can see water. The path you are on continues north +and east from here. +~ +54 0 5 +D0 +~ +~ +0 -1 5614 +D1 +~ +~ +0 -1 5630 +D2 +~ +~ +0 -1 5645 +S +#5616 +On A Road~ + This long road continues to the east and south. +~ +54 0 2 +D1 +~ +~ +0 -1 5617 +D2 +~ +~ +0 -1 5633 +S +#5617 +On A Road~ + The well kept road continues east and west from here. +~ +54 0 2 +D1 +~ +~ +0 -1 5618 +D3 +~ +~ +0 -1 5616 +S +#5618 +On A Road~ + You stand on a well maintained road leading east towards New Thalos +and west towards the Eastern Mountains. To the north you can see wide +plains stretching out as far as the eye can see. South of you begins +a dark green forest. +~ +54 0 2 +D1 +~ +~ +0 -1 5569 +D3 +~ +~ +0 -1 5617 +S +#5619 +The Headwaters Of The River Of Lost Souls~ + You are at the headwaters of what is oft called the darkest river +in the land. Looking at the swampy water pooling in this rocky valley, +you can see why the water downstream is so dark. The rock walls reach +up around you blocking all exits except that to the north up onto the +banks, and to the south where the river flows. +~ +54 0 7 +D0 +There is a small path leading away from the bank just to the north. +~ +~ +0 -1 1500 +D2 +The waters of this swampy pool are flowing slowly towards the south. +~ +~ +0 -1 5634 +S +#5620 +River Ishtar~ + The river calms a bit after being thrashed in the interior of +the mountain. Although still deep within the rocks you can see +faint traces of green to the east. +~ +54 0 7 +D1 +~ +~ +0 -1 5621 +D3 +~ +~ +0 -1 5639 +S +#5621 +River Ishtar~ + The river flows east and west through the hills. +~ +54 0 7 +D1 +~ +~ +0 -1 5622 +D3 +~ +~ +0 -1 5620 +S +#5622 +River Ishtar~ + The river begins its decent out of the mountains now and continues +its flow to the east. +~ +54 0 7 +D1 +~ +~ +0 -1 5644 +D3 +~ +~ +0 -1 5621 +S +#5623 +River Ishtar~ + The river flows under the wall of the city to the east and stretches +off towards high snow capped mountains far far to the west. +~ +54 0 7 +D1 +~ +grating~ +1 -1 5487 +D3 +~ +~ +0 -1 5649 +S +#5624 +River Ishtar~ + The river flows out from the city down a long winding gully towards +the Sea of Dragons. To the south of you lies the Great Eastern Desert +and north a wide open expanse of grass. You can just barely make out +a road that seems to be traveling along side the river but the +banks are to steep for you to see very far. +~ +54 0 7 +D1 +~ +~ +0 -1 5625 +D3 +~ +~ +0 -1 5483 +S +#5625 +River Ishtar~ + The river continues its descent down the lowlands flowing ever so +gently south. It is hard to believe this is the same river that came +cascading down the mountainside. +~ +54 0 7 +D1 +~ +~ +0 -1 5626 +D3 +~ +~ +0 -1 5624 +S +#5626 +River Ishtar~ + Small animals and herd animals can be heard in the distance, though +you don't actually see any near the river. Perhaps the steep slopes +pervent them from using the river. +~ +54 0 7 +D1 +~ +~ +0 -1 5684 +D3 +~ +~ +0 -1 5625 +S +#5627 +The Edge Of The Ravine~ + You stand at the edge of a really long drop down. A small rope +bridge has conviently been placed here to allow you access to the +other side of the bridge. Unfortunately the wind seems to be kicking +up making the bridge sway slightly. The path leads off through the +mountains to the east. +~ +54 0 5 +D1 +~ +~ +0 -1 5628 +D3 +~ +~ +0 -1 5609 +S +#5628 +A Path Through The Mountains~ + The narrow path makes its way through the mountains east +and west. You hear the squawking of a large bird over head +most likely a buzzard waiting for you to drop. +~ +54 0 5 +D1 +~ +~ +0 -1 5629 +D2 +~ +~ +0 -1 4049 +D3 +~ +~ +0 -1 5627 +S +#5629 +A Path Through The Mountains~ + A large boulder suddenly decides it wants to occupy the same space +you are currently standing in. +~ +54 0 5 +D1 +~ +~ +0 -1 5612 +D3 +~ +~ +0 -1 5628 +S +#5630 +On A Road~ + The road you are on continues east and west. +~ +54 0 4 +D1 +~ +~ +0 -1 5631 +D3 +~ +~ +0 -1 5615 +S +#5631 +On A Road~ + The road you are on continues east and west. +~ +54 0 2 +D1 +~ +~ +0 -1 5632 +D3 +~ +~ +0 -1 5630 +S +#5632 +On A Road~ + The road you are on continues east and west. +~ +54 0 2 +D1 +~ +~ +0 -1 5633 +D3 +~ +~ +0 -1 5631 +S +#5633 +On A Road~ + The road bends here toward the riverbank giving access to +the River Ishtar. The road continues north and west from the +river bank. +~ +54 0 2 +D0 +~ +~ +0 -1 5616 +D2 +~ +~ +0 -1 5649 +D3 +~ +~ +0 -1 5632 +S +#5634 +The River Of Lost Souls~ + The river flows south through a valley in the mountains. You can see +a small village to the west. +~ +54 0 7 +D0 +~ +~ +0 -1 5619 +D2 +~ +~ +0 -1 5635 +S +#5635 +The River Of Lost Souls~ + The river flows south in the southern end of this wide valley. The +walls of the valley close in to the south. +~ +54 0 7 +D0 +~ +~ +0 -1 5634 +D2 +~ +~ +0 -1 5636 +S +#5636 +The River Of Lost Souls~ + The river begins to speed up as it cascades down this mountain +crevice. High above you a small rope bridge sways in the wind. +~ +54 0 7 +D0 +~ +~ +0 -1 5635 +D2 +~ +~ +0 -1 5637 +S +#5637 +The River Of Lost Souls~ + The river rapidly flows down this crack in the side of the mountain +to the south. Hopefully you will hear any aproaching rapids. +~ +54 0 7 +D0 +~ +~ +0 -1 5636 +D2 +~ +~ +0 -1 5638 +S +#5638 +The River Of Lost Souls~ + The river seems to calm a bit as the crevase widens lessens +its stranglehold on the waters. The river continues to the north +through a crack and flows to the south. +~ +54 0 7 +D0 +~ +~ +0 -1 5637 +D2 +~ +~ +0 -1 5639 +S +#5639 +A Split In The River~ + The waters of the river crash down upon a rock and split into +two bodies of water. The river you are on continues its southern +course and the new river heads off to the east. To your west you +notice that the rocks have split and crumbled as if torn asunder +by some massive force. It looks impossible to traverse. The River +of Lost Souls also continues to the north. +~ +54 0 7 +D0 +~ +~ +0 -1 5638 +D1 +~ +~ +0 -1 5620 +D2 +~ +~ +0 -1 5640 +S +#5640 +The River Of Lost Souls~ + The river continues north and south from here through a water +eroded valley. +~ +54 0 7 +D0 +~ +~ +0 -1 5639 +D2 +~ +~ +0 -1 5641 +S +#5641 +The River Of Lost Souls~ + The river continues north and south from here through a water +eroded valley. +~ +54 0 7 +D0 +~ +~ +0 -1 5640 +D2 +~ +~ +0 -1 5642 +S +#5642 +The River Of Lost Souls~ + The river continues north and south from here through a water +eroded valley. +~ +54 0 7 +D0 +~ +~ +0 -1 5641 +D2 +~ +~ +0 -1 5643 +S +#5643 +The River Of Lost Souls~ + The river makes a sharp bend here and heads south into a large +mountain and north through a valley. On a ledge above you, and to +the west, you can see movement. +~ +54 0 7 +D0 +~ +~ +0 -1 5642 +D2 +~ +~ +0 -1 5004 +S +#5644 +River Ishtar~ + The river widens here, no longer bounded by rock, and flows east +towards a plain. +~ +54 0 7 +D1 +~ +~ +0 -1 5645 +D3 +~ +~ +0 -1 5622 +S +#5645 +River Ishtar~ + The river continues here east to east. There is a landing area to +the north where you can gain access to the shore. +~ +54 0 7 +D0 +~ +~ +0 -1 5615 +D1 +~ +~ +0 -1 5646 +D3 +~ +~ +0 -1 5644 +S +#5646 +River Ishtar~ + The river meanders through the foothills of the eastern mountains. +The air is dryer on this side of the continental divide and it seems +a bit warmer. +~ +54 0 7 +D1 +~ +~ +0 -1 5647 +D3 +~ +~ +0 -1 5645 +S +#5647 +River Ishtar~ + The river continues its journey eastward flowing through the +plains. To the west you see the peaks of large snow capped +mountains and to the east you see the outline of a large city. +~ +54 0 7 +D1 +~ +~ +0 -1 5648 +D3 +~ +~ +0 -1 5646 +S +#5648 +River Ishtar~ + The river flows east and west from here. +~ +54 0 7 +D1 +~ +~ +0 -1 5649 +D3 +~ +~ +0 -1 5647 +S +#5649 +River Ishtar~ + The river slows as it widens and meanders through the lowlands. A +small dock give access to the north shore. +~ +54 0 7 +D0 +~ +~ +0 -1 5633 +D1 +~ +~ +0 -1 5623 +D3 +~ +~ +0 -1 5648 +S +#5651 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 5 +D0 +~ +~ +0 -1 5652 +D1 +~ +~ +0 -1 5656 +D2 +~ +~ +0 -1 5654 +D3 +~ +~ +0 -1 5657 +S +#5652 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 5 +D0 +~ +~ +0 -1 5652 +D1 +~ +~ +0 -1 5655 +D2 +~ +~ +0 -1 5652 +D3 +~ +~ +0 -1 5651 +S +#5653 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 5 +D0 +~ +~ +0 -1 5654 +D1 +You see a large boulder blocking your path. +~ +boulder rock crack~ +1 -1 5639 +D2 +~ +~ +0 -1 5656 +D3 +~ +~ +0 -1 5657 +S +#5654 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 5 +D0 +~ +~ +0 -1 5654 +D1 +~ +~ +0 -1 5658 +D2 +~ +~ +0 -1 5657 +D3 +~ +~ +0 -1 5660 +S +#5655 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 5 +D0 +~ +~ +0 -1 5655 +D1 +~ +~ +0 -1 5659 +D2 +~ +~ +0 -1 5658 +D3 +~ +~ +0 -1 5654 +S +#5656 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 0 +D0 +~ +~ +0 -1 5653 +D1 +~ +~ +0 -1 5658 +D2 +~ +~ +0 -1 5655 +D3 +~ +~ +0 -1 5651 +S +#5657 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 5 +D0 +~ +~ +0 -1 5654 +D1 +~ +~ +0 -1 5658 +D2 +~ +~ +0 -1 5654 +D3 +~ +~ +0 -1 5654 +S +#5658 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 5 +D0 +~ +~ +0 -1 5655 +D1 +~ +~ +0 -1 5657 +D2 +~ +~ +0 -1 5659 +D3 +~ +~ +0 -1 5654 +S +#5659 +In The Mountains~ + You are walking over rocks and stones through the mountains between +the Ishtar and Dark rivers. + It is funny how all the rocks look alike. +~ +54 0 5 +D0 +~ +~ +0 -1 5652 +D1 +~ +~ +0 -1 5659 +D2 +~ +~ +0 -1 5654 +D3 +~ +~ +0 -1 5658 +S +#5660 +The Headwaters Of The Dark River~ + A large natural spring issues forth from the heart of the mountain +and flows west down the mountain. It looks like there was a terrible +earthquake here not too long ago, and a path that leads eastwards +through the mountains is covered with rocks, making passage difficult. +~ +54 a 7 +D1 +~ +~ +0 -1 5654 +D3 +~ +~ +0 -1 5661 +S +#5661 +On The Dark River~ + The river flows down the mountain through a large crevasse to the west +and up into the mountains east. +~ +54 a 7 +D1 +~ +~ +0 -1 5660 +D3 +~ +~ +0 -1 5662 +S +#5662 +On The Dark River~ + The walls of this canyon tower overhead as the river continues east +and west from here. +~ +54 a 7 +D1 +~ +~ +0 -1 5661 +D3 +~ +~ +0 -1 5663 +S +#5663 +On The Dark River~ + The walls of rock around you slowly shrink to ground level as the river +flows out of the mountains and onto the plains. +~ +54 a 7 +D1 +~ +~ +0 -1 5662 +D3 +~ +~ +0 -1 5664 +S +#5664 +On The Dark River~ + The river continues east and west from here out of the foothills +to the east down into the mountains south of here. +~ +54 a 7 +D1 +~ +~ +0 -1 5663 +D2 +~ +~ +0 -1 5665 +S +#5665 +On The Dark River~ + The river, following a low spot in the foothills, bends and twists. +Tall mountains can be seen off to the south and east. +~ +54 a 7 +D0 +~ +~ +0 -1 5664 +D2 +~ +~ +0 -1 5666 +S +#5666 +On The Dark River~ + The river makes a wide sweeping turn here into the mountain. +~ +54 a 7 +D0 +~ +~ +0 -1 5665 +D3 +~ +~ +0 -1 5667 +S +#5667 +On The Dark River~ + The river flows west from here into the heart of the mountain and +east towards the foothills once more. +~ +54 ad 7 +D1 +~ +~ +0 -1 5666 +D3 +~ +~ +0 -1 5668 +S +#5668 +On The Dark River~ + You can barely make out what is ahead of you as the river flows +quietly through the passageway. +~ +54 ad 7 +D1 +~ +~ +0 -1 5667 +D2 +~ +~ +0 -1 5669 +S +#5669 +On The Dark River~ + The river slowly flows west towards the heart of the mountain. There +are small cracks in the passage wall to the north where you might be able +to get up out of the water. +~ +54 ad 7 +D0 +~ +~ +0 -1 5672 +D1 +~ +~ +0 -1 5668 +D3 +~ +~ +0 -1 5670 +S +#5670 +On The Dark River~ + The river continues east and west from here flowing south of a dark +ledge high above the water level. +~ +54 ad 7 +D1 +~ +~ +0 -1 5669 +D3 +~ +~ +0 -1 5671 +S +#5671 +On The Dark River~ + The river flows south through a narrowing part of the passage as it +progresses deeper into the mountain. +~ +54 ad 7 +D1 +~ +~ +0 -1 5670 +D2 +~ +~ +0 -1 5005 +S +#5672 +On A Small Ledge~ + You clamber out of the water up onto this narrow ledge to see if +it leads deeper into the mountain. Unfortunately, the ledge is only +wide enough to rest upon for a while and there does not appear to be +any other exits other than rejoining the underground river. +~ +54 ad 2 +D2 +~ +~ +0 -1 5669 +S +#5681 +On The Plains~ + You stand on an open expanse of grass extending in all directions. +To the south of you stand the might northern gates of New Thalos. East +and west of you the grassy fields continue and north, in the distance, +you see a line of trees. +~ +54 0 2 +D0 +~ +~ +0 -1 5682 +D1 +~ +~ +0 -1 5681 +D2 +~ +~ +0 -1 5567 +D3 +~ +~ +0 -1 5681 +S +#5682 +On The Plains~ + You stand on an open field of grass. The forest to the north is +closer but still a good distance away. To the south a small dirt +path has been trodden into the ground heading towards New Thalos. +~ +54 0 2 +D0 +~ +~ +0 -1 5683 +D1 +~ +~ +0 -1 5682 +D2 +~ +~ +0 -1 5681 +D3 +~ +~ +0 -1 5682 +S +#5683 +The Edge Of The Forest~ + You stand at the edge of a huge forest. The line of trees +continues as far as the eye can see to the east and west. A +large expanse of grass spreads out to the south. +~ +54 0 2 +D1 +~ +~ +0 -1 5683 +D2 +~ +~ +0 -1 5682 +D3 +~ +~ +0 -1 5683 +S +#5684 +River Ishtar~ + The river broadens even more here and the waters become murky. +The smell of saltwater has reached you from the east. The Dragon +Sea cannot be far away. To the east you can see the faint outline +of a city and to the north you see a large expanse of grass. +~ +54 0 7 +D1 +~ +~ +0 -1 5685 +D3 +~ +~ +0 -1 5626 +S +#5685 +The River Delta~ + This is where the river empties out into the Dragon Sea. The backrush +of water has kicked up a lot of sand and the blue sea is stained where +the river empties. Looking west all you can see is water... all the way +to the horizon. North of here is a small dock you think you should be +able to reach with out too much trouble. The river stretches off to the +west back towards New Thalos. +~ +54 0 7 +D1 +~ +~ +0 -1 5686 +D3 +~ +~ +0 -1 5684 +S +#5686 +The Dragon Sea~ + You are on the clear blue seas of the Dragon Sea. Water extends +in all directions as far as the eye can see. Off in the distance +you think you might see a small dock to the north. +~ +54 0 7 +D0 +~ +~ +0 -1 5687 +D1 +~ +~ +0 -1 5686 +D2 +~ +~ +0 -1 5686 +D3 +~ +~ +0 -1 5685 +S +#5687 +The Dragon Sea~ + The Dragon Sea comes up along the shore here. The deep blue waters +rolling in and crashing against the beach. To the north you see a +small dock jutting out into the surf. +~ +54 0 7 +D0 +~ +~ +0 -1 5695 +D1 +~ +~ +0 -1 5696 +D2 +~ +~ +0 -1 5686 +S +#5688 +The Dragon Sea~ + You are on the clear blue seas of the Dragon Sea. Water extends +in all directions as far as the eye can see. Off in the distance +you think you might see a small dock to the west. +~ +54 0 7 +D0 +~ +~ +0 -1 5688 +D1 +~ +~ +0 -1 5697 +D2 +~ +~ +0 -1 5695 +S +#5689 +The Dragon Sea~ + You are on the clear blue seas of the Dragon Sea. Water extends +in all directions as far as the eye can see. Off in the distance +you think you might see a small dock to the west. +~ +54 0 7 +D0 +~ +~ +0 -1 5697 +D1 +~ +~ +0 -1 5689 +D2 +~ +~ +0 -1 5696 +D3 +~ +~ +0 -1 5695 +D5 +~ +~ +0 -1 5698 +S +#5690 +On A Road~ + The people of New Thalos take great pride in the services their +city may provide. One of these services is the construction crews +the go to great lengths to keep all the roads in order. Although +the taxes in New Thalos are higher then other cities in the realm +most of the money is used for the good of the people. +~ +54 0 2 +D1 +~ +~ +0 -1 5691 +D3 +~ +~ +0 -1 5568 +S +#5691 +On A Road~ + You walk along a well used road with beautiful scenery. To the north +tall pine trees form a wall that goes on for miles. Between the road +and the trees lies a great expanse of grassy plains. South of here, +beyond the river, lies the Great Eastern Desert. The road continues +east and west. +~ +54 0 2 +D1 +~ +~ +0 -1 5692 +D3 +~ +~ +0 -1 5690 +S +#5692 +On A Road~ + The Dragon Sea can be seen to the east now spreading out to unknown +lands. The road continues east and west. To the south you hear the +sounds of boats traveling the River Ishtar delivering goods. +~ +54 0 2 +D1 +~ +~ +0 -1 5693 +D3 +~ +~ +0 -1 5691 +S +#5693 +On A Road~ + This is the man land route through the land. Merchants can bring +their goods to the coastline and have them ferried onto ships for +export. Travel by foot west will take you through New Thalos up and +over the Eastern Mountains and down into Midgaard. +~ +54 0 2 +D1 +~ +~ +0 -1 5694 +D3 +~ +~ +0 -1 5692 +S +#5694 +Near The Shore~ + The road ends here turning into a small dirt path leading down the +beach and onto a dock. To the north and south you see the coastline +stretching out before you. West of here the lowlands roll up into +huge snow capped mountains. +~ +54 0 2 +D1 +~ +~ +0 -1 5695 +D3 +~ +~ +0 -1 5693 +S +#5695 +On A Dock~ + You stand on a simple wooden dock that acts as an extension of the +road to the west. The dock seems to have been here for quite a long +time but is still sturdy. A small ladder has been built on the eastern +end to allow easy access to and from ships. +~ +54 0 1 +D0 +~ +~ +0 -1 5688 +D1 +~ +~ +0 -1 5689 +D2 +~ +~ +0 -1 5687 +D3 +~ +~ +0 -1 5694 +S +#5696 +The Dragon Sea~ + You are on the clear blue seas of the Dragon Sea. Water extends in +all directions as far as the eye can see. Off in the distance you think +you might see a small dock to the west. +~ +54 0 7 +D0 +~ +~ +0 -1 5689 +D1 +~ +~ +0 -1 5696 +D3 +~ +~ +0 -1 5687 +S +#5697 +The Dragon Sea~ + The ocean spreads out in all directions rolling gently. In the +distance you can see an island on the horizon. To the west you see +the mainland. +~ +54 0 7 +D0 +~ +~ +0 -1 5697 +D1 +~ +~ +0 -1 5697 +D2 +~ +~ +0 -1 5689 +D3 +~ +~ +0 -1 5688 +S +#5698 +Under The dock~ + You are swiming underneath the dock. You can see the four wooden +pylons that support the structure. The murky water clouds you vision +as you gaze westward, but you think you can make out an iron grating +in that direction. +~ +54 1 7 +D3 +~ +grate~ +1 -1 5699 +D4 +~ +~ +0 -1 5697 +S +#5699 +The Lair Of The Ixitxachitl~ + Blood swirls around in the water as the Ixitxachitl devours the +last of its meal. Swirling around quickly as you intrude upon his +meal the large sting ray attacks! +~ +54 1 7 +D1 +~ +grate~ +1 -1 5698 +S +$ diff --git a/lib/world/wld/60.wld b/lib/world/wld/60.wld new file mode 100644 index 0000000..482a0f5 --- /dev/null +++ b/lib/world/wld/60.wld @@ -0,0 +1,2073 @@ +#6000 +The Edge Of The Forest~ + You are standing at the end of a dusty road, near the eastern edge of the +large forest of Haon-Dor. To the east you see the road heading back to the +walled city, Midgaard, and to the west is a narrow trail leading through the +forest. +~ +60 0 2 +D1 +To the east a dusty road takes you back to the walls of Midgaard, and its large +west gate. +~ +~ +0 -1 6090 +D3 +You see a narrow forest trail winding westward in between the trees. +~ +~ +0 -1 6001 +E +trail~ +The forest trail winds westwards through the trees. +~ +E +tree trees~ +The trees are quite tall considering most of them appear to be quite young. +On one of the trees, crude letters forming the word 'Haon-Dor' have been +carved into the bark. +~ +S +#6001 +A Trail Through The Light Forest~ + You are on a trail leading through the forest. There seems to be a small +path leading north into the shadows. To the east is the forest edge and to +the west the trail leads further into the forest. +~ +60 0 3 +D0 +You see evidence of a small path leading through a break in the trees to the +north. +~ +~ +0 -1 6060 +D1 +The trail continues eastwards out of the forest. +~ +~ +0 -1 6000 +D3 +You see the narrow forest trail winding westwards in between the trees. +~ +~ +0 -1 6002 +E +trail~ +The forest trail winds east-west through the trees. +~ +E +tree trees~ +The trees here are quite young and fresh. They seem to accommodate many kinds +of birds, insects and other small animals. +~ +E +birds insects animals~ +Very cute little creatures, they seem to enjoy life. +~ +S +#6002 +A Trail Through The Light Forest~ + You are on a narrow trail winding east and west through the forest. To the +west, the forest gradually becomes more dense. A small forest path leads off +to the south. +~ +60 0 3 +D1 +The trail continues eastwards through the young trees. +~ +~ +0 -1 6001 +D2 +The small path leads south through the young trees. +~ +~ +0 -1 6011 +D3 +You see the narrow forest trail winding westwards into the dense forest. +~ +~ +0 -1 6003 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +trail~ +The forest trail winds east-west through the trees. +~ +E +tree trees~ +The young, slender trees look beautiful, their fresh, green leaves moving +lightly in the wind. +~ +S +#6003 +A Trail Through The Dense Forest~ + You are on a trail winding east and west through the dense forest. To +the east, the forest gradually seems to become lighter. +~ +60 0 3 +D1 +The trail continues eastwards to the younger part of the forest. +~ +~ +0 -1 6002 +D3 +You see the narrow trail winding westwards through the dense forest. +~ +~ +0 -1 6004 +E +trail~ +The forest trail seems almost fragile compared to the massive trunks. +~ +E +tree trees~ +The dense crowns of the mature trees leave only a fraction of the sky to be +seen through the leaves. +~ +S +#6004 +A Trail Through The Dense Forest~ + You are on a trail winding east and west through the dense forest. To the +west, the trees are so huge and their crowns so dense that forest remains in +total darkness. A small path leads south through the trees. +~ +60 0 3 +D1 +The trail continues eastwards through the dense forest. +~ +~ +0 -1 6003 +D2 +The small path leads south through the trees. +~ +~ +0 -1 6005 +D3 +The narrow trail almost seems to disappear between the enormous trunks. +~ +~ +0 -1 6100 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +trail~ +The forest trail seems almost fragile compared to the massive trunks. +~ +E +tree trees~ +The crowns of the old trees almost cut out all light. +~ +S +#6005 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The path +continues north and south. +~ +60 0 3 +D0 +The small path leads north through the trees. +~ +~ +0 -1 6004 +D2 +The small path leads south through the trees. +~ +~ +0 -1 6006 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6006 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The path +continues north and east. +~ +60 0 3 +D0 +The small path leads north through the trees. +~ +~ +0 -1 6005 +D1 +The small path leads east through the trees. +~ +~ +0 -1 6007 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6007 +An Intersection In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The forest +gradually lightens to the east. Paths lead east, west and south. +~ +60 0 3 +D1 +You can barely make out a clearing to the east. +~ +~ +0 -1 6008 +D2 +The small path leads south through the trees. +~ +~ +0 -1 6012 +D3 +The small path leads west through the trees. +~ +~ +0 -1 6006 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6008 +The Forest Clearing~ + You are in a clearing in the forest. Lots of fresh stumps of varying sizes +protrude from the ground and heavy logs are stacked neatly in a big pile +supported by stakes set into the ground. Paths lead north, east and west. +~ +60 0 3 +D0 +The small path leads north through the trees. +~ +~ +0 -1 6011 +D1 +The small path leads east through the trees. +~ +~ +0 -1 6009 +D3 +The small path leads west through the trees. +~ +~ +0 -1 6007 +E +log logs~ +Even though the logs have been chopped to shorter pieces, they are quite heavy +as they are fresh and still filled with sap. +~ +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +stake stakes~ +The stakes keep the logs from rolling down. +~ +E +stump stumps~ +There are more stumps than logs and some of the stumps are partly covered in +moss. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6009 +Outside A Small Cabin In The Forest~ + You are outside a small cabin built entirely from heavy logs. There is a +wooden door to the north and small paths lead west and south through the trees. +~ +60 0 3 +D0 +The wooden door is quite sturdy but does not appear to be equipped with a lock. +~ +door wooden~ +1 -1 6010 +D2 +The small path leads south through the dense forest. +~ +~ +0 -1 6014 +D3 +The small path leads west through the light forest. +~ +~ +0 -1 6008 +E +cabin logs log~ +It looks simple but comfortable and the slender trees make the whole place seem +pretty idyllic. It is a cabin built from wooden logs. +~ +E +path paths~ +The path is probably used by the cabin's inhabitants. +~ +E +tree trees~ +The trees are fairly young, not much more than a hundred years or so. +~ +S +#6010 +Inside The Cabin~ + You are inside a small one-room cabin made entirely from heavy logs. +It is very sparsely furnished, containing only the most basic housekeeping +equipment, such as a bed, a chair and a table. +~ +60 d 0 +D2 +The wooden door leads south. +~ +door wooden~ +1 -1 6009 +E +bed~ +It is definitely not the most comfortable bed you have seen in your life. +~ +E +chair~ +It is made from oak and looks strong and sturdy. +~ +E +table~ +A heavy table that doesn't even appear to rock. It seems to have something +carved on it. +~ +E +carving carvings carved~ +On the table is carved : + /) /) + Danny and Mari, Oct 31, 1991 ( o o ) + = x = + m m + ***(========- +~ +S +#6011 +A Small Path Through The Light Forest~ + You are on a small path leading through the forest. The trees are tall and +slender. Paths lead north and south. +~ +60 0 3 +D0 +The path leads north through the young trees. +~ +~ +0 -1 6002 +D2 +The path leads south through the young trees. +~ +~ +0 -1 6008 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are fairly young, not much more than a hundred years or so. +~ +S +#6012 +An Intersection In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of the +old trees leave the forest floor in an unreal twilight illumination. Paths +lead north, east and south. +~ +60 0 3 +D0 +The small path leads north through the trees. +~ +~ +0 -1 6007 +D1 +The small path leads east through the trees. +~ +~ +0 -1 6013 +D2 +The small path leads south through the trees. +~ +~ +0 -1 6021 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6013 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The path +continues east and west. +~ +60 0 3 +D1 +The small path leads east through the trees. +~ +~ +0 -1 6014 +D3 +The small path leads west through the trees. +~ +~ +0 -1 6012 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6014 +An Intersection In The Dense Forest~ + You are on a small path leading through the dense forest. The forest +gradually lightens to the north. Paths lead north, east and west. +~ +60 0 3 +D0 +The path leads north to a lighter part of the forest. +~ +~ +0 -1 6009 +D1 +The small path leads east through the trees. +~ +~ +0 -1 6015 +D3 +The small path leads west through the trees. +~ +~ +0 -1 6013 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The crowns of the old trees leave the forest in an unreal twilight +illumination. +~ +S +#6015 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The path +continues south and west. +~ +60 0 3 +D2 +The small path leads south through the trees. +~ +~ +0 -1 6016 +D3 +The small path leads west through the trees. +~ +~ +0 -1 6014 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6016 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The path +continues north, south and east. +~ +60 0 3 +D0 +The small path leads north through the trees. +~ +~ +0 -1 6015 +D1 +The small path leads east through the trees. +~ +~ +0 -1 6028 +D2 +The small path leads south through the trees. +~ +~ +0 -1 6017 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6017 +A Small Path In The Dense Forest~ + You are at a turn on a small path leading through the dense forest. The +forest seems to become lighter to the west. The path continues north and west. +~ +60 0 3 +D0 +The small path leads north through the trees. +~ +~ +0 -1 6016 +D3 +The small path leads west through the trees to a lighter part of the forest. +~ +~ +0 -1 6018 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The crowns of the old trees leave the forest in an unreal twilight +illumination. A large branch looms above you, over the path. +~ +E +up branches branch large~ +The branch of a large oak stretches out above the path from the east. +~ +S +#6018 +An Intersection In The Light Forest~ + You are on a small path leading through the forest. A path leads north to +a small field and other paths lead east and west into the dense forest. +~ +60 0 3 +D0 +The path leads north to a small, grassy field. +~ +~ +0 -1 6023 +D1 +The path leads east to a dense part of the forest. +~ +~ +0 -1 6017 +D3 +The path leads west to a dense part of the forest. +~ +~ +0 -1 6019 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The tall trees are young and slender, not much more than a hundred years or so. +~ +S +#6019 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. The forest seems +to become lighter to the east. The path continues north and east. +~ +60 0 3 +D0 +The small path leads north through the trees. +~ +~ +0 -1 6020 +D1 +The small path leads east through the trees to a lighter part of the forest. +~ +~ +0 -1 6018 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The crowns of the old trees leave the forest in an unreal twilight +illumination. +~ +S +#6020 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The path +continues south and west. +~ +60 0 3 +D2 +The small path leads south through the trees. +~ +~ +0 -1 6019 +D3 +The small path leads west through the trees. +~ +~ +0 -1 6021 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6021 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. To the west +you see a dark cave entrance, leading into a small hillside. The path +continues north and east. +~ +60 0 3 +D0 +The small path leads north through the trees. +~ +~ +0 -1 6012 +D1 +The small path leads east through the trees. +~ +~ +0 -1 6020 +D3 +The cave is very dark. +~ +~ +0 -1 6022 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The crowns of the old trees leave the forest in an unreal twilight +illumination. +~ +E +cave entrance~ +The irregular opening is eight feet wide and six feet tall. An acrid smell +emanates from within. +~ +S +#6022 +Inside The Cave~ + You are in a natural cave. Various sorts of debris cover the stone floor, +emitting a rather unpleasant smell that makes the air thick and hard to +breathe. The only obvious exit is east. +~ +60 ad 0 +D1 +The cave opening is to the east. +~ +~ +0 -1 6021 +E +debris~ +It consists mostly of gnawed bones mixed with small pieces of torn fur. +~ +E +cave walls floor stone~ +Quite uninteresting. +~ +E +air smell~ +Kind of transparent, but quite noticeable nevertheless. +~ +S +#6023 +A Grassy Field~ + You are in a grass covered field somewhere in the forest. The tall grass +nearly reaches your waist, and the surrounding oaks and beeches form an almost +wall-like thicket on the east side of the field. To the northeast you can see +a small lake. A small path leads south through the trees, and the field opens +up to the north and west. +~ +60 0 2 +D0 +Wind blowing in from the north carries with it the smell of a newly killed +animal, as well as the noise of many birds, which you can see circling there. +~ +~ +0 -1 6026 +D1 +The ground slopes gently downward to the eastern tree line. +~ +~ +0 -1 6024 +D2 +The small path leads south in between the trees. +~ +~ +0 -1 6018 +E +grass~ +The tall grass makes a nice hiding place for animals. +~ +E +path~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees thicket~ +The trees form a close thicket, blocking any exit to the west. +~ +E +birds bird circling~ +Many carrion birds are circling to the north, you presume they are waiting for +their turn to feast on a corpse. +~ +S +#6024 +The Lower Part Of The Grassy Field~ + You are in a lower part of the grassy field, south of a small lake. The +grass here has been trampled by the many animals coming here for water, leaving +the ground covered in tracks of different types. To the west you see a break +in the wall of trees surrounding the field, and to the north is a small lake. +~ +60 0 2 +D0 +The animal tracks lead off to the north, and around the lake there. +~ +~ +0 -1 6025 +D3 +To the south-west you see a break in the tree line, leading back to the +forest path. +~ +~ +0 -1 6023 +E +grass~ +The tall grass makes a nice hiding place for animals. +~ +E +path trampled~ +The trampled grass path leads to the lake north of here. +~ +E +tree trees thicket~ +The trees form a close thicket, blocking any exit to the south and east. +~ +S +#6025 +Beside The Lake In A Grassy Field~ + The grass stops shortly before the lake, replaced by mud covered in tracks +from the local animals. When you come close many animals scatter into the tall +grass and some even into the forest. To the west you see birds circling in the +high in the air, and to the north you see a small lake, surrounded by tall +reeds. The field continues to the south, and the forest blocks passage to the +east. +~ +60 0 2 +D0 +The lake looks inviting, and you can see some sort of water fowl floating +around among the reeds. +~ +~ +0 -1 6027 +D2 +To the south an animal trail leads of towards a the other side of the lower +field. +~ +~ +0 -1 6024 +D3 +The smell of carrion drifts down to you from higher on the field to the west. +~ +~ +0 -1 6026 +E +grass~ +The tall grass makes a nice hiding place for animals. +~ +E +lake~ +Animals from all around come here to drink. The lake itself is not very big, +but it stretches off to the north from here. +~ +E +tree trees thicket~ +The trees form a close thicket, blocking any exit to the north or east. +~ +E +birds bird circling~ +Many carrion birds are circling to the west, you presume they are waiting for +their turn to feast on a corpse. +~ +E +track tracks mud~ +You see tracks of both hooved and other sorts of animals. Evidence of all +sizes of animals is here in the mud, showing just how lively the forest is. +~ +S +#6026 +The Northern Section Of A Grassy Field~ + As you come close, scavenging animals and birds of all sorts scatter, +leaving only the boldest and stupidest encircling the corpse of a large boar. +Carrion birds circle overhead, and smaller animals stare out of the tall grass +at you. The grass here has been trampled, and a large area around the corpse +is stained by blood. A trail leads down the sloping field to a lake, and to +the south you see the path back to the forest. +~ +60 0 2 +D1 +A small lake lies down the sloping field to the east. Some of the animals +that fled from here have gone there, and are watching, waiting for you to +leave so they can resume their feasting. +~ +~ +0 -1 6025 +D2 +The field continues to the south, and you can see the path back to the forest +there. +~ +~ +0 -1 6023 +E +grass~ +The tall grass makes a nice hiding place for animals. You see some of the +animals you frightened away peeking furtively out at you. +~ +E +path~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees thicket~ +The trees form a close thicket, blocking any exit to the north and west. +~ +E +birds circling~ +Many birds of varying size circle overhead, waiting for you to leave. You +hope they don't decide that you could be a corpse with just a little effort. +~ +E +animal animals small~ +Several pairs of eyes peer out at you, urging you to leave. The just might +decide that en masse they could kill you, so you probably don't want to tarry +here. +~ +S +#6027 +On The Lake~ + You are in the middle of a small lake, fed from a small stream coming +through the forest from the northwest. The water is not that clear, but +you can see fish swimming around below you. The bank is clear to the +south, providing a safe place to get back to the field. +~ +60 0 7 +D2 +Some animals have gathered on the bank to watch you, curious about what you +are doing. +~ +~ +0 -1 6025 +E +fish~ +Trout and perhaps a catfish or two swim about below you, totally ignoring +your presence. +~ +E +lake~ +Animals from all around come here to drink. The lake itself is not very big, +but it stretches off to the north from here. +~ +E +tree trees thicket~ +Trees cover the bank on most sides, preventing you from docking there. +~ +E +reed reeds~ +Reeds grow up around the edges of the lake, providing cover for the small +water fowl that live here. +~ +S +#6028 +A Small Path In The Dense Forest~ + You are on a small path leading through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The path +continues to the west and south. +~ +60 0 3 +D2 +~ +~ +0 -1 6029 +D3 +The small path leads west through the trees. +~ +~ +0 -1 6016 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6029 +Near A Large Tree In The Dense Forest~ + You are at the end of a small path leading through the dense forest. The +crowns of the old trees leave the forest in an unreal twilight illumination. +This rough clearing is dominated by a very large oak tree, probably the +largest in this part of the forest. The path leads back to the north. +~ +60 c 3 +D0 +~ +~ +0 -1 6028 +D4 +You see the lower branches of the towering oak. +~ +~ +0 -1 6030 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +trees~ +The trees are mostly old beeches and oaks, with one large oak off to your +right. +~ +E +large oak tree~ +It has some lower branches that you think you could reach if you stretched. +You might even be able to climb all the top, though from here it looks like +something else had that idea before you. There is a faint animal shape pacing +on one of the highest branches. +~ +E +animal shape~ +From here it looks vaguely feline, though you could get a much better view +from in the tree. You are not sure if it has seen you yet. +~ +E +limb limbs~ +They look quite sturdy, certainly capable of holding your weight should you +decide to climb up the tree using them. +~ +E +top highest high~ +You could probably see most of the forest, and perhaps even the city from the +top of the tree... of course, you'd have to deal with whatever that shape is +pacing on one of the upper limbs. +~ +S +#6030 +In The Lower Branches Of A Large Oak~ + You are in a huge oak, about one third of the way to the top. The branches +above you block out much of the light, but enough filters through for you to +see. Small animals and birds scatter at your approach, rustling the leaves +all about you. You could easily climb back down to the ground, or continue up +the tree. One large branch juts outward to the west, possibly providing a +third choice of exit. +~ +60 0 5 +D3 +This limb looks large and strong enough for you to walk most of the way along +its length to the west. +~ +~ +0 -1 6031 +D4 +More large branches spread out from the tree above you. +~ +~ +0 -1 6032 +D5 +The rough clearing is just a quick climb and jump below you. +~ +~ +0 -1 6029 +E +nest nests~ +After a short period of looking, you notice a bird's nest on a limb not far +above you, and a large squirrel's nest in the crook of a large limb that +stretches out towards the west. +~ +E +animals bird birds~ +A variety of squirrels, chipmunks, and birds make their homes in this and the +surrounding trees. If you look closely you may be able to see some of their +rapidly emptying nests. +~ +E +feline~ +The shape above you moves with definite grace and confidence. You think that +it must be a Bobcat, stalking smaller tree-dwelling animals. +~ +E +pacing pace animal shape~ +From here it looks feline. You still don't think it has noticed you, despite +the noise you made while climbing up here. +~ +E +limb limbs~ +They look quite sturdy, certainly capable of holding your weight should you +decide to climb around in the tree using them. +~ +E +top highest high~ +You could probably see most of the forest, and perhaps even the city from the +top of the tree... of course, you would have to deal with whatever that shape +is that you see pacing on one of the upper limbs. +~ +S +#6031 +Out On A Limb In A Large Oak~ + This sturdy branch hangs far out over a path to the west, which you might +be able to jump down to. Several squirrels scamper into hiding as you +approach, leaving you alone and swaying slightly with the wind. To your north +you can see a small log cabin through the trees, and to the southeast there +seems to be some sort of clearing, with many birds circling above it. +~ +60 c 3 +D1 +Back to the east you see the tree trunk. It is much less precarious there +compared to here... perhaps you should go back. +~ +~ +0 -1 6030 +D5 +Below you is a small path, probably used by the forest animals. You think +that you could jump down with a little effort. +~ +~ +0 -1 6016 +E +nest nests~ +You notice that several of the squirrels sought refuge in a large nest that is +well within your reach. Looking into the nest, you see two pairs of eyes +staring back at you. +~ +E +animals bird birds~ +A variety of squirrels, chipmunks, and birds make their homes in this and the +surrounding trees. If you look closely you may be able to see some of their +rapidly emptying nests. +~ +E +feline~ +The shape above you moves with definite grace and confidence. You think that +it must be a Bobcat, stalking smaller tree-dwelling animals. +~ +E +pacing pace animal shape~ +From here it looks feline. You still don't think it has noticed you, despite +the noise you made while climbing up here. +~ +E +limb limbs~ +The limbs look quite sturdy, certainly capable of holding your weight should +you decide to climb around in the tree using them. +~ +E +top highest high~ +You could probably see most of the forest, and perhaps even the city from the +top of the tree... of course, you would have to deal with whatever that shape +is that you see pacing on one of the upper limbs. +~ +S +#6032 +Midway To The Top Of The Large Oak~ + You are in a huge oak, about midway to the top. The branches above you +block out much of the light, but enough filters through for you to see. A few +birds have remained to watch you from the fringe branches, well out of your +reach. Scratches mar the tree here, and torn bark is scattered near you on the +branch. It would seem some large forest cat lives nearby, so you had better be +careful! You can continue a bit farther up the tree, or descend to limbs that +don't sway so much. +~ +60 0 5 +D4 +Above you the tree narrows farther, but it still looks like you could climb up +there. A feline shape is pacing about above you, trying to get to a large +wounded bird. Perhaps you should try to see what sort of cat this is before +you interrupt its hunt... it might eat you instead of the bird. +~ +~ +0 -1 6033 +D5 +~ +~ +0 -1 6030 +E +nest nests~ +A medium sized bird's nest is close to you here, and it looks like it has some +nice looking eggs in it too! +~ +E +animal animals bird birds~ +A variety of squirrels, chipmunks, and birds make their homes in this and the +surrounding trees. If you look closely you may be able to see some of their +rapidly emptying nests. +~ +E +feline cat pacing pace shape~ +It looks like a Bobcat, and it seems quite intent on getting to a large bird +that it has wounded. It has not seen you yet, or perhaps just thinks you are +too easy a meal. +~ +E +limb limbs~ +They look quite sturdy, certainly capable of holding your weight should you +decide to climb around in the tree using them. +~ +E +top highest high~ +You could probably see most of the forest, and perhaps even the city from the +top of the tree... of course, you would have to deal with whatever that shape +is that you see pacing on one of the upper limbs. +~ +S +#6033 +High In The Large Oak~ + The tree top gently sways in the wind, and you think you are as high as +you can safely go in the tree. The limbs here show evidence of a small battle, +with ripped bark and loose feathers scattered everywhere. Looking around, you +can see the forest stretching out below you in all directions. To the east you +see Midgaard, and to the south the river runs through a deep chasm. North and +west of here you can see another small village, and on the western horizon you +see a large mountain. +~ +60 0 5 +D5 +Below you many of the animals you frightened earlier have returned to their +various nests and homes. You can see a small hint of the path far below you +through the branches. +~ +~ +0 -1 6032 +E +around trees everywhere woods forest~ +Off to the southwest you can see a grass covered field, and a small lake; +nortwest of you is a small cabin and a large pile of wood. Far to west the +treetops form a tight canopy, blocking out almost all sunlight and your view. +It is said that large wolves live there. You've also heard rumors of horrible +spiders and drow living there. You'd be best off leaving that area to more +experienced adventurers. +~ +E +mountain range northeast~ +A long mountain range stretches across the horizon to the north and northeast. +You have heard rumors of many different sorts of creatures living there, +varying from Dwarves and Humans to Ogres and various humanoid creatures. Some +say that evil Dark Elves dwell in the underworld deep below the lands of the +Dwarves. The caves of Moria also are found there, populated by all sorts of +evil creatures. +~ +E +river chasm~ +To the south you see a river flowing roughly from the northeast to the west. +It emerges from a dark opening in the side of a mountain and flows through +Midgaard, and on into the forest. It has eroded a deep chasm in the soft stone +under the forest floor, and is not visible for long after it enters the forest +proper. +~ +S +#6060 +A Shaded Path Through The Forest~ + You are on a small shaded path leading through the trees. The forest +gradually lightens to the east. The path continues to the north, and to the +south you see the main trail. +~ +60 0 3 +D0 +The path winds its way between the trees. +~ +~ +0 -1 6065 +D2 +Through a break in the tree line you see the main trail that heads back towards +Midgaard. +~ +~ +0 -1 6001 +E +path paths shaded~ +The shaded path is probably used by the small animals living in the forest. +~ +E +tree trees~ +They are mostly young oaks and tall beeches. +~ +S +#6061 +A Shaded Path Through The Forest~ + You are at a turn on a small shadowed path leading through the forest. The +forest seems to become lighter to the west. The path continues north and west. +~ +60 0 3 +D0 +The path winds its way between the trees. +~ +~ +0 -1 6066 +D3 +The path winds its way between the trees. +~ +~ +0 -1 6062 +E +path paths shaded shadowed~ +The shadowy path is probably used by the small animals living in the forest. +~ +E +tree trees~ +The crowns of the old trees leave the forest in an unreal twilight +illumination. A large branch looms above you, over the path. +~ +S +#6062 +A Shaded Path Through The Dense Forest~ + You are on a small shaded path leading through the dense forest. The +crowns of the old trees leave the forest floor in an unreal twililght +illumination. To the north you see a small clearing. Paths lead east and +west. +~ +60 0 3 +D0 +Through the underbrush you see a small clearing. +~ +~ +0 -1 6067 +D1 +The path winds its way between the trees. +~ +~ +0 -1 6061 +D3 +The path winds its way between the trees. +~ +~ +0 -1 6063 +E +path paths shaded shadowy~ +The shaded path is probably used by the small animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6063 +A Shaded Path Through The Dense Forest~ + You are on a small shaded path through the dense forest. The crowns of +the old trees leave the forest in an unreal twilight illumination. The path +continues north and east. +~ +60 0 3 +D0 +The path winds its way between the trees. +~ +~ +0 -1 6068 +D1 +The path winds its way between the trees. +~ +~ +0 -1 6062 +E +path paths shaded~ +The shaded path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6064 +A Shadowy Path Through The Dense Forest~ + You are on a small shadowy path leading through the dense forest. The +crowns of the old trees leave the forest in an unreal twilight illumination. +The path continues north and south. +~ +60 0 3 +D0 +The path winds its way between the trees. +~ +~ +0 -1 6069 +D2 +The path winds its way into darkness. +~ +~ +0 -1 6100 +E +path paths shadowy~ +The shadowy path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6065 +A Shaded Path Through The Forest~ + You are at a turn on a small shaded path winding through the trees. The +forest gradually becomes more dense to the west. The path continues west and +south from here. +~ +60 0 3 +D2 +Through the trees to the south you can almost see the main trail leading back +to Midgaard. +~ +~ +0 -1 6060 +D3 +The path winds its way between the trees. +~ +~ +0 -1 6066 +E +path paths shaded~ +The shadowed path is probably used by the small animals living in the forest. +~ +E +tree trees~ +The trees are mostly young oaks and tall beeches. +~ +S +#6066 +A Fork On The Shaded Path Through The Forest~ + You are at a fork in the small shaded path winding through the trees. The +forest gradually becomes more dense to the west. The path branches to the +north and south here, and also continues to the east. +~ +60 0 3 +D0 +The path winds its way between the trees. +~ +~ +0 -1 6071 +D1 +The path winds its way between the trees. +~ +~ +0 -1 6065 +D2 +The path winds its way between the trees. +~ +~ +0 -1 6061 +E +path paths shaded~ +The shaded path is probably used by the small animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6067 +At The Fallen Tree~ + You are standing in a small clearing, beside a large fallen tree. A large +amount of the tree has already decomposed, but some pieces remain, scattered +about the clearing. Paths border the clearing to the north and south. +~ +60 0 3 +D0 +A shaded path winds its way northeast between the trees. +~ +~ +0 -1 6072 +D2 +A shaded path winds its way east between the trees. +~ +~ +0 -1 6062 +E +path paths~ +The shaded paths are probably used by the animals living in the forest. +~ +E +fallen rotten decomposed tree~ +The tree has mostly rotted away, providing nourishment to many small plants +growing here in the clearing. The few pieces that remain are not all that +large, but one log in particular catches your eye and seems to remind you of +something. Under one of these logs would be a great place for an animal to +make its den... +~ +E +clearing clear~ +When the large tree fell it must have brought a few of the smaller trees down +with it in order to make a clearing like this. +~ +E +under animal den~ +Under a log you think you see some sort of hole, or animal's den. Looking +closer, you can make out the form of what you believe to be a Badger resting +inside of the den. +~ +S +#6068 +An Intersection On The Shaded Path~ + You are on a small shaded path leading through the dense forest. The +crowns of the old trees leave the forest in an unreal twilight illumination. +The path continues north, south, and west. +~ +60 0 3 +D0 +The path winds its way between the trees. +~ +~ +0 -1 6073 +D2 +The path winds its way between the trees. +~ +~ +0 -1 6063 +D3 +The path winds its way between the trees. +~ +~ +0 -1 6069 +E +path paths shaded~ +The shaded path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6069 +A Shadowy Path Through The Dense Forest~ + You are on a small shadowy path leading through the dense forest. The +crowns of the old trees leave the forest in an unreal twilight illumination. +The path continues south and east. +~ +60 0 3 +D1 +The path winds its way between the old trees. +~ +~ +0 -1 6068 +D2 +The path winds its way between the trees. +~ +~ +0 -1 6064 +E +path paths shaded shadowy~ +The shadowy path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6070 +Off Of The Path In The Shaded Forest~ + You are wandering amongst the trees in the light forest, without the aid +of a path or trail. More sunlight trickles through the treetops here, making +your travel a bit easier. Small animals scurry away as you approach. You +are no longer on a path, so you may go whichever way you please. +~ +60 0 3 +D0 +The trees seem to part, exposing a trail into the shade. +~ +~ +0 -1 6078 +D1 +The trees seem to part, exposing a trail into the shade. +~ +~ +0 -1 6070 +D2 +The trees seem to part, exposing a trail into the shade. +~ +~ +0 -1 6061 +D3 +The trees seem to part, exposing a trail into the shade. +~ +~ +0 -1 6072 +E +path paths~ +The path is long behind you now... you aren't sure which direction it lies +in anymore. +~ +E +tree trees~ +The trees are younger here than to those to the west. +~ +S +#6071 +A Shaded Path Through The Forest~ + You are on a small shaded path leading in between the trees. The forest +gradually lightens to the east. Paths lead west and south, and you think you +see a small path leading eastward. +~ +60 0 3 +D1 +It looks like a small path begins between two trees to the east, but you +aren't quite certain. +~ +~ +0 -1 6070 +D2 +The path winds its way through the trees to an split in the path. +~ +~ +0 -1 6066 +D3 +The path winds its way between the trees. +~ +~ +0 -1 6072 +E +path paths shadowy shadowed~ +The shadowy path is probably used by the small animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6072 +A Shaded Path Though The Forest~ + You are on a small shaded path leading between the trees. The forest +gradually becomes more dense to the west. Paths lead north and east, and you +see a small clearing to the south. +~ +60 0 3 +D0 +The path winds its way between the trees. +~ +~ +0 -1 6075 +D1 +The path winds its way between the trees. +~ +~ +0 -1 6071 +D2 +A lightly traveled path heads southward to a small clearing. +~ +~ +0 -1 6067 +E +path paths shaded~ +The shaded path is probably used by the small animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6073 +A Shadowy Path Through The Dense Forest~ + You are on a small shadowy path leading through the dense forest. To the +north the terrain becomes quite hilly and rough. The crowns of the old trees +leave the forest in an unreal twilight illumination. The path continues north +and south. +~ +60 0 4 +D0 +The path winds its way into the hills and denser forest. +~ +~ +0 -1 6076 +D2 +The path winds its way between the trees. +~ +~ +0 -1 6068 +E +path paths shadowy~ +The shadowy path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hill hills terrain~ +To the northwest you see hills covered by dense forest. +~ +S +#6074 +A Small Trail Through The Forest~ + You have just left the shaded path, and you are now standing at the head of +a very short trail. It looks like someone begin clearing away the underbrush +here, but didn't get finished. You may leave in any direction, but the path +is to the west. +~ +60 0 3 +D0 +The trees seem to part, exposing a trail into the shade. +~ +~ +0 -1 6074 +D1 +The trees seem to part, exposing a trail into the shade. +~ +~ +0 -1 6070 +D2 +The trees seem to part, exposing a trail into the shade. +~ +~ +0 -1 6070 +D3 +Through the underbrush you see a small path winding its way northward. +~ +~ +0 -1 6075 +E +path paths~ +The narrow path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +S +#6075 +A Shaded Path Through The Forest~ + You are on a small shaded path leading between the trees. The forest +gradually becomes more dense to the west, and to the northwest the terrain +is quite hilly. The path continues north and south. To the east you see a +trail winding through the younger section of the forest. +~ +60 0 3 +D0 +The path winds its way between the trees. +~ +~ +0 -1 6078 +D1 +You think you see the beginnings of a small trail through the younger part of +the forest. +~ +~ +0 -1 6074 +D2 +The path winds its way between the trees. +~ +~ +0 -1 6072 +E +path paths shaded~ +The shaded path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hills hill terrain~ +To the northwest the ground becomes more hilly. You have heard that a halfling +village is somewhere in the hills. +~ +E +trail~ +You think you see the beginnings of a small trail to the east, winding through +the younger part of the forest. +~ +S +#6076 +In The Dense Forest Between The Hills~ + You are standing among tightly packed trees between several hills. You +lost track of the path long ago, and now must rely on your instincts to guide +you. The ground is very rough and rocky here, and only the most hardy plants +survive. The crowns of the old trees leave the hills in an unreal twilight +illumination. +~ +60 c 4 +D0 +All you see are trees and hillsides. +~ +~ +0 -1 6081 +D1 +All you see are trees and hillsides. +~ +~ +0 -1 6077 +D2 +All you see are trees and hillsides. +~ +~ +0 -1 6076 +D3 +All you see are trees and a shadowy path. +~ +~ +0 -1 6073 +E +path paths~ +The path is probably around here somewhere... if only you had paid more +attention. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hills hill~ +Hills rise up all around you, blocking your view of the terrain. +~ +S +#6077 +In The Dense Forest Between The Hills~ + You are standing among tightly packed trees between several hills. You +lost track of the path long ago, and now must rely on your instincts to guide +you. The ground is very rough and rocky here, and only the most hardy plants +survive. The crowns of the old trees leave the hills in an unreal twilight +illumination. +~ +60 c 4 +D0 +All you see are trees and hillsides. +~ +~ +0 -1 6081 +D1 +All you see are trees and hillsides. +~ +~ +0 -1 6076 +D2 +All you see are trees and hillsides. +~ +~ +0 -1 6079 +D3 +All you see are trees and hillsides. +~ +~ +0 -1 6077 +E +path paths~ +The path is probably around here somewhere...if only you had paid more +attention. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hills hill~ +Hills rise up all around you, blocking your view of the terrain. +~ +S +#6078 +In The Dense Forest Between The Hills~ + You are at the end of a small shaded path leading between the trees. The +forest is quite thick here, and the ground is very rough and hilly, halting +your progress. The path lies to the south. +~ +60 0 4 +D2 +The path winds its way between the trees. +~ +~ +0 -1 6075 +E +path paths shaded~ +The shaded path is probably used by the animals living in the forest. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hills hill~ +The terrian is very hilly and rough to the north and west. You have heard +that there is a halfling village somewhere in the hills. +~ +S +#6079 +In The Dense Forest Between The Hills~ + You are standing among tightly packed trees between several hills. You +lost track of the path long ago, and now must rely on your instincts to guide +you. The ground is very rough and rocky here, and only the most hardy plants +survive. The crowns of the old trees leave the hills in an unreal twilight +illumination. +~ +60 c 4 +D0 +All you see are trees and hillsides. +~ +~ +0 -1 6081 +D1 +All you see are trees and hillsides. +~ +~ +0 -1 6078 +D2 +All you see are trees and a shadowy path. +~ +~ +0 -1 6073 +D3 +All you see are trees and hillsides. +~ +~ +0 -1 6080 +E +path paths~ +The path is probably around here somewhere...if only you had paid more +attention. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hills hill~ +Hills rise up all around you, blocking your view of the terrain. +~ +S +#6080 +In The Dense Forest Between The Hills~ + You are standing among tightly packed trees between several hills. You +lost track of the path long ago, and now must rely on your instincts to guide +you. The ground is very rough and rocky here, and only the most hardy plants +survive. The crowns of the old trees leave the hills in an unreal twilight +illumination. +~ +60 c 4 +D0 +All you see are trees and hillsides. +~ +~ +0 -1 6081 +D1 +All you see are trees and hillsides. +~ +~ +0 -1 6082 +D2 +All you see are trees and hillsides. +~ +~ +0 -1 6076 +D3 +All you see are trees and hillsides. +~ +~ +0 -1 6081 +E +path paths~ +The path is probably around here somewhere...if only you had paid more +attention. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hills hill~ +Hills rise up all around you, blocking your view of the terrain. +~ +S +#6081 +In The Dense Forest Between The Hills~ + You are standing among tightly packed trees between several hills. You +lost track of the path long ago, and now must rely on your instincts to guide +you. The ground is very rough and rocky here, and only the most hardy plants +survive. The crowns of the old trees leave the hills in an unreal twilight +illumination. +~ +60 c 4 +D0 +All you see are trees and hillsides. +~ +~ +0 -1 6078 +D1 +All you see are trees and hillsides. +~ +~ +0 -1 6077 +D2 +All you see are trees and hillsides. +~ +~ +0 -1 6076 +D3 +All you see are trees and a shadowy path. +~ +~ +0 -1 6073 +E +path paths~ +The path is probably around here somewhere...if only you had paid more +attention. +~ +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hills hill~ +Hills rise up all around you, blocking your view of the terrain. +~ +S +#6082 +In The Dense Forest Between The Hills~ + You are standing among tightly packed trees on a medium sized hill. The +dense forest spreads out all around you, and the crowns of the old trees leave +the hills in an unreal twilight illumination. +~ +60 c 4 +D0 +All you see are trees and hillsides. +~ +~ +0 -1 6081 +D1 +All you see are trees and hillsides. +~ +~ +0 -1 6079 +D2 +All you see are trees and hillsides. +~ +~ +0 -1 6076 +E +tree trees~ +The trees are mostly old beeches and oaks. +~ +E +hills hill~ +Hills rise up all around you, blocking your view of the terrain. +~ +S +#6090 +A Road Through The Plains~ + You are on a dust covered east-west road through the western plains. An +occasional hunter or adventurer can be seen, heading to or from the forest. +To the east is the walled city, Midgaard, and to the west the road ends at +the head of a narrow trail into a large forest. +~ +60 c 2 +D1 +Far to the east you see the large walls guarding Midgaard. +~ +~ +0 -1 6091 +D3 +To the west the dusty trail ends, and becomes a narrow trail into the cool +shadows of the forest. +~ +~ +0 -1 6000 +E +trail~ +The forest trail winds westwards through the trees. +~ +E +tree trees forest~ +The trees are quite tall considering most of them appear to be quite young. +~ +E +road dust dusty~ +The road is well used, and quite dusty. +~ +S +#6091 +A Road Through The Plains~ + You are on a dust covered east-west road through the western plains. An +occasional hunter or adventurer can be seen, heading to or from the forest. +To the east is the walled city, Midgaard, and to the west the road continues +towards a large forest. +~ +60 c 2 +D1 +Far to the east you see the walls and western gate of Midgaard. +~ +~ +0 -1 6092 +D3 +You see the large forest, Haon-Dor, stretching out far to the west, and to the +northwest you the forest gives way to hills. +~ +~ +0 -1 6090 +E +forest haondor haon-dor~ +The large forest of Haon-Dor spreads out to the west. Small and large game +is plentiful there... as is adventure, and of course, danger! +~ +E +tree trees~ +Some small trees grow amongst the underbrush of the plains. These slowly gain +in height as you travel farther westward towards Haon-Dor +~ +E +road dust dusty~ +The road is well used, and quite dusty. +~ +S +#6092 +A Road Through The Plains~ + You are on a dust covered east-west road crossing the grassy plains between +Midgaard the forest of Haon-Dor. An occasional hunter or adventurer can be +seen, heading to or from the forest. To the east is the walled city, Midgaard, +and to the west the road continues towards a large forest. +~ +60 c 1 +D1 +To the east you see the walls and West Gate of Midgaard. +~ +~ +0 -1 3052 +D3 +To the west the road continues towards the forest. +~ +~ +0 -1 6091 +E +forest~ +The large forest of Haon-dor spreads out to the west. Small and large game +is plentiful there...as is adventure, and of course, danger! +~ +E +road dust dusty~ +The road is well used, and quite dusty. +~ +S +$ diff --git a/lib/world/wld/61.wld b/lib/world/wld/61.wld new file mode 100644 index 0000000..c676fe2 --- /dev/null +++ b/lib/world/wld/61.wld @@ -0,0 +1,1347 @@ +#6100 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a narrow trail winding its way between the enormous, grey +trunks. The crowns of the trees must be very dense, as they leave the +forest floor in utter darkness. The trail leads east and west. +~ +61 ad 3 +D0 +A small shadowy path leads away to the north. +~ +~ +0 -1 6064 +D1 +The narrow trail leads east to a somewhat lighter part of the forest. +~ +~ +0 -1 6004 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6101 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6101 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way east-west between huge, +ancient trees whose grey trunks remind you of ancient pillars in a +enormous, deserted hall. To the south, a frail path leads away from +the trail. +~ +61 ad 3 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6100 +D2 +The path leads south - away from the trail. +~ +~ +0 -1 6104 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6102 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +path~ +The path seems fragile and unsafe compared to the enormous trunks that loom +around it. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6102 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way east-west between huge, +ancient trees that stand close on all sides. Not a sound is to be +heard - everything is ominously quiet. +~ +61 ad 3 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6101 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6103 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +path~ +The path seems fragile and unsafe compared to the enormous trunks that loom +around it. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6103 +A Narrow Trail Through The Deep, Dark Forest~ + You are where the dusty trail bends, as to avoid conflict with a +colossal trunk to the west. Not a sound is to be heard - everything +is ominously quiet. The trail leads east and south and there is a +small path leading off the trail to the north. +~ +61 ad 3 +D0 +A small path leads north off the trail. +~ +~ +0 -1 6150 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6102 +D2 +The narrow, dusty trail leads south through the forest. +~ +~ +0 -1 6108 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +trees trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6104 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. You +feel as if the ancient trees observe you in watchful silence. The path +continues north and south. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6101 +D2 +The narrow path winds its way through the trees to the south. +~ +~ +0 -1 6105 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6105 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. Ancient +grey trees loom all around you. The path continues north and west. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6104 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6106 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6106 +A Junction In The Deep, Dark Forest~ + You are by a junction where three paths meet. Ancient grey trees tower +above you on all sides. Paths lead east, south and west. +~ +61 ad 3 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6105 +D2 +The narrow path winds its way through the trees to the south. +~ +~ +0 -1 6117 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6107 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path paths~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6107 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. Ancient +grey trees loom all around you. The path continues north and east. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6108 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6106 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6108 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way between huge, ancient trees +standing close on all sides. The trail leads north and west and to the +south, a frail path leads away from the trail. +~ +61 ad 3 +D0 +The narrow, dusty trail leads north through the forest. +~ +~ +0 -1 6103 +D2 +The path leads south - away from the trail. +~ +~ +0 -1 6107 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6109 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +path~ +The path seems fragile and unsafe compared to the enormous trunks that loom +around it. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6109 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way east-west between huge, ancient +trees that stand close on all sides. Not a sound is to be heard - everything +is ominously quiet. +~ +61 ad 3 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6108 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6110 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6110 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way between huge, ancient trees that +stand close on all sides. The trail leads east and south. To the west, a +narrow path leads away from the trail. +~ +61 ad 3 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6109 +D2 +The narrow, dusty trail leads south through the forest. +~ +~ +0 -1 6111 +D3 +The narrow path leads west between the giant trees. +~ +~ +0 -1 6130 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +path~ +The path seems fragile and unsafe compared to the enormous trunks that loom +around it. +~ +E +tree trees trunk trunks~ +Some of the trunks to the west are covered in a thin, almost transparent +substance. It looks like small threads woven carefully together. +~ +S +#6111 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way north-south between huge, ancient +trees that loom ominously above you. +~ +61 ad 3 +D0 +The narrow, dusty trail leads north through the forest. +~ +~ +0 -1 6110 +D2 +The narrow, dusty trail leads south through the forest. +~ +~ +0 -1 6112 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6112 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way between huge, ancient trees +standing close on all sides. The trail leads north and west and to the +east, a frail path leads away from the trail. +~ +61 ad 3 +D0 +The narrow, dusty trail leads north through the forest. +~ +~ +0 -1 6111 +D1 +The path leads east - away from the trail. +~ +~ +0 -1 6113 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6127 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +path~ +The path seems fragile and unsafe compared to the enormous trunks that loom +around it. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6113 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. Ancient +grey trees loom in all directions. The path continues south and west. +~ +61 ad 3 +D2 +The narrow path winds its way through the trees to the south. +~ +~ +0 -1 6114 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6112 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6114 +A Junction In The Deep, Dark Forest~ + You are by a junction where three paths meet. Ancient grey trees tower +above you on all sides. Paths lead north, east and west. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6113 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6115 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6122 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path paths~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6115 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. You feel +as if the ancient trees observe you in watchful silence. The path continues +north and west. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6116 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6114 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6116 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. Giant, +grey trees loom ominously on all sides. The path continues east and south. +~ +61 ad 3 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6117 +D2 +The narrow path winds its way through the trees to the south. +~ +~ +0 -1 6115 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6117 +A Junction In The Deep, Dark Forest~ + You are by a junction where three paths meet. Ancient, grey trees seem +to observe you silently you from all sides. Paths lead north, east and west. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6106 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6118 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6116 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path paths~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6118 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. Ancient, +grey trees loom everywhere. The path continues south and west. +~ +61 ad 3 +D2 +The narrow path winds its way through the trees to the south. +~ +~ +0 -1 6119 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6117 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6119 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. Huge, +ancient trees are on all sides. The path continues north and south. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6118 +D2 +The narrow path winds its way through the trees to the south. +~ +~ +0 -1 6120 +E +tree trees trunk trunks~ +You feel as if they are watching you. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6120 +On The River Bank In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. To the +south a fast river is flowing westward through the forest. Ancient grey +trees loom on both banks. The path continues north and west. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6119 +D2 +It looks as if you can enter the fast flowing river just to the +south. +~ +~ +0 -1 901 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6121 +E +river~ +The river flows fast and strong. It is black or looks so in the gloom. +~ +E +bank banks tree trees trunk trunks~ +The ancient crowns of trees on both banks reach together forming a dense roof +above the dark river. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6121 +A Dead End Path On The River Bank In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. The +ancient trees stand so close that the path disappears between the dusty +roots. To the south a dark river flows from east to west. The only exit +appears to be east. +~ +61 ad 3 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6120 +E +river~ +The river flows fast and strong. It is black or looks so in the gloom. +~ +E +bank banks tree trees trunk trunks~ +The ancient crowns of trees on both banks reach together forming a dense roof +above the dark river. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6122 +A Small Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. Giant, +grey trees loom ominously all around. The path continues east and south. +~ +61 ad 3 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6114 +D2 +The narrow path winds its way through the trees to the south. +~ +~ +0 -1 6123 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6123 +A Junction On The River Bank In The Deep, Dark Forest~ + You are by a junction where three paths meet. Ancient, grey trees seem +to observe you silently you from all around. To the south a dark river +flows from east to west through the forest. Paths lead north, east and west. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6122 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6124 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6125 +E +river~ +The river flows fast and strong. It is black or looks so in the gloom. +~ +E +bank banks tree trees trunk trunks~ +The ancient crowns of trees on both banks reach together forming a dense roof +above the dark river. +~ +E +path paths~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6124 +A Dead End Path In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. The +ancient trees stand so close that the path disappears between the dusty +roots. To the south a dark river flows from east to west. The only exit +appears to be west. +~ +61 ad 3 +D3 +The narrow path winds its way through the trees to the west. +~ +~ +0 -1 6123 +E +river~ +The river flows fast and strong. It is black or looks so in the gloom. +~ +E +bank banks tree trees trunk trunks~ +The ancient crowns of trees on both banks reach together forming a dense roof +above the dark river. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6125 +A Small Path On The River Bank In The Deep, Dark Forest~ + You are on a narrow path leading through the deep, dark forest. +Ancient grey trees loom everywhere. To the south a dark river flows +westward through the forest. The path continues north and east. +~ +61 ad 3 +D0 +The narrow path winds its way through the trees to the north. +~ +~ +0 -1 6126 +D1 +The narrow path winds its way through the trees to the east. +~ +~ +0 -1 6123 +E +river~ +The river flows fast and strong. It is black or looks so in the gloom. +~ +E +bank banks tree trees trunk trunks~ +The ancient crowns of trees on both banks reach together forming a dense roof +above the dark river. +~ +E +path~ +The path seems all too frail. One of the giant roots could probably crush it +in a single blow. +~ +S +#6126 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way between huge, ancient trees +standing close on all sides. The trail leads north and west, and to the +south a frail path leads away from the trail. +~ +61 ad 3 +D0 +The narrow, dusty trail leads north through the forest. +~ +~ +0 -1 6127 +D2 +The path leads south - away from the trail. +~ +~ +0 -1 6125 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6128 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +path~ +The path seems fragile and unsafe compared to the enormous trunks that loom +around it. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6127 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way between huge, ancient trees +standing close on all sides. The trail leads east and south. +~ +61 ad 3 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6112 +D2 +The narrow, dusty trail leads south through the forest. +~ +~ +0 -1 6126 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6128 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way east-west between huge, ancient +trees that stand close on all sides. Not a sound is to be heard - everything +is ominously quiet. +~ +61 ad 3 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6126 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6129 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6129 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way east-west between huge, ancient +trees that stand close on all sides. Not a sound is to be heard - everything +is ominously quiet. +~ +61 ad 3 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6128 +D3 +The narrow, dusty trail leads west through the forest. +~ +~ +0 -1 6135 +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +tree trees trunk trunks~ +These ancient trees must have been here for many, many years. It is impossible +to catch even a glimpse of anything above the lowest branches. +~ +S +#6130 +A Narrow Trail Through The Deep, Dark Forest~ + You are on a dusty trail winding its way westward between huge, ancient +trees that stand close on all sides. The tree trunks seem to be covered in +some sticky substance which gets much stickier towards the west! Beware! +~ +61 ad 3 +D1 +The narrow, dusty trail leads east through the forest. +~ +~ +0 -1 6110 +D3 +The sticky substance is hanging like ropes between the trees just above the +path. To the west the path seems to be covered with these giant threads +covered with glue. You can sense the forces of evil coming from the west +and your bones tell you it may not be such a good idea to proceed. +~ +~ +0 -1 6131 +D4 +~ +~ +0 -1 6132 +E +substance rope ropes thread threads~ +The substance reminds you of giant threads covered with glue. If it hadn't +been for the size you could have sworn it was part of a spider web. +~ +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +E +tree trees trunk trunks~ +The sticky substance is hanging like ropes between the ancient trees, crossing +the path just out of reach. It might be possible to climb one of the sticky +trunks. +~ +S +#6131 +The Deadly Spider Web~ + You are walking along the narrow path, ducking under the sticky ropes +as you advance... + +> +A huge, poisonous spider drops from above! +A huge, poisonous spider drops from above! +A huge, poisonous spider drops from above! + +> +The huge, poisonous spider stings you! You resist the poison! +The huge, poisonous spider stings you! You are poisoned! +The huge, poisonous spider stings you! You are poisoned! + +You are dead. +~ +61 bd 3 +D1 +~ +~ +0 -1 6130 +D3 +~ +~ +0 -1 6134 +D4 +~ +~ +0 -1 6133 +S +#6132 +Up In The Tree~ + You are hanging on the outside of a huge tree trunk covered in a sticky +substance. Directly to the west is an immense spider web suspended between +numerous of the giant trees including the one you are hanging on. To the +north is what looks like a large webbed entrance. +~ +61 acd 6 +D0 +To the north is what looks like a large expanse of webbing which extends +very far into the trees. +~ +~ +0 -1 6301 +D3 +To the west is the immense spider web. It seems to move softly. +~ +~ +0 -1 6133 +D5 +Downwards is the narrow forest path. +~ +~ +0 -1 6130 +E +web~ +The spider web stretches out to the west. It looks as if it is possible to +walk on it. +~ +S +#6133 +On The spider web~ + You are balancing carefully on the giant sticky threads that holds the +giant web in place. To the east is a giant tree trunk and to the west is +an entrance to a cave-like structure made from many layers of spider web. +~ +61 ad 6 +D1 +To the east is the giant tree trunk. +~ +~ +0 -1 6132 +D3 +To the west is the entrance to the cave-like structure. +~ +~ +0 -1 6134 +E +web~ +The immense spider web moves softly. +~ +E +cave structure~ +It covers a ground area corresponding to an irregular circle with a diameter +of about 20 feet and is nearly 10 feet tall. It looks very old. +~ +S +#6134 +The Den Of The Queen Spider~ + You are inside a cave-like structure that seems to be made entirely +from countless layers of spider web. Temperature and humidity is very +high making it hard to breathe the foul air that lingers here. The walls +are covered with open cocoons. +~ +61 ad 6 +D1 +Compared to this place the east exit looks inviting. +~ +~ +0 -1 6133 +E +web wall walls~ +The sticky walls are covered with open cocoons. +~ +E +cocoon cocoons~ +The cocoons are burst open as if something inside really wanted to get +out. They are at the size of a human head. +~ +S +#6135 +A Dusty Trail In The Deep, Dark Forest~ + You are on a dusty trail leading through the deep, dark forest. Ancient +grey trees loom all around you. The trail continues north and east. +~ +61 ad 3 +D0 +The dusty trail leads north through the trees. +~ +~ +0 -1 6136 +D1 +The dusty trail leads east through the trees. +~ +~ +0 -1 6129 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +S +#6136 +A Dusty Trail In The Deep, Dark Forest~ + You are on a dusty trail leading through the deep, dark forest. Ancient, +grey trees loom everywhere. The trail continues south and west. A broad +irregular path leads eastward away from the trail. +~ +61 ad 3 +D1 +The trees standing on the sides of the path have scratch marks on them. +~ +~ +0 -1 6142 +D2 +The dusty trail leads south through the trees. +~ +~ +0 -1 6135 +D3 +The dusty trail leads west through the trees. +~ +~ +0 -1 6137 +E +tree trees trunk trunks~ +To the east the ancient grey giants have many marks as if something with huge +claws has been tearing at them in rage. +~ +E +path~ +The trees standing on the sides of the path have scratch marks on them. +~ +E +trail~ +The dark and dusty trail seems fragile compared to the massive trunks, and in +some places, giant grey roots have broken up through its surface. +~ +S +#6137 +At The End Of The Trail Through The Deep, Dark Forest~ + You are on a dusty trail leading through the deep, dark forest. Ancient +grey trees loom all around you. A small trail leads northwards and the only +other exit is east, along the main trail. +~ +61 ad 3 +D0 +A narrow trail leads northwards through the underbrush. +~ +~ +0 -1 6138 +D1 +The dusty trail leads east through the trees. +~ +~ +0 -1 6136 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +S +#6138 +On The Narrow Trail~ + The trail continues to the north and south as it leads through +the heavy underbrush of this part of the Haon-Dor Forest. Ancient +grey trees loom all around you. The brush seems to be bending +closely over the path in a somewhat ominous manner, but you easily +shrug it off. The trail looks to open up somewhat a short distance +to the south. +~ +61 ad 3 +D0 +The narrow trail continues northwards through the underbrush. +~ +~ +0 -1 6139 +D2 +The dusty trail leads east through the trees. +~ +~ +0 -1 6137 +E +tree trees trunk trunks~ +The ancient grey giants seem to observe you silently. +~ +S +#6139 +On The Narrow Trail~ + The trail continues to the north and south as it leads through +the heavy underbrush of this part of the Haon-Dor Forest. The +trail looks surprisingly well trodden along this part. The brush +seems to be bending closely over the path in a somewhat ominous +manner, but you easily shrug it off. +~ +61 ad 3 +D0 +A short distance to the north, you can see something shimmering. +~ +~ +0 -1 6203 +D2 +The path leads southwards through the underbrush. +~ +~ +0 -1 6138 +S +#6142 +Outside A Cave In The Deep, Dark Forest~ + You are at the end of a broad, irregular path. To the north is a very +large ominous-looking cave opening. The trees here have many marks as if +something with huge claws has been tearing at them in rage. +~ +61 ad 3 +D0 +The disgusting smell of a large reptile emanates from the cave opening. +~ +~ +0 -1 6143 +D3 +The path winds its way westward. +~ +~ +0 -1 6136 +E +tree trees~ +The ancient grey giants have many marks as if something with huge claws has +been tearing at them in rage. +~ +E +cave opening~ +The disgusting smell of a large reptile emanates from the cave opening. +~ +S +#6143 +The Cave Of The Green Dragon~ + You are in a big natural cave. The floor is littered with bones of +all sorts and the stench is so massive that you could cut it with a +knife. The only exit is to the south. +~ +61 ad 3 +D2 +The exit leads out into the forest. +~ +~ +0 -1 6142 +E +bone bones floor~ +Most of the bones on the floor appear to be of human origin. +~ +S +#6150 +The Narrow Trail~ + This trail looks much spookier than any other that's you have seen. The +usual animal claw marks and bites on the trees are becoming few and far +between. The trail continues north. +~ +61 ad 3 +D0 +The narrow trail continues north. +~ +~ +0 -1 6151 +D2 +The trail intersects the main forest path. +~ +~ +0 -1 6103 +S +#6151 +The Narrow Trail~ + This area of the trail is also very peculiar. You can see no signs of +animal life what so ever. The structure of the surrounding trees forces +the path to make a sharp turn to the east. +~ +61 ad 3 +D1 +The trail bends east. +~ +~ +0 -1 6152 +D2 +The start of the trail. +~ +~ +0 -1 6150 +S +#6152 +The Circle Of Trees~ + The trees here seem to form a circle around the enormous tree in +the center. You notice a wooden door carved into the huge tree to +the east. The trail that you followed to get here seems to end at +the base of the tree. +~ +61 ad 3 +D1 +The tree door is carved beautifully. +~ +door~ +1 -1 6153 +D3 +The bend on the trail. +~ +~ +0 -1 6151 +S +#6153 +Inside The Great Tree~ + You have stepped inside of this hollowed tree. From here steps lead down +into darkness or you can exit the tree by going west. +~ +61 ad 3 +D3 +The door is carved beautifully. +~ +door~ +1 -1 6152 +D5 +The steps look appear like they will hold your weight. +~ +~ +0 -1 6154 +S +#6154 +The Underground Hallway~ + This hallway is apparently one of the roots of the tree hollowed out. +The hall leads south to a room where you hear strange noises or you can +go up the steps. +~ +61 ad 3 +D2 +The hallway looks quite grand. +~ +~ +0 -1 6155 +D4 +The steps appear like they will hold your weight. +~ +~ +0 -1 6153 +S +#6155 +The Cultist Temple~ + This temple, built to a god you don't worship, is a nice place to +visit but you feel very uncomfortable about spending any amount of +time here. The wooden altar seems to almost glow as you enter the +room. The only exit is the way you came in. +~ +61 ad 3 +D0 +The hallway to the north looks quite grand. +~ +~ +0 -1 6154 +S +$ diff --git a/lib/world/wld/62.wld b/lib/world/wld/62.wld new file mode 100644 index 0000000..e268934 --- /dev/null +++ b/lib/world/wld/62.wld @@ -0,0 +1,1486 @@ +#6200 +In The Forest~ + The trail ends here where the mountains begin abruptly. +Looking up, you note that the climb would be rough, +hazardous, and probably not worth the effort; the energy +barrier continues up the mountain side out of sight. The +only exit is back to the east. +~ +62 0 3 +D1 +~ +~ +0 -1 6201 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6201 +In The Forest~ + To the west the mountains rise high up, rocky and +lifeless. The trail you are walking on heads west +to the end of the forest, and back east. Each way the +strange energy barrier stands just to the north, +inscrutable, magical, and impenetrable. +~ +62 0 3 +D1 +~ +~ +0 -1 6202 +D3 +~ +~ +0 -1 6200 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6202 +In The Forest~ + This trail runs parallel to the energy barrier to your +north, seemingly all the way up to the mountains to the +west that form the boundries of this valley. Walking +along, you scare a small squirrel, which leaps through +the barrier without a second thought! Your hand is still +repulsed by the magical field, however. +~ +62 0 3 +D1 +~ +~ +0 -1 6203 +D3 +~ +~ +0 -1 6201 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6203 +In The Forest~ + The northern pathway stops abruptly here, halted by +some sort of glowing energy barrier running through the +woods. A game trail, seemingly well traveled, runs east- +west along the magical barrier's length. Very strange. +~ +62 0 3 +D1 +~ +~ +0 -1 6204 +D2 +~ +~ +0 -1 6139 +D3 +~ +~ +0 -1 6202 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6204 +In The Forest~ + The energy barrier runs through the woods on its east- +west course here, just north of the trail you are walking +on. A faint humming seems to eminate from the glowing +field, pushing the normal sounds of the forest into the +background. For a short moment, you wonder if the field +is keeping something in, or you out. It makes you +wonder... +~ +62 0 3 +D1 +~ +~ +0 -1 6205 +D3 +~ +~ +0 -1 6203 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6205 +In The Forest~ + The energy field makes a sudden ninety-degree turn +here, running to the north and west out of sight through +the thickening woods. The trail you are on curves to +skirt the edge of the magical barrier in either direction. +Curious... who or what is keeping this field in place, +and for what purpose? +~ +62 0 3 +D0 +~ +~ +0 -1 6206 +D3 +~ +~ +0 -1 6204 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6206 +In The Forest~ + The woods thicken here, and surpisingly, you see a tree +completely cut in half by the magical barrier running +north-south here. The tree looks healthy and unaffected +by the energy field passing right through its center. +Odd... +~ +62 0 3 +D0 +~ +~ +0 -1 6207 +D2 +~ +~ +0 -1 6205 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6207 +In The Forest~ + The magical energy barrier runs straight north-south, +unaffected by dips in the grounds, intervening rocks and +trees, everything. From the north, you hear a faint +rushing noise above the humming of the field. The trail +you are on continues to the north and south, only a few +feet away from the barrier it follows. +~ +62 0 3 +D0 +~ +~ +0 -1 6208 +D2 +~ +~ +0 -1 6206 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6208 +In The Forest~ + Here the field changes color, becoming almost +transparent. Beyond, you think you can make out a few +shapes, but nothing too terribly distinct. From the north +comes the rushing sound of water, and through the trees +you believe you can see a river cutting through the +forest. The trail you are on leads north-south through +the woods, following the energy barrier all along its +length. +~ +62 0 3 +D0 +~ +~ +0 -1 6209 +D2 +~ +~ +0 -1 6207 +D3 +~ +~ +0 -1 6210 +E +barrier energy~ +You can see a clearing beyond, the barrier not fully blocking +out the area behind. You think it might be possible to push +your way through, if the damn thing doesn't kill you first. +~ +S +#6209 +The River's Edge~ + A river flows through the forest here, its water clean +and clear. The energy barrier runs right out into the +middle of the river, and then makes another ninety-degree +turn to the west. The water seems to have no problem +penetrating the magical field, however. + The river seems too wide and too swift to cross here. +It appears the only way to go is back to the south. +~ +62 0 3 +D2 +~ +~ +0 -1 6208 +E +barrier energy~ +You can faintly see the woods continue beyond it, but it +seems there's no way through. The field rises high up +into the air, and seems to form a ceiling above the woods, +preventing a flying entrance. You'd also bet it extends +deep into the ground. +~ +S +#6210 +Just Passing Through...~ + The energy barrier seems to push against you +ineffectively as you shove your way through it. All your +hairs stick up on your body from the static electricity, +and electric shocks sting your body from every metallic +piece of equipment you are carrying. You think with a +final shove, you can break through to the other side... +~ +62 c 5 +D1 +~ +~ +0 -1 6208 +D3 +~ +~ +0 -1 6211 +S +#6211 +By The Barrier~ + To the west the magical energy barrier crackles and +hums to itself, almost looking harmless. Almost -- all +around on the ground are charred corpses and bodies. +Several poles with skulls on top face to the west, warning +travellers on the forest paths away from here. The air +smells of death and decay, and the air is very still. You +feel uncomfortable. +~ +62 c 3 +D1 +~ +~ +0 -1 6210 +D3 +~ +~ +0 -1 6212 +E +corpse body bodies corpses skull skulls~ +Demi-human, from the size. The foreheads slop down to a +blocky brow, and the braincase seems rather small. On +a hunch, you check one of the feet of a torched body. +Cloven, like a pig's... Orcs. +~ +S +#6212 +A Clearing In The Forest~ + Several trails in the forest intersect here in a small +clearing. The dirt seems matted down, and you see many +footprints in the soil. Nearby you hear a bird's chirp +abruptly cut off in a loud squawk, and then silence. The +paths seem well-traveled, the undergrowth matted down and +the foilage hacked away to leave plenty of room or a +traveller to pass in every cardinal direction, excepting +the west path seems fairly overgrown... + You feel watched. +~ +62 0 3 +D0 +~ +~ +0 -1 6213 +D1 +~ +~ +0 -1 6211 +D2 +~ +~ +0 -1 6217 +D3 +~ +~ +0 -1 6228 +E +foot footprint footprints print prints~ +Cloven hoofs, two feet... they walk erect whatever they are. +~ +S +#6213 +A Forest Trail~ + The northern trail winds through the trees, heading +from a forest clearings to the south to where there appears +to be a river's edge to the north. This trail appears to +be well-used and you spot many tracks in the earth. Again +the hairs on the back of your neck stand up, and you wonder +if you're being spied upon. +~ +62 0 3 +D0 +~ +~ +0 -1 6214 +D2 +~ +~ +0 -1 6212 +S +#6214 +The River's Edge~ + A beautiful river flows swiftly by, the current looking +quite dangerous in fact. Out in the center of the river +you spot the energy barrier enclosure... no way out here. +Looking up, you see a bird fly right through the barrier +overhead and wonder as to the force field's nature. This +path leads south into the forest, and westwards along the +river's edge. +~ +62 0 2 +D2 +~ +~ +0 -1 6213 +D3 +~ +~ +0 -1 6215 +S +#6215 +The River's Edge~ + The river flows on its course, unhampered by the energy +barrier passing right down its center for as far as you +can see in both directions. The path you are on travels +along the length of the river to the east and west +inbetween the water and the forest's edge. Once again you +shiver and feel that unmistakeable sense that you are +being watched. Disturbing. +~ +62 0 2 +D1 +~ +~ +0 -1 6214 +D3 +~ +~ +0 -1 6216 +S +#6216 +The River's Edge~ + A large out-cropping of rock blocks this path along the +river to the west, and you don't spot any way around it; +the woods are too thick to the south, the river too swift +to the north, the magical barrier above you. This is a +nice area, however, as evidenced by the amount of traffic +this path gets. From the marks in the grass, you guess +that this is a favored resting spot. +~ +62 0 2 +D1 +~ +~ +0 -1 6215 +S +#6217 +A Forest Trail~ + This well-used forest trail leads south. Among the +foot-tracks in the dirt, you spot a few animal tracks as +well, leading you to believe that these trails are used by +hunters. Why would they be enclosed in this manner, +however? + There is a clearing to the north, and the path +continues to the south. +~ +62 0 3 +D0 +~ +~ +0 -1 6212 +D2 +~ +~ +0 -1 6219 +S +#6218 +A Forest Trail~ + This trail leads north-south... obviously a gaming +trail. The woods, mostly deciduous trees with the +accompanying ground foilage, crowd in to either side. +A shrub to your left shows a fresh cutting wound... +looks like a sharp object like a knife or machete did +the damage. + A crackle in the leaves spins you around, to see +nothing. Something is watching you, you feel it. +Where? +~ +62 0 3 +D0 +~ +~ +0 -1 6233 +D2 +~ +~ +0 -1 6226 +S +#6219 +A Forest Trail~ + The trail changes direction here, turning to the north +and west. A large tree to your south bears an interesting +artifact; a rusty arrowhead embedded in the wood. It +looks as if the arrow had been broken off at the head, +the wood scratched at, and the arrowhead left behind. +Otherwise, there doesn't seem to be much of interest in +this particular section of the woods. +~ +62 0 3 +D0 +~ +~ +0 -1 6217 +D3 +~ +~ +0 -1 6220 +S +#6220 +A Forest Trail~ + This is a winding east-west path through the thickening +forest. The grass along the path is matted down from +frequent traffic. The path continues to the east, and +there seems to be a small clearing to the west. + A faint noise makes you stand stock still. You could +have sworn you heard a voice nearby. Whatever it was, it +wasn't speaking common. +~ +62 0 3 +D1 +~ +~ +0 -1 6219 +D3 +~ +~ +0 -1 6221 +S +#6221 +A Small Clearing~ + In the middle of this small clearing in the forest is a +fairly large rock sticking up out of the ground. Paths +lead away to the east, west, and south from here. The +trees above block out the sky fairly effectively, also +blotting out the glowing energy barrier above your head. +~ +62 0 3 +D1 +~ +~ +0 -1 6220 +D2 +~ +~ +0 -1 6222 +D3 +~ +~ +0 -1 6227 +E +rock boulder~ +There is dried blood on it. +~ +S +#6222 +A Forest Trail~ + A smaller northern path leads away from the main east- +west trail here towards a clearing. The main path leads +windingly around the trees to the east and west, the woods +blocking out whatever may be ahead. Again you get that +strange feeling of being watched. +~ +62 0 3 +D0 +~ +~ +0 -1 6221 +D1 +~ +~ +0 -1 6223 +D3 +~ +~ +0 -1 6225 +S +#6223 +A Forest Trail~ + The trail leads east and west here through the forest. +To the west you spot an area where a smaller path breaks +off from the main track. Eastwards seems to be another +small clearing that seems to be well used; there are many +tracks leading in that direction. +~ +62 0 3 +D1 +~ +~ +0 -1 6224 +D3 +~ +~ +0 -1 6222 +S +#6224 +The Dead End~ + The ground has been cleared of vegetation in this small +clearing, and several large, man-made salt licks lie on +the ground and stand on poles here. There are many animal +tracks in the earth -- the salt licks must attract +wildlife for miles around. You think this would be a good +place to hide and wait for dinner if you were a hunter... +~ +62 0 3 +D3 +~ +~ +0 -1 6223 +S +#6225 +A Forest Trail~ + This trail leads east-west through the forest foilage, +around the trees and up and down the slight rises. The +area is quiet and serene, except for the energy barrier +keeping you in to the south. For just a moment, you wonder +if you're still being watched... +~ +62 0 3 +D1 +~ +~ +0 -1 6222 +D3 +~ +~ +0 -1 6226 +S +#6226 +A Forest Trail~ + The trail bends here, leading away to the north and +east. Far off the the distance you hear the squawk of a +large bird-of-prey searching the skies for a meal. The +ferns around you rustle gently in the light breeze. +Somehow, the threatening aura that pervades over the rest +of the area seems absent here. You feel almost relaxed... +~ +62 c 3 +D0 +~ +~ +0 -1 6218 +S +#6227 +A Forest Trail~ + A bend in the forest trail allows you to go east and +north here. To the east you spot a small clearing, while +northwards this trail seems to join a much larger one +leading through the woods. On the ground is half of a +broken knife handle, made of bone and dried leather, +useless now. You wonder if the owner is watching you +now -- something certainly is. +~ +62 0 3 +D0 +~ +~ +0 -1 6232 +D1 +~ +~ +0 -1 6221 +S +#6228 +A Forest Trail~ + This path leads from the main clearing to the west to +intersect with a north-south path just to the east. A +small sapling on the north side of the trail has a rope +tied around one of its top branches; an unused snare +evidently. You still feel as if you're being watched in +the back of your mind, and adrenaline pumps into your +brain like a lightning fuzz. +~ +62 0 3 +D1 +~ +~ +0 -1 6212 +D3 +~ +~ +0 -1 6229 +S +#6229 +A Forest Trail~ + A north-south trail leads through the woods here, with +a small side trail leading off to the east. The trees +provide adequate cover from the sky, but through a few +holes in the foilage you spot the magical barrier above +you, keeping you from escaping by flight. You feel +slightly captured. +~ +62 0 3 +D1 +~ +~ +0 -1 6228 +D2 +~ +~ +0 -1 6230 +S +#6230 +A Forest Trail~ + Two trails come together here, a large northern path +heading away from tracks leading to the east and west. +The western path seems to be the most traveled, and the +east hardly at all. There seems to be less trees around +here... it seems as if many have been cut down by some +sort of crude tools. This land clearing appears to be +especially true to the east. +~ +62 0 3 +D0 +~ +~ +0 -1 6229 +D1 +~ +~ +0 -1 6231 +D3 +~ +~ +0 -1 6232 +S +#6231 +A Clearing~ + The trees have been cut down around here, and many of +the trunks hollowed out with sharp stones and lined with +treated leather to make almost-waterproof tubs. A foul +smelling brown fluid, tannin evidently, fills many of +these, soaking into various bits and pieces of animal +hides. Crude, but workable. +~ +62 0 3 +D3 +~ +~ +0 -1 6230 +S +#6232 +A Forest Trail~ + The trail is widening to the west, where the path leads +all the way up to the side of the mountains that enclose +this valley. Many of the trees have been cut down around +here, and it definitely looks as if the forest is ending. +Eastwards the trail leads on into the thick of the forest. +A small split off trail leads away to the south here. +~ +62 0 3 +D1 +~ +~ +0 -1 6230 +D2 +~ +~ +0 -1 6227 +D3 +~ +~ +0 -1 6233 +S +#6233 +A Forest Trail~ + The ground is growing more rocky here. The trees and +other foilage in the forest grow sparse here, finding it +hard to find purchase in the soil. The forest ends just +to the west, with the trail you are on leading right on up +to the side of the mountains. A side trail leads south +here, and the trail also leads back into the thick of the +forest to the east. +~ +62 0 3 +D1 +~ +~ +0 -1 6232 +D2 +~ +~ +0 -1 6218 +D3 +~ +~ +0 -1 6234 +S +#6234 +A Rocky Trail~ + The ground is getting very rocky here, causing the +trees of the woods to become more sparse. Several bushes +have found purchase in the soil, but not near enough to +block free movement in this area. The trail leads on up +to what appears to be a cave in the side of the mountain +to the west, and a side trail runs along the forest's edge +to the north. To the east, the trail runs deep into the +forest out of sight. +~ +62 0 4 +D0 +~ +~ +0 -1 6241 +D1 +~ +~ +0 -1 6233 +D3 +~ +~ +0 -1 6242 +S +#6235 +A Forest Trail~ + The trail you are on bends around a large double- +trunked tree and leads away to the north and west. The +green canopy of leaves overhead make this area fairly dark +and ominous, and that creepy 'watched' feeling returns to +hit you with full force. +~ +62 0 3 +D2 +~ +~ +0 -1 6229 +D3 +~ +~ +0 -1 6236 +S +#6236 +A Forest Trail~ + The trail continues here to the east and west, with a +small trail splitting off towards a large clearing to the +south. Two wooden poles with skulls on top warn you away +from the south, and succeed in making you feel quite +uncomfortable. Strange... +~ +62 0 3 +D1 +~ +~ +0 -1 6235 +D2 +~ +~ +0 -1 6237 +D3 +~ +~ +0 -1 6238 +S +#6237 +A Large Clearing~ + The earth has been upturned many times here, and +several white rocks stick up from the ground in odd +positions. + Graveyard. + This must be where they bury their dead -- just dig a +hole and throw the corpse inside, ignoring any previous +occupants in the ground. How uncivilized... you hope you +aren't taken care of in this matter when your time +comes... +~ +62 0 2 +D0 +~ +~ +0 -1 6236 +S +#6238 +A Forest Trail~ + The trail splits here, one fork heading north towards +the rushing sounds of a river, and west where the forest +seems to be thinning out a lot. A sudden motion out of +the corner of your eye catches your eyes, and you turn +your head. Nothing, there's nothing there at all. + You wonder if you're being stalked. +~ +62 0 3 +D0 +~ +~ +0 -1 6239 +D1 +~ +~ +0 -1 6236 +D3 +~ +~ +0 -1 6241 +S +#6239 +A River's Edge~ + The river flows swiftly on its course to the north. +The trail you are on leads on by the water's edge to the +west, and back into the forest to the south. A large +boulder is just to the west, blocking all travel in that +direction. Out in the center of the river, the 'roof' of +the energy field meets the northern 'wall'. The water +passes right on through the magical barrier, however... +the barrier is obviously porous to some materials. +~ +62 0 2 +D2 +~ +~ +0 -1 6238 +D3 +~ +~ +0 -1 6240 +S +#6240 +A River's Edge~ + The river pours down the side of the mountains to the +west, originating from a large hole in the face of one of +the sheer rock protuberances. The energy barrier climbs +right up the mountain, and seals off any means of escape +by that means. The trail you are on runs by the side of +the river to the east, and a path leads by the forest side +to the south. +~ +62 0 2 +D1 +~ +~ +0 -1 6239 +D2 +~ +~ +0 -1 6241 +S +#6241 +A Rocky Trail~ + The forest is just to your west, with a side trail +leading deep inside from here. The main trail you are on, +however, heads north towards the river, and south near +where a trail leads up to a cave in the mountain side. +There doesn't seem to be a whole lot to capture your +attention here... +~ +62 0 4 +D0 +~ +~ +0 -1 6240 +D1 +~ +~ +0 -1 6238 +D2 +~ +~ +0 -1 6234 +S +#6242 +A Cave Entrance~ + You are half blinded by the differences of the outdoors +illumination and the pure darkness of the cave. A deep, +cloying stench flows out from the cave mouth; the smells +of decay, unwashed bodies, and sickness in one roiling +odor. Your stomach turns involuntarily, and you wonder +about going back down the hill to the east, instead of +going even further down the western tunnel. +~ +62 d 5 +D1 +~ +~ +0 -1 6234 +D3 +~ +~ +0 -1 6243 +S +#6243 +A Tunnel Forking~ + The tunnel forks here, one branch leading north, the +other west. Additionally, you can head back outside to +the east, which seems like a very good idea to your +tortured nasal passages. Your eyes water from the stench, +and you clench your left hand tightly to keep control of +your bile. + Forcing your eyes open, you notice the warning signs +painted around the tunnel to the north. +~ +62 ad 4 +D0 +~ +~ +0 -1 6255 +D1 +~ +~ +0 -1 6242 +D3 +~ +~ +0 -1 6244 +E +painting sign signs~ +They are orcish, and you could swear they were all warning +symbols. +~ +S +#6244 +A Tunnel~ + The floor is slick with the humidity that boils out of +the lower reaches of this cave, bringing that most awful +smell with it. Again, you consider saving your nose the +trip west and down the tunnel, and heading back east to +the cave entrance. +~ +62 ad 4 +D1 +~ +~ +0 -1 6243 +D3 +~ +~ +0 -1 6245 +S +#6245 +A Tunnel~ + The tunnel takes a deep dip here, and opens up into a +largish cave to the west. There seems to be a few faint +lights from inside, and you hear some heavy breathing and +low grunts from that direction. The cave entrance to the +east seems far too far away for your comfort... +~ +62 ad 5 +D1 +~ +~ +0 -1 6244 +D3 +~ +~ +0 -1 6251 +S +#6246 +A Cave~ + Heaps of rotting meat and cups of near-drinkable water +sit here; the orc food stores. You stand here and wonder +in near-disbelief at how the orcs could find this stuff +palatable. They're orcs; its their nature and their +stomachs you guess. Oddly enough, you don't even care to +catalog what they have available -- there's no chance you're +going to take any of this... +~ +62 d 4 +D1 +~ +~ +0 -1 6247 +D2 +~ +~ +0 -1 6249 +S +#6247 +A Cave~ + A single corpse lies here, well away from a pile of +similars to the east. There are several sharpened stakes +and rocks sitting about conveniently. The way the corpse +is lying, the stone next to its hand... this is a suicide +area! You look down upon the orc and comprehend its +suffering in its twisted form. How sad. +~ +62 d 4 +D1 +~ +~ +0 -1 6248 +D2 +~ +~ +0 -1 6250 +D3 +~ +~ +0 -1 6246 +S +#6248 +A Cave~ + There are bodies here... corpses. Orcs, the lot of +them, every single one of them horribly disfigured in +some senseless way; one whose arms were removed, another +who lacks anything that could sensibly be called a face. +A few twitch feebly with the last remains of life, the +rest just decompose. The dim sense of horror budding in +your head blossoms as you realize the pile in the corner +consists of dead orc children awaiting burial. +~ +62 cd 4 +D2 +~ +~ +0 -1 6251 +D3 +~ +~ +0 -1 6247 +S +#6249 +A Cave~ + A few sleeping pallets, made of moldy straw and +stinking furs are arranged around a small firepit here. +A wooden cup, carved by a crude tool and cruder hands +sits near the ashes filled with water you consider +undrinkable. Somewhere to the east you hear an orc +child's whining cry, and a voice hushes it urgently. +Beware, orcs! Adventurers are here! Hide your children! +~ +62 d 4 +D0 +~ +~ +0 -1 6246 +D1 +~ +~ +0 -1 6250 +D2 +~ +~ +0 -1 6252 +S +#6250 +A Cave~ + Several grass sleeping pallets are here, clustered +around the remains of an old fire. The sloping of the +cave's ceiling allow for smoke ventilation towards the +surface in here you note, lucky for the orcs. A few +strings of burnt meat still hang over the fire, untended +and uneaten. On the floor near your feet you spy a small, +twisted piece of wire... one orc's idea of a treasured ring, +no doubt. Kicking the trinket away, you try to push the +pity out of your heart for these wretches. +~ +62 d 4 +D0 +~ +~ +0 -1 6247 +D1 +~ +~ +0 -1 6251 +D2 +~ +~ +0 -1 6253 +D3 +~ +~ +0 -1 6249 +S +#6251 +A Cave~ + You are standing just inside a largish cave, about a +hundred feet in diameter. A few dim make-shift lanterns +burning animal fat illuminate the area, just enough so you +can see the rotted food on the floor, and a few bodies +sprawled throughout the whole area. Your disgust quickly +turns to horror as you see a horrible creature, half... +well, half something and half orc dash between two +stalagmites. +~ +62 d 4 +D0 +~ +~ +0 -1 6248 +D1 +~ +~ +0 -1 6245 +D2 +~ +~ +0 -1 6254 +D3 +~ +~ +0 -1 6250 +S +#6252 +A Cave~ + This must be the orc chief's area. There's an old +prize -- a stolen timeworn human armchair sitting near +the south wall as a throne. A mammoth sleeping pallet +made of piled furs is nearby. Next to that is the pile +of orc treasure; a pile of well-polished coppers. You +look at the pile of worthless coins and wonder at the +image of orcish raiders. + These orcs aren't raiders, they are victims. +~ +62 d 4 +D0 +~ +~ +0 -1 6249 +D1 +~ +~ +0 -1 6253 +S +#6253 +A Cave~ + Many sleeping pallets are arranged near the walls, each +made of heavy fur padding for comfort and warmth. Many +are covered with blood and other, unidentifiable +substances. Looking around, your only coherent thought +is, 'Don't want to know... don't want to know...' +~ +62 d 4 +D0 +~ +~ +0 -1 6250 +D1 +~ +~ +0 -1 6254 +D3 +~ +~ +0 -1 6252 +S +#6254 +A Cave~ + This area of the cave is one vast orc sickroom. +Mutated and mangled orcs lie on the floor, seeming quiet, +lifeless. They're not even worth your time, you think, +unless you've the mercy to put them out of their misery. + You look at the corruption of nature's design and +wonder what forces are at work here... the barrier, the +orcs... What's going on here? +~ +62 d 4 +D0 +~ +~ +0 -1 6251 +D3 +~ +~ +0 -1 6253 +S +#6255 +A Tunnel~ + This forking off from the mail tunnel seems odd; the +walls are strangely smooth, as if they were carved out by +forces unknown. The end is abrupt and short, but there is +a steel door inset in the wall of the west side of the +tunnel. The smell from the lower tunnel doesn't seem +nearly as bad here... this might be a good place to rest +and catch your breath. +~ +62 acd 4 +D2 +~ +~ +0 -1 6243 +D3 +A large steel door. There seems to be no hinges or knob, +but there is a small keyhole in the exact center of it. +~ +door steel~ +2 6200 6256 +S +#6256 +A Tunnel~ + This section of man-made tunnel heads north from here, +doors on either side. A few glowing spots on the ceiling +illuminate the area to almost a daylight level. From the +north you hear some horrible cries of pain and anguish +that make you cringe inside and think twice about heading +in that direction. +~ +62 d 0 +D0 +~ +~ +0 -1 6258 +D1 +~ +door steel~ +2 6200 6255 +D3 +This is a normal, wooden door. +~ +door wooden~ +1 -1 6257 +S +#6257 +A Bedroom~ + This is a bedroom, catered to someone with a definite +sense of taste. There's a chest of drawers made of a +solid section of oak tree. In fact, most of the furniture +here has that 'natural look' about it. The bed is filled +with soft down with an ornate table lamp close by. Nice +place. +~ +62 d 0 +D1 +A normal, wooden door. +~ +door wooden~ +1 -1 6256 +S +#6258 +A Tunnel~ + This tunnel opens up into a large room to the north, +and to the south, leads towards a set of doors. The light +is crisp and bright, clearly showing the lack of tool +marks on the hewn walls... magic? The room just ahead is +large, and also well-lighted, giving it an almost clinical +atmosphere. Somewhere in the recesses of that room +something cries out in a horrible crackling voice. Not +good. +~ +62 d 0 +D0 +~ +~ +0 -1 6266 +D2 +~ +~ +0 -1 6256 +S +#6259 +The Laboratory~ + A full fledge operating table is set up here, outfitted +with a full set of restraints. A ledge nearby has a whole +array of sterile medical equipment on it, covered over by +a clear lid. There's a drain in the floor with gradients +leading to it to carry away the blood. For some reason, +you don't imagine this as a voluntary operating theatre... +~ +62 d 0 +D1 +~ +~ +0 -1 6260 +D2 +~ +~ +0 -1 6262 +S +#6260 +The Laboratory~ + Another table is set up will all sorts of alchemical +apparatus here, vials and beakers, distillation equipment +and et cetera. The stuff looks expensive, but bulky and +fragile; not good treasure to cart away with you at all. +~ +62 d 0 +D1 +A steel cell door. +~ +door steel~ +1 6200 6261 +D2 +~ +~ +0 -1 6263 +D3 +~ +~ +0 -1 6259 +S +#6261 +A Cage~ + This is a small, dirty cage, with only a bucket for +wastes, another bucket for food, and a dirty towel for a +bed. The whole room has a terrible stench about it. +~ +62 d 0 +D3 +A steel cell door. +~ +door steel~ +1 6200 6260 +S +#6262 +The Laboratory~ + Some small cages sit here, containing many different +types of rodents. Leaning down to look better, you are +very surprised as a tiny, common garden mouse growls at +you and tries to rip your face off through the bars. +There are some bulges on its back, and it doesn't seem to +be in a very good mood. It quivers some, not fully in +control of its motor functions. Poor thing. +~ +62 d 0 +D0 +~ +~ +0 -1 6259 +D1 +~ +~ +0 -1 6263 +D2 +~ +~ +0 -1 6265 +S +#6263 +The Laboratory~ + A rack stands near the cages on the eastern wall, +filled with shackles and manacles, bullwhips and worse. +They all look well-used. You give a shiver, and carry on. +~ +62 d 0 +D0 +~ +~ +0 -1 6260 +D1 +A steel cell door. +~ +door cell~ +1 6200 6264 +D2 +~ +~ +0 -1 6266 +D3 +~ +~ +0 -1 6262 +S +#6264 +A Cage~ + This is a small, dirty cage, with only a bucket for +wastes, another bucket for food, and a dirty towel for a +bed. The whole room has a terrible stench about it. +~ +62 d 0 +D3 +A steel cell door. +~ +door steel~ +1 6200 6263 +S +#6265 +The Laboratory~ + This is the southwest corner of the lab. There's no +equipment here, merely several pairs of heavy steel +shackles on the southern wall. There's also some a few +small bloodstains on the floor beneath the shackles. +~ +62 d 0 +D0 +~ +~ +0 -1 6262 +D1 +~ +~ +0 -1 6266 +S +#6266 +The Laboratory~ + This is a fairly roomy laboratory that extends to the +north, with cages set on the east side of the room. A +metal table here is empty, although you can see some +outlines in the dust that suggest books had laid here +once. +~ +62 d 0 +D0 +~ +~ +0 -1 6263 +D1 +A steel cell door. +~ +cell door~ +1 6200 6267 +D2 +~ +~ +0 -1 6258 +D3 +~ +~ +0 -1 6265 +S +#6267 +A Cage~ + This is a small, dirty cage, with only a bucket for +wastes, another bucket for food, and a dirty towel for a +bed. The whole room has a terrible stench about it. +~ +62 d 0 +D3 +A steel cell door. +~ +door cell~ +1 6200 6266 +S +$ diff --git a/lib/world/wld/63.wld b/lib/world/wld/63.wld new file mode 100644 index 0000000..fd8eed8 --- /dev/null +++ b/lib/world/wld/63.wld @@ -0,0 +1,844 @@ +#6301 +The Webbed Entrance~ + Sticky, sticky, sticky! The ground is cluttered with leaves, +decayed remains of webbed crickets, beetle, rats, dogs, and even +humans. You begin to wonder about what lies ahead. The air is +damp here, and even the little light that shines through the +canopy seems to be absorbed into the webbing. +~ +63 c 1 +D0 +~ +~ +0 -1 6302 +D2 +~ +~ +0 -1 6132 +S +#6302 +The Webby Passage~ + You find that footing here is very good, almost too good. The +limbs are coated with cobwebs and seem unusually strong for tree +branches. Paths lead in four directions. The eastward path goes +down a bit. +~ +63 0 2 +D0 +~ +~ +0 -1 6304 +D1 +~ +~ +0 -1 6305 +D2 +~ +~ +0 -1 6301 +D3 +~ +~ +0 -1 6303 +S +#6303 +The Wasp Hive~ + Drones scuttle about in this room. The cells on the walls are +honeycomb in shape and many of the maggots and wasps you see have +fang-marks on their bodies. You sense some order in their markings. +~ +63 0 2 +D1 +~ +~ +0 -1 6302 +S +#6304 +The Webby Passage~ + Another webby passage, all sticky and wet. Tiny ballooning +spiders fill the air. It seems that these young ones are newborns. +~ +63 0 2 +D1 +~ +~ +0 -1 6305 +D2 +~ +~ +0 -1 6302 +S +#6305 +Beneath The Busy Path~ + You here the sounds of crawling arachnids above. The rhythms of +the footsteps suggest a primitive order in there movement. The light +seems brighter upwards. +~ +63 0 2 +D3 +~ +~ +0 -1 6304 +D4 +~ +~ +0 -1 6306 +S +#6306 +On The Busy Path~ + Spiders, spiders, everywhere! It is almost ant-like in efficiency +with one big difference. The spiders here are carrying ant-corpses, +as well as rats, wolves, and humans. +~ +63 0 2 +D2 +~ +~ +0 -1 6307 +D5 +~ +~ +0 -1 6305 +S +#6307 +On The Busy Path~ + Spiders, spiders, everywhere! It is almost ant-like in efficiency +with one big difference. The spiders here are carrying ant-corpses, +as well as cats, wolves, and humans. +~ +63 0 2 +D0 +~ +~ +0 -1 6306 +D1 +~ +~ +0 -1 6308 +S +#6308 +On The Busy Path~ + Spiders, spiders, everywhere! It is almost ant-like in efficiency +with one big difference. The spiders here are carrying ant-corpses, +as well as cats, dogs, and humans. +~ +63 0 2 +D0 +~ +~ +0 -1 6307 +D1 +~ +~ +0 -1 6306 +D2 +~ +~ +0 -1 6305 +D3 +~ +~ +0 -1 6309 +S +#6309 +A Split In The Path~ + As always, there is a split in the road. One road is strewn with +cricket feelers. The other is well-kept and suitable for smooth +travelling. The webbing that was prevalent in earlier rooms is almost +non-existant now. +~ +63 0 2 +D0 +~ +~ +0 -1 6310 +D1 +~ +~ +0 -1 6308 +D2 +~ +~ +0 -1 6320 +S +#6310 +A Fuzzy Tree Limb~ + You are on a 'fuzzy' tree limb. Interesting, since the branches +seem to have 'hairs' sprouting from its bark. As you look closer +you see millions of aphids covering each limb. +~ +63 0 2 +D2 +~ +~ +0 -1 6309 +D3 +~ +~ +0 -1 6311 +S +#6311 +The Tree Trunk~ + You feel that you can rest here safely. There is evidence of +webbing here, but it is of a finer quality. +~ +63 c 2 +D1 +~ +~ +0 -1 6310 +D2 +~ +~ +0 -1 6312 +S +#6312 +The Tree Lair Entrance~ + It seems the inhabitant of this place does not web her victims, +as evidenced by the remains before you. The area is cluttered with +desiccated corpses, apparently bitten but unwebbed, and drained of +their life juices. +~ +63 0 2 +D0 +~ +~ +0 -1 6311 +D3 +~ +~ +0 -1 6313 +S +#6313 +The Wolf Spider Lair~ + Very dark, as all lairs of spiders are. Not much of furnishings +save an exit. The wolf spider keeps no corpses here, but rather +throws them out at her leisure. +~ +63 0 2 +D1 +~ +~ +0 -1 6312 +S +#6320 +The Webless Path~ + Strange. No webbing here. In fact, no sounds whatsoever. +The path continues northward, where you find that you may have +to tightrope your way across a ravine. +~ +63 0 2 +D0 +~ +~ +0 -1 6309 +D3 +~ +~ +0 -1 6321 +S +#6321 +Above The Ravine~ + Stranger still. Your feet get a real firm grip on the spiderline. +You are above a deep ravine. This line connects you between two trees. +Below you can see a prismatic web with lots of animal bones caught in it: +some bear and small deer bones in fact. No human skeletons are visible +(yet). +~ +63 0 2 +D1 +~ +~ +0 -1 6320 +D2 +~ +~ +0 -1 6323 +D5 +~ +~ +0 -1 6322 +S +#6322 +The Rainbow Web~ + This is the rainbow web -- each strand, each link, a hue of violently +sharp colors and contrasts. The resident here seems to have a command +of light as well. +~ +63 0 2 +D4 +~ +~ +0 -1 6321 +S +#6323 +The Web Forest~ + The trees here take on a different appearance -- they are not trees +anymore, but disjointed make-shift silken made shafts, sticky to the +touch, and webby in texture. This is another world it would appear. +~ +63 0 2 +D0 +~ +~ +0 -1 6321 +D5 +~ +~ +0 -1 6324 +S +#6324 +The Slave Pit~ + You have entered the slave pit. A voice blares in the distance, +'Get back to work, maggots!' Rails upon rails of mined gold and silver +clutter the trail beneath you. +~ +63 0 2 +D0 +~ +~ +0 -1 6325 +D4 +~ +~ +0 -1 6323 +S +#6325 +The Tether Path~ + Another tether path just like the rest of them. Surprisingly +well-lit by the golden orbs that hang from the sides, you can see +the paths become finer and finer in quality. +~ +63 0 2 +D1 +~ +~ +0 -1 6326 +D3 +~ +~ +0 -1 6324 +S +#6326 +A Road Crossing~ + Another shifty little strand of webs, almost ethereal in nature. +~ +63 0 2 +D3 +~ +~ +0 -1 6325 +D4 +~ +~ +0 -1 6327 +S +#6327 +A Leader Strand~ + This strand is weightier, more sturdy. It shimmers as you step on +it. You are definitely not in the Midgaardian realms anymore. Just +where you are you can't tell. It feels like you're moving through +ether. You can still get back down to more surer lands. +~ +63 0 2 +D0 +~ +~ +0 -1 6328 +D5 +~ +~ +0 -1 6326 +S +#6328 +The Entrance Of The Ethereal Web~ + You are at the entrance to ethereal web. Flickering in and out, +in and out, each strand reveals a different hue from black to green +to blue. +~ +63 0 2 +D2 +~ +~ +0 -1 6331 +S +#6330 +The Young Wormkin's Crib~ + A playpen of sorts, with maggots of wasps and other baby +vermin lying about. You feel that humans have been played with +here too, and eaten later. You sense that the maker of this +place has an appetite for dragon meat, and uses this room as a +breeding area. +~ +63 0 2 +D4 +~ +~ +0 -1 6331 +S +#6331 +The Base Of The Web~ + Large strands connect at this point. The node shimmers and +flickers within the ether. You see many flying creatures -- +insects, pegasi, and dragon wormkins -- navigate the dangerous +passages of the web. Exits go in many directions. +~ +63 0 2 +D0 +~ +~ +0 -1 6330 +D1 +~ +~ +0 -1 6332 +D2 +~ +~ +0 -1 6333 +D3 +~ +~ +0 -1 6334 +S +#6332 +Through The Trees~ + This part of the web intersects through the branches of some +trees. Various leaves and other debris that the many drones have +not picked up yet lie here. +~ +63 0 2 +D1 +~ +~ +0 -1 6331 +D2 +~ +~ +0 -1 6335 +D3 +~ +~ +0 -1 6333 +S +#6333 +Above The Clouds~ + You can see all of Midgaard in this ethereal web. Many +of the larger dragons that do wish to fly seem to fly away +from the sticky strands of the web. +~ +63 0 2 +D1 +~ +~ +0 -1 6331 +D2 +~ +~ +0 -1 6334 +D3 +~ +~ +0 -1 6335 +S +#6334 +On A Cloud~ + This cloud is rather thick in consistency. You suddenly realize +this is not a typical cloud, but it might be the nest of an aerial +creature. +~ +63 0 2 +D5 +~ +~ +0 -1 6331 +S +#6335 +A Link In The Ethereal Web~ + This is another link in the ethereal web. Various creatures seem +to get caught (or hypnotized) by its sticky strands. +~ +63 0 2 +D1 +~ +~ +0 -1 6336 +D3 +~ +~ +0 -1 6331 +S +#6336 +The Tenuous Strand~ + Very windy here since it goes up into the sky somewhat. Still, it +is safe enough to move around. +~ +63 0 2 +D2 +~ +~ +0 -1 6340 +D3 +~ +~ +0 -1 6341 +D5 +~ +~ +0 -1 6331 +S +#6340 +The Elder Wormkin's Room~ + A more mature wormkin it seems resides here. Various tomes +of arcane lore clutter the area, along with shards of armor and +weaponry. +~ +63 0 2 +D5 +~ +~ +0 -1 6331 +S +#6341 +Another Tree Limb~ + Once again the web crosses another tree limb. To the side you +see the possible entrance to another creature's lair. +~ +63 0 2 +D1 +~ +~ +0 -1 6342 +D2 +~ +~ +0 -1 6334 +D3 +~ +~ +0 -1 6345 +S +#6342 +The Bird Spider's Lair~ + This is a big game hunter among most spiders. Crushed +jewels and weapons suggest the inhabitant must have powerful +jaws. Beware! +~ +63 0 2 +D5 +~ +~ +0 -1 6331 +S +#6345 +A Link In The Ethereal Web~ + This is another link in the ethereal web. Various creatures +seem to get caught (or hypnotized) by its sticky strands. +~ +63 0 2 +D2 +~ +~ +0 -1 6350 +D3 +~ +~ +0 -1 6346 +D4 +~ +~ +0 -1 6345 +S +#6346 +The Quiet Tree Top~ + This is a quiet tree top. Downwards you can see a familiar path +that may lead back to Midgaard. +~ +63 0 2 +D1 +~ +~ +0 -1 6345 +D3 +~ +~ +0 -1 6347 +D5 +~ +~ +0 -1 6132 +S +#6347 +On The Web~ + RRRRRRRRRRROOOOOOOOOOOOOAAAAAAAAAAAAAARR! You hear the roar +of a powerful beast. Dragon, you think. You shiver in your boots +as you tiptoe along this section of the web. +~ +63 0 2 +D1 +~ +~ +0 -1 6346 +D2 +~ +~ +0 -1 6355 +D5 +~ +~ +0 -1 6331 +S +#6350 +The Ki-Rin Chamber~ + A wise ki-rin was entrapped here many years ago. It is from her +that the ruler of this realm draws magical strength. +~ +63 0 2 +D0 +~ +~ +0 -1 6347 +S +#6355 +A Link In The Ethereal Web~ + This is another link in the ethereal web. Various creatures +seem to get caught (or hypnotized) by its sticky strands. To +the north you sense the heavy breathing of a fiery animal. +~ +63 0 2 +D0 +~ +~ +0 -1 6360 +D2 +~ +~ +0 -1 6365 +S +#6360 +Yevaud's Lair~ + Yevaud, the Usurper of Midgaard, resides here. A voice cries +out, 'BEWARE, the Usurper of Midgaard lives here! FLEE while you can!' +But even Yevaud has his master... or so you deduce. +~ +63 0 2 +D2 +~ +~ +0 -1 6355 +S +#6365 +A Link In The Ethereal Web~ + This is another link in the ethereal web. Various creatures +seem to get caught (or hypnotized) by its sticky strands. A +single spider line lies to the north, while ghastly seemings are +due southward. The grim entrance of Arachnos' Lair is downward. +~ +63 0 2 +D0 +~ +~ +0 -1 6371 +D1 +~ +~ +0 -1 6331 +D2 +~ +~ +0 -1 6366 +D5 +~ +~ +0 -1 6390 +S +#6366 +The Entrance To The Donjonkeep~ + A dark path at the end of the web strand, you see ahead +a torch lit chamber where the souls of unavenged adventurers +come and gnash their teeth. The howls and screams of many +echo through the hall ways. You see one definite path ahead. +~ +63 0 2 +D0 +~ +~ +0 -1 6367 +S +#6367 +The Guardian's Room~ + A chair sits here for a tireless guardian who ensures that no +soul escapes. Other than that, the room is undecorated. +~ +63 0 2 +D0 +~ +~ +0 -1 6368 +E +chair~ +An ordinary chair, well used, glued to the ground by spiderweb. +~ +S +#6368 +The Realm Of The Hopeless~ + Here you see many misguided souls who think they still live. +They search for those who killed them without warrant, and seek +the free souls of living beings to inhabit and perhaps adventure +once more. +~ +63 0 2 +D0 +~ +~ +0 -1 6369 +S +#6369 +The Realm Of The Hopeless~ + Here you see many misguided souls who think they still live. +They search for those who killed them without warrant, and seek +the free souls of living beings to inhabit and perhaps adventure +once more. +~ +63 0 2 +D0 +~ +~ +0 -1 6368 +D2 +~ +~ +0 -1 6370 +S +#6370 +The Donjonkeep~ + No souls have ever lived in this place. The wails of slaves and +the howls of wolves are the only way you can describe the sounds you +hear. The walls are thin and wispy. The only light you receive is +the shimmering from the strand of the ethereal web you used to get +here. +~ +63 0 2 +D1 +~ +~ +0 -1 6371 +S +#6371 +The Single Spider Line~ + A single spider line supports you once more. As you look across +the ether you seen a single shack up ahead with a light in the window. +You sense a great evil coming from the north and feel inclined to go +back on the ethereal web and take your chances there. +~ +63 0 2 +D0 +~ +~ +0 -1 6331 +D2 +~ +~ +0 -1 6372 +S +#6372 +The Single Spider Line~ + A single spider line supports you once more. The shack comes +closer into view and you are even more inclined to go back now. +~ +63 0 2 +D0 +~ +~ +0 -1 6371 +D2 +~ +~ +0 -1 6373 +S +#6373 +The Hermit's Corner~ + Here you see evidence of a vagrant's abode. The shack is to the +north, if you dare enter it. You get the sneaking feeling you should +go back now. The skies above you darken and roar with the laughter +of thunder. +~ +63 0 2 +D0 +~ +~ +0 -1 6372 +D2 +~ +~ +0 -1 6380 +S +#6380 +Mahatma's Inescapable Trap~ + Mahatma, that silly thief, is here, and he steals everything you +have. He says 'Here, have a quick trip to the Temple of Midgaard.' +He plunges a black dagger into your back... +~ +63 bd 0 +S +#6390 +The Entrance To The Arachnos' Lair~ + All strands inevitably lead here, the center of the web, the +entrance to Arachnos' Lair. +~ +63 0 2 +D1 +~ +~ +0 -1 6391 +S +#6391 +The Sticky Chamber~ + You can still bail out since your knees are shaking from the +anticipation (or is it fear?). The sky is clear on this strand of +web, surprisingly unsticky. The strand does not vibrate like the +others. A few ballooning spiders pass by, cackling 'You're gonna +die, you're gonna fry. Good bye!' +~ +63 0 2 +D1 +~ +~ +0 -1 6392 +D5 +~ +~ +0 -1 6331 +S +#6392 +The Great Door~ + Before you you see a large, web-like door. Various designs +of ancient runes and names of Midgaard heroes are etched into +the webwork. Perhaps lists of victims? You can't tell. +~ +63 d 2 +D0 +~ +door~ +2 6300 6399 +D3 +~ +~ +0 -1 6391 +S +#6399 +The Lair Of Arachnos~ + This is the lair of the Empress Spider, Arachnos. You can +see a lavishly adorned rainbow web, her lair allows her to move +to any universe she wishes by using her magical strands to the +Prime Material Plane. Coffers upon coffers of gold, magical +jewels and gems await. Unfortunately Arachnos is a baggy spider +too, and webs all her treasures to her beautiful silken body. +~ +63 g 2 +D2 +~ +door~ +2 6300 6392 +S +$ diff --git a/lib/world/wld/64.wld b/lib/world/wld/64.wld new file mode 100644 index 0000000..8191016 --- /dev/null +++ b/lib/world/wld/64.wld @@ -0,0 +1,845 @@ +#6400 +A Mountain Trail~ + This trail leads up, up, up into the mountains. You +hope you don't fall down, because that would hurt, hurt, +hurt! The trail continues to the east, and you can go +back down to the small hidden valley to the west. +~ +64 0 5 +D1 +~ +~ +0 -1 6401 +D3 +~ +~ +0 -1 4078 +S +#6401 +A Mountain Trail~ + You're really high up now. You can keep going even +farther up into the mountains to the east, or go back +down to the west. +~ +64 0 5 +D1 +~ +~ +0 -1 6402 +D3 +~ +~ +0 -1 6400 +S +#6402 +A Mountain Trail~ + Wispy clouds are beginning to surround you now, and +your ears pop due to the altitude. To the east, you see +the summit of the mountain, and from the way the nearby +mountains are arranged behind it, you believe you're +on your way to a big valley. You can also go down +to the west. +~ +64 0 5 +D1 +~ +~ +0 -1 6403 +D3 +~ +~ +0 -1 6401 +S +#6403 +Near The Mountain's Peak~ + The peak of this mountain is another couple hundred +feet above you, but here is where the trail leads down +into the valley... What an odd valley! + The valley seems to have been filled up by a hundreds +of feet of lava many years ago. It gives the valley an +odd, 'flat' look and darkish ground. The path leads +down east into the valley, and west back to civilization. +~ +64 0 5 +D1 +~ +~ +0 -1 6404 +D3 +~ +~ +0 -1 6402 +S +#6404 +The Trail To The Valley~ + The trail leads down into the valley, where, by judging +by the height of the trees, the lava had cooled tens +of decades ago. Down below you see the path lead into +the small forest in the valley, and disappear out of +sight. East leads into the valley, West back to civilization. +~ +64 0 5 +D1 +~ +~ +0 -1 6405 +D3 +~ +~ +0 -1 6403 +S +#6405 +In The Valley~ + The ground has taken on the texture of dirt on the top, +but this valley is far too flat and too rocky to disguise +the catastrophe that happened here so long ago. Looking +up to the mountains ringing this area, you notice several +mountains look as if they had 'exploded', which is strange, +considering that they are not volcanos. + The path leads into the woods to the east, and back up +the mountain to the west. +~ +64 0 3 +D1 +~ +~ +0 -1 6406 +D3 +~ +~ +0 -1 6404 +S +#6406 +In A Clearing~ + You come to a small clearing now, after walking for several +minutes through the silent woods. An odd block sticks up +here and there in the ground... wait a minute. These +stones seem a little too regular, and from the circle +formation and size you could almost swear that they were... +crenellations? Could some sort of building been buried +by the lava here? A rusty ring sticks out of the earth +in the center... a trapdoor? This is almost too good to +be true! +~ +64 0 3 +D3 +~ +~ +0 -1 6405 +D5 +An ancient trapdoor, grimed with earth and age. +~ +trapdoor trap~ +1 -1 6407 +S +#6407 +A Stairwell~ + This small room is the top of a stairwell leading down +deep into the tower. A small trapdoor overhead leaks +the light of day around its edges. To the south is a +wooden door, preserved through the ages by means +unknown. To the west is a short hall. +~ +64 ad 0 +D2 +~ +door~ +1 -1 6408 +D3 +~ +~ +0 -1 6409 +D4 +An ancient trapdoor, grimed with earth and age. +~ +trapdoor trap~ +1 -1 6406 +D5 +~ +~ +0 -1 6413 +S +#6408 +A Linen Closet~ + This small room holds many types of linen on shelves +along the walls. They are undoubtedly preserved by +magic against the toil of the ages, since they seem +freshly washed and folded. You wonder what sort of +mage could wield so much power to waste on such little +things. +~ +64 ad 0 +D0 +~ +door~ +1 -1 6407 +E +linen shelf shelves~ +White sheets, pillow-cases, etc. Not really anything that +you need, but interesting. +~ +S +#6409 +A Corridor~ + This is only a clean corridor, that leads back to the +stairwell to the east, and has doors leading to other +rooms to the north and south. +~ +64 ad 0 +D0 +~ +door~ +1 -1 6411 +D1 +~ +~ +0 -1 6407 +D2 +~ +door~ +1 -1 6410 +S +#6410 +A Bathroom~ + This is some sort of bathroom, like you've never seen +before... Water appliances leading from nowhere deliver +hot and cold running water to basins that drain to... +where? How strange! +~ +64 ad 0 +D0 +~ +door~ +1 -1 6409 +S +#6411 +The Master Bedroom~ + This is an opulent room, decorated in silks and gold. +There is an ebony desk against one wall, cooled lava rock +spilling over its surface from the window it once looked +out at. A nice, spacious closet is filled with clothes +just cleaned and pressed. +~ +64 ad 0 +D2 +~ +door~ +1 -1 6409 +E +desk~ +The desk is basically uninteresting, as are the papers +on top of it... +~ +E +closet~ +Nice clothes, but not your size at all. +~ +S +#6412 +The Library~ + A great mages' library is contained on this floor of +the tower. You feel you could learn anything you wanted +to if you only looked and read long enough. A door +opens up back on the stairwell to the east. +~ +64 ad 0 +D1 +~ +door~ +1 -1 6413 +D3 +A big bookcase, that looks rather odd. +~ +bookcase~ +1 -1 6414 +E +book books~ +There are lots of books about everything here! +~ +S +#6413 +The Stairwell~ + This stairwell continues up and down, and there is +a door to the west. +~ +64 ad 0 +D3 +~ +door~ +1 -1 6412 +D4 +~ +~ +0 -1 6407 +D5 +~ +~ +0 -1 6415 +S +#6414 +A Hidden Hall~ + This is a small hidden hall with a secret entrance to the +library on the north end of the west wall, and a trapdoor +on the south end. +~ +64 ad 0 +D1 +The backside of a movable bookcase. +~ +book bookcase~ +1 -1 6412 +D5 +~ +trapdoor trap~ +1 -1 6416 +S +#6415 +A Stairwell~ + This stairwell continues up and down, and there is a door +to the west opening up onto this level. +~ +64 ad 0 +D3 +~ +door~ +1 -1 6417 +D4 +~ +~ +0 -1 6413 +D5 +~ +~ +0 -1 6422 +S +#6416 +The Hidden Treasure Room~ + Jackpot! A small room filled with treasure chests! Go get them! +~ +64 ad 0 +D4 +~ +trapdoor trap~ +1 -1 6414 +S +#6417 +A Hallway~ + This hall runs through the tower. There's more hall to +the west, and doors to your north and south. A door to +the east leads back to the stairwell. +~ +64 ad 0 +D0 +~ +door~ +1 -1 6419 +D1 +~ +door~ +1 -1 6415 +D2 +~ +door~ +1 -1 6418 +D3 +~ +~ +0 -1 6420 +S +#6418 +A Servant's Room~ + This seems to be a small servant's bedroom, sparsely +decorated and outfitted with a bed, nightstand, chair +and table, etc. Nothing real important here. +~ +64 ad 0 +D0 +~ +door~ +1 -1 6417 +S +#6419 +A Servant's Room~ + This seems to be a small servant's bedroom, sparsely +decorated and outfitted with a bed, nightstand, chair +and table, etc. Nothing real important here. +~ +64 ad 0 +D2 +~ +door~ +1 -1 6417 +S +#6420 +A Hallway~ + This hallway continues to the east, and has a door to +the north. You could swear that the way this level is +arranged... nah, couldn't be. +~ +64 ad 0 +D0 +~ +door~ +1 -1 6421 +D1 +~ +~ +0 -1 6417 +S +#6421 +A Servant's Room~ + This seems to be a small servant's bedroom, sparsely +decorated and outfitted with a bed, nightstand, chair +and a table, etc. Nothing real important here. +~ +64 ad 0 +D2 +~ +door~ +1 -1 6420 +S +#6422 +The Stairwell~ + This stairwell leads up and down, and there is a big +open room to your west. +~ +64 ad 0 +D3 +~ +~ +0 -1 6423 +D4 +~ +~ +0 -1 6415 +D5 +~ +~ +0 -1 6425 +S +#6423 +The Dining Hall~ + This is a large dining hall, with a long table that runs +down the length of it. Chairs are set up along the sides +to accomodate approximately 10 people. There are paintings +and tapestries on the walls, adding color to the stonework, +The cooled lava that had poured in the windows makes the place +seem eerie somehow . There is a door to the north, and +the stairwell is to the east. +~ +64 ad 0 +D0 +~ +door~ +1 -1 6424 +D1 +~ +~ +0 -1 6422 +E +tapestry tapestries painting paintings~ +Many of these show scenes of high magic and heroism. +Just like almost every tapestry and painting you've seen. +~ +S +#6424 +The Kitchen Area~ + This is a well-stocked kitchen, the larders still fresh +and full as if by magic. Perhaps this would be a good +place to take a break. +~ +64 ad 0 +D2 +~ +door~ +1 -1 6423 +S +#6425 +The Stairwell~ + The stairwell leads up and down here, and there is a hall +you can enter to the west. +~ +64 ad 0 +D3 +~ +~ +0 -1 6426 +D4 +~ +~ +0 -1 6422 +D5 +~ +~ +0 -1 6429 +S +#6426 +A Hall~ + This area of the tower seems dank and oppressive. The +hall runs north-south, and there is an empty cell to your +west. The stairwell is to your east. +~ +64 ad 0 +D0 +~ +~ +0 -1 6427 +D1 +~ +~ +0 -1 6425 +D2 +~ +~ +0 -1 6428 +E +cell cells~ +It is open, empty, and uninteresting. +~ +S +#6427 +A Hall~ + This is the northern end of the hall. There are cells to +your right and left, empty and awaiting occupants. +~ +64 ad 0 +D2 +~ +~ +0 -1 6426 +E +cell cells~ +It is open, empty, and uninteresting. +~ +S +#6428 +A Hall~ + This is the southern end of the hall. There are cells to +your right and left, empty and awaiting occupants. +~ +64 ad 0 +D0 +~ +~ +0 -1 6426 +E +cell cells~ +It is open, empty, and uninteresting. +~ +S +#6429 +A Stairwell~ + The stairwell continues up and down here. A large room +opens up to the west. +~ +64 ad 0 +D3 +~ +~ +0 -1 6430 +D4 +~ +~ +0 -1 6425 +D5 +~ +~ +0 -1 6431 +S +#6430 +A Mage's Office~ + A small desk here is cluttered with magically preserved +papers and documents. None seem of value, except perhaps +to a historian. This place seems vaguely uninteresting... +~ +64 ad 0 +D1 +~ +~ +0 -1 6429 +E +paper papers documents document~ +Well, one of the papers relate a story about how the mage +of this tower, Rand, angered many kings, and relates how +they set his armies on him. You wonder if the lava +outside was a failed attempt to destroy the armies... +~ +E +desk~ +It is cluttered with all sorts of papers. Some look +half interesting, actually. +~ +S +#6431 +The Stairwell~ + The stairs go up and down here, and there is a room to the +west... +~ +64 ad 0 +D3 +~ +~ +0 -1 6432 +D4 +~ +~ +0 -1 6429 +D5 +~ +~ +0 -1 6433 +S +#6432 +A Sitting Room~ + This is a simply furnished room, with chairs all about. +A fireplace is inset into an inner wall, the chimney +undoubtedly directed by magic... + This would be a nice place to rest awhile... +~ +64 cd 0 +D1 +~ +~ +0 -1 6431 +S +#6433 +The Stairwell~ + This is where the stairwell finally ends. There is a hall +to your west. +~ +64 ad 0 +D3 +~ +~ +0 -1 6434 +D4 +~ +~ +0 -1 6431 +S +#6434 +A Hallway~ + This small hallway on the former 'ground floor' ran north- +south. To the east is the stairwell that leads up into +the shadowy recesses of the tower. To the west is the +entrance way to the tower. The north is completely blocked +off by lava, and the way south is still clear. +~ +64 ad 0 +D1 +~ +~ +0 -1 6433 +D2 +~ +~ +0 -1 6437 +D3 +~ +~ +0 -1 6435 +S +#6435 +The Entranceway~ + This is a grand chamber with giant double-doors to the +west. To the east is the main floor of the tower. This +room is arranged highly attractively and very impressively, +with sculptures and tapistries everywhere. The doors seem +impenetrable... you don't think you'd be able to get through +them if you really had to... +~ +64 ad 0 +D1 +~ +~ +0 -1 6434 +D3 +These doors seem incredible. Unfortunately, they're locked. +~ +door double~ +1 0 6436 +E +sculpture tapestry sculptures tapestries~ +They look nice, but aren't very valuable. +~ +S +#6436 +The Doorway~ + This was the entrance to the tower. Now lava has blocked +it up completely. However: + It seems when the lava came down a man was outside the +doors. He was blasted into the doors, and died instantly, +but his skeleton still clutches a staff in perfect +condition... +~ +64 ad 0 +D1 +These double doors have the outline of a man blasted into them... +~ +double doors~ +1 0 6435 +S +#6437 +The Hallway~ + This is the southern part of the hallway. There is +a door to the west, barred with gleaming bands of lights. +To the north is more hallway. +~ +64 ad 0 +D0 +~ +~ +0 -1 6434 +D3 +~ +door~ +1 -1 6438 +S +#6438 +The Stairs~ + Stairs lead down here into the tower's basement, or you +can head east into the main floor of the tower. +~ +64 ad 0 +D1 +~ +door~ +1 -1 6437 +D5 +~ +~ +0 -1 6439 +S +#6439 +The Stairs~ + Stairs lead up here to the main level, or you can go east +to the basement of the tower. +~ +64 ad 0 +D1 +~ +~ +0 -1 6440 +D4 +~ +~ +0 -1 6438 +S +#6440 +An Alcove~ + This alcove leads into a huge room to your north, and +to stairs leading down to the east, and stairs going +up to your west. +~ +64 ad 0 +D0 +~ +~ +0 -1 6441 +D1 +~ +~ +0 -1 6442 +D3 +~ +~ +0 -1 6439 +S +#6441 +The Laboratory~ + This laboratory has lots of stuff in it. Beakers, +flasks, burners, tongs, mortars and pestles, jars filled +with normal things, jars filled with abnormal things, jars +filled with things you'd rather not think about... +A search could reveal many things... +~ +64 ad 0 +D2 +~ +~ +0 -1 6440 +E +beaker beakers flask flasks burner burners tong tongs~ +Looks like normal, fragile lab equipment to you. +~ +E +mortar mortars pestle pestles jar jars~ +Looks like normal, fragile lab equipment to you. +~ +S +#6442 +The Stairs~ + Stairs lead down here to the second level of the basement, +or back west to the alcove. +~ +64 ad 0 +D3 +~ +~ +0 -1 6440 +D5 +~ +~ +0 -1 6443 +S +#6443 +The Stairs~ + Stairs lead up here to the first level of the basement, or +you can go east to another big room. +~ +64 ad 0 +D1 +~ +~ +0 -1 6444 +D4 +~ +~ +0 -1 6442 +S +#6444 +The Summoning Room~ + This room is darkly lit by a giant glowing pentagram in +the center of the room. Bands of force encircle some +sort of being trapped inside. You think that going +inside would be an EXTREMELY BAD idea... +~ +64 d 0 +D0 +~ +~ +0 -1 6445 +D3 +~ +~ +0 -1 6443 +E +pentagram~ +It is centuries old. You don't think standing close by +would be a good idea. +~ +E +being~ +You can't see it clearly through the energy field of the +pentagram, but you sense that whatever it is, it is very, +very, very, very angry. +~ +S +#6445 +Inside A Pentagram~ + The small god entrapped by the wizard looks at you with +an insane expression. Four hundred years of imprisonment +doesn't do much for one's... + + OOPS! + + He killed you! + You are dead, R.I.P. +~ +64 bd 0 +D2 +~ +~ +0 -1 6444 +S +$ diff --git a/lib/world/wld/65.wld b/lib/world/wld/65.wld new file mode 100644 index 0000000..2b140b8 --- /dev/null +++ b/lib/world/wld/65.wld @@ -0,0 +1,856 @@ +#6500 +The Path To The Dwarven Village~ + You are walking down a path that leads to the dwarven village. Above +you, you can see the Turning Point, and to the north the path continues +toward the mountains. +~ +65 c 2 +D0 +The path continues. +~ +~ +0 -1 6501 +D4 +You can see the city of Midgaard. +~ +~ +0 -1 3502 +S +#6501 +The Path At The Base Of The Mountain~ + Now you are at the bottom of a rugged mountain. The forest around you +is very dense, and it seems very dark to the north. +~ +65 0 4 +D0 +The path coninues up the mountain. +~ +~ +0 -1 6502 +D2 +The path heads toward the main city of Midgaard. +~ +~ +0 -1 6500 +S +#6502 +The Path At The Middle Of The Mountain~ + Standing on the middle of the mountain, you can easily see the city to +the south, and the top of the mountain is very near to the north. +~ +65 0 5 +D0 +The top of the mountain is easily seen from here. +~ +~ +0 -1 6503 +D2 +The base of the mountain is near. +~ +~ +0 -1 6501 +S +#6503 +The Top Of The Mountain~ + You are now on the top of the mountain. To the south you see a path +leading down the mountain. To the east and west you see entrances to +what seems like mines. +~ +65 0 4 +D1 +An entrance to the mountain which seems to lead underground. +~ +~ +0 -1 6540 +D2 +The path leads down the mountain to the main city of Midgaard. +~ +~ +0 -1 6502 +D3 +There is an entrance to the mountain. +~ +~ +0 -1 6505 +S +#6504 +The Narrow Path~ + This is a narrow path leading to the Dwarven Kingdom. It looks less +travelled than the others, and it is very creepy. The path opens up to +the south, and continues to the north. +~ +65 d 0 +D0 +~ +~ +0 -1 6506 +D2 +~ +~ +0 -1 6540 +S +#6505 +The Entrance To The Mountain~ + Here is an entrance to the mountain. The door looks very well built, +and you can hear noise coming from within. +~ +65 0 2 +D1 +~ +~ +0 -1 6503 +D3 +~ +door~ +2 6515 6513 +S +#6506 +A Bend In The Narrow Path~ + This is a narrow path that bends to the east here. The trees hang +over the path, and it is very overgrown. The narrow path continues to +the south and to the east. +~ +65 d 0 +D1 +~ +~ +0 -1 6507 +D2 +~ +~ +0 -1 6504 +E +tree trees~ +They hang over the road in the most ominous of ways. +~ +S +#6507 +The Narrow Path~ + This path is very narrow, and it continues to the north and west. +~ +65 d 0 +D0 +~ +~ +0 -1 6508 +D3 +~ +~ +0 -1 6506 +S +#6508 +The Narrow North-South Path~ + This path leads to the north and south. To the north you can see a +door, and to the south the path continues. +~ +65 d 0 +D0 +~ +~ +0 -1 6509 +D2 +~ +~ +0 -1 6507 +S +#6509 +The Door To The Kingdom~ + Here the path turns to the west. You can see a door in front of you, +and the path continues to the west and south. +~ +65 d 0 +D0 +~ +door~ +2 6503 6510 +D2 +~ +~ +0 -1 6508 +D3 +~ +~ +0 -1 6522 +S +#6510 +On The Path To The Castle~ + You are on a path that will eventually lead to the castle. It +continues north to the castle, and there is a door in the southern +wall. +~ +65 d 0 +D0 +~ +~ +0 -1 6511 +D2 +~ +door~ +2 6503 6509 +S +#6511 +Still On The Path To The Castle~ + You are still on the path to the castle, or back to the Dwarven +village, whichever way you wish to go. The path continues to the +north and south. +~ +65 d 0 +D0 +~ +~ +0 -1 6512 +D2 +~ +~ +0 -1 6510 +S +#6512 +The Door To The Castle~ + Here there is a door to the castle to the east. The castle is +elegantly designed, and looks much like a roll of toilet paper +standing on its end. There is a sign which says: + + ****************************************** + * WELCOME TO THE CASTLE OF STRANGELOVE * + * Here, celibacy is uninvited * + ****************************************** + +~ +65 d 0 +D1 +~ +door~ +2 6503 6525 +D2 +~ +~ +0 -1 6511 +S +#6513 +Inside The Entrance~ + Everything here is covered in soot and very grimy. The path continues +to the east and north, and there is a door to the west. +~ +65 d 0 +D0 +The little underground path continues to the north. +~ +~ +0 -1 6514 +D1 +The path leads outside the entrance. +~ +door~ +2 6515 6505 +D3 +This looks like an entrance to some type of store room. +~ +~ +0 -1 6526 +S +#6514 +The Path~ + You are on a path in the dwarven village which leads north to the shops +and south to the corner of the area. +~ +65 d 0 +D0 +~ +~ +0 -1 6515 +D2 +~ +~ +0 -1 6513 +S +#6515 +A Turn In The Road~ + You are on a path that leads to the Hide & Tooth shop to the west, and +the path continues to the south. +~ +65 d 0 +D2 +~ +~ +0 -1 6514 +D3 +The Hide & Tooth shop can be seen to the west. +~ +~ +0 -1 6516 +S +#6516 +The Hide & Tooth Shop~ + You are in the Hide & Tooth shop. Here you may buy the finest in Dwarven +weapons and armors. The path continues to the north and east. +~ +65 df 0 +D0 +~ +~ +0 -1 6517 +D1 +~ +~ +0 -1 6515 +S +#6517 +The Path To The North Of The Shop~ + You are on a path to the north of the Hide & Tooth shop. The path +continues to the north, and there is Granite Head's bakery to the west. +~ +65 d 0 +D0 +~ +~ +0 -1 6518 +D2 +~ +~ +0 -1 6516 +D3 +~ +~ +0 -1 6535 +S +#6518 +North Of The Shops~ + Here the path bends to the east towards the barracks. To the south +you can see the shops. +~ +65 d 0 +D1 +~ +~ +0 -1 6519 +D2 +~ +~ +0 -1 6517 +S +#6519 +A Path By The Hospital~ + Here the path passes by the Hospital to the north. It continues +to the east to the barracks, and to the west. +~ +65 d 0 +D0 +~ +~ +0 -1 6534 +D1 +~ +~ +0 -1 6520 +D3 +~ +~ +0 -1 6518 +S +#6520 +A Path Next To The Barracks~ + Here the path continues west, and east to the barracks. +~ +65 d 0 +D1 +~ +~ +0 -1 6521 +D3 +~ +~ +0 -1 6519 +S +#6521 +The Entrance To The Barracks~ + Here there is an entrance to the barracks to the south, and the path +continues to the west. +~ +65 d 0 +D2 +~ +door~ +1 -1 6523 +D3 +~ +~ +0 -1 6520 +S +#6522 +A Guard House~ + You are in the guard house to the west of the entrance to the castle. +There are nudie posters covering the walls. +~ +65 d 0 +D1 +~ +~ +0 -1 6509 +E +poster~ +There is a wall poster of a nude Minne Pearl. +~ +S +#6523 +The First Barrack Room~ + Here is the first of two main rooms of barracks. The barracks +continue to the south, and you can leave the room to the north. +~ +65 d 0 +D0 +~ +door~ +1 -1 6521 +D2 +~ +~ +0 -1 6524 +S +#6524 +The Back Of The Barracks~ + Here is the back of the dwarven barracks. There are rows of beds +here, and there is a stench that is unbearable. +~ +65 d 0 +D0 +~ +~ +0 -1 6523 +S +#6525 +Inside Of Castle Strangelove~ + You are just inside the castle. It is very tubular in shape, +and it is very featureless. There is a set of stairs that lead +up, and the door leads out of the castle to the west. +~ +65 d 0 +D3 +~ +door~ +2 6514 6512 +D4 +~ +~ +0 -1 6528 +S +#6526 +A Store Room~ + There is a layer of dust on the floor at least 3 inches thick! It is +probable that not many people have been in here for many months. +~ +65 ad 0 +D1 +A lighted area that looks like a well worn path. +~ +~ +0 -1 6513 +D5 +After blowing all the dust off the floor, you notice a trapdoor! +~ +trapdoor~ +1 -1 6527 +E +floor dust~ +After blowing all the dust off the floor, you notice a trapdoor! +~ +S +#6527 +The Wine Cellar~ + This room smells like wine, and you can only assume it used to be +a wine cellar at one time. +~ +65 ad 0 +D4 +~ +trapdoor~ +1 -1 6526 +S +#6528 +On The Stairs In Castle Strangelove~ + The stairs continue to circle up and down here. +~ +65 d 0 +D4 +~ +~ +0 -1 6529 +D5 +~ +~ +0 -1 6525 +S +#6529 +On The Stairs~ + You are still circling around on the stairs. You are starting to +get dizzy from going around and around and around and around and +around. The stairs continue up and down. +~ +65 d 0 +D4 +~ +~ +0 -1 6530 +D5 +~ +~ +0 -1 6528 +S +#6530 +At The Top Of The Stairs~ + You are at the top of the stairs in the castle. There is an exit +to the east, and the stairs lead down. +~ +65 d 0 +D1 +~ +~ +0 -1 6531 +D5 +~ +~ +0 -1 6529 +S +#6531 +The Queen's Waiting Room~ + This is the Queen's waiting room. Here the men literally +'wait' for the queen. You've heard that the queen really +likes to get to 'know' her people, in the biblical sense. + The Queen's bedroom is to the north, and you can see stairs +to the west. +~ +65 d 0 +D0 +~ +door~ +1 -1 6532 +D3 +~ +~ +0 -1 6530 +S +#6532 +The Queen's Bedroom~ + This is the Queen's bedroom. The bed is all ruffled, and there +is a stack of dirty sheets piled in the corner. There is a ladder +that leads down, out of the castle, and you can leave the room +to the south. There is also a small wooden door to the west. +There is a sign that says: + + ------------------------- + | I'm busy right now, | + | and don't know when | + | Ill be back, but if | + | there is a key here | + | take it and PLEASE, | + | try to get my birth | + | control pills back! | + | I've heard they can | + | be found somewhere, | + | deep in the mines.. | + ------------------------- + +~ +65 d 0 +D2 +~ +door~ +1 -1 6531 +D3 +~ +door wooden~ +2 6500 6554 +D5 +~ +~ +0 -1 6533 +S +#6533 +The North Side Of Castle Strangelove~ + You are standing on the north side of Castle Strangelove. You +notice that you are no longer inside the mountain anymore either. +Along the southern horizon you see towering mountains. + The only exit, however, is back up the ladder into the Queen's +Bedroom. +~ +65 0 0 +D4 +~ +~ +0 -1 6532 +S +#6534 +The Hospital~ + You are inside the Dwarven Hospital. It smells like rubbing +alcohol, and there is blood all over the walls. +~ +65 d 0 +D2 +~ +~ +0 -1 6519 +S +#6535 +Granite Head's Bakery~ + The aroma coming from this room is astonishing. You can almost taste +the pastries dissolving in your mouth. +~ +65 dh 0 +D1 +~ +~ +0 -1 6517 +S +#6540 +The Dark Path~ + This path is very well worn, and there is an entrance to the mines to the +east, while the path continues to the north and west. +~ +65 d 0 +D0 +~ +~ +0 -1 6504 +D1 +~ +door~ +1 6502 6541 +D3 +~ +~ +0 -1 6503 +S +#6541 +The Mine Entrance~ + The little path here leads down toward the mines, while the worn path +continues to the west. +~ +65 d 0 +D3 +~ +door~ +1 6502 6540 +D5 +~ +~ +0 -1 6542 +S +#6542 +At The Bottom Of The Mineshaft~ + You are at the bottom of the mineshaft. The air here is very sooty, and +it is very hard to breath. The mineshaft leads up and east. +~ +65 ad 0 +D1 +~ +~ +0 -1 6543 +D4 +~ +~ +0 -1 6541 +S +#6543 +On The Path Inside The Mine~ + You are deep inside the mine, and you feel very uncomfortable. The +path continues to the east, and leads to the mineshaft to the west. +~ +65 ad 0 +D1 +~ +~ +0 -1 6544 +D3 +~ +~ +0 -1 6542 +S +#6544 +The Mine Crossroad~ + You are at a crossroad in the mine. There is a door to the north, +and the path continues to the south, east, and west. +~ +65 ad 0 +D0 +~ +door~ +2 6516 6546 +D1 +~ +~ +0 -1 6545 +D2 +~ +~ +0 -1 6551 +D3 +~ +~ +0 -1 6543 +S +#6545 +The Coal Room~ + You are inside the storage area for the raw materials that are +found down here. The room is very unsturdy as the supports are +very rickety. +~ +54 ad 0 +D3 +~ +~ +0 -1 6544 +S +#6546 +The Mine Maze~ + You have entered the maze of the mines. To the east you can see +some inscriptions, and you can exit to the south. +~ +65 ad 0 +D1 +~ +~ +0 -1 6547 +D2 +~ +door~ +2 6516 6544 +S +#6547 +At The Maze Inscription~ + You are inside the maze, but not far enough in that you could +get lost. There is an enscription on the wall which says: + + 1 3 2 4 + N W N S + +This isn't too tough, so don't take it so rough. +~ +65 ad 0 +D0 +~ +~ +0 -1 6548 +D1 +~ +~ +0 -1 6544 +D3 +~ +~ +0 -1 6546 +S +#6548 +The Maze~ + You are in a maze. +~ +65 ad 0 +D0 +~ +~ +0 -1 6549 +D2 +~ +~ +0 -1 6547 +D3 +~ +~ +0 -1 6548 +S +#6549 +The Maze~ + You are in a maze. +~ +65 ad 0 +D0 +~ +~ +0 -1 6548 +D2 +~ +~ +0 -1 6548 +D3 +~ +~ +0 -1 6550 +S +#6550 +The Maze~ + You are in a maze. +~ +65 ad 0 +D0 +~ +~ +0 -1 6549 +D1 +~ +~ +0 -1 6549 +D2 +~ +~ +0 -1 6552 +D3 +~ +~ +0 -1 6548 +S +#6551 +The Mining Equipment Room~ + This is the storage room for equipment used by the Dwarven miners. +It is very small, and you can tell that not many miners actually use +equipment. +~ +65 ad 0 +D0 +~ +~ +0 -1 6544 +S +#6552 +The End Of The Maze~ + You have solved the maze. You can tell by the last few moves +that there is no way that a dumb worker could have figured that +out. It seems pretty desolate here. To the south is a bleak +room. To the north, you see the maze. There is a sign above +the south exit: + +THOSE WHO ENTER, PLAN ON A TIMELY DEATH. +(ESPECIALLY IF YOU'RE LOYAL TO THE QUEEN) + +~ +65 ad 0 +D0 +~ +~ +0 -1 6550 +D2 +~ +~ +0 -1 6553 +S +#6553 +The Mazekeeper's Room~ + You have entered the Mazekeeper's room. There are pictures of +the Queen with darts thrown at it. Spraypainted on the wall are +things like 'the queen shall suffer' and 'Catholics Rule'. +~ +65 ad 0 +D0 +~ +~ +0 -1 6552 +S +#6554 +The Treasury~ + This room appears to be the Queen's Treasury. There is one +exit, back to the east. +~ +65 dj 1 +D1 +~ +door~ +2 6500 6532 +S +$ diff --git a/lib/world/wld/70.wld b/lib/world/wld/70.wld new file mode 100644 index 0000000..7c6370a --- /dev/null +++ b/lib/world/wld/70.wld @@ -0,0 +1,1399 @@ +#7000 +The Fissure Under The Ledge~ + This is a small fissure in the solid rock. Under you lies the deep dark +pool. The water trickles quietly down from the ledge above you. The water +smells like the water in a sewer. +~ +70 acd 5 +D4 +~ +~ +0 -1 7070 +D5 +The water's edge. +~ +~ +0 -1 7100 +S +#7001 +The Muddy Sewer~ + You are standing in mud to your knees. This is not the kind of place +for a picnic. The muddy sewer stretches further into the south. +~ +70 ad 5 +D2 +You see the muddy sewer continuing into the darkness to the south. +~ +~ +0 -1 7002 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7002 +The Muddy Sewer Junction~ + The muddy sewer stretches into the dark to the south. It looks as if +no person has ever put his foot here before. It is too muddy for that +anyway. The sewer leads north, south and east from here. +~ +70 ad 5 +D0 +The muddy sewer stretches into the dark to the north. +~ +~ +0 -1 7001 +D2 +South. The muddy sewer ends in a mudhole that way. +~ +~ +0 -1 7003 +D1 +East. The muddy sewer leads into a bend that goes south. +~ +~ +0 -1 7007 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7003 +The Mudhole~ + You stand in mud all the way up to your thighs and it is not too +comfortable since you are used to a somewhat different environment. +The sewer leads to the north of here. In the middle you can just +make out an enormous drainpipe leading down. +~ +70 acd 5 +D0 +North. The muddy junction lies in that direction. +~ +~ +0 -1 7002 +D5 +The muddy drainpipe leads down through the mud, otherwise it is utterly dark. +~ +~ +0 -1 7101 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7004 +The Dark Pit~ + You are standing by the edge of a dark pit that leads down into even +deeper darkness. >BWWAAADDRR< - The smell from down there is unbearable. +The sewer stretches into the darkness to the east. +~ +70 ad 0 +D1 +East. The sewer leads into the sewer junction. +~ +~ +0 -1 7009 +D5 +The Dark Pit leads down and down and down... well you can't see the +bottom anyway. There are bars that could function as a ladder on +the side. +~ +~ +0 -1 7102 +S +#7005 +The Muddy Sewer~ + You are standing in the middle of a bend of the sewer pipe. It is very +dark around here and the mud is sticking to your legs, not very pleasant. +The pipe leads east and south from here. +~ +70 ad 4 +D1 +East. The mud stretches on into the darkness. +~ +~ +0 -1 7011 +D2 +South. There is even more mud in that direction than where you are now. +Incredible. +~ +~ +0 -1 7006 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7006 +The Muddy Sewer~ + You are standing in something that reminds you very much of porridge, +this has the advantage that it is not hot, it is rather cold actually. +The pipe bends to the north and east. +~ +70 ad 5 +D1 +The pipe leads into a bend that goes south. Interesting, there is mud on +the ground there as well. +~ +~ +0 -1 7012 +D0 +The muddy sewer pipe leads into a bend that goes east. +~ +~ +0 -1 7005 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7007 +The Muddy Sewer Bend~ + This isn't your idea of a place to stay too long. You're in up to +your knees in something that resembles mud, but you're not quite sure. +The bend in which you stand leads west and south. +~ +70 ad 5 +D3 +The pipe (still filled with mud) leads into a intersection that goes north +and south. Interesting. +~ +~ +0 -1 7002 +D2 +The pipe leads into a intersection that goes south and east. The floor here +is still covered in mud. +~ +~ +0 -1 7008 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7008 +A Muddy Intersection~ + You have both your feet safely stuck in mud. It isn't the mud that is +wrong it is the smell, the sounds, the total darkness that surrounds you. +Everything here is so depressing. The pipe leads on with a trail of thick +mud to the north, east and south. +~ +70 ad 4 +D0 +North. The pipe goes into a bend with a load of mud all the way up the walls. +The bend leads west. +~ +~ +0 -1 7007 +D1 +East. This way looks like a place for the annual mud festival, although the +stench wouldn't allow any happiness at all. The pipe leads into a bend that +leads north. +~ +~ +0 -1 7014 +D2 +South. There is much less mud in that direction. Your light doesn't +uncover enough space for you to see much more than that it leads into +some sort of junction. +~ +~ +0 -1 7009 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7009 +The Sewer Junction~ + You stand in the middle of a huge junction of sewer pipes right under +what you'd think was an air shaft. The sewer pipes lead to the north, +south, east and west. It look quite impossible to force your way up. +~ +70 ad 3 +D0 +North. Mud is the floor basis in that direction. Yummy. +~ +~ +0 -1 7008 +D1 +YYEEUUCH! BOOH! THAT looks like a nice place for creepy crawlies. +~ +~ +0 -1 7017 +D2 +South. This direction looks quite nice actually. The pipe leads into +a bend that goes east. +~ +~ +0 -1 7010 +D3 +A few yards ahead - away from this junction - there is a pit leading down, +but the smell from there...>PHEWW<. +~ +~ +0 -1 7004 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7010 +A Bend In The Sewer Pipe~ + You are in a bend in the sewer pipe. A strong smell seeps in from the +north. The sewer goes north and east. +~ +70 ad 2 +D0 +North. You are staring into a huge junction with exits in all directions. +~ +~ +0 -1 7009 +D1 +East. The Pipe leads into utter darkness that way. +~ +~ +0 -1 7018 +S +#7011 +The Muddy Sewer Pipe~ + You have entered a kind of tube intersection that leads south, west +and east. Your legs are covered in mud up to the knees. REAL yucky! +~ +70 ad 5 +D1 +East. There is less mud in that direction, or that's your impression. +~ +~ +0 -1 7024 +D2 +That way is lost in darkness, though you sense less mud in that direction, +perhaps even a complete end to this sludge that surrounds you. +~ +~ +0 -1 7021 +D3 +West. The mud reaches that way too, all the way up the walls. +~ +~ +0 -1 7005 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7012 +The Bend In The Muddy Sewer~ + This is not your idea of a holiday. You stand in mud up to your knees. +It is absolutely inconceivable how all this mud could have been placed +here. The pipe leads to the west and south. +~ +70 ad 5 +D2 +South. There is even more mud that way, incredible! Although it looks +like an intersection in the sewer system that leads east and south. +~ +~ +0 -1 7013 +D3 +West. All you can see, is that the pipe leads into a bend that goes +north. But there is less mud in that direction, however odd that sounds. +~ +~ +0 -1 7006 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7013 +A Muddy Intersection~ + You wouldn't want to know the true feeling of standing in this mud up to +your hips. >BWAADR<. All that fills your mind right now is the dream of +a hot bath. This is NOT very clean mud you know, remember you're in the +sewer! The pipes leads north, south and east. +~ +70 ad 5 +D0 +North. Sludge and sediment fills this corridor of the sewer that leads +into a bend going west. +~ +~ +0 -1 7012 +D1 +East. You can see absolutely nothing of interest in that direction (Maybe +that is why it is so damn interesting...) There is no mud in that direction +either, GREAT! +~ +~ +0 -1 7026 +D2 +South. All you can see is more mud! Although the pipe goes into a bend +leading west. +~ +~ +0 -1 7014 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +E +sediment~ +It is NOT the kind of matter that would concern you too much, normally, but +as you are in the middle of it, it just might become your main concern. +REAL YUCKY! +~ +S +#7014 +The Muddy Sewer~ + You stand in a bend of the pipe system of the sewer with mud up to your +thighs. Contemplating a higher level of existence here would be utterly +inappropriate, as the smell would keep any intelligent creature from even +thinking of anything but getting away from this foul end of the WORLD. +The bend goes from north to west. +~ +70 ad 5 +D0 +North. Filled with mud, that place looks like an impassable intersection +with pipes leading north and east. +~ +~ +0 -1 7013 +D3 +West. There is less mud that way, maybe you're on your way out of this foul +place. +~ +~ +0 -1 7008 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7015 +The Old Well~ + You are standing by an old and worn well from before this century. The +sewer leads to the east from here and the well leads down into darkness. +Metal bars implanted in the side of the well lead down as a ladder. +~ +70 ad 3 +D1 +East. You see, because of the utter darkness that surround you, absolutely +nothing. Your light isn't of much use for that kind of distance. +~ +~ +0 -1 7028 +D5 +Down the well there is even less light than up here, so... sorry, you can't +see a thing. There are metal bars in the side leading down into the darkness. +~ +~ +0 -1 7105 +E +bars~ +These look like they're pretty slippery, and not very safe, but perhaps safe +enough for you to climb down, WITH both hands on them. +~ +S +#7016 +The Ordinary Bend~ + You are in the middle of a bend in the pipe system of the sewer system, +WHAT a place!!! The pipe leads to the south and the east. +~ +70 ad 1 +D2 +South. You see nothing at all in that direction it is too dark anyway. +~ +~ +0 -1 7017 +D1 +East. What a quiet place you've found there. It is an intersection that has +pipeways going north and east. +~ +~ +0 -1 7021 +S +#7017 +The Sewer Junction~ + You are in a junction that leads north, west and south. +~ +70 ad 1 +D0 +North. You see a bend. +~ +~ +0 -1 7016 +D3 +West. There is a junction with four pipelines in that direction. +~ +~ +0 -1 7009 +D2 +South. It looks like a pipe junction just like this one. Only that one +leads east and west. +~ +~ +0 -1 7018 +S +#7018 +The Ordinary Junction~ + This looks like an ordinary junction, actually it seems very quiet +here. The pipelines lead west, east and north. +~ +70 acd 1 +D0 +To the north you can see a junction like this one, leading north and west. +~ +~ +0 -1 7017 +D1 +To the east there is nothing of particular interest, though there is a +junction with pipelines leading north and east. +~ +~ +0 -1 7031 +D3 +There is a bend to the west leading north. +~ +~ +0 -1 7010 +S +#7021 +A Quiet Pipe Junction~ + This is the kind of place to rest, though the smell could be a LOT +better than this. The sewer goes east, north and west from here. +~ +70 acd 1 +D0 +In that direction, you can't see anything. It is just too dark. +~ +~ +0 -1 7011 +D1 +There is an ordinary junction in the pipe system to the east. +~ +~ +0 -1 7029 +D3 +West. There is an ordinary bend leading south into the sewer system in +that direction. +~ +~ +0 -1 7016 +S +#7022 +The Odd Room With Smooth Walls~ + As you enter you hear a loud click from one of the walls... and you fall +and fall and fall... +. +. +. +. +... And come to an abrupt end. THIS is strange indeed. There is an arched +entryway leading down. +~ +70 ad 5 +D5 +Down. It is utterly dark that way, though you can make out an intersection +of sewer pipes leading west, north and east. +~ +~ +0 -1 7112 +S +#7024 +The Sewer~ + You are standing in mud up to your ankles. This is an intersection with +sewer pipes leading east, south and west. +~ +70 acd 1 +D1 +To the east there is a peculiar looking round room. +~ +~ +0 -1 7037 +D2 +To the south there is another intersection with pipes going south and east. +~ +~ +0 -1 7025 +D3 +To the west there is another intersection like this one, with sewer pipes +leading south and west. +~ +~ +0 -1 7011 +S +#7025 +Another Intersection~ + You have never seen anything so BORING... This is an intersection with +pipes leading north, south and east. +~ +70 ad 1 +D0 +To the north there is an intersection, where the pipes are leading west and +east. You notice that the floor to the west is covered in mud. +~ +~ +0 -1 7024 +D1 +East. You see nothing of interest in that direction, just another +intersection. This one leads east and south. +~ +~ +0 -1 7038 +D2 +Another intersection lies to the south. It leads west and south. +~ +~ +0 -1 7026 +S +#7026 +A Junction~ + This one seems interesting, a big difference from all the other junctions. +It seems cleaner than the rest of them. Weird. Something that looks like +an air shaft leads upwards, but it looks far too slippery to climb. +The pipes lead to the south, west and north. +~ +70 acd 0 +D0 +North. You see an intersection there, leading north and east. +~ +~ +0 -1 7025 +D2 +To the south there is ANOTHER junction leading west and east. +~ +~ +0 -1 7028 +D3 +To the west you see a load of mud and sediment in the sewer. That should +be an intersection there but you're not quite sure. +~ +~ +0 -1 7013 +E +mud~ +It is as dark as tar and looks like something out of a toilet, on top of +that, the smell is absolutely overwhelming. +~ +S +#7028 +The Sewer Junction~ + You stand in a junction of sewer pipes leading north, east and west. +~ +70 ad 1 +D0 +~ +~ +0 -1 7026 +D1 +To the east you can see a bend in the pipe going south. +~ +~ +0 -1 7034 +D3 +To the west you can just make out an old well. +~ +~ +0 -1 7015 +S +#7029 +The Triple Junction~ + You stand in the middle of a huge junction of concrete sewer pipes. The +pipes lead into three different directions: east, south and west. +~ +70 ad 1 +D1 +East. You can see a bend in the sewer pipe leading north. +~ +~ +0 -1 7035 +D2 +To the south there is an ENORMOUS quadruple sewer junction, all lit up by +an odd light. +~ +~ +0 -1 7030 +D3 +To the west you can just make out another junction similar to the one +you are standing in. +~ +~ +0 -1 7021 +S +#7030 +The Quadruple Junction Under The Dump~ + You are standing in something that reminds you of an entry to an ant hive. +There are enormous concrete pipes leading north, south, east and west. +There is also a metal ladder built into the concrete wall leading up through +a layer of garbage. +~ +70 acd 1 +D0 +To the north you can see a huge triple junction with sewer pipes leading +west and east. +~ +~ +0 -1 7029 +D1 +East. You can see a pit in the floor. +~ +~ +0 -1 7036 +D2 +To the south there is a huge junction with pipes leading east and west. +~ +~ +0 -1 7031 +D3 +To the west there is an odd looking room with totally smooth walls. +~ +~ +0 -1 7022 +D4 +Up through the garbage you can just make out what looks like the dump in +Midgaard. +~ +~ +2 3005 3030 +E +ladder~ +It looks as if it is made of stainless steel, and it would function +as a club of considerable power, but alas... You can't take at all +since it is firmly set into the concrete wall. +~ +S +#7031 +A Triple Junction~ + You stand in a junction with pipes leading west, north and east. +~ +70 ad 1 +D0 +To the north there is an ENORMOUS quadruple sewer junction, all lit up by +an odd light. +~ +~ +0 -1 7030 +D1 +East. You can just make out a triple junction leading north and east. +~ +~ +0 -1 7044 +D3 +West. You can just make out a triple junction leading north and west. +~ +~ +0 -1 7018 +S +#7034 +A Bend In The Sewer Pipe~ + You can look in two directions where the pipe leads: south and west. +~ +70 ad 2 +D3 +West. You can just make out a triple junction leading north and west. +~ +~ +0 -1 7028 +D2 +To the south you can see another bend leading west. +~ +~ +0 -1 7035 +S +#7035 +The Sewer Pipe Bend~ + You can look in two different directions where the pipe goes: west and +north. +~ +70 ad 2 +D0 +North. You see another bend leading west. +~ +~ +0 -1 7034 +D3 +You can see another junction although this one is a triple one with pipes +going south and west. +~ +~ +0 -1 7029 +S +#7036 +The Pit~ + You stand in a section of a pipe that leads to a dead end. In the floor +there is a pit leading down. There are bars set in the side of the pit +wall functioning as a ladder. +~ +70 ad 5 +D3 +West. You can see a dimly lit quadruple junction with an exit up. +~ +~ +0 -1 7030 +D5 +Down the pit it is so utterly dark that you can't see a thing. +~ +~ +0 -1 7122 +S +#7037 +The Round Room~ + As you enter the room it starts rotating - at first slowly, then faster +and faster - You get totally confused as to where up and down is, but +you are certain that the doorway is in the opposite direction of what +it was when you entered. It now leads east. There is only this one +exit. +~ +70 ad 1 +D1 +You can just make out a smaller room with a chair. +~ +~ +0 -1 7050 +S +#7038 +The Three Way Junction~ + You are standing in a junction of pipes that lead west, east and south. +~ +70 ad 1 +D1 +East. You can make out a dimly lit Guard Room. +~ +~ +0 -1 7045 +D2 +To the south you can see what looks like a store room. +~ +~ +0 -1 7039 +D3 +West. You see another junction similar to this one leading north and south. +~ +~ +0 -1 7025 +S +#7039 +The Sewer Store Room~ + You stand in a small room lit by a single torch set in the wall. The only +way out of here is to the north. +~ +70 d 1 +D0 +To the north you see a pipe junction. +~ +~ +0 -1 7038 +S +#7041 +The Shaft~ + You are standing by the edge of a deep, dark shaft leading down. A single +ladder is your tool to work your way down if you so wish. The sewer pipe +leads south from here. +~ +70 ad 1 +D2 +To the south you can see the pipe leading further south into darkness. +~ +~ +0 -1 7043 +D5 +Down and utter darkness. There is absolutely nothing to be seen in that +direction. +~ +~ +0 -1 7123 +E +ladder~ +Firmly set into the wall of the shaft it is impossible to even move, in your +estimate. +~ +S +#7043 +The Sewer Entrance~ + You stand in the middle of a pipe that leads from north to south. Above +you an air shaft leads up into sunlight. It seems totally impossible to go +up that way. +~ +70 ad 1 +D0 +To the north you can just make out a huge shaft leading down. +~ +~ +0 -1 7041 +D2 +To the south you can see a triple junction leading west and east. +~ +~ +0 -1 7044 +S +#7044 +The Junction Going Three Ways~ + You are in a passageway in the pipes of the sewer system leading north, +east and west. +~ +70 ad 1 +D0 +You see a sewer pipe leading north. +~ +~ +0 -1 7043 +D1 +~ +~ +0 -1 7049 +D3 +West. You see another junction very similar to this one that leads north +and west. +~ +~ +0 -1 7031 +S +#7045 +The Sewer Room~ + You are standing in a large room with chairs set in the walls. You have +the feeling of being watched. To the south there is an entrance to a +larger room. The room is lit by five torches, also set in the walls. To +the west there is a doorway leading out to the sewers. +~ +70 d 1 +D2 +You can see an even larger room than this one, filled with light. +~ +~ +0 -1 7046 +D3 +To the west you can see the sewers. +~ +~ +2 -1 7038 +S +#7046 +The Sewer Room~ + This is a Room with walls that glitters like gold though not quite like +it. This is strange as it looks as if the glitter lights the whole room. +It looks very bright. To the south the floor is covered with yucky water. +The north leads to a sort of a guard room. +~ +70 d 1 +D0 +To the north you can see the guard room. +~ +~ +0 -1 7045 +D2 +To the south there is nothing but water and an exit leads east from there. +~ +~ +0 -1 7047 +S +#7047 +The Pool In The Sewer~ + You stand in water to your waist. To the north is the entrance to this +room. A single door leads east. +~ +70 d 1 +D0 +To the north you see the entrance to this room. +~ +~ +0 -1 7046 +D1 +You can see an enormous hall through the doorway. +~ +door~ +1 -1 7053 +S +#7048 +The Sewers~ + You stand in a dead end of the sewer. The only way out is south. +You can see a shaft leading up but it looks too difficult to go up +that way. +~ +70 ad 1 +D2 +~ +~ +0 -1 7049 +S +#7049 +The Junction~ + You stand in a junction leading north, west and east. +~ +70 ad 1 +D0 +~ +~ +0 -1 7048 +D1 +Darkness has closed in on that part of the sewer system, you can't see +a thing in that direction. +~ +~ +0 -1 7060 +D3 +West. You see another junction very similar to this one that leads north +and west. +~ +~ +0 -1 7044 +S +#7050 +The Small Room~ + The only thing in this room of interest is a chair, and that appears +to have been bolted to the rock floor. A doorway leads south and another +leads east into darkness. +~ +70 ad 1 +D1 +Utter darkness... +~ +~ +0 -1 7055 +D2 +You can see a room with a lot of light in it. You can't make out any details. +~ +~ +0 -1 7051 +S +#7051 +The Sewer Pipe~ + You are in what reminds you of a foul sewer, as if you liked being here! +You can see two exits leading either north or south. +~ +70 d 1 +D0 +~ +~ +0 -1 7050 +D2 +To the south you can see a strange light flowing from there. +~ +~ +0 -1 7052 +S +#7052 +The Grand Sewer~ + You are in a grand sewer pipe. This stretches toward the south. It is +large indeed! A doorway leads to the east from here. +~ +70 d 1 +D0 +To the north you can see a doorway. +~ +~ +0 -1 7051 +D1 +You can't see anything in that darkness. +~ +~ +0 -1 7056 +D2 +In the south end of the pipe the "floor" is completely covered with water. +~ +~ +0 -1 7053 +S +#7053 +The South End Of The Grand Pipe~ + You stand in water to your knees. A doorway leads west from here. The +pipe stretches north. +~ +70 d 1 +D0 +You see a lot of pictures decorating the walls. +~ +~ +0 -1 7052 +D3 +~ +door~ +1 -1 7047 +S +#7055 +The Edge Of The Water Sewer~ + You stand in a room where half of the floor is covered in water. The +water leads east and a doorway leads west. +~ +70 ad 3 +D1 +You can hardly make out much more than that the next place is in a pipe +with more water. +~ +~ +0 -1 7061 +D3 +~ +~ +0 -1 7050 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7056 +The Dark Hallway~ + You can't see much of this, even with a light. The hallway goes into a +passageway to the south. A doorway leads west. +~ +70 ad 1 +D2 +You can see nothing at all because it is completely dark in that direction. +~ +~ +0 -1 7057 +D3 +You see a lot of light, bright as daylight, but nothing of interest. +~ +~ +0 -1 7052 +S +#7057 +The Dark Passageway~ + You can't see anything but the ground where you put your feet. The +passageway seems to continue south and north. +~ +70 ad 1 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7056 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7058 +S +#7058 +The Dark Passageway~ + You can't see anything but the ground where you put your feet. The +passageway seems to continue south and north. +~ +70 ad 1 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7057 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7059 +S +#7059 +The Dark Passageway~ + You can't see anything but the ground where you put your feet. The +passageway seems to continue south and north. +~ +70 ad 1 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7058 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7060 +S +#7060 +The Dark Passageway~ + You can't see anything but the ground where you put your feet. +The passageway seems to continue west and north. To the east there +is water covering the floor and that leads through an arched entry +to a watery sewer. +~ +70 ad 1 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7059 +D1 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7068 +D3 +You can just make out a triple junction leading north and west. +~ +~ +0 -1 7049 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7061 +The Watery Sewer Bend~ + You can't see anything but the water you're in up to your hips. The sewer +seems to bend and lead south and west. +~ +70 ad 5 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7062 +D3 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7055 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7062 +The Watery Sewer~ + You can't see anything but the water you're in up to your hips. The sewer +seems to lead south and north. +~ +70 ad 5 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7061 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7063 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7063 +The Watery Sewer~ + You can't see anything but the water you're in up to your hips. The sewer +seems to lead south and north. +~ +70 ad 5 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7062 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7064 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7064 +The Watery Sewer Junction~ + You can't see anything but the water you're in up to your hips. The sewer +seems to lead into a junction going south, north and east. +~ +70 ad 5 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7063 +D1 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7069 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7065 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7065 +The Watery Sewer~ + You can't see anything but the water you're in up to your hips. The sewer +seems to lead south and north. +~ +70 ad 5 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7064 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7066 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7066 +The Watery Sewer Junction~ + You can't see anything but the water you're in up to your hips. The sewer +seems to lead into a junction that goes north, south and east. +~ +70 ad 5 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7065 +D1 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7070 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7067 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7067 +The Watery Sewer~ + You can't see anything but the water you're in up to your hips. The sewer +seems to lead south and north. +~ +70 ad 5 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7066 +D2 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7068 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7068 +The Watery Sewer Bend~ + You can't see anything but the water you're in up to your hips. The sewer +seems to bend and lead west and north. +~ +70 ad 5 +D0 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7067 +D3 +You can't see anything in that direction and your light isn't enough to light +that far. +~ +~ +0 -1 7060 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7069 +A Ledge By A Dark Pool~ + You can't see much here but the echo tells you that there is quite a drop +down. You can just make out a huge dark pool out there in the darkness, +mostly because of the trickling of water. The water from the sewer actually +washes over this ledge and makes it quite slippery. From here it drops, +like a waterfall, into the pool far down. +~ +70 ad 5 +D2 +You can't see a thing. It is too dark. +~ +~ +0 -1 7070 +D3 +You can't see a thing. It is too dark. +~ +~ +0 -1 7064 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +#7070 +A Ledge By A Dark Pool~ + You can't see much here but the echo tells you that there is quite a drop +down. You can just make out a huge dark pool out there in the darkness, +mostly because of the trickling of water. The water from the sewer actually +washes over this ledge and makes it quite slippery. From here it drops, +like a waterfall, into the pool far down. Under you there is a small fissure +in the rock. It seems big enough to contain a few people. +~ +70 ad 5 +D0 +You can't see a thing. It is too dark. +~ +~ +0 -1 7069 +D3 +You can't see a thing. It is too dark. +~ +~ +0 -1 7066 +D5 +~ +~ +0 -1 7000 +E +water~ +It looks dark and murky, and emanates a foul stench. +~ +S +$ diff --git a/lib/world/wld/71.wld b/lib/world/wld/71.wld new file mode 100644 index 0000000..8b9d1e1 --- /dev/null +++ b/lib/world/wld/71.wld @@ -0,0 +1,667 @@ +#7100 +The Edge Of The Water~ + The pool side is dimly lit up by your light. You can see absolutely +nothing else nearby. The darkness her seems enormously oppressive here. +The air is damp and the rock on which you stand is slippery. The pool +seems too dark to make anything clear. The pool seems to extend to the +east. The rock can be climbed upwards from here. +~ +71 acd 5 +D1 +The pool extends eastwards, but you cannot find enough room to move in that +direction. +~ +~ +0 -1 -1 +D4 +~ +~ +0 -1 7000 +S +#7101 +Under The Mudhole~ + You stand in a small room with a great big opening in the ceiling. From +this opening there is mud dripping down in large lumps. >YUCK<. You can +smell the foul stench of the slimy sediment as you try not to get covered +by the falling sludge. To the east there is an entryway leading out from +here and it seems absolutely impossible to force the muddy descent. +~ +71 acd 5 +D1 +East. You see nothing of interest. +~ +~ +0 -1 7103 +E +mud~ +You never saw such disgusting matter before, it nearly makes you puke. +~ +S +#7102 +Under The Dark Pit~ + Nice place you found yourself in. You stand in the middle of a room +with only two exits, up and east. A tall ladder has been left here so +that you can climb up through the pit without the use of a rope. +~ +71 ad 1 +D1 +~ +~ +0 -1 7104 +D4 +Up. You can't see a thing up there, it is way too dark. +~ +~ +0 -1 7004 +D5 +~ +trapdoor~ +1 -1 7300 +E +ladder~ +This is funny enough a wooden ladder and, after closer inspection, you +discover it is magically held to the wall! You can't, even with your +greatest effort, move it at ALL! +~ +S +#7103 +A Muddy Bend In The Sewer System~ + You are standing in what looks like a bend in the pipe system of the +sewer. The 'floor' is covered completely by mud! This includes covering +your legs up to your knees as well. The pipe leads west and south. +~ +71 ad 4 +D2 +To the south there is less mud than here! It actually seems to end there! +You have a felling it would be nice to have your feet free from mud again. +~ +~ +0 -1 7104 +D3 +You can see a room in which mud drips from the roof onto the floor in +great cakes of sludge. There doesn't seem to be any exits from that room +apart from in you direction. +~ +~ +0 -1 7101 +E +mud~ +You never saw such disgusting matter before, it nearly makes you puke. +~ +S +#7104 +A Junction In The Sewer Pipes~ + You stand in the middle of what looks like a triple junction of pipes +going east, west and north. +~ +71 ad 1 +D0 +You can see a mud area starting in that direction. +~ +~ +0 -1 7103 +D1 +East. You can't even make out what it might look like, it is just too dark. +~ +~ +0 -1 7112 +D3 +West. There is a room with a ladder leading up. +~ +~ +0 -1 7102 +S +#7105 +Down The Old Well~ + You are dangling on the slippery sides of the old well leading down and +up. The only secure point here is the metal bars that are cemented into the +sides, the ones that you cling frantically to so that you don't fall. Who +knows how deep this well is? The bars lead down and up and nowhere else. +~ +71 ad 5 +D4 +There is a slight, dim light from above, or maybe it is just your imagination. +Anyway it SEEMS darker down here than up there, if that is possible. +~ +~ +0 -1 7015 +D5 +Down there nothing at all can be spotted. The darkness that engulfs this +decent seems utterly impossible in a mortal world. It is so thick that a +torch down there would be utterly useless... or so it seems to you. Not +the kind of thing to cheer you up on this voyage, Eh? +~ +~ +0 -1 -1 +E +bars~ +These look like they're pretty slippery, and not very safe, but perhaps safe +enough for you to climb down, WITH both hands on them. +~ +S +#7106 +The Northwestern Corner Of The Ledge~ + You stand, swaying out from the ledge, with only a couple of inches of +safe, solid ledge under your feet. The ledge continues to the east but not +back south. It seems that the ledge is too narrow to turn on so you'll have +to continue forward. +~ +71 acd 5 +D1 +The ledge continues east. +~ +~ +0 -1 7113 +D2 +The ledge continues south. +~ +~ +0 -1 7107 +D5 +The Abyss lies down there. Who knows what might lurk down there? +~ +rock step edge~ +1 -1 7279 +E +edge odd-looking~ +This is truly a weird piece of craftsmanship in your eyes. The edge seems to +form a step leading down, but WHAT a STEP DOWN. The Abyss opens down there +leading to seemingly total destruction. +~ +E +step~ +A small rock sticks out right under it, otherwise the way is DOWN, DOWN, and +SPLAT!!! +~ +E +rock~ +It looks as if it can be opened in a door-like fashion. Maybe this will lead +the way down. +~ +S +#7107 +The Narrow Ledge~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. +~ +71 acd 5 +D0 +North. The ledge leads into a corner and turns eastward. +~ +~ +0 -1 7106 +D1 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling an utterly unknown distance. +~ +~ +0 -1 7190 +D2 +South. The ledge leads further south into utter darkness. +~ +~ +0 -1 7108 +S +#7108 +The Narrow Ledge~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. +~ +71 acd 5 +D0 +North. The ledge leads further north. +~ +~ +0 -1 7107 +D1 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling that distance. +~ +~ +0 -1 7190 +D2 +The ledge continues further south into darkness. +~ +~ +0 -1 7109 +S +#7109 +The Narrow Ledge~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. +~ +71 acd 5 +D0 +North. The ledge leads further north. +~ +~ +0 -1 7108 +D1 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling that distance. +~ +~ +0 -1 7190 +D2 +The ledge continues south into darkness. +~ +~ +0 -1 7110 +S +#7110 +The Narrow Ledge~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. +~ +71 acd 5 +D0 +North. The ledge leads further north. +~ +~ +0 -1 7107 +D1 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling that distance. +~ +~ +0 -1 7190 +D2 +South. You can just make out the south-western corner of this ledge. +~ +~ +0 -1 7111 +S +#7111 +The Southwestern Corner Of The Ledge~ + This seems like a ledge that is a little broader than the one just to +the north of here. The ledge seems to lead around some sort of Abyss of +total darkness. The ledge seems to have an odd-looking edge here. +~ +71 acd 5 +D0 +North. The ledge leads further north. +~ +~ +0 -1 7110 +D1 +You see a broad ledge leading eastward. +~ +~ +0 -1 7115 +D2 +South of here is the exit from the ledge. +~ +~ +0 -1 7112 +D5 +The Abyss lies down there. Who knows what might lurk down there? +~ +rock step edge~ +1 -1 7279 +E +edge odd-looking~ +This is truly a weird piece of craftsmanship in your eyes. The edge seems to +form a step leading down, but WHAT a STEP DOWN. The Abyss opens down there +leading to seemingly total destruction. +~ +E +step~ +A small rock sticks out right under it, otherwise the way is DOWN, DOWN, and +SPLAT!!! +~ +E +rock~ +It looks as if it can be opened in a door-like fashion. Maybe this will lead +the way down. +~ +S +#7112 +An Odd Intersection~ + You stand in a rather odd intersection of pipes. The pipes actually +don't resemble pipes anymore. They look more like a real stone tunnel, +or a passageway hewn directly into the rock. The ways from here lead +north, east and west. +~ +71 ad 1 +D0 +North. You see a ledge to something that looks like an abyss. +~ +~ +0 -1 7111 +D1 +~ +~ +0 -1 7122 +D3 +~ +~ +0 -1 7104 +S +#7113 +The Narrow Ledge Going East To West~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. +~ +71 acd 5 +D1 +The ledge leads further east. +~ +~ +0 -1 7116 +D2 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling that distance. +~ +~ +0 -1 7190 +S +#7114 +Mid-Air~ + You've just stepped into the most unlucky position in the whole of +CircleMUD. The result of such a foolish act should be punished with +death, you know. With an acceleration of approximately 9.82 meters +per second squared, you are now descending the Abyss. What awaits you +at the bottom will continue to be a mystery. Good-bye cruel world. +~ +71 bd 0 +D0 +~ +~ +0 -1 7119 +D1 +~ +~ +0 -1 7118 +D2 +~ +~ +0 -1 7120 +D3 +~ +~ +0 -1 7117 +D4 +~ +~ +0 -1 7115 +S +#7115 +The Broad Ledge~ + You are standing on a ledge that seems quite a lot larger than the +rest of the ledges. This one leads to the west and the east, plus it +has an exit going to the south. Though you could jump into mid-air, +but it probably wouldn't be such a good idea. The way south is in +utter darkness. +~ +71 acd 4 +D0 +~ +~ +0 -1 7114 +D1 +~ +~ +0 -1 7121 +D2 +~ +~ +0 -1 7129 +D3 +~ +~ +0 -1 7111 +S +#7116 +The Northeastern Corner Of The Ledge~ + You stand, swaying out from the ledge, with only a couple of inches of +safe, solid ledge under your feet. The ledge continues to the west and +leads south from here into darkness. +~ +71 acd 5 +D2 +~ +~ +0 -1 7117 +D3 +The ledge continues west. +~ +~ +0 -1 7113 +D5 +You can just make out the outline of a trapdoor here in the soil. The earth +is probably there to conceal a secret entrance. This looks as if it leads +down into the seemingly solid rock face of the ledge. +~ +trapdoor secret entrance~ +1 -1 7280 +E +ground ledge rock~ +The ground here seems a little different from all the other ledges along the +Abyss. There is a kind of soft soil on this ledge, maybe you should look +carefully at this. It seems to be of some interest. +~ +E +soil soft earth~ +You can just make out the outline of a trapdoor here in the soil. The earth +is probably there to conceal a secret entrance. This looks as if it leads +down into the seemingly solid rock face of the ledge. +~ +S +#7117 +The Narrow Eastern Ledge~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. And THAT is west of here +so watch your step. +~ +71 acd 5 +D2 +The ledge leads further south. +~ +~ +0 -1 7118 +D3 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling that distance. +~ +~ +0 -1 7114 +S +#7118 +The Narrow Eastern Ledge~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. And THAT is west of here +so watch your step. +~ +71 acd 5 +D2 +The ledge leads further south. +~ +~ +0 -1 7119 +D3 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling that distance. +~ +~ +0 -1 7114 +S +#7119 +The Narrow Eastern Ledge~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. And THAT is west of here +so watch your step. +~ +71 acd 5 +D2 +The ledge leads further south. +~ +~ +0 -1 7120 +D3 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling that distance. +~ +~ +0 -1 7114 +S +#7120 +The Narrow Eastern Ledge~ + You are in the process of walking all the way around the ledge since +there is no way of turning around on this all too narrow path. There IS +another exit from here but that leads right into mid-air and with high +probability of a free fall session afterwards. And THAT is west of here +so watch your step. You also see a small opening to the east. +~ +71 acd 5 +D1 +East. You stare into darkness. +~ +~ +0 -1 7123 +D2 +The ledge leads further south. +~ +~ +0 -1 7121 +D3 +You stare into mid-air, and right under there is absolutely nothing but +darkness. You shiver by the thought of falling that distance. +~ +~ +0 -1 7114 +S +#7121 +The Southeastern Corner Of The Ledge~ + This seems like a ledge that is a little broader than the one just to the +north of here. The ledge seems to lead around some sort of abyss of total +darkness. +~ +71 acd 5 +D0 +North of here you can see a ledge. +~ +~ +0 -1 7120 +D3 +The ledge leads further west. +~ +~ +0 -1 7115 +D5 +The Abyss lies down there. Who knows what might lurk down there? +~ +rock step edge~ +2 -1 7279 +E +edge odd-looking~ +This is truly a weird piece of craftsmanship in your eyes. The edge seems to +form a step leading down, but WHAT a STEP DOWN. The Abyss opens down there +leading to seemingly total destruction. +~ +E +step~ +A small rock sticks out right under it, otherwise the way is DOWN, DOWN, and +SPLAT!!! +~ +E +rock~ +It looks as if it can be opened in a door-like fashion. Maybe this will lead +the way down. +~ +S +#7122 +Under The Pit~ + You stand in a completely dark cavern leading west. The wall looks +weird here. +~ +71 ad 0 +D3 +~ +~ +0 -1 7112 +E +wall~ +There is a crack here that looks like it has been made recently. +~ +S +#7123 +Under The Shaft~ + A ladder leads up from here to the Shaft. A small opening leads west +from here. +~ +71 ad 5 +D3 +You can see a narrow ledge going north and south. +~ +~ +0 -1 7120 +D4 +It is too dark up there. +~ +~ +0 -1 7041 +S +#7129 +The Sewer Line~ + You are in a narrow part of the sewer. Down the sewer continues and to +the north is the ledge. +~ +72 9 3 +D0 +You can see the southern part of the ledge. +~ +~ +0 -1 7115 +D5 +You look deeper down into the drain. +~ +~ +0 -1 7221 +S +#7190 +Mid-Air~ + You've just stepped into the most unlucky position in the whole of +CircleMUD. The result of such a foolish act should be punished with +death, you know. With an acceleration of approximately 9.82 meters +per second squared, you are now descending the Abyss. What awaits you +at the bottom will continue to be a mystery. Good-bye cruel world. +~ +71 bd 0 +D0 +~ +~ +0 -1 7109 +D1 +~ +~ +0 -1 7108 +D2 +~ +~ +0 -1 7110 +D3 +~ +~ +0 -1 7107 +D4 +~ +~ +0 -1 7113 +S +$ diff --git a/lib/world/wld/72.wld b/lib/world/wld/72.wld new file mode 100644 index 0000000..67b8afe --- /dev/null +++ b/lib/world/wld/72.wld @@ -0,0 +1,1834 @@ +#7200 +The Treasury~ + You are in a small but well equipped treasury. You can see some writing +on the wall. The ceiling has a funny glow, which enables you to see. You +can get back into the inner lair through the stone door which is east. +~ +72 cd 0 +D1 +You look back through the opening into the inner lair. +~ +door stone~ +2 7205 7201 +E +door stone~ +This is a heavy black stone door it looks very solid. +~ +E +writing~ +You read the number '666'. +~ +S +#7201 +The Inner Lair~ + You are in a octagonal room with smooth purple stone walls. The floor is +made from black stone. In the western wall you see a large black stone door. +~ +72 ad 0 +D2 +You look back through the door into the lair. +~ +door wooden~ +1 -1 7202 +D3 +You see the treasury. +~ +door stone~ +2 7205 7200 +S +#7202 +The Lair~ + On the floor you see a lot of human decay, like bones and skulls. You +also see a lot of slime. On the wall is a torch sitting in its sconce. To +the north is a wooden door. +~ +72 d 1 +D0 +You can see the inner lair. +~ +door wooden~ +1 -1 7201 +D1 +You see another part of the lair. +~ +~ +0 -1 7205 +D2 +You see another part of the lair. +~ +~ +0 -1 7203 +E +skull skulls bones decay~ +On all the skulls you notice that there is a three inch hole in the +forehead. All the bones are broken and old. +~ +E +slime~ +The slime is slimy and uninteresting. +~ +E +torch sconce~ +The torch is bolted to the sconce and the sconce to the wall. +~ +S +#7203 +The Lair~ + On the floor you see a lot of human decay, like bones and skulls. You +also see a lot of slime. On the wall is a torch sitting in its sconce. +~ +72 d 1 +D0 +You see another part of the lair. +~ +~ +0 -1 7202 +D1 +You see another part of the lair. +~ +~ +0 -1 7206 +D2 +You see another part of the lair. +~ +~ +0 -1 7204 +E +skull skulls bones decay~ +On all the skulls you notice that there is a three inch hole in the +forehead. All the bones are broken and old. +~ +E +slime~ +The slime is slimy and uninteresting. +~ +E +torch sconce~ +The torch is bolted to the sconce and the sconce to the wall. +~ +S +#7204 +The Lair~ + On the floor you see a lot of human decay, like bones and skulls. You +also see a lot of slime. On the wall is a torch sitting in its sconce. +~ +72 d 1 +D0 +You see another part of the lair. +~ +~ +0 -1 7203 +D1 +You see another part of the lair. +~ +~ +0 -1 7207 +D2 +You see the lair entrance. +~ +door wooden~ +1 -1 7208 +E +skull skulls bones decay~ +On all the skulls you notice that there is a three inch hole in the +forehead. All the bones are broken and old. +~ +E +slime~ +The slime is slimy and uninteresting. +~ +E +torch sconce~ +The torch is bolted to the sconce and the sconce to the wall. +~ +S +#7205 +The Lair~ + On the floor you see a lot of human decay, like bones and skulls. You +also see a lot of slime. On the wall is a torch sitting in its sconce. +~ +72 d 1 +D2 +You see another part of the lair. +~ +~ +0 -1 7206 +D3 +You see another part of the lair. +~ +~ +0 -1 7202 +E +skull skulls bones decay~ +On all the skulls you notice that there is a three inch hole in the +forehead. All the bones are broken and old. +~ +E +slime~ +The slime is slimy and uninteresting. +~ +E +torch sconce~ +The torch is bolted to the sconce and the sconce to the wall. +~ +S +#7206 +The Lair~ + On the floor you see a lot of human decay, like bones and skulls. You +also see a lot of slime. On the wall is a torch sitting in its sconce. +~ +72 cd 1 +D0 +You see another part of the lair. +~ +~ +0 -1 7205 +D2 +You see another part of the lair. +~ +~ +0 -1 7207 +D3 +You see another part of the lair. +~ +~ +0 -1 7203 +E +bones decay~ +All the bones are broken and old. +~ +E +slime~ +The slime is slimy and uninteresting. +~ +E +torch sconce~ +The torch is bolted to the sconce and the sconce to the wall. +~ +S +#7207 +The Lair~ + On the floor you see a lot of human decay, like bones and skulls. You +also see a lot of slime. On the wall is a torch sitting in its sconce. +~ +72 d 1 +D0 +You see another part of the lair. +~ +~ +0 -1 7206 +D3 +You see another part of the lair. +~ +~ +1 -1 7204 +E +skull skulls bones decay~ +On all the skulls you notice that there is a three inch hole in the +forehead. All the bones are broken and old. +~ +E +slime~ +The slime is slimy and uninteresting. +~ +E +torch sconce~ +The torch is bolted to the sconce and the sconce to the wall. +~ +S +#7208 +The Lair Entrance~ + You are in a dry part of the sewer. To the north is a wooden door, +you can see some slime at the lower part of the door. You also see +some skulls and some broken bones. +~ +72 acd 2 +D0 +You can see the lair. +~ +door wooden~ +1 -1 7204 +D1 +You see a crawlway. +~ +~ +0 -1 7209 +E +slime~ +The slime is slimy and uninteresting. +~ +S +#7209 +The Crawlway~ + You are in a narrow crawlway. It is rather boring here. +~ +72 ad 3 +D1 +You see a four-way junction. +~ +~ +0 -1 7210 +D3 +You see the entrance to a lair. +~ +~ +0 -1 7208 +S +#7210 +The Four-Way Junction~ + You are in a sewer junction. To the north is a small hole, to the west +is a narrow crawlway and to the east and south the sewer continues. +~ +72 ad 3 +D0 +You can see a small cave-like room. +~ +~ +0 -1 7211 +D1 +You can see a sewer drain. +~ +~ +0 -1 7212 +D2 +You can see a sewer drain. +~ +~ +0 -1 7215 +D3 +You can see a narrow crawlway. +~ +~ +0 -1 7209 +S +#7211 +The Small Cave~ + You are in a collapsed sewer drain, which now is more like a small cave. +~ +72 ad 3 +D2 +You look back into the four-way junction. +~ +~ +0 -1 7210 +S +#7212 +The Sewer Drain~ + You are in a dry sewer drain which bends to the north. +~ +72 ad 3 +D0 +You can see the drain continuing north. +~ +~ +0 -1 7213 +D3 +You can see the four-way junction. +~ +~ +0 -1 7210 +S +#7213 +The Sewer Drain~ + You are in a dry sewer drain which bends to the east. +~ +72 ad 3 +D1 +You can see the drain continuing east. +~ +~ +0 -1 7214 +D2 +You can see the drain continuing south. +~ +~ +0 -1 7212 +S +#7214 +The End Of The Drain~ + You are at the end of the drain around you the sewer has collapsed, the +only exit is west. +~ +72 ad 3 +D3 +You see the sewer drain. +~ +~ +0 -1 7213 +S +#7215 +The Half-Wet Drain~ + You are in a sewer drain where the floor is covered with water. To +the north it looks more dry, south however the drain runs down into +some water. +~ +72 ad 4 +D0 +To the north lies a dry four-way junction. +~ +~ +0 -1 7210 +D2 +To the south you see a sewer drain filled with water. +~ +~ +0 -1 7216 +E +water~ +The water is dirty but it looks like you would be able to swim in it. +~ +S +#7216 +Under Water In The Sewer~ + You are swimming in some dirty water and are holding your breath. You'd +better continue onwards before you drown. It is a good thing that you can +hold your light above the water-level. +~ +72 ad 6 +D0 +It is hard to see, but it looks like the drain runs slightly upwards. +~ +~ +0 -1 7215 +D2 +It is hard to see, but it looks like the drain runs a little bit upwards. +~ +~ +0 -1 7217 +S +#7217 +The Half-Dry Drain~ + You are in a half-dry sewer drain. To the north the drain runs a little +bit downwards into some water to the east you can see a small hole. To the +west you see another drain. +~ +72 ad 4 +D0 +You see the drain running down into some water. +~ +~ +0 -1 7216 +D1 +Through the hole you can just make out a very small room. +~ +~ +0 -1 7218 +D3 +You see a drain running to the west. +~ +~ +0 -1 7219 +E +water~ +The water is dirty but it looks like you would be able to swim in it. +~ +E +hole~ +Through the hole you can just make out a very small room. +~ +S +#7218 +The Very Small Room~ + You are in a very small room, it is pretty uninteresting. +~ +72 ad 3 +D3 +Through the little hole you can see a half-dry drain. +~ +~ +0 -1 7217 +S +#7219 +A Dry Sewer Drain~ + You are in a dry but dirty sewer drain. The drain continues east and +south. +~ +72 ad 3 +D1 +You see a half-dry drain. +~ +~ +0 -1 7217 +D2 +You see another boring sewer drain. +~ +~ +0 -1 7220 +S +#7220 +A Boring Drain~ + You are in yet another sewer drain. +~ +72 ad 3 +D0 +You see a sewer drain continuing to the north. +~ +~ +0 -1 7219 +D1 +You can see another drain to the east. +~ +~ +0 -1 7221 +S +#7221 +The Sewer Drain~ + You are in a sewer drain, there is nothing special in here, except for a +loud echo. +~ +72 ad 3 +D1 +You can see another sewer drain. +~ +~ +0 -1 7222 +D3 +You can make out a sewer drain to the west. +~ +~ +0 -1 7220 +D4 +You can see a sewer line. +~ +~ +0 -1 7129 +S +#7222 +The Sewer Drain~ + You are in a drain, with some slimy water on the floor. +~ +72 ad 3 +D1 +You see a sewer bend. +~ +~ +0 -1 7223 +D3 +You see a sewer drain. +~ +~ +0 -1 7221 +E +slimy water~ +The water floats to the east from here. +~ +S +#7223 +The Sewer Bend~ + You find yourself in an ordinary sewer bend, which bends from west to +north. +~ +72 ad 3 +D0 +You see a sewer drain. +~ +~ +0 -1 7224 +D3 +You see a sewer drain. +~ +~ +0 -1 7222 +S +#7224 +The Sewer Junction~ + You stand in a junction of three sewer drains. You see some odd +scratches on the pipe wall, as if from a gigantic rat. North and +south the sewer continues as usual, but west it looks a little +strange. +~ +72 ad 3 +D0 +You see nothing but a sewer drain. +~ +~ +0 -1 7225 +D2 +You see nothing but a sewer drain. +~ +~ +0 -1 7223 +D3 +You see a strange sewer pipe. +~ +~ +0 -1 7229 +S +#7225 +The Sewer~ + You are in a sewer, where the slimy water runs down through a tiny hole. +You see some odd scratches on the pipe wall, as from a gigantic rat. There +is a sewer drain south. +~ +72 ad 3 +D2 +You see a sewer drain. +~ +~ +0 -1 7224 +S +#7229 +The Strange Sewer~ + You are in a very strange sewer indeed, there are some odd scratches on +the pipe wall, as from a gigantic rat. And you can see a lot of organic +decay like bones from animals AND humans. West the drain runs slightly +upwards. +~ +72 ad 3 +D1 +You see a sewer junction. +~ +~ +0 -1 7224 +D3 +You see a slimy sewer drain. +~ +~ +0 -1 7230 +S +#7230 +The Damp Sewer~ + You are in a sewer drain with a funny damp substance on the floor, in the +substance you see a lot of decay. You see some odd scratches on the wall, +as if from a gigantic rat. Both to the east and west the pipe seems to run +down. +~ +72 acd 3 +D1 +You see a sewer. +~ +~ +0 -1 7229 +D3 +You see a sewer. +~ +~ +0 -1 7231 +S +#7231 +The Strange Sewer~ + You are in an ordinary sewer except for a lot of scratches on the sewer +wall, and a lot of debris on the floor. +~ +72 ad 3 +D1 +You see a sewer. +~ +~ +0 -1 7230 +D3 +You see another sewer. +~ +~ +0 -1 7232 +E +debris~ +You see a lot of organic decay on the floor. +~ +S +#7232 +The Sewer~ + You are in a sewer with more scratches on the walls. And of course a whole +lot of decay. The drain runs east and north. +~ +72 ad 3 +D0 +You see yet another sewer line. +~ +~ +0 -1 7233 +D1 +You see a sewer pipe. +~ +~ +0 -1 7231 +S +#7233 +The Sewer Drain~ + You stand in a sewer drain, you are able to see some kind of cave-like +room. You see some odd scratches on the drain wall, as if from a gigantic +rat. The sewer leads south. +~ +72 ad 3 +D1 +You see a cave-like room. +~ +~ +0 -1 7234 +D2 +You see a sewer. +~ +~ +0 -1 7232 +S +#7234 +The Rat's Lair~ + You are in a little cave. You are able to see quite a lot of debris on +the floor. There is a sewer drain west of here. +~ +72 ad 3 +D3 +You see the sewer system that way. +~ +~ +0 -1 7233 +S +#7279 +The Wall Of The Abyss~ + You hang onto some steps leading down into utter darkness. There is an +exit leading up as well, though you'll have to open the tiny rock again to +do so. +~ +72 ad 5 +D4 +~ +rock~ +1 -1 7111 +D5 +~ +~ +0 -1 7299 +S +#7280 +The Entrance~ + You are in a very dark room. You notice that some faces are staring at +you from inside the walls. In the middle of the room there is a small altar. +To the north there is a small round door. +~ +72 ad 1 +D0 +A beam of red light seeps through a hole in the door. +~ +door small round~ +1 -1 7281 +D4 +~ +altar secret~ +1 -1 7116 +E +altar~ +This altar is very special. Faces appear to be smiling from it. There +is a triangle engraved in the top of it. +~ +E +triangle~ +The triangle is filled with small symbols. They seem to be a language +you have never seen before. +~ +S +#7281 +The Corridor~ + The corridor is glowing oppressively in a red hue. You can hear wailing +through an open black hole to the east. To the south there is a round door. +~ +72 d 1 +D1 +The hole seems more black than the night. It is appears to be "eating" the +red light around it. +~ +~ +0 -1 7282 +D2 +~ +door small round~ +1 -1 7280 +E +small round door~ +The door is completely round without a keyhole. +~ +E +red light~ +The red light glows from the walls. +~ +E +walls~ +The walls look alive. +~ +S +#7282 +The Realm Of Lost Souls~ + You are standing in nothing. All around you there are stars. +Sometimes a shadow flies closely by you, wailing very loudly. To +the north there is a small bright hole. To the west there is a +small red hole. +~ +72 d 0 +D0 +You look into a very bright hole. +~ +~ +0 -1 7283 +D3 +You look into a red hole. +~ +~ +0 -1 7281 +E +shadow~ +The shadow looks like a man in great pain. +~ +S +#7283 +The T-Crossing~ + You are in a small hallway. There are doors to the east and to +the west. To the south there are a black hole. There is writing +in the wall. Wails can be heard from the south. +~ +72 acd 1 +D1 +It is too dark to tell. +~ +~ +0 -1 7286 +D2 +A black hole in the wall. +~ +~ +0 -1 7282 +D3 +You can see a big fire to the west. It looks like a unhealthy +place to enter! +~ +~ +0 -1 7284 +E +writing~ +The writing says 'The one to the east, belongs to the beast. +To the west you will surely END your quest!'. +~ +S +#7284 +The Firedeath~ + This room is very hot. There are flames surrounding you. You can +see no exits at all! Skeletons are lying all over the floor. +~ +72 cd 1 +E +skeletons~ +The skeletons looks like they had suffered the death of hunger. +One of them looks like he has written something at the wall. +~ +E +writing wall~ +The writing says 'A prayer to the GODS will not be heard, though +the only exit is death... Mother, I love you'. +~ +S +#7285 +The Torture Room~ + You are standing in a middle of a square room. Along the walls skeletons +are hanging in rusty chains. In the middle of the room there is a big metal +box, covered with dust. To the south you can just make out a small exit. +~ +72 d 1 +D2 +It is too dark to tell. +~ +door iron~ +1 -1 7286 +E +skeletons~ +When you look at the skeletons, you can see that they once had been in great +pain. They are hanging in their arms, and some of them were killed with a +sharp instrument. +~ +E +big metal box~ +The metal box is covered with dust. You notice that it was once filled with +coal, as you see some small pieces of it. +~ +S +#7286 +The Hell Yard~ + You are standing in a lot of mud. A disgusting smell surrounds +the place, and makes you feel sick. Small flames sometimes shoot +up from the hot mud. To the west there is a small door. To the +north you can see an iron door. +~ +72 cd 5 +D0 +It is too dark to tell. +~ +door iron~ +1 -1 7285 +D3 +It is too dark to tell. +~ +~ +0 -1 7283 +S +#7299 +On The Walls Of The Abyss~ + You are clutching the steps on the wall so that you don't fall to the +ground down below. You cannot see anymore handholds below you and thus +this stops your journey down, as the only exit is up. +~ +72 ad 5 +D4 +~ +~ +0 -1 7279 +S +#7300 +Cave Entrance~ + You are standing in the cave entrance. It is very dark down here. There +is writing on the wall. There is an exit to the north. A stairway leads up. +~ +73 ad 1 +D0 +To the north you can see a small tunnel. +~ +~ +0 -1 7301 +D4 +You can see the stairs going up into darkness. +~ +~ +2 -1 7102 +E +writing wall~ +The writing says 'BEWARE adventurer!' +~ +S +#7301 +Cave Tunnel~ + You are walking in a tunnel. It is very cold. You can feel the presence +of a living thing... SOMEWHERE. +~ +73 ad 1 +D0 +To the north you can see the tunnel continuing. +~ +~ +0 -1 7302 +D2 +To the south tunnel continuing. +~ +~ +0 -1 7300 +S +#7302 +Cave Room~ + You are standing in a room. It is much cooler now. The walls are glowing. +~ +73 d 1 +D1 +To the east you see the tunnel going downwards. +~ +~ +0 -1 7303 +D2 +To the south you see a dark cave tunnel. +~ +~ +0 -1 7301 +D3 +~ +~ +0 -1 7321 +S +#7303 +The Cave T-Cross~ + You are standing in a mudlike substance. The smell here is awful, it is +rotten. To the west you can see some light. +~ +73 ad 2 +D1 +To the east the tunnel still goes downwards. +~ +~ +0 -1 7304 +D2 +~ +~ +0 -1 7308 +D3 +You can see some light to the west. +~ +~ +0 -1 7302 +E +mud~ +When you examine the mud, you notice small worms crawling around. +~ +E +worms~ +The worms are purple. They do not look edible. +~ +S +#7304 +The Cave Turning-Point~ + The mud is getting deeper. You are wondering, 'Would it be an idea to +leave, before I disappear?'. To the south you notice a flat round stone +is blocking the way. To the west you can see mud. +~ +73 ad 2 +D2 +You can see an opening behind the stone. +~ +stone flat round~ +1 -1 7305 +D3 +~ +~ +0 -1 7303 +E +flat round stone~ +The stone looks very uninteresting. BUT as you are about to turn away, you +see a strip of light coming through a small hole. Conclusion: The stone is +moveable. +~ +S +#7305 +The Secret Room~ + There is dust all over the place. It looks like nobody has been here +for ages. In the middle of the room you see a socket with a crystal globe. +The globe glows with a pulsing light. To the north you see a stone door. +To the south you see a grey block. +~ +73 d 1 +D0 +You see a round stone door. +~ +door round stone~ +1 -1 7304 +D2 +You see a grey block. +~ +block grey~ +1 -1 7306 +E +socket~ +The socket looks like the work of a dwarf. It is VERY beautiful. +~ +E +crystal globe~ +The crystal globe is glowing with a pulsing light. It looks like there is +smoke inside it. +~ +S +#7306 +The Mudhole~ + You are standing in a lot of mud. The mud goes to your chest. You feel +the presence of something IN the mud. The only obvious exit is to the west. +~ +73 ad 6 +D0 +You can see nothing at all. +~ +block grey~ +1 -1 7305 +D3 +~ +~ +0 -1 7307 +S +#7307 +A Tunnel~ + The mud goes to your knees. Otherwise the tunnel looks very normal. +~ +73 ad 5 +D0 +~ +~ +0 -1 7308 +D1 +You can see a mudhole. +~ +~ +0 -1 7306 +D2 +~ +~ +0 -1 7309 +S +#7308 +The Long Tunnel~ + Here there is almost no mud, as you stand at the top of a small rock. Just +beside you there are a sign which says 'WARNING! The worms are dangerous!' +~ +73 ad 1 +D0 +You can see a lot of mud... Yuck! +~ +~ +0 -1 7303 +D2 +The tunnel goes a little downwards. +~ +~ +0 -1 7307 +S +#7309 +The Hot Room~ + You are very surprised, as this room for a change are hot instead of +cold. To the north it goes downwards into some mud. There are also an +exit to the west. +~ +73 ad 1 +D0 +You see a lot of mud. +~ +~ +0 -1 7307 +D3 +You see a entrance to a small room. +~ +~ +0 -1 7310 +S +#7310 +The Small Room~ + As you look around you notice a small statue. There are exits to the west +and to the east. +~ +73 ad 1 +D1 +It is pitch dark out there. +~ +~ +0 -1 7309 +D3 +You see a VERY long hallway. +~ +~ +0 -1 7311 +E +small statue~ +This is a statue of a imp, pointing to the west. The imp looks like a man +with horns and a tail. +~ +S +#7311 +The Stalagmite Cave~ + You are standing in a stalagmite cave. Water is dripping from the walls. +It is very cold in here. +~ +73 ad 2 +D0 +~ +~ +0 -1 7314 +D1 +You see a long hallway, and some mud. +~ +~ +0 -1 7310 +D2 +~ +~ +0 -1 7312 +E +stalagmite~ +The stalagmites are very tall, and looks very beautiful. +~ +S +#7312 +The Stalagmite Tunnel~ + You has entered a small tunnel. Here it is quite dry. Maybe it would be a +good idea to rest here. +~ +73 ad 1 +D0 +You can see a small cave to the north. +~ +~ +0 -1 7311 +D3 +~ +~ +0 -1 7313 +S +#7313 +The Spongy Room~ + You definitely do NOT like this area. It is very dank, and most of the +room is wet. +~ +73 cd 3 +D1 +~ +~ +0 -1 7312 +D3 +~ +~ +0 -1 7345 +S +#7314 +The Stalagmite T-Cross~ + You are standing in a cross. To the north you can see some light. +Otherwise it is dark. +~ +73 cd 1 +D0 +You see some light ahead. +~ +~ +0 -1 7317 +D1 +~ +~ +0 -1 7315 +D2 +~ +~ +0 -1 7311 +S +#7315 +The Blind End Room~ + This room is obviously a blind end. To the north you see a primitive +picture. +~ +73 ad 1 +D0 +You see a primitive picture of some people dancing around a huge sun. The +sun is about 7 feet in diameter, which shows the size of the picture. +~ +sun~ +1 -1 7316 +D3 +~ +~ +0 -1 7314 +E +primitive picture~ +You see some people dancing around a huge sun. The sun is about 7 feet in +diameter, which shows the size of the picture. +~ +S +#7316 +The Treasure Room~ + This room is richly ornamented. The walls have been carved to show +people dancing around a moon which is drawn on the floor. It looks very +old, and it is very dusty. To the south you see the back side of a secret +door. +~ +73 adj 1 +D2 +You can see a picture with some peeple crawling around a huge moon. +~ +moon door~ +1 -1 7315 +S +#7317 +The Square Lair~ + You are standing in the south-east part of the lair. You can see a skeleton +lying in the corner. +~ +73 d 1 +D0 +Another part of the lair. +~ +~ +0 -1 7318 +D3 +Another part of the lair. +~ +~ +0 -1 7320 +D2 +~ +~ +0 -1 7314 +E +skeleton~ +It looks like a adventurer who wasn't lucky. You'd better watch out... +~ +S +#7318 +The Square Lair~ + You are standing in the north-east part of the lair. +You see a sign on the wall. +~ +73 ad 1 +D1 +You see a wooden door. +~ +door wooden~ +1 -1 7321 +D2 +Another part of the lair. +~ +~ +0 -1 7317 +D3 +Another part of the lair. +~ +~ +0 -1 7319 +E +sign wall~ +The sign says 'Gods of War I call you, my sword is by my side, + I seek a light free from all false pride' + Reyemle Grug... +~ +S +#7319 +The Square Lair~ + You are standing in the north-west part of the lair. Here there is another +sign. There is an exit from the lair to the north. +~ +73 ad 1 +D0 +You see a small tunnel leading north. +~ +~ +0 -1 7322 +D1 +Another part of the lair. +~ +~ +0 -1 7318 +D2 +Another part of the lair. +~ +~ +0 -1 7320 +E +sign~ +The sign says 'I'm wandering around in a everlasting tale, + seeking the light to regain my pride + Corama... +~ +S +#7320 +The Lair End~ + You can see a table in front of you. It is very dusty. Five skeletons are +sitting around the table. Exits are north and east. +~ +73 ad 1 +D0 +The northern part of the lair. +~ +~ +0 -1 7319 +D1 +The eastern part of the lair. +~ +~ +0 -1 7317 +E +table~ +On the table there is dust, in the center there is a small statue of a +Dragon sleeping. +~ +E +skeleton skeletons~ +They've obviously been killed somehow, but it doesn't look like it was by +sword or club. +~ +E +dragon statue~ +It looks like a silver dragon. It is nailed onto the table. The dragon sits +on a red dragon that looks dead. But the eyes of the red dragon are glowing, +pulsating red. You feel drained. +~ +S +#7321 +The East Tunnel~ + You are standing in dark tunnel, the exits are east and west. To the west +you see a wooden door. +~ +73 cd 1 +D3 +You can see a wooden door. +~ +door wooden~ +1 -1 7318 +D1 +You can see a muddy tunnel. +~ +~ +0 -1 7302 +S +#7322 +The North Tunnel~ + You are standing in a dark tunnel, it leads upwards. +~ +73 ad 1 +D0 +The dark tunnel continues. +~ +~ +0 -1 7323 +D2 +You can see the lair. +~ +~ +0 -1 7319 +D3 +You can see a cave entrance. +~ +~ +0 -1 7336 +S +#7323 +The L-Shaped Room~ + You are standing in deep darkness. To the south there is a small exit. +To the east you can see a gaping hole. +~ +73 ad 1 +D1 +~ +~ +0 -1 7324 +D2 +~ +~ +0 -1 7322 +S +#7324 +The Circular Hall~ + You are standing in round hall. To the north, east and south you can see +a stone head hanging on the walls. +~ +73 ad 1 +D0 +You see a red dragon's head hanging on the wall. +~ +head red~ +2 0 7324 +D1 +You see a green dragon's head hanging on the wall. +~ +head green~ +1 -1 7325 +D2 +You see a blue dragon's head hanging on the wall. +~ +head blue~ +2 0 7324 +D3 +You see a room far away. +~ +~ +0 -1 7323 +E +head heads~ +When you study the faces of the heads you see that they are faces of dragons. +The face to the north is red, the face to the east is green, and the face to +the south is blue. +~ +E +green~ +This looks like an evil dragon. +~ +E +red~ +This looks like a neutral dragon. +~ +E +blue~ +This looks like a good dragon. +~ +S +#7325 +A Dusty Tunnel~ + You are standing in dust. This place has not been touched for a long time. +Otherwise it is quite boring here, looks like a place to rest! To the west +you see the outline of a door. A tunnel leads to the east. +~ +73 cd 1 +D1 +You see a tunnel which leads downwards. It is quite dark. +~ +~ +0 -1 7326 +D3 +You can see the outline of a door. Just like in the description! +~ +door~ +1 -1 7324 +S +#7326 +The Crossing~ + You are standing in a crossing of hallways. You can leave this place +in every direction, except up and down. In the dust you notice strange +footprints. +~ +73 ad 1 +D0 +~ +~ +0 -1 7331 +D1 +~ +~ +0 -1 7330 +D2 +~ +~ +0 -1 7327 +D3 +~ +~ +0 -1 7325 +E +footprints foot~ +You have never seen this kind of footprint before! +~ +S +#7327 +The L-Shaped Room~ + You are standing in a L-shaped room. You can hear noises from the long +tunnel to the east. You feel very afraid! +A sign is hanging on the wall. +~ +73 ad 2 +D0 +~ +~ +0 -1 7326 +D1 +~ +~ +0 -1 7328 +E +sign~ +The sign says: + +DANGER!! + +~ +S +#7328 +The Dragon's Lair~ + You can see burned walls, the floorstones are fiery red. All kinds +of bones are scattered all over the floor. On the walls you can see +some burned shapes. You smell burnt flesh. Two creatures are half +melted into the floor. +~ +73 d 2 +D0 +You can see a long tunnel. +~ +~ +0 -1 7329 +D3 +You can see nothing but darkness. +~ +~ +0 -1 7327 +S +#7329 +The Burnt Room~ + You are in a room, which once has at one time been quite burnt. There +is writing on the wall. +~ +73 ad 1 +D2 +You can see a red glow... +~ +~ +0 -1 7328 +D3 +~ +~ +0 -1 7330 +E +writing~ +The writing says: + + DANGER + +~ +S +#7330 +The Windy Tunnel~ + You are standing in a tunnel. Above you, you can feel a breeze. +~ +73 ad 1 +D1 +It is too dark to tell. +~ +~ +0 -1 7329 +D3 +~ +~ +0 -1 7326 +E +breeze~ +The breeze comes from a hole above you. NO way to get up there. +~ +S +#7331 +The Glittering Room~ + This room is very bright. On the walls you can see some silver. Exits +are west, east and south. +~ +73 d 1 +D1 +~ +~ +0 -1 7332 +D2 +~ +~ +0 -1 7326 +D3 +~ +~ +0 -1 7333 +E +glitter walls silver~ +The glittering silver looks like it is INSIDE the walls. +~ +S +#7332 +The Secret Passageway~ + You have entered a tiny room. There is only an exit to the west. +~ +73 ad 1 +D3 +You can see a light to the west. +~ +~ +0 -1 7331 +S +#7333 +The End Of Long Tunnel~ + You are at a end of a long tunnel. Right in front of you, you can see a +grey mass. To the east you can see a tremendously long tunnel, but you know +that, you were just there. +~ +73 ad 5 +D1 +A long tunnel. JUST like in the description! +~ +~ +0 -1 7331 +D3 +A grey mass is blocking the way. +~ +mass grey~ +1 -1 7334 +E +grey mass~ +The mass is nothing but a mass, but it is quite suspicious! +~ +S +#7334 +The Stair-Room~ + You are standing in a small room. Drawings of faces in pain are on the +walls. You can feel that darkness is ruling the place. There is one exit: +south. +~ +73 ad 1 +D2 +Nothing but darkness... +~ +~ +0 -1 7335 +S +#7335 +A Dark Tunnel~ + You are standing in a dark tunnel. It continues to the north and to the +south. Bones are spread on the floor. +~ +73 ad 1 +D0 +~ +~ +0 -1 7334 +D2 +~ +~ +0 -1 7336 +E +bones bone~ +It looks like bones of a human. +~ +S +#7336 +The Entrance To The Lair~ + The smell here is awful. To the south you can see some smoke. A tunnel +leads north and east. +~ +73 acd 2 +D0 +~ +~ +0 -1 7335 +D2 +The only thing you can see is smoke. +~ +~ +0 -1 7337 +D1 +A small cave is to the east. +~ +~ +0 -1 7322 +S +#7337 +The North-Eastern Part Of The Basilisk's Cave~ + It is hard to see here because of the smoke. To the north you can barely +see a small tunnel. Other exits are to the south and to the west. +~ +73 ad 2 +D0 +~ +~ +0 -1 7336 +D2 +~ +~ +0 -1 7338 +D3 +~ +~ +0 -1 7339 +S +#7338 +The South-Eastern Part Of The Basilisk's Cave~ + There is a very small hole in wall from which the smoke is coming from. +Otherwise it is pitch black. Exits are north and west. +~ +73 ad 2 +D0 +You can see nothing but smoke. +~ +~ +0 -1 7337 +D3 +You can see nothing but smoke. +~ +~ +0 -1 7340 +E +hole small~ +It seems to be a small hole, about one foot in diameter. +~ +S +#7339 +The North-Western Part Of The Basilisk's Cave~ + You can see some hay spread on the floor. The smell is awful here, and it +makes you feel sick. This place where the Basilisk sleeps. Watch out... +maybe it is not far from here... +~ +73 ad 2 +D1 +~ +~ +0 -1 7337 +D2 +~ +~ +0 -1 7340 +E +hay~ +The hay is very dirty. The smell of it makes you feel sick. +~ +S +#7340 +The South-Western Part Of The Basilisk's Cave~ + You can see nothing but smoke. +~ +73 ad 5 +D0 +~ +~ +0 -1 7339 +D1 +~ +~ +0 -1 7338 +D2 +~ +~ +0 -1 7341 +S +#7341 +The Small Cave~ + You are standing in small cave. You can see some light at the end. Exits +are north and south. +~ +73 acd 2 +D0 +You can see only smoke. +~ +~ +0 -1 7340 +D2 +You can see a blue glow. And you feel a fresh breeze... ahhhh... +~ +~ +0 -1 7342 +S +#7342 +The Northern End Of The Pool~ + You have wet feet, you are standing in water. The water looks calm. You +can see that it is a big lake. Light seeps from the water. +~ +73 d 4 +D0 +You can see a small cave. +~ +~ +0 -1 7341 +D1 +You can see more water. +~ +~ +0 -1 7343 +D2 +You can see water. +~ +~ +0 -1 7344 +S +#7343 +The Pool~ + You are swimming in water. It is getting deep here. It is also dark in +this end. +~ +73 ad 6 +D2 +You can see some bubbles in the water. +~ +~ +0 -1 7345 +D3 +You see calm water. +~ +~ +0 -1 7342 +S +#7344 +The South End Of The Pool~ + You standing in water up to your neck! You can only see water. +~ +73 d 5 +D0 +You can see calm water. +~ +~ +0 -1 7342 +D1 +To dark to tell, but you can feel something nearby. +~ +~ +0 -1 7345 +S +#7345 +The Pool~ + You are swimming in DARKNESS. You feel something touching your right leg. +~ +73 ad 6 +D0 +To dark to tell. +~ +~ +0 -1 7343 +D1 +You can feel a warm breeze. +~ +~ +0 -1 7313 +D3 +~ +~ +0 -1 7344 +S +$ diff --git a/lib/world/wld/79.wld b/lib/world/wld/79.wld new file mode 100644 index 0000000..b1b796c --- /dev/null +++ b/lib/world/wld/79.wld @@ -0,0 +1,494 @@ +#7900 +Outside Redferne's Residence~ + A huge cloud forms the plateau on which you are now standing. The +wind here is absolutely quiet and the sun is shining warmly upon you. +From under the cloud you can hear the faint sounds of Midgaard. Right +before you to the north lies the grand Mansion of Naris. +~ +79 cj 0 +D0 +You see an enormous arched gate leading into this magnificent building. +~ +gate huge arched~ +2 7901 7901 +D5 +You see a Huge Chain that anchors the Mansion of Naris to the ground. +~ +~ +0 -1 7918 +S +#7901 +The Southern End Of The Hall~ + You are standing in a vast hall that is dimly lit, but wherever the +light comes from, is a mystery. The walls seem to radiate warmth and +give the pleasent feeling of being welcome here. A large portrait is +hanging on one of the walls. A large wooden staircase leads up into +the tower. To the east there is a high passage away from the hall. +This ends shortly after by a tall oak door. The enormous hall extends +further north from here. To the south you can see a huge, and VERY +heavy-looking iron-wrought door. It looks like this is the only exit +from this magnificent old house. +~ +79 cdj 0 +D0 +The hallway continues that way. You can see more doorways under the +wooden staircase in that direction. +~ +~ +0 -1 7904 +D1 +You see a tall oak door there. It looks quite tightly closed to you. +On it little runes are chiselled into the wood. +~ +door oak tall~ +1 -1 7910 +D2 +Here you see a REAL door. It would be more proper to call this a +'GATE', rather than a 'door'. It is really HUGE! On it hangs a +large sign with very large letters spelling: + + EMERGENCY EXIT + +~ +gate iron huge~ +2 7901 7900 +D3 +This looks like a 'door' in the meaning of the word. The ashen wood +is painted in a peculiar yellow color. Small letters are written +with black on it. +~ +door ashen ash yellow~ +1 -1 7902 +D4 +You see the staircase extending upwards into the very high tower. +It ends in what seems like a large bedroom up there. +~ +~ +0 -1 7909 +E +runes~ +These runes are utterly strange to you, but you are in luck today: +Under the runes you can just make out a sentence in Common. It +reads: + +Stay out, if you treasure your life. That is if you are mortal. + +~ +E +letters~ +They read: + + LIBRARY + +~ +S +#7902 +Redferne's Library~ + This is truly a magnificent place! Books and scrolls lie together +on every shelf. A large globe, with the map of the world upon it, +stands in the dimly lit north-western corner of the room. Two large +and comfortable looking leather armchairs adorn the center of the +library together with a huge oak desk. Dim light radiates from an +enormous crystal chandelier hanging down from the ceiling approximately +10 feet off the floor. To the east there is a great old ashen door. A +large glass window is set in the west wall. +~ +79 cdj 0 +D1 +You can see an old ashen door, painted in a peculiar yellow color. +~ +door ash ashen~ +1 -1 7901 +E +globe world map~ +You see a large world map stretch out on the enormous globe. It has towns +drawn in every spot available for such. In the middle of the map you can +spot a large town with the name 'MIDGAARD' written over it. The rest is +mountains, woods, plains and water. +~ +E +midgaard town city~ +You see a small speck with woods on the west from it, plains to the east +from it and mountains to the north from it. To the east of it you can +see a thin trail lead to a large castle. Finally you notice a rather +large river pour in from the east and go through Midgaard in the middle. +~ +E +chairs leather armchairs chair armchair~ +These two chairs are exactly alike one another. They look incredibly +comfortable. They are both made from old leather, and yet they seem +so worn that they can be nothing but a perfect place for a long needed +rest. +~ +E +window glass~ +These windows are really BIG! They reach from about 20 inches above the +floor to approximately 10 inches under the ceiling. If you try and +'look out', you might see what might lie beyond these windows. +~ +E +out outside beyond~ +The clouds muster and form the ground on which this entire building is set. +Through the thinnest of the clouds you can just make out Midgaard with all +of its magnificent activity. +~ +E +river~ +You see a large and winding river cut through the landscape, starting at an +enormous inland lake, it seeps through Midgaard and finally ends up in the +Grand Sea on the west coast of the land. +~ +S +#7903 +The Artifact Room Of Naris~ + This is gloomy and dark room with only a faint light radiating from the +walls. A bunch of funny-looking items fill the center of the room. There +is no furniture here what-so-ever. The only way out seems to be west, +through the low steel door. +~ +79 cdj 0 +D3 +You see only the back of a safe's steel door. +~ +door steel safe~ +2 7900 7910 +S +#7904 +The Northern End Of The Hall~ + You are standing in the northern end of the huge hall. This part is +under the grand wooden staircase so the light seems to be a little less +bright here, but this doesn't affect your sight at all. To the north +lies the kitchen. To the south lies the southern end of the hall. To +the east there is a huge metal door. To the west there is a large +aspenwood door. +~ +79 cdj 0 +D0 +~ +~ +0 -1 7906 +D1 +You see a huge metal door. From it a foul stench emanates. The smell is +the most awful experience in your entire life. A thought seeps through this +terrible stench and into your mind: 'Monsters', you feel BAD about opening +that door. +~ +door metal huge~ +2 -1 7913 +D2 +The rest of the hall lies in that direction, and so does the exit. +~ +~ +0 -1 7901 +D3 +The door has 'SITTING ROOM' written on it. It is made from Aspenwood and +is beautifully carved with small elves as main issue of sculpture. +~ +door aspen wood~ +1 -1 7905 +S +#7905 +The Sitting Room Of Naris~ + You are standing in the middle of a really comfortable place. The +walls are decorated with paintings of smiling Kings and Queens. The +most attractive picture is one of a Prince in shining armour. By one +of the walls there is an old armchair. The only exit is through the +aspenwood door to the east. +~ +79 cdj 0 +D1 +The door seems to be a very HEAVY door, carved completely from the trunk of +an Aspen tree. +~ +door aspen heavy~ +1 -1 7904 +E +chair armchair~ +This is truly a wonderful relic of the past. In it is a large cushion. +~ +S +#7906 +The Kitchen Of Naris~ + This must be the place of food and drink. You can hear the faint noise +of rats feasting on meat and bread from somewhere undeterminable. The sound +makes you feel the agony of HUNGER. The only visible exit is south to the +Northern end of the hall. +~ +79 cdj 0 +D0 +It is dark in there. But the sounds from there are unmistakable. The rats +are here for your information. +~ +larder wooden cupboard~ +1 -1 7907 +D1 +You can see the fridge from here. There are drinks all over the place. +~ +fridge~ +1 -1 7908 +D2 +You can see the northern end of the hall. +~ +~ +0 -1 7904 +S +#7907 +The Larder~ + You can see food all over. Among the heaps of food you notice HUGE rats +scuttling around, nibbling pieces off the heaps here and there. +~ +79 cdj 0 +D2 +~ +door wooden larder~ +1 -1 7906 +S +#7908 +The Fridge~ + This place is LOADED with drink, water and booze. +~ +79 cdj 0 +D3 +~ +door fridge~ +1 -1 7906 +S +#7909 +On The Stairs~ + You can see up and down the stairway. It seems to take forever, either +going up OR down. It is just a seemingly insurmountable climb, either way. +Up is the bedroom of Redferne, and down leads to the southern end of the +hall. +~ +79 cdj 0 +D4 +~ +~ +0 -1 7911 +D5 +~ +~ +0 -1 7901 +S +#7910 +The Treasure Room~ + This place is gloomy. A HUGE safe is cemented into the west wall. The +only visible exit is west, through the oak door. +~ +79 cdj 0 +D1 +~ +safe steel~ +2 7900 7903 +D3 +You see a tall oak door. +~ +door oak tall~ +1 -1 7901 +S +#7911 +Redferne's Bedroom~ + This is a snugly set bedroom with all the necessities for a romantic +evening. A large fireplace adorns the east wall, and sizzling away is +the wood that is ablaze within. The bed is enormous, covering at least +HALF of this great room. The room stretches at least 140 feet, so can +you imagine the BED? A large staircase leads down to the hall. A couple +of doors open up to a broad balcony to the south. +~ +79 cdj 0 +D2 +The sun seems to shine out there, warmly and comforting. +~ +doors~ +1 -1 7912 +D5 +~ +~ +0 -1 7909 +S +#7912 +Redferne's Balcony~ + You see a splendid of the most of this world. The valleys stretch as +far as the eye reaches to the south from here. Down below you can see +the entrance of this magnificent building. To the north are the doors +to Redferne's bedroom. +~ +79 cj 0 +D0 +You see the comfortable bedroom of Naris. +~ +doors~ +1 -1 7911 +D5 +You see the ground on which this castle is set. Funnily it seems to you +that it is no more than clouds. +~ +~ +0 -1 -1 +S +#7913 +The Monster Pen~ + This looks like the cage in which a large carnivore is being kept. +Judging by the state the walls are in, this could very well be a large +AGGRESSIVE animal. This makes you pretty insecure, this stating your +feeling about the place quite mildly. +~ +79 dj 0 +D3 +This looks like the only exit from here. +~ +door cage metal pen~ +1 -1 7904 +S +#7914 +On The Huge Chain~ + This place has quite a good view over Midgaard. Your possibilities of +movement seem to extend only to the up and down directions. Unless you +want to let go of the secure and seemingly unmovable chain, then those are +the directions you should take from here. +~ +79 c 5 +D4 +Upwards, you see the chain disappearing into the clouds above. +~ +~ +0 -1 7915 +D5 +Down below, you see the huge chain anchored to the ground at the Road +Crossing of southern Midgaard. +~ +~ +0 -1 3120 +S +#7915 +The Chain Where It Is Too Windy~ + Hanging on to the chain you figure out that there is no way of leaving +down from here. The wind pulls you from left to right and back. This +seems like a totally impossible task. The ascend is the only way ahead +for you. Otherwise you would risk death by falling to the hard ground +below. DO NOT DESCEND NOW OR YOU WILL SURELY DIE!!!! +~ +79 c 5 +D4 +That way seems to be the only way away from here. +~ +~ +0 -1 7916 +D5 +THAT WAY IS CERTAIN DEATH!!!! You can see the wind tearing at the chain +down below you. It swings like a furious serpent from side to side! The +descent is ABSOLUTELY out of the QUESTION. +~ +~ +0 -1 7920 +S +#7916 +On The Great Chain Of Naris~ + You are approximately on the middle of the treacherous Chain. One false +step and death will come and collect you quickly. The chain leads upwards +and down. No way are you going to descend now... You've only just begun +your climb. Besides it could cost you your life. Look down and you'll +see why. +~ +79 c 5 +D4 +There seems to be only one way from here and that's up. +~ +~ +0 -1 7918 +D5 +The chain down there is swinging wildly back and forth. Going down there +will be pretty risky! +~ +~ +0 -1 7915 +S +#7917 +The Chain~ + As you descend, the chain seems to absorb all weather around it, making +it swing less and less in the very powerful wind tearing at it. The Chain +seems to chuckle quietly, and as you descend further you hear a soft whisper +originating from within the Chain *ITSELF*. It says 'Welcome back some +other time, stranger. Your company is always... hmmm... interesting. God +Speed.' The chain extends further down through the now spreading clouds. +~ +79 c 5 +D4 +It seems to you that the Chain is dissolving again. Maybe it is just an +illusion, but still... +~ +~ +0 -1 -1 +D5 +That way seems safe enough... now. +~ +~ +0 -1 7914 +S +#7918 +The Mighty Chain Of Naris~ + This place truly a splendid view of the WHOLE COUNTRY SIDE! A magnificent +light shines upon you and the way up through the clouds is opened. Up there +you can now see the Mansion of Naris, Residence of the Greater God Redferne. +The chain beneath you seems to evaporate in the mustering clouds that +surround you by now. +~ +79 c 5 +D4 +You see the sunny top of the clouds. Beyond these, the Mansion towers before +your eyes. Beautiful!! +~ +~ +0 -1 7900 +D5 +You see nothing but the thick clouds. They've closed completely around the +Chain. +~ +~ +0 -1 7917 +S +#7920 +The Free Fall From The Chain~ + This is probably the third worst place to be in this entire MUD right +now. You fall +. +. +. +and fall +. +. +. +and fall +. +. +. +and HIT THE GROUND WITH SUCH A *SPLUTCH* that you die horribly, but instantly. +Good-bye cruel world. +~ +79 bd 0 +D0 +~ +~ +0 -1 7914 +D1 +~ +~ +0 -1 7915 +D2 +~ +~ +0 -1 7916 +D3 +~ +~ +0 -1 7917 +D4 +~ +~ +0 -1 7918 +D5 +~ +~ +0 -1 3120 +S +$ diff --git a/lib/world/wld/9.wld b/lib/world/wld/9.wld new file mode 100644 index 0000000..8c492a4 --- /dev/null +++ b/lib/world/wld/9.wld @@ -0,0 +1,398 @@ +#900 +On The Swift Flowing River~ + As the river exits the city of Midgaard it picks up speed and whisks +you along high banks flanked by the trees of Haon-Dor. As the city +fades in the east, you approach a gloomy forest to the west. +~ +9 0 7 +D1 +~ +~ +0 -1 3200 +D3 +~ +~ +0 -1 901 +S +#901 +The Riverbank~ + The river is deep, and runs swiftly in an east-west direction. To the +north the river eddies and enters a backwash where a small bank extends +down from a dark, thick stand of trees. It doesn't look particulary +inviting however. +~ +9 0 7 +D0 +~ +~ +0 -1 6120 +D1 +~ +~ +0 -1 900 +D3 +~ +~ +0 -1 902 +S +#902 +The Twisty Part Of The River~ + The river twists and turns and nearly tosses you out of your boat. +The water is dark, cold, almost reptilian in sheen. It seems almost +alive. The river runs east and south. +~ +9 0 7 +D1 +~ +~ +0 -1 901 +D2 +~ +~ +0 -1 903 +S +#903 +The Scenic Route~ + The dark forest of Haon-Dor recedes behind you to the northeast. +The river continues in a westerly direction toward the river delta, +where you can just make out a large island. +~ +9 0 7 +D1 +~ +~ +0 -1 902 +D3 +~ +~ +0 -1 904 +S +#904 +The Swift River Delta~ + You are at the edge of the river delta, where the river empties +out on its way to the sea. The water here is Black. Deep. Dark. +Deadly. The tidal waves sweep you around and around up and down. +~ +9 0 7 +D0 +~ +~ +0 -1 911 +D1 +~ +~ +0 -1 903 +D2 +~ +~ +0 -1 906 +D3 +~ +~ +0 -1 905 +S +#905 +Near The Rocks~ + You bob up and down in the waves comming dangerously close to some +large, jagged rocks on the eastern shore of an unusual looking island. +There is no way you could possibly land there without getting killed. +~ +9 0 7 +D1 +~ +~ +0 -1 904 +D2 +~ +~ +0 -1 906 +S +#906 +The South River Delta~ + You are making your way along a channel in the river delta between +the island to the west and the shore to the south and east. To the +south an aging broken down looking pier juts out from land and toward +the west the channel works it way close to the island as it moves around +its southern tip. +~ +9 0 7 +D0 +~ +~ +0 -1 905 +D1 +~ +~ +0 -1 904 +D2 +~ +~ +0 -1 907 +D3 +~ +~ +0 -1 908 +S +#907 +The Pier~ + You float next to a crumbling pier long since neglected. +To the west the water gets sluggish and there are many weeds and +some seaweed floating about. +~ +9 0 7 +D0 +~ +~ +0 -1 906 +D3 +~ +~ +0 -1 908 +S +#908 +Mired In Seaweed~ + The going is rough here. The tide struggles with the normal flow +of the river and here near the edge of the sea there is a large +amount of growth. To the west the channel passes the southern tip of +the island and heads for open waters. +~ +9 0 7 +D0 +~ +~ +0 -1 906 +D1 +~ +~ +0 -1 907 +D3 +~ +~ +0 -1 909 +S +#909 +The Last Stop~ + The delta meets the sea here. To the west you see nothing but +ocean on the horizon. Sea birds squawk noisily at your approach +and take flight from a nearby beach head on the island. It looks +as though this could be the last stop for those heading out to sea. +~ +9 0 7 +D0 +~ +~ +0 -1 910 +D1 +~ +~ +0 -1 908 +S +#910 +The Beach Head~ + This is a secluded looking beach on the southern tip of the island. +There isn't much to see here and there is no way to cross the steep +rocky cliffs that wall in this place. +~ +9 0 2 +D2 +~ +~ +0 -1 909 +S +#911 +The North Channel~ + The river splits as runs up against the island and a navigatble +channel slips off to the north and west. +~ +9 c 7 +D0 +~ +~ +0 -1 912 +D2 +~ +~ +0 -1 904 +D3 +~ +~ +0 -1 912 +S +#912 +The North Channel~ + The river current carries you swiftly westward as the channel +begins to narrow as it squeezes past the north end of the island. +~ +9 0 7 +D1 +~ +~ +0 -1 911 +D2 +~ +~ +0 -1 911 +D3 +~ +~ +0 -1 913 +S +#913 +Near The Isle~ + You are sitting just off a small landing on the island that +appears to be nothing more than a short path that leads to the +side of a hill. +~ +9 c 7 +D1 +~ +~ +0 -1 912 +D2 +~ +~ +0 -1 914 +S +#914 +The Lane Of The Lying~ + Bodies lie everywhere. Commoner, peasant, duke, duchess. The Gods +will not hear you call here. Hence they will not answer you. To the +south the path ends at a dark cave entrance. +A sign has been posted beside the entrance. +~ +9 0 1 +D0 +~ +~ +0 -1 913 +D2 +~ +~ +0 -1 915 +E +sign cave~ +A sign beside the dark cave opening reads: + + WARNING! Only fools and dead people pass this way. + The tests of Minos, our glorious ruler, await. + +~ +S +#915 +The First Trial Of Minos~ + Ah... you find yourself in Minos' battlefield playground. +Minos loves to torture his people through these places. He +collects the monsters of the world and puts them here. +~ +9 ad 1 +D1 +~ +~ +0 -1 916 +S +#916 +The Second Trial Of Minos~ + Minos' voice reveberates from the four walls of this room: +'Get some rest and make sure you're healed. You'll need it for +the next monster in my playground. Or are you strong enough?' + To the south is the entrance to the next challenge of Minos' +stronghold. +~ +9 ad 1 +D2 +~ +~ +0 -1 917 +S +#917 +The Third Trial Of Minos~ + You go inside a red room. Very red. As if the Minos King used +them to disembowel his guests. The path continues eastward. You +see blue lights in that direction. +~ +9 ad 0 +D1 +~ +~ +0 -1 918 +S +#918 +The Fourth Trial Of Minos~ + Minos must be a monster hacking machine. You see a blue light +flicker on and off. A voice crackles, 'WHY ARE YOU HERE!' +~ +9 ad 0 +D2 +~ +~ +0 -1 919 +S +#919 +The Fifth Trial Of Minos~ + This is General Woundwort's quarters. Hraka abound. The frayed +corpses of rabbits lie scattered about this hell-hole. The General +is not a very neat person as you can tell. +~ +9 ad 0 +D1 +~ +~ +0 -1 920 +S +#920 +The Sixth Trial Of Minos~ + Dare we surmise how many more rooms Minos has? The paths appear to be +endless. You shudder the sounds of death cries from the east. A loud +voice bellows another warning: 'Leave now or face my wrath!' +There is a crawlway leading upwards at the far end of the room and +there is a fresh breeze comming from there. +~ +9 ad 0 +D2 +~ +~ +0 -1 921 +D4 +~ +~ +0 -1 923 +S +#921 +The Final Trial Of Minos~ + This is Minos' room. What else did you expect? The room is lavishly +decorated for this bovine king. Everything is so opulent that it makes +your eyes bulge. Survive and reap his fortune! The only exit is a large +oak door in the east wall. +~ +9 ad 0 +D1 +You see a rather large oak door bound with iron and securely locked. +~ +door oak~ +2 900 922 +S +#922 +The Royal Chamber~ + The treasure room of Minos is dark save for your lantern. +Hopefully it has not been looted yet by the many legendary thieves +of Midgaard. A clever looking secret passage leads upward from here. +~ +9 adj 0 +D4 +~ +~ +0 -1 910 +S +#923 +Above, On The Beach~ + You sit amongst the rocks above a small beach at the southern +end of the island. You could clamber down easy enough, but getting +back up would be another story. +~ +9 0 4 +D5 +~ +~ +0 -1 910 +S +$ diff --git a/lib/world/wld/index b/lib/world/wld/index new file mode 100644 index 0000000..311fd86 --- /dev/null +++ b/lib/world/wld/index @@ -0,0 +1,31 @@ +0.wld +9.wld +12.wld +15.wld +25.wld +30.wld +31.wld +33.wld +35.wld +36.wld +40.wld +50.wld +51.wld +52.wld +53.wld +54.wld +60.wld +61.wld +62.wld +63.wld +64.wld +65.wld +70.wld +71.wld +72.wld +79.wld +120.wld +150.wld +186.wld +$ + diff --git a/lib/world/wld/index.mini b/lib/world/wld/index.mini new file mode 100644 index 0000000..7ccec45 --- /dev/null +++ b/lib/world/wld/index.mini @@ -0,0 +1,4 @@ +0.wld +12.wld +30.wld +$ diff --git a/lib/world/zon/0.zon b/lib/world/zon/0.zon new file mode 100644 index 0000000..518e081 --- /dev/null +++ b/lib/world/zon/0.zon @@ -0,0 +1,9 @@ +#0 +Limbo - Internal~ +0 99 10 2 +* +* Mobiles +M 0 1 1 1 Puff +* +S +$ diff --git a/lib/world/zon/12.zon b/lib/world/zon/12.zon new file mode 100644 index 0000000..cd5ad66 --- /dev/null +++ b/lib/world/zon/12.zon @@ -0,0 +1,21 @@ +#12 +God Simplex~ +1200 1299 10 2 +* +* Edited and added to by Taz of Tazmania +* +* Mobiles +M 0 1201 1 1205 Immortal Postman +M 0 1200 1 1201 Immortal Innkeeper +M 0 1202 2 1201 Wandering Spirit +M 0 1202 2 1200 Wandering Spirit +* Boards +R 0 1206 3096 +O 0 3096 5 1206 Social Bulletin Board +O 0 3097 1 1202 Frozen Bulletin Board +O 0 3098 1 1204 Immort Bulletin Board +R 0 1203 3099 +O 0 3099 2 1203 Mortal Bulletin Board +* +S +$ diff --git a/lib/world/zon/120.zon b/lib/world/zon/120.zon new file mode 100644 index 0000000..eab238d --- /dev/null +++ b/lib/world/zon/120.zon @@ -0,0 +1,279 @@ +#120 +Rome~ +12000 12099 45 2 +* +* Created by Onivel of Jedi +* +* Mobiles +M 0 12000 3 12001 Adjudicator +E 1 3022 100 16 Long Sword +E 1 3042 100 11 Shield +M 0 12000 3 12001 Adjudicator +E 1 3022 100 16 Long Sword +E 1 3042 100 11 Shield +M 0 12000 3 12001 Adjudicator +E 1 3022 100 16 Long Sword +E 1 3042 100 11 Shield +M 0 12001 1 12001 Scorekeeper +E 1 3021 100 16 Small Sword +E 1 3042 100 11 Shield +M 0 12003 10 12003 Spectator +M 0 12003 10 12004 Spectator +M 0 12003 10 12008 Spectator +M 0 12003 10 12022 Spectator +M 0 12003 10 12023 Spectator +M 0 12003 10 12003 Spectator +M 0 12003 10 12004 Spectator +M 0 12003 10 12008 Spectator +M 0 12003 10 12022 Spectator +M 0 12003 10 12023 Spectator +M 0 12004 3 12002 Nobleman +E 1 3042 100 11 Shield +E 1 3022 100 16 Long Sword +G 1 12033 1 Key To Judge's Booth +M 0 12004 3 12028 Nobleman +E 1 3022 100 16 Long Sword +E 1 12001 3 13 Bronze Belt +M 0 12004 3 12043 Nobleman +E 1 3022 100 16 Long Sword +E 1 12000 5 1 Pewter Ring +M 0 12005 5 12021 Slave +E 1 3023 100 16 Club +M 0 12005 5 12021 Slave +E 1 3023 100 16 Club +M 0 12005 5 12021 Slave +E 1 3023 100 16 Club +M 0 12005 5 12006 Slave +E 1 3023 100 16 Club +M 0 12005 5 12049 Slave +E 1 3023 100 16 Club +M 0 12006 5 12010 Gladiator +E 1 3022 100 16 Long Sword +M 0 12006 5 12010 Gladiator +E 1 3022 100 16 Long Sword +M 0 12006 5 12010 Gladiator +E 1 3022 100 16 Long Sword +M 0 12006 5 12009 Gladiator +E 1 3022 100 16 Long Sword +M 0 12006 5 12009 Gladiator +E 1 3022 100 16 Long Sword +E 1 12002 2 6 Roman Helmet +M 0 12007 4 12016 Chariot Driver +E 1 3021 100 16 Small Sword +E 1 12008 100 8 Leather Sandals +M 0 12007 4 12009 Chariot Driver +E 1 3021 100 16 Small Sword +E 1 12008 100 8 Leather Sandals +M 0 12007 4 12016 Chariot Driver +E 1 3021 100 16 Small Sword +E 1 12008 100 8 Leather Sandals +M 0 12007 4 12016 Chariot Driver +E 1 3021 100 16 Small Sword +E 1 12008 100 8 Leather Sandals +M 0 12008 1 12009 Coach +E 1 3021 100 16 Small Sword +E 1 3043 100 5 Leather Jacket +G 1 12003 100 Coach's Whistle +M 0 12009 1 12011 Roman Doctor +E 1 3022 100 16 Long Sword +E 1 3043 100 5 Leather Jacket +E 1 3042 100 11 Shield +E 1 12004 6 3 Stethoscope +G 1 12028 3 Staff Of Kodarta +M 0 12010 1 12011 Nurse +E 1 3021 100 16 Small Sword +E 1 3043 100 5 Leather Jacket +E 1 12005 3 6 Hairpin +G 1 12027 5 Staff Of Latumfus +M 0 12011 1 12006 Titus' Shopkeeper +G 1 3020 100 Dagger +G 1 3021 100 Small Sword +G 1 3022 100 Long Sword +G 1 3023 100 Wooden Club +G 1 3024 100 Warhammer +G 1 3025 100 Flail +G 1 12008 100 Leather Sandals +E 1 3022 100 16 Long Sword +E 1 12008 100 8 Leather Sandals +G 1 12034 1 Key To The Back Room +M 0 12012 1 12032 Peddler +E 1 12008 100 8 Leather Sandals +G 1 12006 100 Apple +G 1 12007 100 Orange +M 0 12013 2 12043 Page +E 1 3020 100 16 Dagger +E 1 12008 100 8 Leather Sandals +M 0 12013 2 12037 Page +E 1 3020 100 16 Dagger +E 1 12008 100 8 Leather Sandals +M 0 12014 1 12050 Plaintiff +E 1 3022 100 16 Long Sword +E 1 12011 2 15 Silver And Gold Bracelet +M 0 12015 3 12025 Ticket Master +E 1 3022 100 16 Long Sword +M 0 12015 3 12025 Ticket Master +E 1 3022 100 16 Long Sword +M 0 12015 3 12025 Ticket Master +E 1 12015 1 16 Tempered Sword +M 0 12016 3 12004 Stadium Vendor +G 1 12010 25 Hotdog +M 0 12016 3 12008 Stadium Vendor +G 1 12010 25 Hotdog +M 0 12016 3 12023 Stadium Vendor +G 1 12010 25 Hotdog +M 0 12017 15 12012 Common Citizen +M 0 12017 15 12032 Common Citizen +M 0 12017 15 12021 Common Citizen +M 0 12017 15 12031 Common Citizen +M 0 12017 15 12018 Common Citizen +M 0 12017 15 12032 Common Citizen +M 0 12017 15 12045 Common Citizen +M 0 12017 15 12034 Common Citizen +M 0 12017 15 12039 Common Citizen +M 0 12017 15 12040 Common Citizen +M 0 12017 15 12046 Common Citizen +M 0 12017 15 12033 Common Citizen +M 0 12017 15 12019 Common Citizen +M 0 12017 15 12024 Common Citizen +M 0 12017 15 12013 Common Citizen +M 0 12018 5 12051 Gate Guard +E 1 3022 100 16 Long Sword +M 0 12018 5 12029 Gate Guard +E 1 3022 100 16 Long Sword +M 0 12018 5 12035 Gate Guard +E 1 3022 100 16 Long Sword +M 0 12018 5 12051 Gate Guard +E 1 3022 100 16 Long Sword +M 0 12018 5 12005 Gate Guard +E 1 3022 100 16 Long Sword +M 0 12019 3 12006 Soldier +E 1 3021 100 16 Small Sword +E 1 12008 100 8 Leather Sandals +M 0 12019 3 12042 Soldier +E 1 3021 100 16 Small Sword +E 1 12019 2 8 Combat Boots +M 0 12019 3 12045 Soldier +E 1 3021 100 16 Small Sword +E 1 12008 100 8 Leather Sandals +E 1 12018 2 5 Combat Plate +M 0 12020 1 12036 Julius Caesar +E 1 3022 100 16 Long Sword +E 1 12017 1 10 Moorish Bracers +G 1 12024 7 Musty Scroll +M 0 12021 2 12036 Royal Bodyguard +E 1 3022 100 16 Long Sword +E 1 3042 100 11 Shield +E 1 3046 100 5 Breast Plate +M 0 12021 2 12036 Royal Bodyguard +E 1 3022 100 16 Long Sword +E 1 3042 100 11 Shield +E 1 3046 100 5 Breast Plate +M 0 12022 1 12055 Judge +E 1 3022 100 16 Long Sword +E 1 12012 1 2 Sapphire Ring +M 0 12023 1 12043 Master Scheduler +E 1 3022 100 16 Long Sword +E 1 12008 100 8 Leather Sandals +E 1 12013 1 4 Jade Necklace +G 1 12035 1 Key To Caesar's Office +G 1 12036 1 Key To The Senate Chambers +M 0 12024 6 12041 Slimeball +M 0 12024 6 12048 Slimeball +M 0 12024 6 12054 Slimeball +M 0 12024 6 12057 Slimeball +M 0 12024 6 12054 Slimeball +M 0 12024 6 12057 Slimeball +G 1 12030 500 Blaze Orange Potion +M 0 12025 1 12049 Froboz +E 1 3022 100 16 Long Sword +E 1 3042 100 11 Shield +E 1 12014 10 12 Froboz' Cloak +G 1 12025 10 Ornate Scroll +G 1 12026 10 Plain Scroll +G 1 12029 10 Prototype Wand +M 0 12026 1 12007 Titus Andronicus +E 1 12016 3 17 Quenched Sword +E 1 3022 100 16 Long Sword +E 1 3042 100 11 Shield +E 1 3046 100 5 Breast Plate +E 1 12008 100 8 Leather Sandals +M 0 12027 2 12037 Senator +E 1 3021 100 16 Small Sword +E 1 3044 100 5 Studded Leather Jacket +G 1 12037 1 Key To The Common Room +M 0 12027 2 12037 Senator +E 1 3021 100 16 Small Sword +E 1 3044 100 5 Studded Leather Jacket +G 1 3050 500 Scroll Of Identify +M 0 12028 1 12050 Bailiff +E 1 3022 100 16 Long Sword +E 1 3042 100 11 Shield +G 1 12039 1 Key To The Judge's Chambers +M 0 12029 1 12050 Defendant +E 1 3024 100 16 Warhammer +E 1 3043 100 5 Leather Jacket +* Gods +M 0 12030 1 12047 Jupiter +E 1 12020 1 16 Thunderbolt +M 0 12031 1 12052 Venus +E 1 12022 1 3 Crystal Necklace +M 0 12032 1 12056 Mars +E 1 12016 3 17 Quenched Sword +E 1 12021 1 13 Loincloth +M 0 12033 1 12059 Mercury +E 1 12023 1 8 Winged Sandals +M 0 12034 1 12042 Froboz' Shopkeeper +G 1 3050 500 Scroll Of Identify +G 1 3051 500 Yellow Potion +G 1 3052 500 Scroll Of Recall +G 1 3053 500 Grey Wand +G 1 3054 500 Gnarled Staff +G 1 12030 10 Blaze Orange Potion +E 1 3022 100 16 Long Sword +E 1 12008 100 8 Leather Sandals +G 1 12038 1 Key To Froboz' Workshop +M 0 12035 1 12061 Executioner +G 1 12031 10 Executioner's Mace +M 0 12036 1 12062 Baker +G 1 3000 100 Beer Barrel +G 1 3001 100 Beer Bottle +G 1 3009 100 Waybread +G 1 3010 100 Bread Loaf +G 1 3011 100 Danish Pastry +G 1 12006 100 Apple +G 1 12007 100 Apple +E 1 3022 100 16 Long Sword +M 0 12037 1 12063 Grocer +G 1 3030 100 Torch +G 1 3031 100 Lantern +G 1 3032 100 Bag +G 1 3033 100 Box +G 1 3036 100 Cashcard +G 1 12003 100 Coach's Whistle +E 1 3022 100 16 Long Sword +* Gates +D 0 12005 3 2 West Gate Of City +D 0 12029 0 2 North Gate Of City +D 0 12035 2 2 South Gate Of City +D 0 12051 1 1 East Gate Of City +D 0 12064 3 1 Outside Of East Gate +* Doors +D 0 12001 5 2 Caesar's Private Box +D 0 12002 4 2 +D 0 12006 2 2 Back Room Of Titus Andronicus' Store +D 0 12007 0 2 +D 0 12037 0 2 Emperor's Private Office +D 0 12036 2 2 +D 0 12037 2 2 House Of Commons +D 0 12038 0 2 +D 0 12042 1 2 Froboz' Workshop +D 0 12049 3 2 +D 0 12043 3 2 Emperor's Private Office +D 0 12036 1 2 +D 0 12044 3 2 Senate Chambers +D 0 12037 1 2 +D 0 12050 1 2 Judge's Chambers +D 0 12055 3 2 +* +S +$ diff --git a/lib/world/zon/15.zon b/lib/world/zon/15.zon new file mode 100644 index 0000000..7a44cf8 --- /dev/null +++ b/lib/world/zon/15.zon @@ -0,0 +1,54 @@ +#15 +The Straight Path~ +1500 1599 10 2 +* +* By Steppin, Originally For ChicagoMUD 4-94 +* Hopefully Final Version For JediMUD 12-95 +* Conversion to CircleMUD by Furry +* +M 0 1500 1 1540 Allah +M 0 1501 1 1533 Michael +E 1 1500 2 17 Scales Of Justice +M 0 1502 1 1531 Gabriel +E 1 1501 3 17 Scroll Of The Messenger +M 0 1503 1 1530 Raphael +E 1 1503 2 11 Protector Of The Faithful +M 0 1504 1 1528 Uriel +E 1 1502 1 16 Blazing Sword +M 0 1505 1 1501 Cherubin +E 1 1508 5 17 Key To The Gates +M 0 1506 1 1505 Jester +E 1 1509 5 17 Burnt History +M 0 1507 5 1509 Jinn +M 0 1507 5 1516 Jinn +M 0 1507 5 1521 Jinn +M 0 1507 5 1524 Jinn +M 0 1507 5 1539 Jinn +M 0 1508 1 1512 Old Man +E 1 1504 1 10 Faded Armband +M 0 1509 1 1511 Al-Hakim +M 0 1510 1 1510 Judas +M 0 1511 1 1509 Pharoah +E 1 1512 3 3 Ankh +M 0 1512 1 1519 Abu Bakr +E 1 1505 4 16 Jeweled Scimiatr +M 0 1513 1 1520 Umar +M 0 1514 1 1521 Uthman +E 1 1510 3 0 A Surah Of The book +M 0 1515 1 1522 Ali +E 1 1511 1 9 Forge Of Unity +M 0 1516 1 1514 Angel +M 0 1517 1 1515 The Voice +E 1 1514 1 0 Graven Image +M 0 1518 1 1516 Dragon +E 1 1513 1 3 Amulet Of Ra +M 0 1519 1 1517 Demon +G 1 1506 1 Charred Ember +M 0 1520 1 1524 Baby +M 0 1521 1 1525 Teenager +M 0 1522 1 1526 Man +M 0 1523 1 1527 Soul +G 1 1507 1 Ethereal Flame +* +S +$ diff --git a/lib/world/zon/150.zon b/lib/world/zon/150.zon new file mode 100644 index 0000000..71d4a47 --- /dev/null +++ b/lib/world/zon/150.zon @@ -0,0 +1,154 @@ +#150 +King Welmar's Castle~ +15000 15099 120 2 +* +* Created by Pjotr and Sapowox of CircleMUD +* +* Heavily modifed, edited, and added to for CircleMUD by Furry +* +* Mobiles +M 0 15001 1 15017 King Welmar +E 1 15002 1 17 Golden Sceptre +E 1 15003 1 6 Golden Crown +E 1 15004 1 0 Golden Apple +G 1 15014 1 Key To King's Quarters +M 0 15003 1 15042 Jim The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15004 1 15023 Brian The Royal Guard +E 1 15006 100 16 Training Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15005 1 15023 Mick The Royal Guard +E 1 15006 100 16 Training Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15006 1 15035 Matt The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15007 1 15028 Jochem The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15008 1 15023 Anne The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15009 1 15008 Andrew The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15010 1 15032 Bertram The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15011 1 15019 Jeanette The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15012 1 15023 Peter +E 1 15015 50 5 Chain Mail Hauberk +E 1 15016 10 16 Broadsword +M 0 15013 1 15023 Training Master +E 1 3022 100 16 Long Sword +M 0 15014 1 15017 Herald +M 0 15016 1 15027 Butler +G 1 15009 1 Key To The Butler's Quarters +M 0 15017 5 15010 Cleaning Woman +M 0 15017 5 15010 Cleaning Woman +M 0 15017 5 15041 Cleaning Woman +M 0 15017 5 15041 Cleaning Woman +M 0 15017 5 15038 Cleaning Woman +M 0 15019 1 15052 Astrologer +G 1 3052 100 Scroll Of Recall +G 1 3050 100 Scroll Of Identify +G 1 15012 10 Brown Potion +M 0 15020 1 15017 Tim The King's Lifeguard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15021 1 15017 Tom The King's Lifeguard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15022 1 15005 Chef +G 1 15019 50 Lobster +G 1 15020 50 Some Russian Caviar +M 0 15023 2 15005 Cook +G 1 15010 1 Key To The Chest +M 0 15023 2 15005 Cook +M 0 15024 1 15036 David The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +G 1 15007 1 Key To The Treasury +M 1 15025 1 15036 Dick The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15026 1 15008 Jerry The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15027 1 15008 Michael The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15028 1 15047 Hans The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +M 0 15029 1 15009 Boris The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +* Objects +R 0 15023 3020 +O 0 3020 100 15023 Dagger +R 0 15023 3021 +O 0 3021 100 15023 Small Sword +R 0 15023 3022 +O 0 3022 100 15023 Long Sword +O 1 15001 1 15037 Treasure +O 0 15005 1 15052 Telescope +O 0 15011 1 15026 Chest +* Doors +D 0 15004 0 1 Front Gate +D 0 15007 2 1 +D 0 15007 3 1 Small Passage +D 0 15006 1 1 +D 0 15020 1 1 Servants' Corridor +D 0 15021 3 1 +D 0 15021 0 1 Servants' Quarters +D 0 15026 2 1 +D 0 15022 0 2 Butler's Quarters +D 0 15027 2 2 +D 0 15023 0 1 Guard Barracks +D 0 15028 2 1 +D 0 15036 1 2 Treasure Room +D 0 15037 3 2 +D 0 15038 0 1 Guest Room +D 0 15043 2 1 +D 0 15038 1 1 Guest Suite +D 0 15039 3 1 +D 0 15049 1 2 King Welmar's Quarters +D 0 15050 3 2 +* +* Additions to King Welmar's Castle by Furry +* Mobiles +M 0 15000 1 15056 Gwydion The Royal Guard +E 1 3022 100 16 Long Sword +E 1 15015 50 5 Chain Mail Hauberk +G 1 15017 1 Cell Key +M 0 15002 1 15069 Horrible Ghost +M 0 15015 1 15059 Ergan The Murderer +M 0 15018 2 15058 Cockroach +M 0 15018 2 15058 Cockroach +M 0 15030 2 15067 Villager Zombie +M 0 15030 2 15067 Villager Zombie +M 0 15031 2 15067 Villager Skeleton +M 0 15031 2 15067 Villager Skeleton +M 0 15032 1 15074 Pit Fiend +E 1 15008 3 16 Verminator +* Objects +O 0 15013 1 15054 Royal Banner +O 0 15018 1 15070 Corpse +O 0 15021 1 15073 Glow +O 0 15022 1 15065 Sound +* Doors +D 0 15056 2 2 Prison Entrance +D 0 15057 0 2 +D 0 15057 1 2 Cell Door +D 0 15060 3 2 +D 0 15057 2 2 Ergan's Cell +D 0 15059 0 2 +D 0 15057 3 2 Cell Door +D 0 15058 1 2 +* +S +$ diff --git a/lib/world/zon/186.zon b/lib/world/zon/186.zon new file mode 100644 index 0000000..0beb75d --- /dev/null +++ b/lib/world/zon/186.zon @@ -0,0 +1,65 @@ +#186 +Newbie Zone~ +18600 18699 10 2 +* +* Created by Maynard of StrangeMUD +* +* Mobiles +M 0 18601 1 18605 Pit Beast +E 1 18604 50 12 Cloak +M 0 18602 3 18600 Newbie Monster +E 1 18602 99 5 Vest +M 0 18602 3 18607 Newbie Monster +E 1 18606 99 16 Dagger +M 0 18611 1 18646 Annoying Newbie +E 1 18606 99 16 Dagger +M 0 18612 1 18642 Clueless Newbie +M 0 18613 1 18640 Friendly Newbie +E 1 18602 99 5 Vest +M 0 18614 1 18604 Lost Newbie +M 0 18615 1 18645 Smart Newbie +E 1 18613 99 10 Sleeves +E 1 18612 99 7 Leggings +E 1 18602 99 5 Vest +E 1 18614 30 16 Mace +M 0 18603 1 18602 Dragon +E 1 18607 99 3 Collar +M 0 18604 1 18606 Newbie Guard +E 1 18605 60 1 Ring +G 1 18608 5 Key +E 1 18603 30 6 Helm +M 0 18605 1 18612 Alchemist +G 1 18609 50 Light +M 0 18606 4 18602 Crawler +M 0 18606 4 18606 Crawler +M 0 18606 4 18609 Crawler +M 0 18607 5 18620 Zombie +M 0 18607 5 18624 Zombie +M 0 18607 5 18637 Zombie +M 0 18607 5 18633 Zombie +M 0 18608 5 18627 Quasit +M 0 18608 5 18636 Quasit +M 0 18608 5 18638 Quasit +M 0 18608 5 18621 Quasit +M 0 18609 1 18629 Minotaur +E 1 18610 50 6 Horns +E 1 18611 50 5 Hide +M 0 18610 1 18639 Spectre +* Doors +D 0 18602 2 1 A Small Room +D 0 18606 0 1 +D 0 18603 0 1 Bright Hallway +D 0 18644 2 1 +D 0 18603 1 1 Bright Hallway +D 0 18646 3 1 +D 0 18604 2 1 Alchemist's Chamber +D 0 18612 0 1 +D 0 18606 5 2 Dark Pit +D 0 18605 4 2 +D 0 18607 3 1 A Small Room +D 0 18606 1 1 +D 0 18611 1 1 Alchemist's Chamber +D 0 18612 3 1 +* +S +$ diff --git a/lib/world/zon/25.zon b/lib/world/zon/25.zon new file mode 100644 index 0000000..566eb97 --- /dev/null +++ b/lib/world/zon/25.zon @@ -0,0 +1,345 @@ +#25 +The High Tower Of Magic~ +2500 2699 20 2 +* +* Created for SillyMUD by Skylar +* +* Edited and modified for CircleMUD by Furry +* +* Mobiles +M 0 2500 6 2502 Shadow Guardian +M 0 2500 6 2504 Shadow Guardian +M 0 2500 6 2506 Shadow Guardian +M 0 2500 6 2508 Shadow Guardian +M 0 2500 6 2511 Shadow Guardian +M 0 2501 1 2511 Adventurer +M 0 2502 1 2507 Edgar +M 0 2503 1 2512 Diamond Golem +E 1 2500 1 17 Diamond Key +M 0 2504 7 2513 Wandering Mage +M 0 2504 7 2514 Wandering Mage +M 0 2504 7 2514 Wandering Mage +M 0 2504 7 2515 Wandering Mage +M 0 2504 7 2516 Wandering Mage +M 0 2504 7 2518 Wandering Mage +M 0 2504 7 2519 Wandering Mage +M 0 2505 1 2518 Strick The Bartender +G 1 2504 100 Silce Of Traveller's Bread +G 1 2545 100 Herbal Brew +G 1 2546 100 Waybread +G 1 3010 100 Loaf Of Bread +G 1 3100 100 Tea Cup +G 1 3101 100 Coffee Cup +M 0 2506 1 2519 Tatorious The Wizard +G 1 3050 100 Scroll Of Identify +G 1 3051 100 Yellow Potion +G 1 3053 100 Grey Wand Of Invisibility +M 0 2507 1 2520 The Cook +E 1 2547 2 16 Meat Cleaver +M 0 2508 1 2520 Assistant Cook +M 0 2509 1 2527 Prisoner +E 1 2548 1 13 Chain Shackles +M 0 2510 1 2528 Jailor +E 1 2522 1 17 Old Key +M 0 2511 2 2533 Broom +M 0 2511 2 2533 Broom +M 0 2512 10 2535 Lesser Guardian +M 0 2512 10 2540 Lesser Guardian +M 0 2512 10 2630 Lesser Guardian +M 0 2512 10 2535 Lesser Guardian +M 0 2512 10 2535 Lesser Guardian +M 0 2512 10 2535 Lesser Guardian +M 0 2513 5 2535 Greater Guardian +M 0 2513 5 2575 Greater Guardian +M 0 2513 5 2600 Greater Guardian +M 0 2513 5 2633 Greater Guardian +M 0 2513 5 2649 Greater Guardian +M 0 2514 1 2537 Visiting Mage +M 0 2515 3 2542 Apprentice +M 0 2515 3 2544 Apprentice +M 0 2516 3 2544 Apprentice +M 0 2516 3 2542 Apprentice +M 0 2517 3 2542 Apprentice +M 0 2517 3 2544 Apprentice +M 0 2518 3 2545 Apprentice +M 0 2518 3 2545 Apprentice +M 0 2518 3 2545 Apprentice +M 0 2519 1 2545 Kitten +M 0 2520 4 2549 Student +M 0 2520 4 2549 Student +M 0 2520 4 2549 Student +M 0 2520 4 2549 Student +M 0 2521 1 2549 Teacher +M 0 2522 4 2554 Student +M 0 2522 4 2554 Student +M 0 2522 4 2554 Student +M 0 2522 4 2554 Student +M 0 2523 1 2554 Teacher +M 0 2524 3 2557 Listener +M 0 2524 3 2557 Listener +M 0 2524 3 2557 Listener +M 0 2525 1 2557 Speaker +M 0 2526 3 2559 Student +E 1 2549 6 16 Silvery Dagger +M 0 2526 3 2559 Student +E 1 2549 6 16 Silvery Dagger +M 0 2526 3 2559 Student +E 1 2549 6 16 Silvery Dagger +M 0 2527 1 2559 Battle Master +E 1 2549 6 17 Silvery Dagger +M 0 2528 2 2564 Teacher +M 0 2529 1 2565 Sleeping Mage +M 0 2530 1 2567 Scribe +M 0 2512 10 2568 Lesser Guardian +M 0 2531 2 2571 Scribe +M 0 2531 2 2571 Scribe +M 0 2532 1 2573 Master Scribe +G 1 2552 1 Cylindrical Tube +P 1 2550 2 2552 Scroll +P 1 2551 2 2552 Bound Scroll +M 0 2533 1 2573 Assistant Scribe +G 1 2553 3 Old Scroll +M 0 2534 1 2582 Enchanter +E 1 2515 1 17 Small Key +G 1 2554 1 Scroll Of Enchantment +M 0 2535 1 2582 Dancing Sword +M 0 2536 1 2588 The Mad Alchemist +E 1 2555 5 17 Leather Pouch +P 1 2556 2 2555 Silver Spoon +P 1 2558 2 2555 Red Potion +P 1 2559 2 2555 Green Potion +P 1 2560 2 2555 Effervescent Potion +P 1 2561 2 2555 Milky White Potion +M 0 2537 1 2590 The Summoner +E 1 2562 2 17 Teleport Staff +M 0 2538 1 2595 Master Of Charm +E 1 2563 1 17 Golden Flute +G 1 2564 1 Figurine +M 0 2539 5 2568 Golem Sentry +M 0 2539 5 2598 Golem Sentry +M 0 2539 5 2598 Golem Sentry +M 0 2539 5 2628 Golem Sentry +M 0 2539 5 2628 Golem Sentry +M 0 2540 1 2602 SpellBinder +E 1 2524 1 17 Silvery Key +G 1 2523 1 Silvery Key +E 1 2565 2 13 Holstered Belt +P 1 2566 2 2565 Blackened Wand +M 0 2541 1 2609 Golem Maker +E 1 2567 2 17 Runed Chisel +M 0 2542 1 2609 Granite Golem +M 0 2543 1 2611 Bronze Golem +M 0 2544 1 2611 Flesh Golem +M 0 2545 1 2609 Cloth Golem +M 0 2546 1 2611 Adamantite Golem +M 0 2547 1 2611 Clay Golem +M 0 2548 1 2617 Master Of Illusion +E 1 2568 3 13 Beltpouch +P 1 2569 3 2568 Sparkling Dust +M 0 2549 1 2625 The Necromancer +E 1 2570 2 3 Dark Cowl +E 1 2571 2 17 Ashen Wand +M 0 2550 4 2625 Skeleton +M 0 2550 4 2625 Skeleton +M 0 2551 1 2625 Undead Giant +E 1 2572 1 16 Spiked Club +M 0 2552 3 2635 Witch +M 0 2552 3 2635 Witch +M 0 2552 3 2635 Witch +M 0 2553 1 2637 Librarian +M 0 2554 1 2653 Neutral Apprentice +E 1 2573 1 12 Grey Robe +E 1 2574 1 14 Silver Bracelet +M 0 2555 1 2654 Grey Familiar +M 0 2556 1 2654 Neutral Guildmaster +G 1 2593 1 Grey Key +E 1 2575 1 3 Grey Cloak +E 1 2576 1 16 Iron Shod Staff +E 1 2577 3 17 Ward Minor +M 0 2557 1 2661 Evil Apprentice +E 1 2578 1 12 Black Robe +E 1 2579 1 14 Onyx Bracelet +M 0 2558 1 2664 Black Familiar +M 0 2559 1 2664 Evil Guildmaster +G 1 2594 1 Black Key +E 1 2580 1 3 Dark Black Cloak +E 1 2581 1 16 Shard Of Obsidian +E 1 2577 3 17 Ward Minor +M 0 2560 1 2667 Good Apprentice +E 1 2582 1 12 White Robe +E 1 2583 1 14 White Gold Bracelet +M 0 2561 1 2669 White Familiar +M 0 2562 1 2669 Good Guildmaster +G 1 2595 1 White Key +E 1 2584 1 3 White Cloak +E 1 2585 1 16 Ivory Hilted Dagger +E 1 2577 3 17 Ward Minor +M 0 2563 1 2677 Calico Cat +E 1 2586 1 3 Spiked Collar +M 0 2564 1 2677 Grand Master Of Magic +G 1 2538 1 Intricate Key +E 1 2587 1 3 Shimmering Cloak +E 1 2592 2 5 Green Dragon Scale Shirt +E 1 2588 1 1 Emerald Ring +E 1 2589 1 14 Emerald Bracelet +E 1 2590 1 17 Ward Major +E 1 2591 1 16 Ebony Kris +* Objects +O 0 2501 1 2520 Oven +P 1 2504 200 2501 Traveller's Bread +O 0 2502 1 2520 Meat Locker +P 1 2505 1 2502 Chunk Of Meat +P 1 2506 1 2502 Finger Sandwich +R 0 2520 2503 +O 0 2503 3 2520 Spice Rack +O 0 2507 2 2533 Broom +O 0 2507 2 2533 Broom +O 0 2508 1 2579 Cabinet +P 1 3020 100 2508 Dagger +P 1 3021 100 2508 Small Sword +P 1 3022 100 2508 Long Sword +O 0 2509 1 2579 Bar Of Silver +O 0 2510 1 2579 Bar Of Gold +O 0 2511 1 2579 Bar Of Mithral +O 0 2512 1 2579 Bar Of Adamantite +O 0 2513 1 2581 Mithral Hammer +O 0 2514 1 2582 Chest +P 1 2516 1 2514 Long Sword +P 1 2517 1 2514 Silver Dagger +P 1 2518 1 2514 Scimitar +O 0 2519 1 2601 Staff +O 0 2520 1 2603 Cabinet +P 1 2525 1 2520 Red And White Staff +P 1 2526 1 2520 Burnt Staff +O 0 2521 1 2603 Cabinet +P 1 2527 1 2521 Black Rod +P 1 2528 1 2521 Wooden Stick +P 1 2529 1 2521 Metal Wand +O 0 2530 1 2635 Cauldron +P 1 2531 1 2530 Bat Wings +P 1 2532 1 2530 Eyeball +O 0 2533 1 2645 The Book Of Magic +P 1 2534 1 2533 Spectacles Of True Seeing +O 0 2535 1 2680 Golden Altar +P 1 2536 1 2535 Heart Shaped Medallion +O 0 2537 1 2681 Chest +P 1 2539 1 2537 Coins +O 0 2540 1 2682 Brown Cloak +O 0 2541 1 2682 Chameleon Poncho +O 0 2542 1 2682 Old Boots +O 0 2544 1 2682 Leather Backpack +P 1 2543 1 2544 Seashell Ring +* Doors +D 0 2512 0 2 Tower Entrance +D 0 2513 2 2 +D 0 2516 3 1 Kitchen +D 0 2520 1 1 +D 0 2517 5 1 Trapdoor +D 0 2521 4 1 +D 0 2523 0 2 Dark Cell +D 0 2527 2 2 +D 0 2524 1 1 Jailor's Office +D 0 2528 3 1 +D 0 2530 0 1 Store Room +D 0 2532 2 1 +D 0 2530 2 1 Broom Closet +D 0 2533 0 1 +D 0 2531 0 1 A Hallway +D 0 2534 2 1 +D 0 2531 1 1 Guest Bedroom +D 0 2536 3 1 +D 0 2531 2 1 Guardian's Chamber +D 0 2535 0 1 +D 0 2534 1 1 Guest Bedroom +D 0 2537 3 1 +D 0 2538 1 1 Burnt Room +D 0 2539 3 1 +D 0 2540 0 1 Apprentices' Barracks +D 0 2542 2 1 +D 0 2543 0 1 Apprentices' Barracks +D 0 2544 2 1 +D 0 2545 0 1 Apprentices' Workshop +D 0 2546 2 1 +D 0 2548 3 1 Classroom +D 0 2549 1 1 +D 0 2550 3 1 Empty Classroom +D 0 2552 1 1 +D 0 2551 3 1 Empty Classroom +D 0 2554 1 1 +D 0 2555 2 1 Amphitheater +D 0 2557 0 1 +D 0 2556 2 1 Training Room +D 0 2559 0 1 +D 0 2558 2 1 Dueling Room +D 0 2561 0 1 +D 0 2562 1 1 Spellmasters' Lounge +D 0 2564 3 1 +D 0 2563 1 1 Bedroom +D 0 2565 3 1 +D 0 2566 1 1 Study +D 0 2567 3 1 +D 0 2570 0 1 Small Office +D 0 2571 2 1 +D 0 2571 3 1 Master Scribe's Workshop +D 0 2573 1 1 +D 0 2574 0 1 Store Room +D 0 2575 2 1 +D 0 2577 3 1 Store Room +D 0 2579 1 1 +D 0 2578 3 1 Very Hot Room +D 0 2581 1 1 +D 0 2581 2 1 Master Enchanter's Chamber +D 0 2582 0 1 +D 0 2581 4 1 Dark Room +D 0 2612 5 1 +D 0 2584 2 1 Laboratory +D 0 2586 0 1 +D 0 2587 2 1 Pentagram Chamber +D 0 2590 0 1 +D 0 2591 1 1 Empty Room +D 0 2594 3 1 +D 0 2593 1 1 Charm Master's Chamber +D 0 2595 3 1 +D 0 2595 0 1 Animal Pens +D 0 2597 2 1 +D 0 2600 0 1 Store Room +D 0 2601 2 1 +D 0 2601 3 1 Master Spellbinder's Chamber +D 0 2602 1 1 +D 0 2602 3 1 Master Spellbinder's Cache +D 0 2603 1 1 +D 0 2605 0 1 Master Spellbinder's Cache +D 0 2603 2 1 +D 0 2608 3 1 Golem Master's Workshop +D 0 2609 1 1 +D 0 2609 5 1 Dark Room +D 0 2612 4 1 +D 0 2616 2 1 Illusion Master's Chamber +D 0 2617 0 1 +D 0 2619 2 1 Meditation Chamber +D 0 2620 0 1 +D 0 2622 1 1 Necromancer's Room +D 0 2623 3 1 +D 0 2634 1 1 Scrying Chamber +D 0 2635 3 1 +D 0 2536 3 1 Library +D 0 2637 1 1 +D 0 2652 2 1 Grey Antechamber +D 0 2653 0 1 +D 0 2660 1 1 Black Antechamber +D 0 2661 3 1 +D 0 2666 3 1 White Antechamber +D 0 2667 1 1 +D 0 2673 0 2 Grey Door +D 0 2674 2 2 +D 0 2674 0 2 Black Door +D 0 2675 2 2 +D 0 2675 0 2 White Door +D 0 2676 2 2 +D 0 2680 1 1 Treasury +D 0 2681 3 1 +D 0 2680 3 1 Secret Excape Passage +D 0 2682 1 1 +* +S +$ diff --git a/lib/world/zon/30.zon b/lib/world/zon/30.zon new file mode 100644 index 0000000..d51a4e4 --- /dev/null +++ b/lib/world/zon/30.zon @@ -0,0 +1,175 @@ +#30 +Northern Midgaard Main City~ +3000 3099 15 2 +* +* Mobiles +M 0 3000 1 3033 Wizard Shop Keeper +G 1 3050 500 Scroll Of Identify +G 1 3051 500 Yellow Potion +G 1 3052 500 Scroll Of Recall +G 1 3053 500 Grey Wand +G 1 3054 500 Gnarled Staff +M 0 3001 1 3009 Baker +G 1 3009 100 Waybread +G 1 3010 100 Loaf Of Bread +G 1 3011 100 Danish Pastry +E 1 3022 100 16 Long Sword +M 0 3002 1 3010 Grocer +G 1 3030 100 Torch +G 1 3031 100 Lantern +G 1 3032 100 Bag +G 1 3033 100 Box +G 1 3036 100 Cashcard +E 1 3022 100 16 Long Sword +M 0 3003 1 3011 Weaponsmith +G 1 3020 100 Dagger +G 1 3021 100 Small Sword +G 1 3022 100 Long Sword +G 1 3023 100 Wooden Club +G 1 3024 100 Warhammer +G 1 3025 100 Flail +E 1 3022 100 16 Long Sword +M 0 3004 1 3020 Armourer +G 1 3040 100 Breast Plate +G 1 3041 100 Chain Mail Shirt +G 1 3042 100 Wooden Shield +G 1 3043 100 Leather Jacket +G 1 3044 100 Studded Leather Jacket +G 1 3045 100 Scale Mail Jacket +G 1 3046 100 Bronze Breast Plate +G 1 3070 100 Bronze Gauntlets +G 1 3071 100 Leather Gloves +G 1 3075 100 Bronze Helmet +G 1 3076 100 Leather Cap +G 1 3080 100 Bronze Leggings +G 1 3081 100 Leather Pants +G 1 3085 100 Bronze Sleeves +G 1 3086 100 Leather Sleeves +E 1 3022 100 16 Long Sword +M 0 3005 1 3008 Receptionist +E 1 3022 100 16 Long Sword +M 0 3006 1 3049 Captain +G 1 3060 20 Raft +G 1 3061 10 Canoe +M 0 3007 1 3050 Sailor +M 0 3009 1 3058 Wally The Watermaster +G 1 3102 100 Water Cup +G 1 3103 100 Water Bottle +G 1 3104 100 Water Canteen +G 1 6013 100 Water Barrel +M 0 3010 1 3062 Postmaster +M 0 3020 1 3019 Magic Users' Guildmaster +M 0 3021 1 3002 Clerics' Guildmaster +M 0 3022 1 3029 Thieves' Guildmaster +M 0 3023 1 3023 Warriors' Guildmaster +M 0 3024 1 3017 Mage Guard +E 1 3022 100 16 Long Sword +M 0 3025 1 3004 Priest Templar Guard +E 1 3022 100 16 Long Sword +M 0 3026 1 3027 Thief Guard +E 1 3022 100 16 Long Sword +M 0 3027 1 3021 Warrior Guard +E 1 3022 100 16 Long Sword +M 0 3040 1 3007 Bartender +G 1 3000 100 Beer Barrel +G 1 3001 100 Beer Bottle +G 1 3002 100 Dark Ale Bottle +G 1 3003 100 Firebreather +G 1 3004 100 Local Bottle +E 1 3022 100 16 Long Sword +M 0 3042 1 3018 Magic Users' Waiter +G 1 3002 100 Dark Ale Bottle +G 1 3003 100 Firebreather +E 1 3020 100 16 Dagger +M 0 3043 1 3003 Clerics' Waiter +G 1 3002 100 Dark Ale Bottle +G 1 3004 100 Local Bottle +E 1 3024 100 16 Warhammer +M 0 3044 1 3028 Thieves' Waiter +G 1 3003 100 Firebreather +G 1 3004 100 Local Bottle +E 1 3021 100 16 Small Sword +M 0 3045 1 3022 Fighters' Waiter +G 1 3002 100 Dark Ale Bottle +G 1 3003 100 Firebreather +G 1 3004 100 Local Bottle +E 1 3022 100 16 Long Sword +M 0 3046 1 3048 Filthy +G 1 3003 100 Firebreather +G 1 3004 100 Local Bottle +E 1 3022 100 16 Long Sword +M 0 3059 5 3004 Peacekeeper +M 0 3059 5 3014 Peacekeeper +M 0 3059 5 3017 Peacekeeper +M 0 3059 5 3021 Peacekeeper +M 0 3059 5 3027 Peacekeeper +M 0 3060 10 3004 Cityguard +E 1 3022 100 16 Long Sword +M 0 3060 10 3014 Cityguard +E 1 3022 100 16 Long Sword +M 0 3060 10 3017 Cityguard +E 1 3022 100 16 Long Sword +M 0 3060 10 3021 Cityguard +E 1 3022 100 16 Long Sword +M 0 3060 10 3027 Cityguard +E 1 3022 100 16 Long Sword +M 0 3061 5 3006 Janitor +M 0 3062 15 3024 Fido +G 1 3015 30 Mystery Meat +M 0 3062 15 3025 Fido +G 1 3015 30 Mystery Meat +M 0 3062 15 3016 Fido +G 1 3015 30 Mystery Meat +M 0 3062 15 3012 Fido +G 1 3015 30 Mystery Meat +M 0 3063 5 3026 Mercenary +E 1 3021 100 16 Small Sword +M 0 3064 3 3007 Happy Drunk +M 0 3065 2 3044 Beggar +G 1 3005 1 Sewer Key +M 0 3065 2 3048 Beggar +M 0 3066 1 3026 Odif +G 1 3015 30 Mystery Meat +M 0 3067 10 3041 Cityguard +E 1 3022 100 16 Long Sword +M 0 3067 10 3040 Cityguard +E 1 3022 100 16 Long Sword +M 0 3068 4 3008 Green Blob +M 0 3068 4 3014 Green Blob +M 0 3089 1 3031 Pet Shop Boy +M 0 3090 1 3032 Kitten +M 0 3091 1 3032 Puppy +M 0 3092 1 3032 Beagle +M 0 3093 1 3032 Rottweiler +M 0 3094 1 3032 Wolf +M 0 3095 1 3064 Cryogenicist +E 1 3022 100 16 Long Sword +* Important Objects +R 0 3005 3035 +O 0 3035 1 3005 Fountain +R 0 3001 3034 +O 0 3034 10 3001 ATM +R 0 3008 3034 +O 1 3034 10 3008 ATM +R 0 3004 3034 +O 1 3034 10 3004 ATM +R 0 3017 3034 +O 1 3034 10 3017 ATM +R 0 3021 3034 +O 1 3034 10 3021 ATM +R 0 3027 3034 +O 1 3034 10 3027 ATM +* Boards +R 0 3000 3099 +O 0 3099 2 3000 Mortal Bulletin Board +R 0 3003 3096 +O 1 3096 5 3003 Social Bulletin Board +R 0 3018 3096 +O 1 3096 5 3018 Social Bulletin Board +R 0 3022 3096 +O 1 3096 5 3022 Social Bulletin Board +R 0 3028 3096 +O 1 3096 5 3028 Social Bulletin Board +* +S +$ diff --git a/lib/world/zon/31.zon b/lib/world/zon/31.zon new file mode 100644 index 0000000..0605e47 --- /dev/null +++ b/lib/world/zon/31.zon @@ -0,0 +1,63 @@ +#31 +Southern part of Midgaard~ +3100 3299 40 2 +* +* Cityguards from zone 30 +M 0 3060 20 3111 Cityguard +E 1 3022 100 16 Long Sword +G 1 3105 2 Key To HQ +M 0 3060 20 3111 Cityguard +E 1 3022 100 16 Long Sword +M 0 3060 20 3111 Cityguard +E 1 3022 100 16 Long Sword +M 0 3060 20 3111 Cityguard +E 1 3022 100 16 Long Sword +M 0 3068 4 3106 Green Blob +* Mobiles +M 0 3100 1 3106 Maid +G 1 3100 500 Cup Of Tea +G 1 3101 500 Cup Of Coffee +G 1 3102 500 Cup Of Water +M 0 3101 1 3106 Sexton +G 1 3106 2 Key To Graveyard +M 0 3102 1 3110 Chief Guard +G 1 3107 2 Key To The Desk +M 0 3103 4 3110 Mad Guard +M 1 3103 4 3110 Mad Guard +M 1 3103 4 3110 Mad Guard +M 1 3103 4 3110 Mad Guard +M 0 3104 1 3137 Secretary +M 0 3105 1 3138 Mayor +E 1 3112 1 17 City Key +M 0 3106 1 3120 Town Crier +M 0 3120 1 3114 Swan +M 0 3121 1 3114 Duckling +M 0 3122 1 3109 Sparrow +M 0 3123 2 3113 Duck +M 0 3123 2 3115 Duck +* Objects +O 0 3109 1 3110 Desk +P 1 3108 1 3109 Key To Safe +O 0 3110 1 3110 Safe +P 1 3115 1 3110 Money +R 0 3101 3111 +O 0 3111 3 3101 Bench +R 0 3102 3111 +O 0 3111 3 3102 Bench +R 0 3103 3111 +O 0 3111 3 3103 Bench +R 0 3141 3113 +O 0 3113 1 3141 Fountain +O 0 3114 1 3141 20 Coins +O 0 3116 1 3155 Candlestick +O 0 3117 1 3124 Elm Tree +* Doors +D 0 3111 3 2 Cityguard HQ +D 0 3110 1 2 +D 0 3129 2 2 Graveyard +D 0 3150 0 2 +D 0 3154 2 1 Chapel +D 0 3155 0 1 +* +S +$ diff --git a/lib/world/zon/33.zon b/lib/world/zon/33.zon new file mode 100644 index 0000000..de76f74 --- /dev/null +++ b/lib/world/zon/33.zon @@ -0,0 +1,108 @@ +#33 +The Three Of Swords~ +3300 3399 30 2 +* +* Created by Amanda Eterniale & Builder_5 of C.A.W. +* Official C.A.W. site: http://qsilver.queensu.ca/~fletchra/Caw/ +* Mail Address: fletchra@qsilver.queensu.ca +* +* Mobiles +M 0 3300 2 3346 Farmer +M 0 3300 2 3353 Farmer +M 0 3301 1 3345 Storekeeper +G 1 3032 1000 Bag +G 1 3037 1000 Candle +G 1 3038 1000 Nail +G 1 3039 1000 Pot +M 0 3302 1 3347 Cowgirl +M 0 3303 4 3347 Horse +M 0 3303 4 3347 Horse +M 0 3303 4 3347 Horse +M 0 3303 4 3347 Horse +M 0 3304 1 3350 Farmer's Wife +G 1 3300 1000 Orange +G 1 3301 1000 Bale Of Wheat +G 1 3308 1000 Apple +G 1 3309 1000 Loaf Of Bread +G 1 3310 1000 Melon +M 0 3305 1 3375 Aglandiir +G 1 3313 5 Short Sword +O 1 3302 5 3375 Zither +O 1 3303 5 3375 Barrel Of Perfume +O 1 3304 5 3375 Statue +O 1 3305 25 3375 Halberd +O 1 3306 25 3375 Potion Of Protection +O 1 3307 1 3375 Dragon's Crown +M 0 3306 3 3368 Cyclops +M 0 3306 3 3368 Cyclops +M 0 3306 3 3368 Cyclops +M 0 3307 1 3357 Salle +E 1 3318 25 5 Leather Vest +E 1 3312 20 16 Long Sword +M 0 3308 1 3330 Duwick +E 1 3311 10 16 Knife +M 0 3309 1 3358 Receptionist +M 0 3310 1 3356 Innkeeper +M 0 3311 2 3349 Hunter +E 1 3317 1000 16 Hunting Bow +M 0 3311 2 3355 Hunter +E 1 3317 1000 16 Hunting Bow +M 0 3312 1 3357 Waiter +M 0 3313 1 3357 Waitress +M 0 3314 1 3357 Bartender +G 1 3319 1000 Glass Of Beer +G 1 3320 1000 Glass Of Mead +G 1 3321 1000 Shot Of Whiskey +M 0 3315 9 3319 Bandit +E 1 3315 1000 16 Scimitar +M 0 3315 9 3323 Bandit +E 1 3315 1000 16 Scimitar +M 0 3315 9 3325 Bandit +E 1 3315 1000 16 Scimitar +M 0 3315 9 3327 Bandit +E 1 3315 1000 16 Scimitar +M 0 3315 9 3332 Bandit +E 1 3315 1000 16 Scimitar +M 0 3315 9 3336 Bandit +E 1 3315 1000 16 Scimitar +M 0 3315 9 3339 Bandit +E 1 3315 1000 16 Scimitar +M 0 3315 9 3321 Bandit +E 1 3315 1000 16 Scimitar +M 0 3315 9 3327 Bandit +E 1 3315 1000 16 Scimitar +M 0 3316 5 3329 Bandit Guard +E 1 3315 1000 16 Scimitar +M 0 3316 5 3329 Bandit Guard +E 1 3315 1000 16 Scimitar +M 0 3316 5 3340 Bandit Guard +E 1 3315 1000 16 Scimitar +M 0 3316 5 3340 Bandit Guard +E 1 3315 1000 16 Scimitar +M 0 3316 5 3317 Bandit Guard +E 1 3315 1000 16 Scimitar +M 0 3317 2 3340 Slave +M 0 3317 2 3340 Slave +M 0 3318 2 3357 Farmer +M 0 3318 2 3357 Farmer +M 0 3319 1 3357 Hunter +E 1 3317 1000 16 Hunting Bow +* Objects +O 0 3314 1 3304 Corpse +O 0 3315 2 3323 Scimitar +O 0 3315 2 3323 Scimitar +O 0 3316 3 3330 Crate +O 0 3316 3 3330 Crate +O 0 3316 3 3330 Crate +* Doors +D 0 3329 0 1 +D 0 3330 2 1 +D 0 3351 1 1 +D 0 3352 3 1 +D 0 3353 2 1 +D 0 3354 0 1 +D 0 3355 0 1 +D 0 3356 2 1 +S +$ + diff --git a/lib/world/zon/35.zon b/lib/world/zon/35.zon new file mode 100644 index 0000000..9a727cd --- /dev/null +++ b/lib/world/zon/35.zon @@ -0,0 +1,57 @@ +#35 +Miden'Nir~ +3500 3599 60 2 +* +* Created by Copper II DikuMUD +* +* Rewritten for MercMUD by VampLestat +* +* Modified and edited for CircleMUD by Furry +* +* Mobiles +M 0 3500 3 3521 Wyvern +M 0 3500 3 3521 Wyvern +M 0 3500 3 3521 Wyvern +M 0 3501 10 3508 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3509 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3509 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3512 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3512 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3512 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3514 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3516 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3518 Goblin +E 1 3502 10 16 Club +M 0 3501 10 3556 Goblin +E 1 3502 10 16 Club +M 0 3502 4 3551 Lieutenant +E 1 3500 10 16 Small Sword +M 0 3502 4 3556 Lieutenant +E 1 3500 10 16 Small Sword +M 0 3503 1 3556 Leader +E 1 3504 10 16 Small Spear +M 0 3504 1 3575 Small Boy +E 1 3508 25 17 Gyroscope +M 0 3505 1 3576 Innkeeper +M 0 3506 1 3577 Bard +E 1 3502 2 16 Fine Long Sword +M 0 3507 4 3584 Horseman +E 1 3503 8 5 Leather Jacket +M 0 3507 4 3584 Horseman +E 1 3503 8 5 Leather Jacket +* Objects +O 0 3505 2 3521 Mutilated Corpse +O 0 3506 1 3521 Mutilated Corpse +P 1 3507 1 3506 Ornate Dagger +O 0 3505 2 3521 Mutilated Corpse +* +S +$ diff --git a/lib/world/zon/36.zon b/lib/world/zon/36.zon new file mode 100644 index 0000000..ef66d85 --- /dev/null +++ b/lib/world/zon/36.zon @@ -0,0 +1,100 @@ +#36 +The Chessboard of Midgaard~ +3600 3699 10 1 +* +* Created for SillyMud by Exxon +* +* Mobiles +M 0 3600 8 3609 Black Pawn +E 1 3600 8 5 Black Pawn Armour +E 1 3602 8 16 Black Pawn Sword +M 0 3600 8 3610 Black Pawn +E 1 3600 8 5 Black Pawn Armour +E 1 3602 8 16 Black Pawn Sword +M 0 3600 8 3611 Black Pawn +E 1 3600 8 5 Black Pawn Armour +E 1 3602 8 16 Black Pawn Sword +M 0 3600 8 3612 Black Pawn +E 1 3600 8 5 Black Pawn Armour +E 1 3602 8 16 Black Pawn Sword +M 0 3600 8 3613 Black Pawn +E 1 3600 8 5 Black Pawn Armour +E 1 3602 8 16 Black Pawn Sword +M 0 3600 8 3614 Black Pawn +E 1 3600 8 5 Black Pawn Armour +E 1 3602 8 16 Black Pawn Sword +M 0 3600 8 3615 Black Pawn +E 1 3600 8 5 Black Pawn Armour +E 1 3602 8 16 Black Pawn Sword +M 0 3600 8 3616 Black Pawn +E 1 3600 8 5 Black Pawn Armour +E 1 3602 8 16 Black Pawn Sword +M 0 3601 8 3649 White Pawn +E 1 3601 8 5 White Pawn Armour +E 1 3603 8 16 White Pawn Sword +M 0 3601 8 3650 White Pawn +E 1 3601 8 5 White Pawn Armour +E 1 3603 8 16 White Pawn Sword +M 0 3601 8 3651 White Pawn +E 1 3601 8 5 White Pawn Armour +E 1 3603 8 16 White Pawn Sword +M 0 3601 8 3652 White Pawn +E 1 3601 8 5 White Pawn Armour +E 1 3603 8 16 White Pawn Sword +M 0 3601 8 3653 White Pawn +E 1 3601 8 5 White Pawn Armour +E 1 3603 8 16 White Pawn Sword +M 0 3601 8 3654 White Pawn +E 1 3601 8 5 White Pawn Armour +E 1 3603 8 16 White Pawn Sword +M 0 3601 8 3655 White Pawn +E 1 3601 8 5 White Pawn Armour +E 1 3603 8 16 White Pawn Sword +M 0 3601 8 3656 White Pawn +E 1 3601 8 5 White Pawn Armour +E 1 3603 8 16 White Pawn Sword +M 0 3602 2 3601 Black Rook +E 1 3604 2 5 Black Rook Armour +M 0 3602 2 3608 Black Rook +E 1 3604 2 5 Black Rook Armour +M 0 3603 2 3657 White Rook +E 1 3605 2 5 White Rook Armour +M 0 3603 2 3664 White Rook +E 1 3605 2 5 White Rook Armour +M 0 3604 2 3602 Black Knight +E 1 3606 2 16 Black Knight Lance +M 0 3604 2 3607 Black Knight +E 1 3606 2 16 Black Knight Lance +M 0 3605 2 3658 White Knight +E 1 3607 2 16 White Knight Lance +M 0 3605 2 3663 White Knight +E 1 3607 2 16 White Knight Lance +M 0 3606 2 3603 Black Bishop +E 1 3608 2 17 Black Bishop Staff +M 0 3606 2 3606 Black Bishop +E 1 3608 2 17 Black Bishop Staff +M 0 3607 2 3659 White Bishop +E 1 3609 2 17 White Bishop Staff +M 0 3607 2 3662 White Bishop +E 1 3609 2 17 White Bishop Staff +M 0 3608 1 3604 Black Queen +E 1 3610 1 6 Black Queen Crown +M 0 3609 1 3660 White Queen +E 1 3611 1 6 White Queen Crown +M 0 3610 1 3605 Black King +E 1 3612 1 17 Black King Sceptre +G 1 3614 1 Black Treasury Key +M 0 3611 1 3661 White King +E 1 3613 1 17 White King Sceptre +G 1 3615 1 White Treasury Key +* Objects +O 0 3616 1 3665 Black Treasury Gold +O 0 3617 1 3666 White Treasury Gold +* Doors +D 0 3604 5 2 Black Treasury Door +D 0 3665 4 2 +D 0 3660 5 2 White Treasury Door +D 0 3666 4 2 +* +S +$ diff --git a/lib/world/zon/40.zon b/lib/world/zon/40.zon new file mode 100644 index 0000000..6443e42 --- /dev/null +++ b/lib/world/zon/40.zon @@ -0,0 +1,93 @@ +#40 +Mines of Moria~ +4000 4198 20 2 +* +* Created for DikuMud +* Heavily rewritten descriptions for CircleMud by Furry +* +* Level 1 +* +* Mobiles +M 0 4000 1 4030 Large Snake +G 1 4001 1 Goblin Corpse +P 1 4002 1 4001 500 Coins +M 0 4001 2 4025 Green Snake +M 0 4001 2 4015 Green Snake +M 0 4002 3 4023 Centipede +M 0 4002 3 4017 Centipede +M 0 4002 3 4020 Centipede +M 0 4003 6 4021 Kobold +M 0 4003 6 4021 Kobold +M 0 4003 6 4013 Kobold +M 0 4003 6 4013 Kobold +M 0 4003 6 4027 Kobold +M 0 4003 6 4027 Kobold +M 0 4004 3 4015 Orc +M 0 4004 3 4028 Orc +M 0 4004 3 4028 Orc +M 0 4005 1 4022 Large Orc +E 1 4000 5 1 Yellow Green Ring +* +* Level 2 +* +M 0 4050 1 4062 Warrior +G 1 4051 3 Helmet +M 0 4051 4 4070 Warrior +M 0 4051 4 4050 Warrior +M 0 4051 4 4073 Warrior +M 0 4051 4 4055 Warrior +M 0 4052 3 4056 Hobgoblin +M 0 4052 3 4065 Hobgoblin +M 0 4052 3 4059 Hobgoblin +M 0 4053 2 4058 Snake +M 0 4053 2 4068 Snake +M 0 4054 3 4060 Centipede +M 0 4054 3 4053 Centipede +M 0 4054 3 4052 Centipede +M 0 4055 2 4064 Hobgoblin +G 1 4050 20 Purple Potion +M 0 4055 2 4071 Hobgoblin +G 1 4050 20 Purple Potion +M 0 4056 2 4067 Orc +M 0 4056 2 4057 Orc +* Objects +R 0 4068 4052 +O 0 4052 8 4068 Mushroom +R 0 4069 4052 +O 0 4052 8 4069 Mushroom +R 0 4070 4052 +O 0 4052 8 4070 Mushroom +R 0 4071 4052 +O 0 4052 8 4071 Mushroom +* +* Level 3 +* +* Mobiles +M 0 4100 1 4114 Mage +G 1 4102 2 Scroll Of Identify +M 0 4101 1 4122 Troll +G 1 4100 2 Demon Blade +M 0 4102 3 4111 Snake +G 1 4103 10 Slime +M 0 4102 3 4111 Snake +G 1 4104 3 Poisoned slime +M 0 4103 6 4103 Thief +M 0 4103 2 4124 Thief +E 1 4053 3 16 Dirk +M 0 4105 3 4108 Centipede +M 0 4106 2 4113 Warrior +G 1 4101 1 Swordsman's Gloves +M 0 4107 1 4119 Kobold +G 1 4104 10 Slime +* Doors +D 0 4119 3 1 Secret Passage +D 0 4121 1 1 +* +* North Of Mountain -- Wilderness +* +M 0 4057 2 4038 Lion +M 0 4057 2 4041 Lion +M 0 4058 1 4044 Hill Giant +* +S +$ diff --git a/lib/world/zon/50.zon b/lib/world/zon/50.zon new file mode 100644 index 0000000..72a7a75 --- /dev/null +++ b/lib/world/zon/50.zon @@ -0,0 +1,72 @@ +#50 +The Great Eastern Desert~ +5000 5099 30 2 +* +* Created by Rorschach of Alfa +* +* Mobiles +M 0 5015 3 5039 Dustdigger +M 0 5015 3 5033 Dustdigger +M 0 5015 3 5049 Dustdigger +M 0 5017 1 5058 Rabid Camel +M 0 5000 5 5047 Dervish +E 1 7211 25 16 Short Sword +M 0 5000 5 5033 Dervish +E 1 7211 25 16 Short Sword +M 0 5001 8 5040 Large Dervish +E 1 3022 25 16 Long Sword +M 0 5002 5 5031 Coral Snake +M 0 5003 5 5050 Small Scorpion +M 0 5004 1 5036 Purple Worm +G 1 5019 10 Pink Potion +G 1 5020 5 Platinum Wand +G 1 5021 1 Energy Bow +M 0 5005 1 5065 Brass Dragon +G 1 5024 1 Golden Key +G 1 5022 10 Encrypted Scroll +M 0 5006 1 5061 Nomad Leader +E 1 5016 10 16 Sabre +M 0 5007 1 5060 Nomad Commander +E 1 5017 15 16 Scimitar +M 0 5008 5 5059 Nomad Warrior +E 1 5018 25 16 Cutlass +M 0 5009 10 5057 Slave +M 0 5010 1 5011 Dracolich +E 1 5001 1 5 Banded Mail +E 1 5002 1 16 Halberd +M 0 5011 3 5009 Drider +E 1 3022 50 16 Long Sword +M 0 5012 3 5014 Duergar +E 1 5000 15 16 Mining Pick +M 0 5013 4 5021 Myconoid +M 0 5014 1 5021 Myconoid Shaman +E 1 5003 1 3 Mushroom Amulet +* Objects +O 0 5005 1 5011 Bone +R 0 5049 5006 +O 0 5006 6 5049 Cactus Cup +R 0 5031 5006 +O 0 5006 6 5031 Cactus Cup +R 0 5044 5006 +O 0 5006 6 5044 Cactus Cup +O 0 5007 1 5060 Basket +P 0 5012 1 5007 Stakes +P 0 5011 1 5007 Coil Of Rope +O 0 5008 1 5061 Basket +P 1 5014 5 5008 Turban +O 0 5009 1 5061 Basket +O 0 5010 1 5061 Basket +P 1 5013 50 5010 Tattered Map +O 0 5023 1 5070 Iron Chest +P 1 5025 3 5023 Bracelet +P 1 5026 3 5023 Ruby +P 1 5027 3 5023 Diamond +P 1 5028 3 5023 Sapphire +P 1 5029 3 5023 Lapis +P 1 5030 1 5023 Tiger Jewel +P 1 5031 1 5023 Red-Eyed Jewel +P 1 5032 3 5023 Emerald +P 1 5015 1 5023 Gold +* +S +$ diff --git a/lib/world/zon/51.zon b/lib/world/zon/51.zon new file mode 100644 index 0000000..1e5e440 --- /dev/null +++ b/lib/world/zon/51.zon @@ -0,0 +1,114 @@ +#51 +Drow City~ +5100 5199 30 1 +* +* Created by Rorschach of Alfa +* +* Mobiles +M 0 5100 15 5122 Goblin Slave +M 0 5100 15 5122 Goblin Slave +M 0 5100 15 5122 Goblin Slave +M 0 5100 15 5122 Goblin Slave +M 0 5100 15 5122 Goblin Slave +M 0 5100 15 5122 Goblin Slave +M 0 5100 15 5122 Goblin Slave +M 0 5100 15 5122 Goblin Slave +M 0 5101 10 5118 Drow Commoner +E 1 5100 50 16 Commoner's Longsword +M 0 5101 10 5133 Drow Commoner +E 1 5100 50 16 Commoner's Longsword +M 0 5102 4 5104 Drow Warrior +E 1 5101 12 16 Noble's Longsword +M 0 5102 4 5124 Drow Warrior +E 1 5101 12 16 Noble's Longsword +M 0 5102 4 5108 Drow Warrior +E 1 5101 12 16 Noble's Longsword +M 0 5102 4 5111 Drow Warrior +E 1 5101 12 16 Noble's Longsword +M 0 5103 4 5104 Drow Mage +E 1 5102 12 16 Two-Headed Snake Whip +M 0 5103 4 5124 Drow Mage +E 1 5102 12 16 Two-Headed Snake Whip +M 0 5103 4 5108 Drow Mage +E 1 5102 12 16 Two-Headed Snake Whip +M 0 5103 4 5111 Drow Mage +E 1 5102 12 16 Two-Headed Snake Whip +M 0 5104 4 5104 Drow Priestess +E 1 5103 12 16 Three-Headed Snake Whip +M 0 5104 4 5124 Drow Priestess +E 1 5103 12 16 Three-Headed Snake Whip +M 0 5104 4 5108 Drow Priestess +E 1 5103 12 16 Three-Headed Snake Whip +M 0 5104 4 5111 Drow Priestess +E 1 5103 12 16 Three-Headed Snake Whip +M 0 5105 3 5118 Drow Master +E 1 5105 3 16 Black Longsword +E 1 5110 5 17 Silvery Blue Wand +M 0 5105 3 5120 Drow Master +E 1 5104 2 16 Four-Headed Snake Whip +E 1 5110 5 17 Silvery Blue Wand +M 0 5105 3 5116 Drow Master +E 1 5104 2 16 Four-Headed Snake Whip +E 1 5110 5 17 Silvery Blue Wand +M 0 5106 2 5150 Drow Weapons Master +E 1 5105 2 16 Black Longsword +E 1 5109 1 9 Gauntlets +M 0 5106 2 5101 Drow Weapons Master +E 1 5105 2 16 Black Longsword +M 0 5107 3 5125 4th Matron Mother +E 1 5106 3 16 Five-Headed Snake Whip +G 1 5114 3 Green Hat +M 0 5107 3 5105 3rd Matron Mother +E 1 5106 3 16 Five-Headed Snake Whip +E 1 5111 2 6 Small Helmet +M 0 5107 3 5109 2nd Matron Mother +E 1 5106 3 16 Five-Headed Snake Whip +E 1 5108 2 10 Iron Bracers +M 0 5108 1 5113 1st Matron Mother +E 1 5107 1 16 Six-Headed Snake Whip +E 1 5112 1 1 Ruby Ring +M 0 5109 6 5101 Drider +M 0 5109 6 5106 Drider +M 0 5109 6 5115 Drider +M 0 5109 6 5121 Drider +M 0 5110 2 5110 Drider +M 0 5110 2 5110 Drider +M 0 5111 1 5148 Yochlol +E 1 5113 1 16 Spider Dagger +E 1 5115 1 17 Adamantite Key +* Objects +O 1 5116 1 5149 Treasure +* Doors +D 0 5100 3 0 City Gates +D 0 5101 1 0 +D 0 5104 2 1 3rd House Throne Room +D 0 5105 0 1 +D 0 5108 3 1 2nd House Throne Room +D 0 5109 1 1 +D 0 5110 3 1 1st House Main Gate +D 0 5111 1 1 +D 0 5112 0 1 1st House Main Chamber +D 0 5113 2 1 +D 0 5117 0 1 Temple Of Lloth +D 0 5119 2 1 +D 0 5123 0 1 4th House Entrance +D 0 5124 2 1 +D 0 5129 0 1 Weaponsmaster's Chamber +D 0 5150 2 1 +D 0 5132 2 1 Warriors' Barracks +D 0 5133 0 1 +D 0 5136 1 1 Mages' Barracks +D 0 5137 3 1 +D 0 5138 3 1 Clerics' Barracks +D 0 5139 1 1 +D 0 5140 0 1 Temple Main Chamber +D 0 5141 2 1 +D 0 5142 1 1 Slave Cells +D 0 5146 3 1 +D 0 5146 0 1 Slave Pen +D 0 5147 2 1 +D 0 5148 3 2 Treasure Chamber +D 0 5149 1 2 +* +S +$ diff --git a/lib/world/zon/52.zon b/lib/world/zon/52.zon new file mode 100644 index 0000000..6762af4 --- /dev/null +++ b/lib/world/zon/52.zon @@ -0,0 +1,105 @@ +#52 +The City Of Thalos~ +5200 5299 15 2 +* +* Created by Rorschach of Alfa +* +* Mobiles +M 0 5200 1 5250 Beholder +E 1 5217 3 17 Silver Flute +E 1 5208 3 11 Iron Shield +E 1 5223 1 3 Green Cloak +* +* Lamia Note - #5201 Is AGGR_GOOD And Casts Spells, #5209 Is Just Plain AGGR +* +M 0 5201 25 5235 Lamia +M 0 5201 25 5232 Lamia +M 0 5201 25 5236 Lamia +M 0 5201 25 5237 Lamia +M 0 5201 25 5242 Lamia +M 0 5201 25 5218 Lamia +M 0 5201 25 5219 Lamia +M 0 5201 25 5220 Lamia +M 0 5201 25 5225 Lamia +M 0 5201 25 5226 Lamia +M 0 5201 25 5203 Lamia +M 0 5201 25 5204 Lamia +M 0 5201 25 5206 Lamia +M 0 5201 25 5208 Lamia +M 0 5209 25 5205 Lamia +M 0 5209 25 5209 Lamia +M 0 5209 25 5216 Lamia +M 0 5209 25 5221 Lamia +M 0 5209 25 5224 Lamia +M 0 5209 25 5229 Lamia +M 0 5209 25 5234 Lamia +M 0 5209 25 5240 Lamia +* Mobiles +M 0 5202 1 5229 Mimic - Chest +E 1 5214 4 17 Ball Of Light +M 0 5203 1 5226 Mimic - Boulder +G 1 5215 4 Tattered Scroll +M 0 5204 1 5219 Mimic - Floor +G 1 5218 4 Talisman +M 0 5205 1 5238 Mimic - Pottery +E 1 5214 4 17 Ball Of Light +M 0 5206 1 5236 Mimic - Planks +E 1 5222 4 12 Black Robe +M 0 5207 4 5232 Lizard +M 0 5207 4 5217 Lizard +M 0 5207 4 5227 Lizard +M 0 5207 4 5244 Lizard +M 0 5208 3 5247 Golem SW +E 1 5224 1 17 Ebony Seal +E 1 5200 5 5 Chainmail Vest +M 0 5208 3 5246 Golem NW +E 1 5226 1 17 Ivory Seal +M 0 5208 3 5248 Golem NE +E 1 5221 5 16 Two-Handed Sword +* Objects +O 0 5225 1 5231 Curved Desk +P 1 5215 1 5225 Scroll Of Enchantment +P 1 5216 2 5225 Scroll Of Detection +O 0 5227 1 5233 Glass Cabinet +P 1 5201 1 5227 Iron Helm +P 1 5202 1 5227 Iron Gauntlets +P 1 5203 1 5227 Iron Sleeves +P 1 5204 1 5227 Iron Boots +P 1 5205 1 5227 Iron Leggings +P 1 5206 1 5227 Iron Girth +R 0 5242 5228 +O 0 5228 10 5242 Rotten Arm +R 0 5217 5219 +O 0 5219 5 5217 Venison +R 0 5234 5220 +O 0 5220 1 5234 Cracked Fountain +R 0 5229 5207 +O 0 5207 5 5229 Battered Armor +R 0 5238 5210 +O 0 5210 2 5238 Black Potion +R 0 5238 5211 +O 0 5211 2 5238 Orange Potion +R 0 5238 5213 +O 0 5213 2 5238 Serpentine Staff +R 0 5230 5250 +O 0 5250 2 5230 Mandolin +R 0 5230 5251 +O 0 5251 2 5230 Harp +O 0 5230 1 5202 Pale Blue Stone +O 0 5231 1 5205 Scarlet And Blue Stone +O 0 5232 1 5208 Incandescent Blue Stone +O 0 5233 1 5211 Deep Red Stone +O 0 5234 1 5214 Pink Stone +O 0 5235 1 5217 White Stone +O 0 5236 1 5220 Pale Lavander Stone +O 0 5237 1 5224 Green And Lavander Stone +O 0 5238 1 5227 Dusty Rose Stone +O 0 5239 1 5230 Dull Grey Stone +O 0 5240 1 5234 Vivbant Purple Stone +O 0 5241 1 5238 Pink And Green Stone +O 0 5242 1 5241 Pale Green Stone +O 0 5243 1 5246 Clear Stone +O 0 5244 1 5250 Iridescent Stone +* +S +$ diff --git a/lib/world/zon/53.zon b/lib/world/zon/53.zon new file mode 100644 index 0000000..200db99 --- /dev/null +++ b/lib/world/zon/53.zon @@ -0,0 +1,127 @@ +#53 +The Great Pyramid~ +5300 5399 20 2 +* +* Created by Andersen of HexOynx. +* +* Modifed and edited for CircleMUD by Furry +* +* Mobiles +M 0 5300 6 5302 Asp +M 0 5300 6 5305 Asp +M 0 5300 6 5313 Asp +M 0 5300 6 5340 Asp +M 0 5301 4 5303 Cobra +M 0 5301 4 5341 Cobra +M 0 5302 3 5306 Mongoose +M 0 5302 3 5316 Mongoose +M 0 5302 3 5326 Mongoose +M 0 5303 6 5309 Pyramid Watcher +E 1 5300 6 16 Egyptian Mace +M 0 5303 6 5309 Pyramid Watcher +E 1 5301 10 12 Sand-Coloured Robes +M 0 5303 6 5337 Pyramid Watcher +E 1 5300 6 16 Egyptian Mace +M 0 5303 6 5337 Pyramid Watcher +E 1 5301 10 12 Sand-Coloured Robes +M 0 5303 6 5340 Pyramid Watcher +E 1 5300 6 16 Egyptian Mace +M 0 5303 6 5340 Pyramid Watcher +E 1 5301 10 12 Sand-Coloured Robes +M 0 5304 6 5325 Tomb Thief +E 1 5302 7 16 Obsidian Dagger +M 0 5304 6 5326 Tomb Thief +E 1 5302 7 16 Obsidian Dagger +M 0 5304 6 5333 Tomb Thief +E 1 5302 7 16 Obsidian Dagger +M 0 5304 6 5334 Tomb Thief +E 1 5302 7 16 Obsidian Dagger +M 0 5304 6 5335 Tomb Thief +E 1 5302 7 16 Obsidian Dagger +M 0 5304 6 5342 Tomb Thief +E 1 5302 7 16 Obsidian Dagger +M 0 5305 1 5343 Ali Baba +E 1 5303 4 6 Cloth Turban +E 1 5302 7 16 Obsidian Dagger +M 0 5306 1 5323 Magic Carpet +M 0 5307 4 5325 Mummy +E 1 5304 5 5 Cloth Wrappings +G 1 5306 3 Jar Of Formaldehyde +M 0 5307 4 5325 Mummy +E 1 5304 5 5 Cloth Wrappings +G 1 5305 2 Bottle Of Embalming Fluid +M 0 5307 4 5337 Mummy +E 1 5304 5 5 Cloth Wrappings +M 0 5307 4 5341 Mummy +E 1 5304 5 5 Cloth Wrappings +M 0 5308 4 5354 Sandman +M 0 5308 4 5355 Sandman +M 0 5308 4 5356 Sandman +M 0 5308 4 5357 Sandman +M 0 5309 1 5311 Efreet +E 1 5307 4 17 Ball Of Flame +M 0 5310 2 5345 Caryatid +E 1 5308 3 16 Stone Scimitar +M 0 5310 2 5345 Caryatid +E 1 5308 3 16 Stone Scimitar +G 1 5309 1 Stone Key +* +* Note: The Second One Was Given The Key To Require That BOTH Be Killed +* At Some Time For The Key To Be Reloaded. This Way If Players Only Kill +* The Second One, The First One Will Be Loaded W/O Key On The Next Reset. +* Of Course, This Won't Really FORCE The Previous Players To Kill Both, +* But It Is More Balanced Than Always Fighting Only The First Caraytid. +* And Also The Treasure Of The Pharoahs +* +M 0 5311 1 5323 Djinn +E 1 5313 4 17 Lamp +M 0 5312 3 5348 Hieracosphinx +M 0 5312 3 5349 Hieracosphinx +M 0 5312 3 5351 Hieracosphinx +M 0 5313 2 5350 Gynosphinx +M 0 5313 2 5350 Gynosphinx +G 1 5314 2 Ankh +M 0 5314 2 5352 Criosphinx +M 0 5314 2 5352 Criosphinx +G 1 5315 2 Book Of Riddles +M 0 5315 1 5347 Androsphinx +G 1 5316 2 Lion's Paw +M 0 5316 1 5358 Great Sphinx +E 1 5317 1 17 Answer +M 0 5317 1 5332 Lord Ramses +G 1 5319 1 Pile Of Sand +G 1 5320 3 Curse Of The Mummy +G 1 5321 2 Small Elixir +G 1 5321 2 Small Elixir +E 1 5322 1 6 Golden Mask +* Objects +O 1 5318 1 5359 The Treasure Of The Sphinx +O 1 5324 1 5359 A Sun Wand +O 1 5325 1 5359 A Sandy Ring +O 1 5326 1 5359 A Small Golden Sphinx +O 1 5327 1 5359 Sphinxian Leggings +O 0 5323 1 5319 Key +O 0 5310 1 5345 The Stone Sarcophagus +P 1 5311 2 5310 Dust +P 1 5312 1 5310 The Scarab +* Doors +D 0 5306 5 1 Stone Atop The Pyramid +D 0 5308 4 1 +D 0 5309 3 1 Fire Pool +D 0 5310 1 1 +D 0 5322 2 2 Entrance To The Vault Of The Lamp +D 0 5323 0 2 +D 0 5326 3 2 Coffin Lid +D 0 5327 1 2 * Note That This Has No Key Number, Locking You In +D 0 5329 2 1 Stone Into The Ancient Hall +D 0 5330 0 1 +D 0 5331 5 1 The Stone Into The Tomb Of Ramses +D 0 5332 4 1 +D 0 5343 5 1 Floor Into The Tomb +D 0 5344 4 1 +D 0 5344 0 1 Tomb Of The Pharoahs +D 0 5345 2 1 +D 0 5358 2 2 Entrance To The Hole In The Sand +* +S +$ diff --git a/lib/world/zon/54.zon b/lib/world/zon/54.zon new file mode 100644 index 0000000..bd82cb3 --- /dev/null +++ b/lib/world/zon/54.zon @@ -0,0 +1,414 @@ +#54 +New Thalos~ +5400 5699 20 2 +* +* Created by Duke and Conner of SillyMud +* +* Edited and modified for CircleMUD by Furry +* +* Mobiles +M 0 5400 1 5548 Mage Guildmaster +M 0 5401 1 5503 Cleric Guildmaster +M 0 5402 1 5534 Warrior Guildmaster +M 0 5403 1 5546 Thief Guildmaster +M 0 5404 1 5401 Receptionist +M 0 5405 1 5402 Old Withered Mage/Bartender - Shopkeeper +G 1 5467 100 Glass Of Blue Oasis +G 1 5468 100 Glass Of Wine +G 1 5469 100 Bottle Of Grog +M 0 5406 1 5402 Brother John +M 0 5407 1 5403 Panhandler +M 0 5408 1 5404 Panhandler +M 0 5409 20 5410 Beggar +M 0 5410 1 5535 Baker - Shopkeeper +G 1 5440 100 Hunk Of Cheese +G 1 5441 100 Bread +G 1 5442 100 Some Dry Rations +G 1 5443 100 Some Iron Rations +G 1 5445 100 Some Nuts +G 1 5491 100 Sesame Seed +M 0 5411 1 5528 Shopkeeper - Shopkeeper +G 1 5434 100 Sack +G 1 5435 100 Oil Lamp +G 1 5436 100 Backpack +G 1 5437 100 Basket +G 1 5438 100 Belt Pouch +G 1 5439 100 Candle +M 0 5412 1 5521 Banker +M 0 5413 1 5514 Ahkeem The Tailor - Shopkeeper +G 1 5446 100 Belt +G 1 5447 100 Hiking Boots +G 1 5448 100 Fur Cloak +G 1 5449 100 Girdle +G 1 5450 100 Pair Of Hose +G 1 5451 100 Common Robe +G 1 5452 100 Embroidered Robe +G 1 5453 100 Sandals +G 1 5454 100 Sash +G 1 5455 100 Silk Jacket +E 1 5483 100 16 Sewing Shears +M 0 5414 1 5515 Vera The Veggie Lady - Shopkeeper +G 1 5456 100 Egg +G 1 5457 100 Carrot +G 1 5458 100 Tomatoe +G 1 5459 100 Fig +G 1 5460 100 Some Dates +M 0 5415 1 5522 Butch The Meatcutter - Shopkeeper +G 1 5461 100 Leg Of Lamb +G 1 5462 100 Side Of Beef +G 1 5463 100 Whole Chicken +E 1 5484 100 16 Meat Cleaver +M 0 5416 1 5529 Abdul The Armorer - Shopkeeper +G 1 5415 100 Suit Of Banded Mail +G 1 5416 100 Suit Of Brigandine +G 1 5417 100 Suit Of Field Plate +G 1 5418 100 Suit Of Ringmail +G 1 5419 100 Suit Of Splintmail +G 1 5420 100 Wooden Shield +G 1 5421 100 Splinted Shield +M 0 5417 1 5536 Igor The Weaponsmith - Shopkeeper +G 1 5403 100 Morningstar +G 1 5404 100 Awl-Pike +G 1 5405 100 Bardiche +G 1 5406 100 Bec De Corbine +G 1 5407 100 Bill-Guisarme +G 1 5408 100 Fauchard +G 1 5409 100 Glaive +G 1 5410 100 Guisarme +G 1 5411 100 Sickle +G 1 5412 100 Two-Handed Bastard Sword +G 1 5413 100 Scimitar +G 1 5414 100 Rapier +M 0 5418 1 5432 Cassandra - Shopkeeper +G 1 5464 20 Salted Herring +G 1 5465 20 Muscle +M 0 5419 1 5425 Foreman +E 1 5485 1 16 Fountain Pen +M 0 5420 2 5425 Construction Worker +E 1 5486 2 16 Sledge Hammer +M 0 5420 2 5425 Construction Worker +E 1 5486 2 16 Sledge Hammer +M 0 5421 1 5511 Statue Of Brahman +M 0 5422 1 5511 Statue Of Siva +M 0 5423 1 5511 Statue Of Indra +M 0 5424 1 5511 Statue Of Yama +M 0 5425 1 5516 Statue Of Surya +M 0 5426 1 5516 Statue Of Kali +M 0 5427 1 5516 Statue Of Brihaspati +M 0 5428 1 5516 Statue Of Puchan +M 0 5429 1 5466 Aziz +M 0 5430 1 5466 Mustafah +M 0 5431 1 5466 Fatima +M 0 5432 1 5466 Kareem +M 0 5433 12 5406 Nomad Merchant +M 0 5433 12 5509 Nomad Merchant +M 0 5433 12 5414 Nomad Merchant +M 0 5433 12 5426 Nomad Merchant +M 0 5433 12 5449 Nomad Merchant +M 0 5433 12 5462 Nomad Merchant +M 0 5434 4 5589 Sultan's Bodyguard +M 0 5434 4 5589 Sultan's Bodyguard +M 0 5434 4 5589 Sultan's Bodyguard +M 0 5434 4 5589 Sultan's Bodyguard +M 0 5435 3 5468 Skinny Kid +M 0 5435 3 5468 Skinny Kid +M 0 5435 3 5468 Skinny Kid +M 0 5436 8 5433 Dockworker +M 0 5436 8 5433 Dockworker +M 0 5436 8 5433 Dockworker +M 0 5436 8 5434 Dockworker +M 0 5436 8 5434 Dockworker +M 0 5436 8 5435 Dockworker +M 0 5436 8 5443 Dockworker +M 0 5436 8 5443 Dockworker +M 0 5437 2 5406 Taxcollector +G 1 5400 1 The Palace Key Of New Thalos +M 0 5438 1 5415 Gord +M 0 5439 1 5405 Chulainn +E 1 5492 1 16 Gae Bolg +E 1 5415 60 5 Banded Mail +M 0 5440 1 5406 Daghdha +M 0 5441 1 5415 Curley GreenLeaf +M 0 5442 21 5410 Wandering Prophet +M 0 5442 21 5424 Wandering Prophet +M 0 5442 21 5508 Wandering Prophet +M 0 5442 21 5509 Wandering Prophet +M 0 5442 21 5513 Wandering Prophet +M 0 5442 21 5513 Wandering Prophet +M 0 5442 21 5514 Wandering Prophet +M 0 5442 21 5631 Wandering Prophet +M 0 5442 21 5631 Wandering Prophet +M 0 5443 14 5465 Alley Cat +M 0 5443 14 5467 Alley Cat +M 0 5443 14 5469 Alley Cat +M 0 5443 14 5473 Alley Cat +M 0 5443 14 5514 Alley Cat +M 0 5443 14 5569 Alley Cat +M 0 5443 14 5617 Alley Cat +M 0 5444 24 5429 Vulture +M 0 5444 24 5430 Vulture +M 0 5444 24 5453 Vulture +M 0 5444 24 5463 Vulture +M 0 5444 24 5507 Vulture +M 0 5444 24 5522 Vulture +M 0 5444 24 5523 Vulture +M 0 5444 24 5524 Vulture +M 0 5444 24 5532 Vulture +M 0 5444 24 5549 Vulture +M 0 5444 24 5555 Vulture +M 0 5444 24 5567 Vulture +M 0 5444 24 5568 Vulture +M 0 5444 24 5692 Vulture +M 0 5445 2 5455 Old Man +E 1 5490 2 17 Chessboard +M 0 5445 2 5455 Old Man +E 1 5490 2 17 Chessboard +M 0 5446 1 5551 Lugh The Librarian +M 0 5447 1 5411 Dirt Devil +M 0 5448 1 5411 Lamia +M 0 5449 1 5411 Raggety Dervish +M 0 5450 1 5589 Sultan +M 0 5451 8 5587 Harem Girl +M 0 5451 8 5587 Harem Girl +M 0 5451 8 5587 Harem Girl +M 0 5451 8 5587 Harem Girl +M 0 5451 8 5587 Harem Girl +M 0 5451 8 5587 Harem Girl +M 0 5451 8 5587 Harem Girl +M 0 5451 8 5587 Harem Girl +M 0 5452 1 5591 Jailor +G 1 5493 1 Jail Key +M 0 5453 4 5587 Eunich +M 0 5453 4 5587 Eunich +M 0 5453 4 5587 Eunich +M 0 5453 4 5587 Eunich +M 0 5454 1 5587 Nichole, The Sultan's Favorite +M 0 5455 1 5566 Allah +E 1 5496 2 16 The Wrath Of Allah +M 0 5456 1 5525 Mage Guildguard +M 0 5457 1 5512 Cleric Guildguard +M 0 5458 1 5526 Warrior Guildguard +M 0 5459 1 5532 Thief Guildguard +M 0 5460 2 5561 Servant Boy +M 0 5460 2 5561 Servant Boy +M 0 5461 20 5412 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 53 5 Suit Of Field Plate +E 1 5421 52 11 Splinted Shield +M 0 5461 20 5418 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5461 20 5419 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5461 20 5420 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5461 20 5444 Sultan's Guard +M 0 5461 20 5445 Sultan's Guard +M 0 5461 20 5446 Sultan's Guard +M 0 5461 20 5447 Sultan's Guard +M 0 5461 20 5572 Sultan's Guard +M 0 5461 20 5581 Sultan's Guard +M 0 5461 20 5582 Sultan's Guard +M 0 5461 20 5588 Sultan's Guard +M 0 5462 12 5413 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 53 5 Suit Of Field Plate +E 1 5421 72 11 Splinted Shield +M 0 5462 12 5413 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 53 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5462 12 5422 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5462 12 5422 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5462 12 5423 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5462 12 5423 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5462 12 5431 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5462 12 5431 Sultan's Guard +E 1 5413 100 16 Scimitar +E 1 5417 43 5 Suit Of Field Plate +E 1 5421 42 11 Splinted Shield +M 0 5463 1 5406 Chief Sultan's Guard +M 0 5464 1 5531 Mercenary +M 0 5465 1 5542 Shipwright - Shopkeeper +G 1 3060 100 Raft +G 1 3061 100 Canoe +M 0 5466 1 5544 Blacksmith - Shopkeeper +G 1 5487 100 Horse Shoe +G 1 5488 100 Saddle +G 1 5489 100 Riding Crop +M 0 5467 6 5545 Horse +M 0 5467 6 5545 Horse +M 0 5467 6 5545 Horse +M 0 5467 6 5545 Horse +M 0 5467 6 5545 Horse +M 0 5467 6 5545 Horse +M 0 5468 8 5427 Tourist +M 0 5468 8 5428 Tourist +M 0 5469 1 5699 Ixitxachitl +M 0 5470 1 5600 Cryohydra +M 0 5471 1 5604 Minotaur Lizard +M 0 5472 5 5599 Death Dog +M 0 5472 5 5599 Death Dog +M 0 5472 5 5599 Death Dog +M 0 5472 5 5599 Death Dog +M 0 5472 5 5599 Death Dog +M 0 5473 1 5603 Spotted Lion +M 0 5474 1 5598 Behir +M 0 5475 1 5597 Chimera +M 0 5476 1 5602 Couatl +M 0 5477 1 5601 Giant Hornet +M 0 5478 1 5583 Pegasus +M 0 5479 1 5523 Elvria - Shopkeeper +G 1 5470 100 Glowing Blue Vial +G 1 5471 100 Deep-Green Potion +G 1 5472 100 Crystal Clear Potion +G 1 5473 100 Off White Potion +G 1 5474 100 Dark Blue Potion +M 0 5480 1 5524 Braheem - Shopkeeper +G 1 5478 100 Scroll Of Recall +G 1 5479 100 Grey-Silver Wand +G 1 5480 100 Wand Of Glinting Yellow +G 1 5481 100 Wand Of Oak +G 1 5482 100 Pink Wand +M 0 5481 1 5504 High Priest +M 0 5482 15 5407 Royal Guard +M 0 5482 15 5408 Royal Guard +M 0 5482 15 5414 Royal Guard +M 0 5482 15 5416 Royal Guard +M 0 5482 15 5444 Royal Guard +M 0 5482 15 5445 Royal Guard +M 0 5482 15 5450 Royal Guard +M 0 5482 15 5452 Royal Guard +M 0 5483 1 5538 Patch The Bartender - Shopkeeper +G 1 5475 100 Flaming Scorpion +G 1 5476 100 Barrel Of Beer +G 1 5477 100 Shot Of Whisky +M 0 5484 1 5537 Stitch, The Leather Dude - Shopkeeper +G 1 5422 100 Buckler +G 1 5423 100 Leather Jacket +G 1 5424 100 Leather Sleeves +G 1 5425 100 Leather Cap +G 1 5426 100 Leather Pants +G 1 5427 100 Leather Gloves +G 1 5428 100 Padded Leather Boots +G 1 5429 100 Studded Leather Jacket +G 1 5430 100 Studded Leather Sleeves +G 1 5431 100 Studded Leather Pants +G 1 5432 100 Studded Leather Gloves +G 1 5433 100 Leather Shield +M 0 5485 1 5578 Gardener +M 0 5486 1 5583 Nightmare +M 0 5487 1 5596 Wolverine +E 1 5495 1 16 Wolverine Claw +M 0 5488 1 5580 Mimic +M 0 5489 1 5554 Mayor +G 1 5401 1 Key To The City Of New Thalos +M 0 5490 1 5561 Chef +* Objects +R 0 5521 3034 +O 0 3034 10 5521 ATM +R 0 5406 5402 +O 0 5402 1 5406 Large Central Fountain +* Doors +D 0 5413 2 2 The South Gate +D 0 5411 0 2 +D 0 5422 0 2 The North Gate +D 0 5567 2 2 +D 0 5423 3 2 The West Gate +D 0 5569 1 2 +D 0 5431 1 2 The East Gate +D 0 5568 3 2 +D 0 5444 2 2 Jail +D 0 5553 0 2 +D 0 5459 5 1 Underground +D 0 5475 4 1 +D 0 5470 5 1 Underground +D 0 5478 4 1 +D 0 5474 5 1 Underground +D 0 5481 4 1 +D 0 5483 3 1 Grating On River Ishtar +D 0 5484 1 1 +D 0 5487 3 1 Grating On River Ishtar +D 0 5623 1 1 +D 0 5491 4 1 Outside The Wall +D 0 5503 1 1 Alley +D 0 5517 2 1 Braheem's Magic Shop +D 0 5530 1 1 The Thieves' Guild +D 0 5532 3 1 +D 0 5534 1 1 Alley +D 0 5546 2 1 Alley +D 0 5558 3 2 The Palace Gate +D 0 5550 1 2 +D 0 5563 2 1 The Kitchen +D 0 5561 0 1 +D 0 5565 0 1 The Shrine Of Allah +D 0 5566 2 1 +D 0 5572 2 1 Dining Hall +D 0 5571 0 1 +D 0 5574 0 1 Entrance To The Dungeon +D 0 5575 2 1 +D 0 5575 5 1 Jailer's Room +D 0 5591 4 1 +D 0 5577 2 1 Guest Room +D 0 5576 0 1 +D 0 5579 0 1 Art Exhibit +D 0 5580 2 1 +D 0 5582 2 1 Guest Room +D 0 5581 0 1 +D 0 5582 3 2 Harem +D 0 5587 1 2 +D 0 5584 0 1 Guard Room +D 0 5585 2 1 +D 0 5584 3 1 Throne Room +D 0 5589 1 1 +D 0 5588 0 1 Throne Room +D 0 5589 2 1 +D 0 5588 2 1 Harem +D 0 5587 0 1 +D 0 5589 0 2 Treasury +D 0 5590 2 2 +D 0 5591 1 1 Tunnel In The Dungeon +D 0 5592 3 1 +D 0 5592 0 2 Cell +D 0 5597 2 2 +D 0 5592 2 2 Cell +D 0 5601 0 2 +D 0 5593 0 2 Cell +D 0 5598 2 2 +D 0 5593 2 2 Cell +D 0 5602 0 2 +D 0 5594 0 2 Cell +D 0 5599 2 2 +D 0 5594 2 2 Cell +D 0 5603 0 2 +D 0 5595 0 2 Cell +D 0 5600 2 2 +D 0 5595 1 2 Secret Cell +D 0 5596 3 2 +D 0 5595 2 2 Cell +D 0 5604 0 2 +D 0 5653 1 1 Boulder To River +D 0 5698 3 1 Lair Of The Ixitxachitl +D 0 5699 1 1 +S +$ diff --git a/lib/world/zon/60.zon b/lib/world/zon/60.zon new file mode 100644 index 0000000..a0f9c11 --- /dev/null +++ b/lib/world/zon/60.zon @@ -0,0 +1,132 @@ +#60 +Haon-Dor, Light Forest~ +6000 6099 13 2 +* +* Mobiles +M 0 6000 1 6009 John The Lumberjack +E 1 6000 2 16 Lumber Axe +E 1 6001 10 5 Chequered Shirt +E 1 6002 20 8 Leather Boots +M 0 6001 6 6012 Rabbit +G 1 6023 10 Meat +M 0 6001 6 6015 Rabbit +G 1 6023 10 Meat +M 0 6001 6 6017 Rabbit +G 1 6023 10 Meat +M 0 6001 6 6019 Rabbit +G 1 6023 10 Meat +M 0 6002 1 6022 Brown Bear +M 0 6004 1 6023 Fallow Deer +G 1 6024 4 Venison +M 0 6005 4 6014 Brown Fox +* Objects +O 0 6003 1 6010 Fireplace +P 1 6006 1 6003 Key To Wooden Chest +R 0 6010 6004 +O 0 6004 50 6010 Lantern +O 0 6005 1 6010 Wooden Chest +P 1 6007 1 6005 Coins +R 0 6010 6013 +O 0 6013 100 6010 Water Barrel +O 0 6010 1 6023 Blackberries +R 0 6006 6011 +O 0 6011 10 6006 Mushroom +R 0 6013 6011 +O 0 6011 10 6013 Mushroom +R 0 6016 6011 +O 0 6011 10 6016 Mushroom +R 0 6019 6011 +O 0 6011 10 6019 Mushroom +R 0 6065 6011 +O 0 6011 10 6065 Mushroom +R 0 6062 6011 +O 0 6011 10 6062 Mushroom +R 0 6069 6011 +O 0 6011 10 6069 Mushroom +R 0 6078 6011 +O 0 6011 10 6078 Mushroom +O 0 6012 1 6000 The News Sign +* +* Haon-Dor Addition, By Derkhil +* +* Mobiles +M 0 6006 1 6033 Bird With Broken Wing +M 0 6007 1 6033 Bobcat +M 0 6008 4 6005 Sparrow +M 0 6008 4 6013 Sparrow +M 0 6008 4 6062 Sparrow +M 0 6009 3 6032 Robin +M 0 6009 4 6066 Robin +M 0 6009 4 6013 Robin +M 0 6009 4 6016 Robin +M 0 6010 2 6030 Nested (Hidden) Squirrel +M 0 6010 2 6030 Nested (Hidden) Squirrel +M 0 6011 1 6067 (Hidden) Badger +M 0 6012 7 6003 Grey Squirrel +M 0 6012 7 6007 Grey Squirrel +M 0 6012 7 6028 Grey Squirrel +M 0 6012 7 6032 Grey Squirrel +M 0 6012 7 6030 Grey Squirrel +M 0 6012 7 6064 Grey Squirrel +M 0 6012 7 6075 Grey Squirrel +M 0 6013 4 6030 Chipmunk +M 0 6013 4 6021 Chipmunk +M 0 6013 4 6067 Chipmunk +M 0 6013 4 6061 Chipmunk +M 0 6014 4 6026 Crow +M 0 6014 4 6026 Crow +M 0 6014 4 6026 Crow +M 0 6014 4 6027 Crow +M 0 6015 1 6026 Vulture +M 0 6016 1 6025 Small 5-Pt Buck +G 1 6024 4 Venison +M 0 6017 3 6027 Fish +M 0 6017 3 6027 Fish +M 0 6017 3 6027 Fish +M 0 6018 2 6027 Duckling +M 0 6018 2 6027 Duckling +M 0 6019 2 6027 Duck +M 0 6019 2 6027 Duck +M 0 6001 11 6068 Rabbit +G 1 6023 16 Meat +M 0 6001 11 6062 Rabbit +G 1 6023 16 Meat +M 0 6001 11 6071 Rabbit +G 1 6023 16 Meat +M 0 6001 11 6070 Rabbit +G 1 6023 16 Meat +M 0 6001 11 6060 Rabbit +G 1 6023 16 Meat +M 0 6005 8 6069 Brown Fox +M 0 6005 8 6074 Brown Fox +M 0 6005 8 6060 Brown Fox +* Objects +R 0 6006 6014 +R 0 6007 6014 +R 0 6008 6014 +R 0 6013 6014 +R 0 6014 6014 +O 0 6014 5 6006 Brook +O 0 6014 5 6007 Brook +O 0 6014 5 6008 Brook +O 0 6014 5 6013 Brook +O 0 6014 5 6014 Brook +R 0 6025 6015 +O 0 6015 2 6025 Lake +R 0 6025 6015 +O 0 6015 2 6027 Lake +O 0 6016 1 6033 Oaken Cudgel +O 0 6017 1 6026 Corpse Of The Boar +P 1 6018 1 6017 Meat +P 1 6019 1 6017 Tusks +O 0 6020 1 6067 Invis Floating Log +O 0 6021 1 6032 Invis Bird's Nest +P 1 6022 3 6021 Robin's Egg +P 1 6022 3 6021 Robin's Egg +P 1 6022 3 6021 Robin's Egg +* Doors +D 0 6009 0 1 Cabin +D 0 6010 2 1 +* +S +$ diff --git a/lib/world/zon/61.zon b/lib/world/zon/61.zon new file mode 100644 index 0000000..9905cbe --- /dev/null +++ b/lib/world/zon/61.zon @@ -0,0 +1,62 @@ +#61 +Haon-Dor, Dark Forest~ +6100 6199 30 2 +* Mobiles +M 0 6100 2 6116 Vicious Warg +M 0 6100 2 6116 Vicious Warg +M 0 6101 2 6127 Ferocious Warg +M 0 6101 2 6127 Ferocious Warg +M 0 6102 4 6108 Grey Wolf +M 0 6102 4 6108 Grey Wolf +M 0 6102 4 6104 Grey Wolf +M 0 6102 4 6104 Grey Wolf +M 0 6103 4 6112 Black Wolf +M 0 6103 4 6112 Black Wolf +M 0 6103 4 6118 Black Wolf +M 0 6103 4 6118 Black Wolf +M 0 6110 4 6120 Tree +M 0 6110 4 6123 Tree +M 0 6111 4 6109 Tree +M 0 6111 4 6105 Tree +M 0 6112 1 6143 Green Dragon +G 1 6108 10 10,000 Gold +G 1 6110 10 Strength Potion +G 1 6112 1 Iron Crown +O 1 6111 10 6143 Shield +M 0 6113 3 6133 Poisonous Spider +M 0 6113 3 6133 Poisonous Spider +M 0 6113 3 6133 Poisonous Spider +M 0 6114 1 6134 Queen Spider +G 1 6108 10 10,000 Gold +G 1 6109 3 Healing Potion +G 1 6113 2 Iron Sceptre +M 0 6115 1 6100 Shargugh The Forest Brownie +E 1 6114 1 1 Iron Ring +M 0 6116 1 6155 Druid +E 1 6115 1 16 Morning Star +G 1 3055 3 17 Metal Staff +M 0 6117 1 6134 Isha The Dark Elf +E 1 6116 1 5 Dragon Scale Shirt +E 1 6117 1 7 Dragon Scale Skirt +E 1 6118 1 12 Black Cloak +E 1 6119 1 13 Silver Belt +E 1 6120 1 16 Long, Slender Sword +* Objects +O 0 6102 1 6103 Hollow Tree +O 0 6103 1 6113 Branch, Light +O 0 6104 1 6125 Branch, Weapon +O 0 6105 1 6105 Branch, Unusable +R 0 6104 6106 +O 0 6106 4 6104 Toadstool +R 0 6111 6106 +O 0 6106 4 6111 Toadstool +R 0 6122 6106 +O 0 6106 4 6122 Toadstool +R 0 6119 6107 +O 0 6107 4 6119 Poisonous Toadstool +* Doors +D 1 6152 1 1 Tree +D 1 6153 3 1 +* +S +$ diff --git a/lib/world/zon/62.zon b/lib/world/zon/62.zon new file mode 100644 index 0000000..979d88f --- /dev/null +++ b/lib/world/zon/62.zon @@ -0,0 +1,78 @@ +#62 +The Orc Enclave~ +6200 6299 20 2 +* +* Created by Builder_5 & Serene of C.A.W. +* Official C.A.W. site: http://qsilver.queensu.ca/~fletchra/Caw/ +* Mail Address: fletchra@qsilver.queensu.ca +* +* Mobiles +M 0 6200 3 6219 Deer +M 0 6200 3 6224 Deer +M 0 6200 3 6218 Deer +M 0 6201 2 6219 Rabbit +M 0 6201 2 6224 Rabbit +M 0 6202 3 6227 Squirrel +M 0 6202 3 6224 Squirrel +M 0 6202 3 6238 Squirrel +M 0 6203 10 6234 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6240 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6236 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6229 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6212 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6221 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6223 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6225 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6214 Orc Hunter +E 1 6204 1 16 Club +M 0 6203 10 6230 Orc Hunter +E 1 6204 1 16 Club +M 0 6204 1 6252 Orc Chief +E 1 6204 1 16 Club +M 0 6205 3 6253 Orc Woman +M 0 6205 3 6250 Orc Woman +M 0 6205 3 6249 Orc Woman +M 0 6206 2 6246 Orc Child +M 0 6206 2 6251 Orc Child +M 0 6207 1 6253 Pregnant Orc Woman +M 0 6208 2 6254 Mutant Orc +M 0 6208 2 6254 Mutant Orc +M 0 6209 3 6251 Mutant Orc +E 1 6204 1 16 Club +M 0 6209 3 6250 Mutant Orc +E 1 6204 1 16 Club +M 0 6209 3 6244 Mutant Orc +E 1 6204 1 16 Club +M 0 6210 1 6259 Elstar +E 1 6205 1 16 Starkblade +E 1 6203 1 17 Runestone +M 0 6211 1 6216 Elven Child +G 1 6200 1 Key +M 0 6212 4 6267 Mutant Thing +M 0 6212 4 6264 Mutant Thing +M 0 6212 4 6261 Mutant Thing +M 0 6213 1 6265 Mutant Thing +E 1 6201 1 9 Manacles +E 1 6202 1 8 Shackles +* Doors +D 0 6255 3 2 +D 0 6256 1 2 +D 0 6256 3 1 +D 0 6257 1 1 +D 0 6266 1 1 +D 0 6267 3 1 +D 0 6263 1 1 +D 0 6264 3 1 +D 0 6260 1 1 +D 0 6261 3 1 +S +$ + diff --git a/lib/world/zon/63.zon b/lib/world/zon/63.zon new file mode 100644 index 0000000..519f6b6 --- /dev/null +++ b/lib/world/zon/63.zon @@ -0,0 +1,54 @@ +#63 +Arachnos~ +6300 6399 34 2 +* +* Created by Mahatma of HexOynx +* +* Mobiles +M 0 6301 10 6301 Young Spider +M 0 6301 10 6306 Young Spider +M 0 6301 10 6306 Young Spider +M 0 6301 10 6304 Young Spider +M 0 6305 1 6303 Wasp +M 0 6310 1 6342 Bird Spider +M 0 6303 1 6313 Wolf Spider +M 0 6308 5 6308 Slave +M 0 6308 5 6308 Slave +M 0 6308 5 6308 Slave +M 0 6308 5 6308 Slave +M 0 6308 5 6308 Slave +M 0 6309 2 6327 Quasit +M 0 6307 5 6335 Ethereal Spider +M 0 6307 5 6333 Ethereal Spider +M 0 6304 1 6332 Stuck Orc +G 1 6300 1 Key To Arachnos' Chambers +M 0 6306 3 6321 Drone Spider +G 1 6305 10 Black Potion +M 0 6306 3 6331 Drone Spider +G 1 6305 10 Black Potion +M 0 6311 1 6373 Hermit +G 1 6302 2 Wizard's Hat +M 0 6315 1 6350 Ki-Rin +G 1 6109 10 Blue Potion +G 1 6109 10 Blue Potion +M 0 6314 1 6399 Arachnos +G 1 6301 5 Thief's Knife +G 1 6302 2 Wizard's Hat +G 1 6303 2 Pontiff's Headdress +G 1 6304 2 Black Knight's Visor +M 0 6312 1 6370 Donjonkeeper +G 1 6301 5 Thief's Knife +G 1 6109 10 Blue Potion +M 0 6313 1 6367 Guardian +M 0 6306 3 6330 Drone Spider +M 0 6302 1 6360 Yevaud +G 1 6304 2 Black Knight's Visor +G 1 7203 1 Purple Cloak +M 0 6316 1 6330 Baby Dragon +M 0 6317 1 6340 Elder Wormkin +* Doors +D 0 6392 0 2 Arachnos' Lair +D 0 6399 2 2 +* +S +$ diff --git a/lib/world/zon/64.zon b/lib/world/zon/64.zon new file mode 100644 index 0000000..62939c0 --- /dev/null +++ b/lib/world/zon/64.zon @@ -0,0 +1,82 @@ +#64 +Rand's Tower~ +6400 6499 20 1 +* +* Created by Amanda Eterniale of C.A.W. +* Official C.A.W. site: http://qsilver.queensu.ca/~fletchra/Caw/ +* Mail Address: fletchra@qsilver.queensu.ca +* +* Mobiles +M 0 6400 3 6400 Goats +M 0 6400 3 6402 Goats +M 0 6400 3 6404 Goats +M 0 6401 2 6407 Demons +M 0 6401 2 6407 Demons +M 0 6402 1 6412 Book Monster +G 1 6410 20 Chaos Book +G 1 6411 20 Elder Book +M 0 6403 1 6411 Bad Feeling +M 0 6405 1 6437 Door Guardian +O 0 6416 1 6416 Chest +M 0 6404 3 6416 Worst Nightmare +P 1 6401 50 6416 Glowing Platemail +O 0 6417 1 6416 Chest +M 0 6404 3 6416 Worst Nightmare +P 1 6405 100 6417 Dragon's Blood +P 1 6407 50 6417 Tent Pole +O 0 6418 1 6416 Chest +M 0 6404 1 6416 Worst Nightmare +P 1 6406 100 6418 Amulet +P 1 6408 1 6418 Powder Of Wealth +P 1 6412 10 6418 Occluded Lens +* Objects +R 0 6411 6404 +O 0 6404 5 6411 Sculpture +O 0 6409 1 6411 Desk +P 0 6402 50 6409 Agate +P 0 6403 50 6409 Jade +P 0 6400 50 6409 Glowing Dagger +R 0 6441 6413 +O 0 6413 100 6441 Mevais +R 0 6441 6414 +O 0 6414 100 6441 Peska +R 0 6436 6415 +O 0 6415 10 6436 Rand's Staff +R 0 6410 6419 +O 0 6419 1 6410 Water Basin +R 0 6424 6420 +O 0 6420 10 6424 Food +R 0 6424 6420 +O 0 6420 10 6424 Food +* Doors +D 0 6406 5 1 +D 0 6407 4 1 +D 0 6407 2 1 +D 0 6408 0 1 +D 0 6409 0 1 +D 0 6409 2 1 +D 0 6410 0 1 +D 0 6411 2 1 +D 0 6412 1 1 +D 0 6412 3 1 +D 0 6413 3 1 +D 0 6414 1 1 +D 0 6414 5 1 +D 0 6415 3 1 +D 0 6416 4 1 +D 0 6417 0 1 +D 0 6417 1 1 +D 0 6417 2 1 +D 0 6418 0 1 +D 0 6419 2 1 +D 0 6420 0 1 +D 0 6421 2 1 +D 0 6423 0 1 +D 0 6424 2 1 +D 0 6435 3 2 +D 0 6436 1 2 +D 0 6437 3 1 +D 0 6438 1 1 +S +$ + diff --git a/lib/world/zon/65.zon b/lib/world/zon/65.zon new file mode 100644 index 0000000..3d8dfd0 --- /dev/null +++ b/lib/world/zon/65.zon @@ -0,0 +1,132 @@ +#65 +The Dwarven Kingdom~ +6500 6599 40 2 +* +* Mobiles +M 0 6500 11 6505 Dwarf Guard +E 1 6504 100 16 Dwarven Hammer +E 1 6505 100 5 Dwarven Plate +E 1 6515 3 17 Key To Entrance Of Mountain +M 0 6500 11 6540 Dwarf Guard +E 1 6504 100 16 Dwarven Hammer +E 1 6505 100 5 Dwarven Plate +E 1 6502 100 17 Key To The Mines +M 0 6500 11 6505 Dwarf Guard +E 1 6504 100 16 Dwarven Hammer +E 1 6505 100 5 Dwarven Plate +M 0 6500 11 6540 Dwarf Guard +E 1 6504 100 16 Dwarven Hammer +E 1 6505 100 5 Dwarven Plate +M 0 6500 11 6509 Dwarf Guard +E 1 6512 100 9 Dwarven Gloves +E 1 6509 100 16 Two-Handed Dwarven Axe +M 0 6500 11 6521 Dwarf Guard +M 1 6500 11 6521 Dwarf Guard +M 1 6500 11 6521 Dwarf Guard +M 0 6500 11 6512 Dwarf Guard +E 1 6508 100 16 Dwarven Club +M 0 6500 11 6512 Dwarf Guard +E 1 6508 100 16 Dwarven Club +M 0 6500 11 6509 Dwarf Guard +E 1 6509 100 16 Two-Handed Dwarven Axe +E 1 6510 100 6 Dwarven Helmet +E 1 6511 100 1 Golden Dwarf Ring +M 0 6501 9 6503 Dwarven Worker +M 0 6501 9 6502 Dwarven Worker +M 0 6501 9 6501 Dwarven Worker +M 0 6502 1 6527 Wraith +E 1 6503 100 17 Key To The Castle +* Shopkeepers +M 0 6503 1 6516 Hide & Tooth Storekeeper +G 1 3022 100 Long Sword +G 1 6504 100 Dwarven Hammer +G 1 6505 100 Dwarven Plate +G 1 6510 100 Dwarven Helmet +G 1 6512 100 Dwarven Gloves +E 1 6504 100 16 Dwarven Hammer +M 0 6504 1 6535 Granite Head The Baker +G 1 3000 100 Beer Barrel +G 1 3003 100 Firebreather +G 1 3010 100 Loaf Of Bread +G 1 3011 100 Danish Pastry +G 1 3031 100 Lantern +G 1 6013 100 Water Barrel +E 1 6504 100 16 Dwarven Hammer +* Mobiles +M 0 6505 2 6515 Lizard +M 0 6505 2 6520 Lizard +M 0 6506 2 6508 Giant +E 1 6505 100 5 Dwarven Plate +M 0 6507 4 6543 Dwarven Mineworker +E 1 6508 100 16 Dwarven Club +M 0 6507 4 6543 Dwarven Mineworker +E 1 6508 100 16 Dwarven Club +M 0 6507 4 6542 Dwarven Mineworker +E 1 6508 100 16 Dwarven Club +M 0 6507 4 6542 Dwarven Mineworker +E 1 6508 100 16 Dwarven Club +M 0 6508 1 6543 Dwarven Mineleader +E 1 6512 100 9 Dwarven Gloves +E 1 6508 100 16 Dwarven Club +M 0 6509 1 6534 Dwarf Doctor +E 1 6506 100 17 Long Black Heal Stick +M 0 6510 4 6534 Dwarf Peon +E 1 7211 100 16 Short Sword +M 0 6510 4 6534 Dwarf Peon +E 1 7211 100 16 Short Sword +M 0 6511 8 6523 Barrack Dwarf +E 1 7211 100 16 Short Sword +M 0 6511 8 6523 Barrack Dwarf +E 1 7211 100 16 Short Sword +M 0 6511 8 6523 Barrack Dwarf +E 1 7211 100 16 Short Sword +M 0 6511 8 6524 Barrack Dwarf +E 1 6504 100 16 Dwarven Hammer +M 0 6511 8 6524 Barrack Dwarf +E 1 7211 100 16 Short Sword +M 0 6511 8 6524 Barrack Dwarf +E 1 7211 100 16 Short Sword +M 0 6514 4 6521 Barrack Guard +E 1 6509 100 16 Two-Handed Dwarven Axe +M 0 6514 4 6521 Barrack Guard +E 1 6509 100 16 Two-Handed Dwarven Axe +M 0 6516 1 6553 Mazekeeper +E 1 6500 1 17 Key To The Treasury +O 1 6501 1 6554 Treasure +M 0 6517 2 6548 Giant Snake +M 0 6517 2 6549 Giant Snake +* Objects +R 0 6513 6507 +O 0 6507 4 6513 Long Black Light Stick +R 0 6505 6507 +O 0 6507 4 6505 Long Black Light Stick +R 0 6503 6507 +O 0 6507 4 6503 Long Black Light Stick +R 0 6540 6507 +O 0 6507 4 6540 Long Black Light Stick +O 0 6513 6 6545 Chunk Of Coal +R 0 6551 6514 +O 0 6514 3 6551 Mining Pick +O 0 6516 1 6532 Key To The Mine Maze +* Doors +D 0 6505 3 2 Mountain Entrance +D 0 6513 1 2 +D 0 6509 0 2 Kingdom Door +D 0 6510 2 2 +D 0 6512 1 2 Castle Door +D 0 6525 3 2 +D 0 6521 2 1 Barracks Entrance +D 0 6523 0 1 +D 0 6526 5 1 Wine Cellar +D 0 6527 4 1 +D 0 6531 0 1 Queen's Bedroom +D 0 6532 2 1 +D 0 6532 3 2 Treasury Door +D 0 6554 1 2 +D 0 6540 1 2 Mine Entrance +D 0 6541 3 2 +D 0 6544 0 2 Maze Entrance +D 0 6546 2 2 +* +S +$ diff --git a/lib/world/zon/70.zon b/lib/world/zon/70.zon new file mode 100644 index 0000000..a7730ce --- /dev/null +++ b/lib/world/zon/70.zon @@ -0,0 +1,23 @@ +#70 +The Sewer, First Level~ +7000 7099 15 2 +* +* Mobiles +M 0 7001 9 7041 The Mean Bat +M 0 7001 9 7025 The Mean Bat +M 0 7001 9 7004 The Mean Bat +M 0 7001 9 7004 The Mean Bat +M 0 7002 3 7049 The Sewer Rat +M 0 7002 3 7031 The Sewer Rat +M 0 7003 8 7039 The Small Hairy Spider +M 0 7003 8 7039 The Small Hairy Spider +M 0 7003 8 7039 The Small Hairy Spider +M 0 7003 8 7037 The Small Hairy Spider +M 0 7003 8 7037 The Small Hairy Spider +M 0 7003 8 7050 The Small Hairy Spider +* Doors +D 0 7047 1 1 South End Of The Grand Sewer +D 0 7053 3 1 +* +S +$ diff --git a/lib/world/zon/71.zon b/lib/world/zon/71.zon new file mode 100644 index 0000000..d733ec5 --- /dev/null +++ b/lib/world/zon/71.zon @@ -0,0 +1,25 @@ +#71 +The Second Sewer~ +7100 7199 20 2 +* +* Mobiles +M 0 7004 3 7102 The Earth Beetle +M 0 7005 7 7112 The Giant Maggot +M 0 7005 7 7112 The Giant Maggot +M 0 7005 7 7122 The Giant Maggot +M 0 7002 7 7104 The Sewer Rat +M 0 7000 3 7103 The Horrifying Mudmonster +M 0 7000 3 7103 The Horrifying Mudmonster +M 0 7006 7 7113 The Slithering Snake +M 0 7006 7 7122 The Slithering Snake +M 0 7006 7 7122 The Slithering Snake +* Doors +D 0 7106 5 1 The Abyss +D 0 7111 5 1 The Abyss +D 0 7121 5 1 The Abyss +D 0 7279 4 1 +D 0 7116 5 1 Secret Way Down +D 0 7280 4 1 +* +S +$ diff --git a/lib/world/zon/72.zon b/lib/world/zon/72.zon new file mode 100644 index 0000000..abc0846 --- /dev/null +++ b/lib/world/zon/72.zon @@ -0,0 +1,62 @@ +#72 +The Sewer Maze~ +7200 7299 25 2 +* +* Mobiles +M 0 7200 1 7201 Master Mindflayer +E 1 7200 1 16 Devil Rod +E 1 7203 1 3 Cloak +G 1 7205 1 Key +O 1 7204 6 7200 Neon Blue Potion +O 1 7210 1 7200 Treasure +M 0 7201 1 7203 Senior Mindflayer +E 1 7201 4 16 Large Mace +M 0 7202 2 7205 Junior Mindflayer +E 1 7202 8 16 Small Mace +M 0 7202 2 7207 Junior Mindflayer +E 1 7202 8 16 Small Mace +M 0 7203 10 7214 Wererat +E 1 7211 16 16 Short Sword +M 0 7203 10 7213 Wererat +E 1 7211 16 16 Short Sword +M 0 7203 10 7215 Wererat +E 1 7211 16 16 Short Sword +M 0 7203 10 7217 Wererat +E 1 7211 16 16 Short Sword +M 0 7203 10 7219 Wererat +M 0 7203 10 7221 Wererat +M 0 7203 10 7223 Wererat +M 0 7203 10 7225 Wererat +M 0 7203 10 7233 Wererat +M 0 7203 10 7233 Wererat +M 0 7204 1 7234 Gigantic Rat +M 0 7002 5 7285 The Sewer Rat +M 0 7002 5 7285 The Sewer Rat +E 1 7190 2 2 Silver Ring +E 1 7209 4 8 Muddy Boots +G 1 7208 20 Light Stick +M 0 7002 5 7285 The Sewer Rat +M 0 7000 8 7286 The Horrifying Mudmonster +M 0 7000 8 7286 The Horrifying Mudmonster +M 0 7000 8 7281 The Horrifying Mudmonster +M 0 7000 8 7281 The Horrifying Mudmonster +M 0 7000 8 7280 The Horrifying Mudmonster +* Objects +R 0 7206 7206 +O 0 7206 4 7206 Skull +R 0 7211 7208 +O 0 7208 20 7211 Light Stick +* Doors +D 0 7201 3 2 Treasury Door +D 0 7200 1 2 +D 0 7202 0 1 Inner Lair Door +D 0 7201 2 1 +D 0 7208 0 1 Lair Door +D 0 7204 2 1 +D 0 7281 2 1 Entrance Door +D 0 7280 0 1 +D 0 7286 0 1 Torture Room Door +D 0 7285 2 1 +* +S +$ diff --git a/lib/world/zon/73.zon b/lib/world/zon/73.zon new file mode 100644 index 0000000..1139b82 --- /dev/null +++ b/lib/world/zon/73.zon @@ -0,0 +1,30 @@ +#73 +The Tunnels In The Sewer~ +7300 7399 25 2 +* +* Mobiles +M 0 7040 1 7328 The Red Dragon +M 0 7041 2 7344 The Sea Hag +M 0 7042 2 7335 The Good Guardian Naga +M 0 7043 3 7339 The Basilisk +M 0 7044 6 7306 The Lemure Blob +M 0 7045 1 7319 Jones The Ettin +M 0 7046 1 7324 Herald The Ettin +M 0 7010 2 7329 Chr-eff'n +* Doors +D 0 7304 2 1 The Secret Room Door +D 0 7305 0 1 +D 0 7305 2 1 The Mudhole Entrance +D 0 7306 0 1 +D 0 7315 0 1 The Treasure Room Door +D 0 7316 2 1 +D 0 7321 3 1 The Square Lair +D 0 7318 1 1 +D 0 7324 0 2 False Door +D 0 7324 2 2 False Door +D 0 7324 1 1 Secret Tunnel Entrance +D 0 7325 3 1 +D 0 7333 3 1 Stair-Room Entrance +* +S +$ diff --git a/lib/world/zon/79.zon b/lib/world/zon/79.zon new file mode 100644 index 0000000..0037dca --- /dev/null +++ b/lib/world/zon/79.zon @@ -0,0 +1,63 @@ +#79 +Redferne's Residence~ +7900 7999 50 2 +* +* Created for DikuMud +* +* Modified by Cyron of VieMud +* +* Mobiles +M 0 7900 1 7900 Grand Knight of Paladins +E 1 7901 4 17 Copper Key +E 1 7910 2 16 Bastard Sword +E 1 7914 2 5 Silvery Breast-Plate +E 1 7915 2 7 Silvery Leg Plates +E 1 7916 2 9 Silvery Gloves +E 1 7917 2 6 Silvery Helmet +E 1 7918 2 11 Shield of the Rose +E 1 7919 2 8 Heavy Boots +E 1 7920 2 10 Silvery Arm Plates +M 0 7901 2 7907 Rat +G 1 7900 1 Brass Key +M 0 7901 2 7907 Rat +M 0 7902 1 7913 The Cleaver +E 1 7907 6 14 Spiked Bracelet +E 1 7907 6 15 Spiked Bracelet +E 1 7911 2 6 Large Helmet +G 1 7902 1 Steel Key +* Objects +R 0 7907 7908 +O 0 7908 40 7907 Waybread +R 0 7908 7921 +O 0 7921 10 7908 Water Barrel +R 0 7903 7904 +O 0 7904 1 7903 Chest +P 1 7903 1 7904 Money +P 1 7909 4 7904 Golden Ring +R 0 7913 7905 +O 1 7905 1 7913 Chest +P 1 7906 5 7905 +P 1 7912 3 7905 Chaos Helmet +P 1 7913 2 7905 Two-Handed Sword +* Doors +D 0 7900 0 2 Residence Door +D 0 7901 2 2 +D 0 7901 1 1 Treasure Room Door +D 0 7910 3 1 +D 0 7901 3 1 Library Door +D 0 7902 1 1 +D 0 7910 1 2 Safe Entrance +D 0 7903 3 2 +D 0 7904 1 1 Monster Pen Door +D 0 7913 3 1 +D 0 7904 3 1 Sitting Room Door +D 0 7905 1 1 +D 0 7906 0 1 Larder Door +D 0 7907 2 1 +D 0 7906 1 1 Fridge Door +D 0 7908 3 1 +D 0 7911 2 1 Balcony Doors +D 0 7912 0 1 +* +S +$ diff --git a/lib/world/zon/9.zon b/lib/world/zon/9.zon new file mode 100644 index 0000000..e436632 --- /dev/null +++ b/lib/world/zon/9.zon @@ -0,0 +1,50 @@ +#9 +River Island Of Minos~ +900 999 39 1 +* +* Created by Mahatma of HexOynx +* +* Mobiles +* First Test +M 0 900 3 915 Homba +M 0 900 3 915 Homba +M 0 900 3 915 Homba +* Second Test +M 0 901 2 916 Swordsman +E 1 901 15 17 Speckled Potion +M 0 901 2 916 Swordsman +* Third Test +M 0 902 1 917 Mummy +* Fourth Test +M 0 903 1 918 Giant Lizard +* Fifth Test +M 0 904 1 919 General Woundwart +E 1 903 10 9 Troll Gauntlets +E 1 902 25 17 Speckled Potion +* Sixth Test +M 0 905 1 920 Franz +E 1 905 10 16 Flail +M 0 906 1 920 Hanz +E 1 907 5 16 Heavy Spear +* Final Test And Treasure +M 0 907 1 921 Minos +E 1 901 8 11 Minotaur Shield +E 1 900 1 17 Golden Key +O 1 904 10 922 Platinum Ring +O 1 906 1 922 Gold +M 0 909 2 908 Sea Hag +M 0 909 2 908 Sea Hag +M 0 910 2 909 Merman +E 1 908 30 16 Trident +M 0 910 2 909 Merman +E 1 908 30 16 Trident +M 0 911 3 910 Crab +M 0 911 3 910 Crab +* Objects +R 0 910 909 +O 0 909 12 910 Boots Of Water Walking +* Doors +D 0 921 1 2 Treasure Room Door +* +S +$ diff --git a/lib/world/zon/index b/lib/world/zon/index new file mode 100644 index 0000000..f94aac3 --- /dev/null +++ b/lib/world/zon/index @@ -0,0 +1,32 @@ +0.zon +9.zon +12.zon +15.zon +25.zon +30.zon +31.zon +33.zon +35.zon +36.zon +40.zon +50.zon +51.zon +52.zon +53.zon +54.zon +60.zon +61.zon +62.zon +63.zon +64.zon +65.zon +70.zon +71.zon +72.zon +73.zon +79.zon +120.zon +150.zon +186.zon +$ + diff --git a/lib/world/zon/index.mini b/lib/world/zon/index.mini new file mode 100644 index 0000000..9e3447f --- /dev/null +++ b/lib/world/zon/index.mini @@ -0,0 +1,4 @@ +0.zon +12.zon +30.zon +$ diff --git a/lib/world/zone.lst b/lib/world/zone.lst new file mode 100644 index 0000000..e19d05a --- /dev/null +++ b/lib/world/zone.lst @@ -0,0 +1,22 @@ +Zone Vnum List +************** + +0 - Limbo - Internal 54 - New Thalos +9 - The River Island 55 - New Thalos (Cont) +12 - God Simplex 56 - New Thalos (Cont) +15 - The Straight Path 60 - Haon-Dor-Light Forest +25 - High Tower Of Sorcery 61 - Haon-Dor-Dark Forest +26 - High Tower Of Sorcery (Cont) 62 - Orc Enclave +30 - Midgaard City 63 - Arachnos +31 - Midgaard City 64 - Rand's Tower +32 - Midgaard River 65 - Dwarven Kingdom +33 - Three Of Swords 70 - Sewers +35 - Miden'nir 71 - Sewers +36 - Chessboard 72 - Sewers +40 - Moria 73 - Sewers +41 - Moria (Cont) 79 - Redferne's Residence +50 - Great Eastern Desert 120 - Rome +51 - Drow City 150 - King Welmar's Castle +52 - Old Thalos 186 - Newbie Zone +53 - Great Pyramid + diff --git a/log/README b/log/README new file mode 100644 index 0000000..94a75ce --- /dev/null +++ b/log/README @@ -0,0 +1 @@ +This directory is for log files. diff --git a/macrun.pl b/macrun.pl new file mode 100644 index 0000000..d44793f --- /dev/null +++ b/macrun.pl @@ -0,0 +1,136 @@ +#!perl + +############################################################################## +# Portions of this script are Copyright 1998 by dean takemori. +# +# This is a MacPerl script which attempts to impliment autorun functionality +# for MacOS. It's a bit of a bastardisation of MacPerl and "standard" unix +# style perl. I won't claim that it's pretty. Parts of it come from the +# Autorun perl script for unix that is distributed with CircleMUD and it is +# therefore subject to the following. + +# Copyright (c)1995 Vi'Rage Studios + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + +# csh original by Fred C. Merkel, PERL conversion by D. Hall + +# .fastboot sleep for only 5 seconds, instead of the default 20 +# .killscript script will exit, and mud will not reboot +# .pause pause (sleep 1 minute intervals) until .pause it removed +############################################################################## + +use 5.004; +use Mac::MoreFiles; +use Mac::Processes; + +# launchContinue() must be set or MacPerl will quit after LaunchApplication(). +# The creator code "dtCM" is registered with Apple Computer for CircleMUD. +# However, if you have multiple copies of Circle on disk (a production MUD +# and a testing MUD for example), you may wish to specify by FULL PATH, +# which application to run. + +$spec = $Application{'dtCM'}; +#$spec = "volume:apps:myapp"; + +my($app); +$app = new LaunchParam( + 'launchControlFlags' => launchContinue(), + 'launchAppSpec' => $spec + ) or die ($^E); + +my($psn, $spec_found); +while (1) + { + LaunchApplication($app) or die($^E); + do + { + # Now, every 60 seconds, scan the running processes for one whose + # AppSpec matches the one we set up earlier. + sleep(60); + $spec_found = 0; + foreach $psn (keys(%Process)) + { + if ( $spec eq $Process{$psn}->processAppSpec() ) + { + $spec_found = 1; + break; # out of the foreach + } + } + } while ($spec_found == 1); + + # If we're here, then the App is no longer running. + # First we open everything + open (SYSLOG, ":syslog") or die($^E); + open (DELETE, ">>:log:delete"); + open (DTRAPS, ">>:log:dtraps"); + open (DEATHS, ">>:log:deaths"); + open (REBOOT, ">>:log:reboots"); + open (LEVELS, ">>:log:levels"); + open (NORENT, ">>:log:norent"); + open (USAGE, ">>:log:usage"); + open (NEWPLR, ">>:log:newplrs"); + open (SYSERR, ">>:log:errors"); + open (GODCMD, ">>:log:godcmds"); + open (BADPWS, ">>:log:badpws"); + + # Then we stash everything + while (<SYSLOG>) + { + print DELETE if /self-delete/; + print DTRAPS if /death trap/; + print DEATHS if /killed/; + print REBOOT if /Running/; + print LEVELS if /advanced/; + print NORENT if /equipment lost/; + print USAGE if /usage/; + print NEWPLR if /new player/; + print SYSERR if /SYSERR/; + print GODCMD if /$GC$/; + print BADPWs if /Bad PW/; + } + close (SYSLOG); + + # Rotate SYSLOG files + if (-e ":log:syslog.6") { unlink (":log:syslog.6"); } + if (-e ":log:syslog.6") { rename (":log:syslog.5", ":log:syslog.6"); } + if (-e ":log:syslog.6") { rename (":log:syslog.4", ":log:syslog.5"); } + if (-e ":log:syslog.6") { rename (":log:syslog.3", ":log:syslog.4"); } + if (-e ":log:syslog.6") { rename (":log:syslog.2", ":log:syslog.3"); } + if (-e ":log:syslog.6") { rename (":log:syslog.1", ":log:syslog.2"); } + rename (":syslog" , ":log:syslog.1"); + + # should we stay dead? + if (-r ".killscript") + { + unlink(".killscript"); + open (SYSLOG, ">>:log:syslog.1"); + print (SYSLOG "autoscript killed ", localtime()); #seconds since epoch + exit; + } + + # or just play dead? + while (-r ".pause") + { sleep(60); } + + # or reboot as soon as possible? + if (-r ".fastboot") + { + unlink(".fastboot"); + sleep(5); + } + else + { sleep(20); } + } diff --git a/release_notes.3.1.txt b/release_notes.3.1.txt new file mode 100644 index 0000000..4e57155 --- /dev/null +++ b/release_notes.3.1.txt @@ -0,0 +1,58 @@ +It's here. It's been a long time coming (9 years and a day in fact[1]), +but it has finally arrived. + +CircleMUD 3.1 is now made officially available for your consumption. + +This is the final[2] release that all of the beta patchlevels over the +last several years have been building towards. + +Some brief history on the CircleMUD 3.x releases: + +After the highly successful release of CircleMUD 2.20, steps were quickly +made towards overhauling the codebase from ground up, extending what could +be done, and removing bugs and loopholes all over the place. This +culminated in an "internal" release of CircleMUD 3.0, which over the +course of a few months led to a release of Patch Level 4 on September 24, +1994, a little less than a year after the 2.20 release. A mere 8+ years +later, many additions, 20 patchlevels, many new bugs, and something called +"documentation", the beta testing period is over, and we have made a full +and proper release! + +The changes are too numerous to list[3], but some highlights of +differences from CircleMUD 2.20[4] include an entirely new world, new shop +structure, several new core members for the development team, and coherent[5] +documentation on the world and core components of the source code. + +Work will begin shortly on the CircleMUD 4.x series, with a release +expected in late 2010[6]. + +Don't run with scissors, but make your way to: + ftp://ftp.circlemud.org/pub/CircleMUD/3.x/ + +Special thanks to all of those on the CircleMUD Mailing List and everyone +who submitted bug reports over the last decade, we couldn't have done it +without you.[7] + +Best Regards, + +The CircleMUD Development Team, 2002 +<cdev@circlemud.org> + Jeremy Elson <jelson@circlemud.org> Since Jul 16, 1993 + Chris Epler <cepler@circlemud.org> Since Late , 1994 + Alex Fletcher <furry@circlemud.org> Since Feb 23, 1995 + George Greer <greerga@circlemud.org> Since Oct 14, 1997 + Daniel A. Koepke <dkoepke@circlemud.org> Since Jul 11, 1999 + + +[1] CircleMUD 2.20 was released on November 17, 1993. CircleMUD 3.1 was + released November 18, 2002. +[2] We, the CircleMUD Group, reserve the right to all and any future "final" + CircleMUD releases. +[3] But they're listed in the Changelog file anyhow, just in case you're + really curious. +[4] Everyone compares to their last full version, why can't we? +[5] Well, we'd like to think so at least. +[6] We're hoping to time it with the discovery of a monolith around Jupiter. +[7] And had you not submitted so many damned bug reports, we would have had + this finished almost a decade ago! + diff --git a/src/.gitignore b/src/.gitignore new file mode 100644 index 0000000..a15bba5 --- /dev/null +++ b/src/.gitignore @@ -0,0 +1,3 @@ +conf.h +.accepted +Makefile diff --git a/src/Makefile b/src/Makefile new file mode 100644 index 0000000..abc978e --- /dev/null +++ b/src/Makefile @@ -0,0 +1,3 @@ +all: + # You must run "configure" in Circle's top-level directory. See the + # README file in that directory for more information. diff --git a/src/Makefile.amiga b/src/Makefile.amiga new file mode 100644 index 0000000..e32f8d8 --- /dev/null +++ b/src/Makefile.amiga @@ -0,0 +1,212 @@ +# CircleMUD Makefile.in - Makefile template used by 'configure' +# + +# C compiler to use +CC = gcc + +# Any special flags you want to pass to the compiler +MYFLAGS = +#Amiga Stuff <jpatton@intserv.com> +MYFLAGS = -g -Wall -DAMIGA -DNOCRYPT +LIBS = -lc -lamiga -lauto + +#flags for profiling (see hacker.doc for more information) +PROFILE = + +############################################################################## +# Do Not Modify Anything Below This Line (unless you know what you're doing) # +############################################################################## + +CFLAGS = $(MYFLAGS) $(PROFILE) + +OBJFILES = comm.o act.comm.o act.informative.o act.movement.o act.item.o \ + act.offensive.o act.other.o act.social.o act.wizard.o ban.o boards.o \ + castle.o class.o config.o constants.o db.o fight.o graph.o handler.o \ + house.o interpreter.o limits.o magic.o mail.o mobact.o modify.o \ + objsave.o olc.o shop.o spec_assign.o spec_procs.o spell_parser.o \ + spells.o utils.o weather.o alias.o + +default: .accepted + $(MAKE) ../bin/circle + +.accepted: + ./licheck + +utils: .accepted + $(MAKE) ../bin/autowiz + $(MAKE) ../bin/delobjs + $(MAKE) ../bin/listrent + $(MAKE) ../bin/mudpasswd + $(MAKE) ../bin/play2to3 + $(MAKE) ../bin/purgeplay + $(MAKE) ../bin/shopconv + $(MAKE) ../bin/showplay + $(MAKE) ../bin/sign + $(MAKE) ../bin/split + $(MAKE) ../bin/wld2html + +all: .accepted + $(MAKE) ../bin/circle + $(MAKE) utils + +circle: + $(MAKE) ../bin/circle +autowiz: + $(MAKE) ../bin/autowiz +delobjs: + $(MAKE) ../bin/delobjs +listrent: + $(MAKE) ../bin/listrent +mudpasswd: + $(MAKE) ../bin/mudpasswd +play2to3: + $(MAKE) ../bin/play2to3 +purgeplay: + $(MAKE) ../bin/purgeplay +shopconv: + $(MAKE) ../bin/shopconv +showplay: + $(MAKE) ../bin/showplay +sign: + $(MAKE) ../bin/sign +split: + $(MAKE) ../bin/split +wld2html: + $(MAKE) ../bin/wld2html + + +../bin/autowiz: util/autowiz.c conf.h sysdep.h structs.h utils.h db.h + $(CC) $(CFLAGS) -o ../bin/autowiz util/autowiz.c +../bin/delobjs: util/delobjs.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) -o ../bin/delobjs util/delobjs.c +../bin/listrent: util/listrent.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) -o ../bin/listrent util/listrent.c +../bin/mudpasswd: util/mudpasswd.c conf.h sysdep.h structs.h utils.h + $(CC) $(CFLAGS) -o ../bin/mudpasswd util/mudpasswd.c $(LIBS) +../bin/play2to3: util/play2to3.c + $(CC) $(CFLAGS) -o ../bin/play2to3 util/play2to3.c +../bin/purgeplay: util/purgeplay.c conf.h sysdep.h structs.h utils.h + $(CC) $(CFLAGS) -o ../bin/purgeplay util/purgeplay.c +../bin/shopconv: util/shopconv.c conf.h sysdep.h structs.h db.h utils.h shop.h + $(CC) $(CFLAGS) -o ../bin/shopconv util/shopconv.c +../bin/showplay: util/showplay.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) -o ../bin/showplay util/showplay.c +../bin/sign: util/sign.c conf.h sysdep.h + $(CC) $(CFLAGS) -o ../bin/sign util/sign.c $(LIBS) +../bin/split: util/split.c + $(CC) $(CFLAGS) -o ../bin/split util/split.c +../bin/wld2html: util/wld2html.c + $(CC) $(CFLAGS) -o ../bin/wld2html util/wld2html.c + +../bin/circle : $(OBJFILES) + $(CC) -o ../bin/circle $(PROFILE) $(OBJFILES) $(LIBS) +clean: + rm -f *.o + +# Dependencies for the object files (automagically generated with +# gcc -MM) + +alias.o: alias.c conf.h sysdep.h structs.h utils.h interpreter.h db.h + $(CC) -c $(CFLAGS) alias.c +act.comm.o: act.comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h screen.h + $(CC) -c $(CFLAGS) act.comm.c +act.informative.o: act.informative.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h screen.h constants.h + $(CC) -c $(CFLAGS) act.informative.c +act.item.o: act.item.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.item.c +act.movement.o: act.movement.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h constants.h + $(CC) -c $(CFLAGS) act.movement.c +act.offensive.o: act.offensive.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.offensive.c +act.other.o: act.other.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h screen.h house.h + $(CC) -c $(CFLAGS) act.other.c +act.social.o: act.social.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.social.c +act.wizard.o: act.wizard.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h screen.h constants.h + $(CC) -c $(CFLAGS) act.wizard.c +ban.o: ban.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h + $(CC) -c $(CFLAGS) ban.c +boards.o: boards.c conf.h sysdep.h structs.h utils.h comm.h db.h boards.h \ + interpreter.h handler.h + $(CC) -c $(CFLAGS) boards.c +castle.o: castle.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) -c $(CFLAGS) castle.c +class.o: class.c conf.h sysdep.h structs.h db.h utils.h spells.h interpreter.h + $(CC) -c $(CFLAGS) class.c +comm.o: comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h house.h + $(CC) -c $(CFLAGS) comm.c +config.o: config.c conf.h sysdep.h structs.h + $(CC) -c $(CFLAGS) config.c +constants.o: constants.c conf.h sysdep.h structs.h + $(CC) -c $(CFLAGS) constants.c +db.o: db.c conf.h sysdep.h structs.h utils.h db.h comm.h handler.h spells.h mail.h \ + interpreter.h house.h + $(CC) -c $(CFLAGS) db.c +fight.o: fight.c conf.h sysdep.h structs.h utils.h comm.h handler.h interpreter.h \ + db.h spells.h screen.h + $(CC) -c $(CFLAGS) fight.c +graph.o: graph.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h spells.h + $(CC) -c $(CFLAGS) graph.c +handler.o: handler.c conf.h sysdep.h structs.h utils.h comm.h db.h handler.h \ + interpreter.h spells.h + $(CC) -c $(CFLAGS) handler.c +house.o: house.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h house.h constants.h + $(CC) -c $(CFLAGS) house.c +interpreter.o: interpreter.c conf.h sysdep.h structs.h comm.h interpreter.h db.h \ + utils.h spells.h handler.h mail.h screen.h + $(CC) -c $(CFLAGS) interpreter.c +limits.o: limits.c conf.h sysdep.h structs.h utils.h spells.h comm.h db.h \ + handler.h + $(CC) -c $(CFLAGS) limits.c +magic.o: magic.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h db.h + $(CC) -c $(CFLAGS) magic.c +mail.o: mail.c conf.h sysdep.h structs.h utils.h comm.h db.h interpreter.h \ + handler.h mail.h + $(CC) -c $(CFLAGS) mail.c +mobact.o: mobact.c conf.h sysdep.h structs.h utils.h db.h comm.h interpreter.h \ + handler.h spells.h + $(CC) -c $(CFLAGS) mobact.c +modify.o: modify.c conf.h sysdep.h structs.h utils.h interpreter.h handler.h db.h \ + comm.h spells.h mail.h boards.h + $(CC) -c $(CFLAGS) modify.c +objsave.o: objsave.c conf.h sysdep.h structs.h comm.h handler.h db.h \ + interpreter.h utils.h spells.h + $(CC) -c $(CFLAGS) objsave.c +olc.o: olc.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h \ + olc.h + $(CC) -c $(CFLAGS) olc.c +random.o: random.c + $(CC) -c $(CFLAGS) random.c +shop.o: shop.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h shop.h + $(CC) -c $(CFLAGS) shop.c +spec_assign.o: spec_assign.c conf.h sysdep.h structs.h db.h interpreter.h \ + utils.h + $(CC) -c $(CFLAGS) spec_assign.c +spec_procs.o: spec_procs.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) spec_procs.c +spell_parser.o: spell_parser.c conf.h sysdep.h structs.h utils.h interpreter.h \ + spells.h handler.h comm.h db.h + $(CC) -c $(CFLAGS) spell_parser.c +spells.o: spells.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h \ + db.h constants.h + $(CC) -c $(CFLAGS) spells.c +utils.o: utils.c conf.h sysdep.h structs.h utils.h comm.h screen.h spells.h \ + handler.h + $(CC) -c $(CFLAGS) utils.c +weather.o: weather.c conf.h sysdep.h structs.h utils.h comm.h handler.h \ + interpreter.h db.h + $(CC) -c $(CFLAGS) weather.c diff --git a/src/Makefile.arc b/src/Makefile.arc new file mode 100644 index 0000000..288de9c --- /dev/null +++ b/src/Makefile.arc @@ -0,0 +1,155 @@ +# CircleMUD Makefile/arc - manually created (G. Duncan 13 June 98) +# + +# C compiler to use +CC = gcc +LINK = drlink + +# Any special flags you want to pass to the compiler +MYFLAGS = -O2 -Iunix:Sockets.Include -Irun: +LIBS = unix:Sockets.Libs.o.socklib unix:Sockets.Libs.o.inetlib \ + gcc:o.libgcc unix:o.UnixLib -rescan + +#flags for profiling (see hacker.doc for more information) +PROFILE = + +############################################################################## +# Do Not Modify Anything Below This Line (unless you know what you're doing) # +############################################################################## + +BINDIR = ^.bin + +CFLAGS = $(MYFLAGS) $(PROFILE) + +OBJFILES = o.comm act.o.comm act.o.informative act.o.movement act.o.item \ + act.o.offensive act.o.other act.o.social act.o.wizard o.ban o.boards \ + o.castle o.class o.config o.constants o.db o.fight o.graph o.handler \ + o.house o.interpreter o.limits o.magic o.mail o.mobact o.modify \ + o.objsave o.olc o.random o.shop o.spec_assign o.spec_procs \ + o.spell_parser o.spells o.utils o.weather o.alias + +default: all + +all: $(BINDIR).circle + +$(BINDIR).circle: $(OBJFILES) + $(LINK) -o $(BINDIR).circle $(PROFILE) $(OBJFILES) $(LIBS) + +clean: + wipe o.* ~V~CF + +# Dependencies for the object files (automagically generated with +# gcc -MM) + +o.alias: c.alias h.conf h.sysdep h.structs h.utils h.interpreter h.db + $(CC) -c $(CFLAGS) c.alias -o o.alias +act.o.comm: act.c.comm h.conf h.sysdep h.structs \ + h.utils h.comm h.interpreter h.handler \ + h.db h.screen + $(CC) -c $(CFLAGS) act.c.comm -o act.o.comm +act.o.informative: act.c.informative h.conf h.sysdep \ + h.structs h.utils h.comm h.interpreter \ + h.handler h.db h.spells h.screen h.constants + $(CC) -c $(CFLAGS) act.c.informative -o act.o.informative +act.o.item: act.c.item h.conf h.sysdep h.structs \ + h.utils h.comm h.interpreter h.handler \ + h.db h.spells + $(CC) -c $(CFLAGS) act.c.item -o act.o.item +act.o.movement: act.c.movement h.conf h.sysdep \ + h.structs h.utils h.comm h.interpreter \ + h.handler h.db h.spells h.house h.constants + $(CC) -c $(CFLAGS) act.c.movement -o act.o.movement +act.o.offensive: act.c.offensive h.conf h.sysdep \ + h.structs h.utils h.comm h.interpreter \ + h.handler h.db h.spells + $(CC) -c $(CFLAGS) act.c.offensive -o act.o.offensive +act.o.other: act.c.other h.conf h.sysdep h.structs \ + h.utils h.comm h.interpreter h.handler \ + h.db h.spells h.screen h.house + $(CC) -c $(CFLAGS) act.c.other -o act.o.other +act.o.social: act.c.social h.conf h.sysdep h.structs \ + h.utils h.comm h.interpreter h.handler \ + h.db h.spells + $(CC) -c $(CFLAGS) act.c.social -o act.o.social +act.o.wizard: act.c.wizard h.conf h.sysdep h.structs \ + h.utils h.comm h.interpreter h.handler \ + h.db h.spells h.house h.screen h.constants + $(CC) -c $(CFLAGS) act.c.wizard -o act.o.wizard +o.ban: c.ban h.conf h.sysdep h.structs h.utils h.comm h.interpreter h.handler h.db + $(CC) -c $(CFLAGS) c.ban +o.boards: c.boards h.conf h.sysdep h.structs h.utils h.comm h.db h.boards \ + h.interpreter h.handler + $(CC) -c $(CFLAGS) c.boards +o.castle: c.castle h.conf h.sysdep h.structs h.utils h.comm h.interpreter \ + h.handler h.db h.spells + $(CC) -c $(CFLAGS) c.castle +o.class: c.class h.conf h.sysdep h.structs h.db h.utils h.spells h.interpreter + $(CC) -c $(CFLAGS) c.class +o.comm: c.comm h.conf h.sysdep h.structs h.utils h.comm h.interpreter h.handler \ + h.db h.house + $(CC) -c $(CFLAGS) c.comm +o.config: c.config h.conf h.sysdep h.structs + $(CC) -c $(CFLAGS) c.config +o.constants: c.constants h.conf h.sysdep h.structs + $(CC) -c $(CFLAGS) c.constants +o.db: c.db h.conf h.sysdep h.structs h.utils h.db h.comm h.handler h.spells h.mail \ + h.interpreter h.house + $(CC) -c $(CFLAGS) c.db +o.fight: c.fight h.conf h.sysdep h.structs h.utils h.comm h.handler h.interpreter \ + h.db h.spells h.screen + $(CC) -c $(CFLAGS) c.fight +o.graph: c.graph h.conf h.sysdep h.structs h.utils h.comm h.interpreter h.handler \ + h.db h.spells + $(CC) -c $(CFLAGS) c.graph +o.handler: c.handler h.conf h.sysdep h.structs h.utils h.comm h.db h.handler \ + h.interpreter h.spells + $(CC) -c $(CFLAGS) c.handler +o.house: c.house h.conf h.sysdep h.structs h.comm h.handler h.db h.interpreter \ + h.utils h.house h.constants + $(CC) -c $(CFLAGS) c.house +o.interpreter: c.interpreter h.conf h.sysdep h.structs h.comm h.interpreter h.db \ + h.utils h.spells h.handler h.mail h.screen + $(CC) -c $(CFLAGS) c.interpreter +o.limits: c.limits h.conf h.sysdep h.structs h.utils h.spells h.comm h.db \ + h.handler + $(CC) -c $(CFLAGS) c.limits +o.magic: c.magic h.conf h.sysdep h.structs h.utils h.comm h.spells h.handler h.db + $(CC) -c $(CFLAGS) c.magic +o.mail: c.mail h.conf h.sysdep h.structs h.utils h.comm h.db h.interpreter \ + h.handler h.mail + $(CC) -c $(CFLAGS) c.mail +o.mobact: c.mobact h.conf h.sysdep h.structs h.utils h.db h.comm h.interpreter \ + h.handler h.spells + $(CC) -c $(CFLAGS) c.mobact +o.modify: c.modify h.conf h.sysdep h.structs h.utils h.interpreter h.handler h.db \ + h.comm h.spells h.mail h.boards + $(CC) -c $(CFLAGS) c.modify +o.objsave: c.objsave h.conf h.sysdep h.structs h.comm h.handler h.db \ + h.interpreter h.utils h.spells + $(CC) -c $(CFLAGS) c.objsave +o.olc: c.olc h.conf h.sysdep h.structs h.utils h.comm h.interpreter h.handler h.db \ + h.olc + $(CC) -c $(CFLAGS) c.olc +o.random: c.random h.utils + $(CC) -c $(CFLAGS) c.random +o.shop: c.shop h.conf h.sysdep h.structs h.comm h.handler h.db h.interpreter \ + h.utils h.shop + $(CC) -c $(CFLAGS) c.shop +o.spec_assign: c.spec_assign h.conf h.sysdep h.structs h.db h.interpreter \ + h.utils + $(CC) -c $(CFLAGS) c.spec_assign +o.spec_procs: c.spec_procs h.conf h.sysdep h.structs h.utils h.comm \ + h.interpreter h.handler h.db h.spells + $(CC) -c $(CFLAGS) c.spec_procs +o.spell_parser: c.spell_parser h.conf h.sysdep h.structs h.utils h.interpreter \ + h.spells h.handler h.comm h.db + $(CC) -c $(CFLAGS) c.spell_parser +o.spells: c.spells h.conf h.sysdep h.structs h.utils h.comm h.spells h.handler \ + h.db h.constants + $(CC) -c $(CFLAGS) c.spells +o.utils: c.utils h.conf h.sysdep h.structs h.utils h.comm h.screen h.spells \ + h.handler h.db + $(CC) -c $(CFLAGS) c.utils +o.weather: c.weather h.conf h.sysdep h.structs h.utils h.comm h.handler \ + h.interpreter h.db + $(CC) -c $(CFLAGS) c.weather diff --git a/src/Makefile.bcc b/src/Makefile.bcc new file mode 100644 index 0000000..0644365 --- /dev/null +++ b/src/Makefile.bcc @@ -0,0 +1,330 @@ +# +# Borland C++ IDE generated makefile +# Generated 12/26/97 at 5:04:53 AM +# +.AUTODEPEND + + +# +# Borland C++ tools +# +IMPLIB = Implib +BCC32 = Bcc32 +BccW32.cfg +BCC32I = Bcc32i +BccW32.cfg +TLINK32 = TLink32 +TLIB = TLib +BRC32 = Brc32 +TASM32 = Tasm32 +# +# IDE macros +# + + +# +# Options +# +IDE_LinkFLAGS32 = -LC:\BC5\LIB +LinkerLocalOptsAtC32_circledexe = -Tpe -ap -c +ResLocalOptsAtC32_circledexe = +BLocalOptsAtC32_circledexe = +CompInheritOptsAt_circledexe = -IC:\BC5\INCLUDE -D_RTLDLL;_BIDSDLL; +LinkerInheritOptsAt_circledexe = -x +LinkerOptsAt_circledexe = $(LinkerLocalOptsAtC32_circledexe) +ResOptsAt_circledexe = $(ResLocalOptsAtC32_circledexe) +BOptsAt_circledexe = $(BLocalOptsAtC32_circledexe) + +# +# Dependency List +# +Dep_circle = \ + circle.exe + +circle : BccW32.cfg $(Dep_circle) + echo MakeNode + +Dep_circledexe = \ + alias.obj\ + act.comm.obj\ + act.movement.obj\ + act.item.obj\ + act.informative.obj\ + act.offensive.obj\ + act.other.obj\ + boards.obj\ + ban.obj\ + act.wizard.obj\ + act.social.obj\ + castle.obj\ + class.obj\ + db.obj\ + constants.obj\ + config.obj\ + comm.obj\ + fight.obj\ + graph.obj\ + limits.obj\ + interpreter.obj\ + house.obj\ + handler.obj\ + magic.obj\ + mail.obj\ + olc.obj\ + objsave.obj\ + modify.obj\ + mobact.obj\ + random.obj\ + shop.obj\ + spells.obj\ + spell_parser.obj\ + spec_procs.obj\ + spec_assign.obj\ + utils.obj\ + weather.obj + +circle.exe : $(Dep_circledexe) + $(TLINK32) @&&| + /v $(IDE_LinkFLAGS32) $(LinkerOptsAt_circledexe) $(LinkerInheritOptsAt_circledexe) + +C:\BC5\LIB\c0x32.obj+ +alias.obj+ +act.comm.obj+ +act.movement.obj+ +act.item.obj+ +act.informative.obj+ +act.offensive.obj+ +act.other.obj+ +boards.obj+ +ban.obj+ +act.wizard.obj+ +act.social.obj+ +castle.obj+ +class.obj+ +db.obj+ +constants.obj+ +config.obj+ +comm.obj+ +fight.obj+ +graph.obj+ +limits.obj+ +interpreter.obj+ +house.obj+ +handler.obj+ +magic.obj+ +mail.obj+ +olc.obj+ +objsave.obj+ +modify.obj+ +mobact.obj+ +random.obj+ +shop.obj+ +spells.obj+ +spell_parser.obj+ +spec_procs.obj+ +spec_assign.obj+ +utils.obj+ +weather.obj +$<,$* +C:\BC5\LIB\bidsfi.lib+ +C:\BC5\LIB\import32.lib+ +C:\BC5\LIB\cw32i.lib + + +| +alias.obj : alias.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ alias.c +| + +act.comm.obj : act.comm.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.comm.c +| + +act.movement.obj : act.movement.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.movement.c +| + +act.item.obj : act.item.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.item.c +| + +act.informative.obj : act.informative.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.informative.c +| + +act.offensive.obj : act.offensive.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.offensive.c +| + +act.other.obj : act.other.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.other.c +| + +boards.obj : boards.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ boards.c +| + +ban.obj : ban.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ ban.c +| + +act.wizard.obj : act.wizard.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.wizard.c +| + +act.social.obj : act.social.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.social.c +| + +castle.obj : castle.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ castle.c +| + +class.obj : class.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ class.c +| + +db.obj : db.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ db.c +| + +constants.obj : constants.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ constants.c +| + +config.obj : config.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ config.c +| + +comm.obj : comm.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ comm.c +| + +fight.obj : fight.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ fight.c +| + +graph.obj : graph.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ graph.c +| + +limits.obj : limits.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ limits.c +| + +interpreter.obj : interpreter.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ interpreter.c +| + +house.obj : house.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ house.c +| + +handler.obj : handler.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ handler.c +| + +magic.obj : magic.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ magic.c +| + +mail.obj : mail.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ mail.c +| + +olc.obj : olc.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ olc.c +| + +objsave.obj : objsave.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ objsave.c +| + +modify.obj : modify.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ modify.c +| + +mobact.obj : mobact.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ mobact.c +| + +random.obj : random.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ random.c +| + +shop.obj : shop.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ shop.c +| + +spells.obj : spells.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ spells.c +| + +spell_parser.obj : spell_parser.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ spell_parser.c +| + +spec_procs.obj : spec_procs.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ spec_procs.c +| + +spec_assign.obj : spec_assign.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ spec_assign.c +| + +utils.obj : utils.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ utils.c +| + +weather.obj : weather.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ weather.c +| + +# Compiler configuration file +BccW32.cfg : + Copy &&| +-w +-R +-v +-vi +-H +-H=circle.csm +-WC +-g0 +| $@ + + diff --git a/src/Makefile.bcc55 b/src/Makefile.bcc55 new file mode 100644 index 0000000..df93f2c --- /dev/null +++ b/src/Makefile.bcc55 @@ -0,0 +1,329 @@ +# For Borland C++ 5.5 +# +# Borland C++ IDE generated makefile +# Generated 12/26/97 at 5:04:53 AM +# +.AUTODEPEND + + +# +# Borland C++ tools +# +IMPLIB = Implib +BCC32 = Bcc32 +BCC32I = Bcc32i +TLINK32 = ILink32 +TLIB = TLib +BRC32 = Brc32 +TASM32 = Tasm32 +# +# IDE macros +# + + +# +# Options +# +IDE_LinkFLAGS32 = -LC:\BORLAND\BCC55\LIB +LinkerLocalOptsAtC32_circledexe = -Tpe -ap -c +ResLocalOptsAtC32_circledexe = +BLocalOptsAtC32_circledexe = +CompInheritOptsAt_circledexe = -IC:\BORLAND\BCC55\INCLUDE; +LinkerInheritOptsAt_circledexe = -x +LinkerOptsAt_circledexe = $(LinkerLocalOptsAtC32_circledexe) +ResOptsAt_circledexe = $(ResLocalOptsAtC32_circledexe) +BOptsAt_circledexe = $(BLocalOptsAtC32_circledexe) + +# +# Dependency List +# +Dep_circle = \ + circle.exe + +circle : BccW32.cfg $(Dep_circle) + echo MakeNode + +Dep_circledexe = \ + alias.obj\ + act.comm.obj\ + act.movement.obj\ + act.item.obj\ + act.informative.obj\ + act.offensive.obj\ + act.other.obj\ + boards.obj\ + ban.obj\ + act.wizard.obj\ + act.social.obj\ + castle.obj\ + class.obj\ + db.obj\ + constants.obj\ + config.obj\ + comm.obj\ + fight.obj\ + graph.obj\ + limits.obj\ + interpreter.obj\ + house.obj\ + handler.obj\ + magic.obj\ + mail.obj\ + olc.obj\ + objsave.obj\ + modify.obj\ + mobact.obj\ + random.obj\ + shop.obj\ + spells.obj\ + spell_parser.obj\ + spec_procs.obj\ + spec_assign.obj\ + utils.obj\ + weather.obj + +circle.exe : $(Dep_circledexe) + $(TLINK32) @&&| + /v $(IDE_LinkFLAGS32) $(LinkerOptsAt_circledexe) $(LinkerInheritOptsAt_circledexe) + +C:\BORLAND\BCC55\LIB\c0x32.obj+ +alias.obj+ +act.comm.obj+ +act.movement.obj+ +act.item.obj+ +act.informative.obj+ +act.offensive.obj+ +act.other.obj+ +boards.obj+ +ban.obj+ +act.wizard.obj+ +act.social.obj+ +castle.obj+ +class.obj+ +db.obj+ +constants.obj+ +config.obj+ +comm.obj+ +fight.obj+ +graph.obj+ +limits.obj+ +interpreter.obj+ +house.obj+ +handler.obj+ +magic.obj+ +mail.obj+ +olc.obj+ +objsave.obj+ +modify.obj+ +mobact.obj+ +random.obj+ +shop.obj+ +spells.obj+ +spell_parser.obj+ +spec_procs.obj+ +spec_assign.obj+ +utils.obj+ +weather.obj +$<,$* +C:\BORLAND\BCC55\LIB\import32.lib+ +C:\BORLAND\BCC55\LIB\cw32i.lib + +| +alias.obj : alias.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ alias.c +| + +act.comm.obj : act.comm.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.comm.c +| + +act.movement.obj : act.movement.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.movement.c +| + +act.item.obj : act.item.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.item.c +| + +act.informative.obj : act.informative.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.informative.c +| + +act.offensive.obj : act.offensive.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.offensive.c +| + +act.other.obj : act.other.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.other.c +| + +boards.obj : boards.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ boards.c +| + +ban.obj : ban.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ ban.c +| + +act.wizard.obj : act.wizard.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.wizard.c +| + +act.social.obj : act.social.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ act.social.c +| + +castle.obj : castle.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ castle.c +| + +class.obj : class.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ class.c +| + +db.obj : db.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ db.c +| + +constants.obj : constants.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ constants.c +| + +config.obj : config.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ config.c +| + +comm.obj : comm.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ comm.c +| + +fight.obj : fight.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ fight.c +| + +graph.obj : graph.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ graph.c +| + +limits.obj : limits.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ limits.c +| + +interpreter.obj : interpreter.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ interpreter.c +| + +house.obj : house.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ house.c +| + +handler.obj : handler.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ handler.c +| + +magic.obj : magic.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ magic.c +| + +mail.obj : mail.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ mail.c +| + +olc.obj : olc.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ olc.c +| + +objsave.obj : objsave.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ objsave.c +| + +modify.obj : modify.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ modify.c +| + +mobact.obj : mobact.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ mobact.c +| + +random.obj : random.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ random.c +| + +shop.obj : shop.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ shop.c +| + +spells.obj : spells.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ spells.c +| + +spell_parser.obj : spell_parser.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ spell_parser.c +| + +spec_procs.obj : spec_procs.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ spec_procs.c +| + +spec_assign.obj : spec_assign.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ spec_assign.c +| + +utils.obj : utils.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ utils.c +| + +weather.obj : weather.c + $(BCC32) -P- -c @&&| + $(CompOptsAt_circledexe) $(CompInheritOptsAt_circledexe) -o$@ weather.c +| + +# Compiler configuration file +BccW32.cfg : + Copy &&| +-w +-R +-v +-vi +-H +-H=circle.csm +-WC +-g0 +| $@ + + diff --git a/src/Makefile.in b/src/Makefile.in new file mode 100644 index 0000000..39009e1 --- /dev/null +++ b/src/Makefile.in @@ -0,0 +1,206 @@ +# CircleMUD Makefile.in - Makefile template used by 'configure' +# + +# C compiler to use +CC = @CC@ + +# Path to cxref utility +CXREF = cxref + +# Any special flags you want to pass to the compiler +MYFLAGS = @MYFLAGS@ + +#flags for profiling (see hacker.doc for more information) +PROFILE = + +############################################################################## +# Do Not Modify Anything Below This Line (unless you know what you're doing) # +############################################################################## + +BINDIR = ../bin + +CFLAGS = @CFLAGS@ $(MYFLAGS) $(PROFILE) + +LIBS = @LIBS@ @CRYPTLIB@ @NETLIB@ + +OBJFILES = act.comm.o act.informative.o act.item.o act.movement.o \ + act.offensive.o act.other.o act.social.o act.wizard.o alias.o ban.o \ + boards.o castle.o class.o comm.o config.o constants.o db.o fight.o \ + graph.o handler.o house.o interpreter.o limits.o magic.o mail.o \ + mobact.o modify.o objsave.o olc.o random.o shop.o spec_assign.o \ + spec_procs.o spell_parser.o spells.o utils.o weather.o \ + bsd-snprintf.o + +CXREF_FILES = act.comm.c act.informative.c act.item.c act.movement.c \ + act.offensive.c act.other.c act.social.c act.wizard.c alias.c ban.c \ + boards.c castle.c class.c comm.c config.c constants.c db.c fight.c \ + graph.c handler.c house.c interpreter.c limits.c magic.c mail.c \ + mobact.c modify.c objsave.c olc.c random.c shop.c spec_assign.c\ + spec_procs.c spell_parser.c spells.c utils.c weather.c \ + bsd-snprintf.c + +default: all + +all: .accepted + $(MAKE) $(BINDIR)/circle + $(MAKE) utils + +.accepted: + @./licheck @MORE@ + +utils: .accepted + (cd util; $(MAKE) all) +circle: + $(MAKE) $(BINDIR)/circle + +$(BINDIR)/circle : $(OBJFILES) + $(CC) -o $(BINDIR)/circle $(PROFILE) $(OBJFILES) $(LIBS) + +clean: + rm -f *.o +ref: +# +# Create the cross reference files +# Note, this is not meant to be used unless you've installed cxref... +# + @for file in $(CXREF_FILES) ; do \ + echo Cross referencing $$file ; \ + $(CXREF) -D__CXREF__ -xref -Odoc -Ncircle $$file ; \ + done +# +# Create the source files using cxref +# + @for file in $(CXREF_FILES) ; do \ + echo Documenting $$file ; \ + ( cd . ; $(CXREF) -D__CXREF__ -warn-xref -xref -Odoc -Ncircle -html $$file ) ; \ + rm -f $(DOCS) ; \ + done +# +# Create the index using cxref +# + @echo Indexing + @( cd . ; $(CXREF) -D__CXREF__ -index-all -Odoc -Ncircle -html ) + @rm -f $(DOCS) +# +# Make html files for the .h files +# + @echo Creating .h.html files... + @for file in *.h ; do \ + echo $$file ; \ + cat htmlh-head $$file htmlh-tail > doc/$$file.html ; \ + done +# Copy over to the html directory + #cp doc/*.html $(HOME)/www/cxref + #chmod 644 $(HOME)/www/cxref/*.html + +# Dependencies for the object files (automagically generated with +# gcc -MM) + +act.comm.o: act.comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h screen.h + $(CC) -c $(CFLAGS) act.comm.c +act.informative.o: act.informative.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h screen.h constants.h + $(CC) -c $(CFLAGS) act.informative.c +act.item.o: act.item.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h constants.h + $(CC) -c $(CFLAGS) act.item.c +act.movement.o: act.movement.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h constants.h + $(CC) -c $(CFLAGS) act.movement.c +act.offensive.o: act.offensive.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.offensive.c +act.other.o: act.other.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h screen.h house.h constants.h + $(CC) -c $(CFLAGS) act.other.c +act.social.o: act.social.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.social.c +act.wizard.o: act.wizard.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h screen.h constants.h + $(CC) -c $(CFLAGS) act.wizard.c +alias.o: alias.c conf.h sysdep.h structs.h utils.h interpreter.h db.h + $(CC) -c $(CFLAGS) alias.c +ban.o: ban.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h + $(CC) -c $(CFLAGS) ban.c +boards.o: boards.c conf.h sysdep.h structs.h utils.h comm.h db.h boards.h \ + interpreter.h handler.h + $(CC) -c $(CFLAGS) boards.c +castle.o: castle.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) -c $(CFLAGS) castle.c +class.o: class.c conf.h sysdep.h structs.h db.h utils.h spells.h interpreter.h \ + constants.h + $(CC) -c $(CFLAGS) class.c +comm.o: comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h house.h + $(CC) -c $(CFLAGS) comm.c +config.o: config.c conf.h sysdep.h structs.h interpreter.h + $(CC) -c $(CFLAGS) config.c +constants.o: constants.c conf.h sysdep.h structs.h interpreter.h + $(CC) -c $(CFLAGS) constants.c +db.o: db.c conf.h sysdep.h structs.h utils.h db.h comm.h handler.h spells.h mail.h \ + interpreter.h house.h constants.h + $(CC) -c $(CFLAGS) db.c +fight.o: fight.c conf.h sysdep.h structs.h utils.h comm.h handler.h interpreter.h \ + db.h spells.h screen.h constants.h + $(CC) -c $(CFLAGS) fight.c +graph.o: graph.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h spells.h + $(CC) -c $(CFLAGS) graph.c +handler.o: handler.c conf.h sysdep.h structs.h utils.h comm.h db.h handler.h \ + interpreter.h spells.h + $(CC) -c $(CFLAGS) handler.c +house.o: house.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h house.h constants.h + $(CC) -c $(CFLAGS) house.c +interpreter.o: interpreter.c conf.h sysdep.h structs.h comm.h interpreter.h db.h \ + utils.h spells.h handler.h mail.h screen.h + $(CC) -c $(CFLAGS) interpreter.c +limits.o: limits.c conf.h sysdep.h structs.h utils.h spells.h comm.h db.h \ + handler.h + $(CC) -c $(CFLAGS) limits.c +magic.o: magic.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h db.h \ + constants.h + $(CC) -c $(CFLAGS) magic.c +mail.o: mail.c conf.h sysdep.h structs.h utils.h comm.h db.h interpreter.h \ + handler.h mail.h + $(CC) -c $(CFLAGS) mail.c +mobact.o: mobact.c conf.h sysdep.h structs.h utils.h db.h comm.h interpreter.h \ + handler.h spells.h constants.h + $(CC) -c $(CFLAGS) mobact.c +modify.o: modify.c conf.h sysdep.h structs.h utils.h interpreter.h handler.h db.h \ + comm.h spells.h mail.h boards.h + $(CC) -c $(CFLAGS) modify.c +objsave.o: objsave.c conf.h sysdep.h structs.h comm.h handler.h db.h \ + interpreter.h utils.h spells.h + $(CC) -c $(CFLAGS) objsave.c +olc.o: olc.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h \ + olc.h + $(CC) -c $(CFLAGS) olc.c +random.o: random.c utils.h + $(CC) -c $(CFLAGS) random.c +shop.o: shop.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h shop.h constants.h + $(CC) -c $(CFLAGS) shop.c +spec_assign.o: spec_assign.c conf.h sysdep.h structs.h db.h interpreter.h \ + utils.h + $(CC) -c $(CFLAGS) spec_assign.c +spec_procs.o: spec_procs.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h constants.h + $(CC) -c $(CFLAGS) spec_procs.c +spell_parser.o: spell_parser.c conf.h sysdep.h structs.h utils.h interpreter.h \ + spells.h handler.h comm.h db.h + $(CC) -c $(CFLAGS) spell_parser.c +spells.o: spells.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h \ + db.h constants.h interpreter.h + $(CC) -c $(CFLAGS) spells.c +utils.o: utils.c conf.h sysdep.h structs.h utils.h comm.h screen.h spells.h \ + handler.h db.h interpreter.h + $(CC) -c $(CFLAGS) utils.c +weather.o: weather.c conf.h sysdep.h structs.h utils.h comm.h handler.h \ + interpreter.h db.h + $(CC) -c $(CFLAGS) weather.c +bsd-snprintf.o: bsd-snprintf.c conf.h sysdep.h + $(CC) -c $(CFLAGS) bsd-snprintf.c diff --git a/src/Makefile.lcc b/src/Makefile.lcc new file mode 100644 index 0000000..e35879a --- /dev/null +++ b/src/Makefile.lcc @@ -0,0 +1,566 @@ +# Makefile for LCC-Win32 compile of CircleMUD +# Created by Eric Jones (mailto:fpicard@mindless.com) + +# 08/31/98 +# Added LCCDIR variable because new release of LCC-Win32 extracts +# to \LCC instead of \LCCPUB as in older versions +# Added DISTDIR variable to allow for an easy way to change +# where Circle is located, plus will allow for changes in the +# path between versions (e.g. bplZZ is circle30bplZZ) +# With addition of new variables as replacements for old +# hard-coded paths, display lines will be less than 80 columns +# thus less clutter on the screen during the make + +LCCDIR=c:\lccpub +DISTDIR=c:\circle +CFLAGS=-c -I$(LCCDIR)\include -DLCC_WIN32 +CC=lcc +OBJS=\ + weather.obj \ + utils.obj \ + spells.obj \ + spell_parser.obj \ + spec_procs.obj \ + spec_assign.obj \ + shop.obj \ + random.obj \ + olc.obj \ + objsave.obj \ + modify.obj \ + mobact.obj \ + mail.obj \ + magic.obj \ + limits.obj \ + interpreter.obj \ + house.obj \ + handler.obj \ + graph.obj \ + fight.obj \ + db.obj \ + constants.obj \ + config.obj \ + comm.obj \ + class.obj \ + castle.obj \ + boards.obj \ + ban.obj \ + act.wizard.obj \ + act.social.obj \ + act.other.obj \ + act.offensive.obj \ + act.movement.obj \ + act.item.obj \ + act.informative.obj \ + act.comm.obj \ + alias.obj + +LIBS=$(LCCDIR)\lib\wsock32.lib + +circle.exe: $(OBJS) + lcclnk -subsystem console -o $(DISTDIR)\bin\circle.exe $(OBJS) $(LIBS) + +# Build WEATHER.C +WEATHER_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\db.h\ + +weather.obj: $(WEATHER_C) $(DISTDIR)\src\weather.c + $(CC) $(CFLAGS) $(DISTDIR)\src\weather.c + +# Build UTILS.C +UTILS_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\screen.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\handler.h\ + +utils.obj: $(UTILS_C) $(DISTDIR)\src\utils.c + $(CC) $(CFLAGS) $(DISTDIR)\src\utils.c + +# Build SPELLS.C +SPELLS_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\constants.h\ + +spells.obj: $(SPELLS_C) $(DISTDIR)\src\spells.c + $(CC) $(CFLAGS) $(DISTDIR)\src\spells.c + +# Build SPELL_PARSER.C +SPELL_PARSER_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\db.h\ + +spell_parser.obj: $(SPELL_PARSER_C) $(DISTDIR)\src\spell_parser.c + $(CC) $(CFLAGS) $(DISTDIR)\src\spell_parser.c + +# Build SPEC_PROCS.C +SPEC_PROCS_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + +spec_procs.obj: $(SPEC_PROCS_C) $(DISTDIR)\src\spec_procs.c + $(CC) $(CFLAGS) $(DISTDIR)\src\spec_procs.c + +# Build SPEC_ASSIGN.C +SPEC_ASSIGN_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\utils.h\ + +spec_assign.obj: $(SPEC_ASSIGN_C) $(DISTDIR)\src\spec_assign.c + $(CC) $(CFLAGS) $(DISTDIR)\src\spec_assign.c + +# Build SHOP.C +SHOP_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\shop.h\ + +shop.obj: $(SHOP_C) $(DISTDIR)\src\shop.c + $(CC) $(CFLAGS) $(DISTDIR)\src\shop.c + +# Build RANDOM.C +RANDOM_C=\ + +random.obj: $(RANDOM_C) $(DISTDIR)\src\random.c + $(CC) $(CFLAGS) $(DISTDIR)\src\random.c + +# Build OLC.C +OLC_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\olc.h\ + +olc.obj: $(OLC_C) $(DISTDIR)\src\olc.c + $(CC) $(CFLAGS) $(DISTDIR)\src\olc.c + +# Build OBJSAVE.C +OBJSAVE_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\spells.h\ + +objsave.obj: $(OBJSAVE_C) $(DISTDIR)\src\objsave.c + $(CC) $(CFLAGS) $(DISTDIR)\src\objsave.c + +# Build MODIFY.C +MODIFY_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\mail.h\ + $(DISTDIR)\src\boards.h\ + +modify.obj: $(MODIFY_C) $(DISTDIR)\src\modify.c + $(CC) $(CFLAGS) $(DISTDIR)\src\modify.c + +# Build MOBACT.C +MOBACT_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\spells.h\ + +mobact.obj: $(MOBACT_C) $(DISTDIR)\src\mobact.c + $(CC) $(CFLAGS) $(DISTDIR)\src\mobact.c + +# Build MAIL.C +MAIL_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\mail.h\ + +mail.obj: $(MAIL_C) $(DISTDIR)\src\mail.c + $(CC) $(CFLAGS) $(DISTDIR)\src\mail.c + +# Build MAGIC.C +MAGIC_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + +magic.obj: $(MAGIC_C) $(DISTDIR)\src\magic.c + $(CC) $(CFLAGS) $(DISTDIR)\src\magic.c + +# Build LIMITS.C +LIMITS_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\handler.h\ + +limits.obj: $(LIMITS_C) $(DISTDIR)\src\limits.c + $(CC) $(CFLAGS) $(DISTDIR)\src\limits.c + +# Build INTERPRETER.C +INTERPRETER_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\mail.h\ + $(DISTDIR)\src\screen.h\ + +interpreter.obj: $(INTERPRETER_C) $(DISTDIR)\src\interpreter.c + $(CC) $(CFLAGS) $(DISTDIR)\src\interpreter.c + +# Build HOUSE.C +HOUSE_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\house.h\ + $(DISTDIR)\src\constants.h\ + +house.obj: $(HOUSE_C) $(DISTDIR)\src\house.c + $(CC) $(CFLAGS) $(DISTDIR)\src\house.c + +# Build HANDLER.C +HANDLER_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\spells.h\ + +handler.obj: $(HANDLER_C) $(DISTDIR)\src\handler.c + $(CC) $(CFLAGS) $(DISTDIR)\src\handler.c + +# Build GRAPH.C +GRAPH_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + +graph.obj: $(GRAPH_C) $(DISTDIR)\src\graph.c + $(CC) $(CFLAGS) $(DISTDIR)\src\graph.c + +# Build FIGHT.C +FIGHT_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\screen.h\ + +fight.obj: $(FIGHT_C) $(DISTDIR)\src\fight.c + $(CC) $(CFLAGS) $(DISTDIR)\src\fight.c + +# Build DB.C +DB_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\mail.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\house.h\ + +db.obj: $(DB_C) $(DISTDIR)\src\db.c + $(CC) $(CFLAGS) $(DISTDIR)\src\db.c + +# Build CONSTANTS.C +CONSTANTS_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + +constants.obj: $(CONSTANTS_C) $(DISTDIR)\src\constants.c + $(CC) $(CFLAGS) $(DISTDIR)\src\constants.c + +# Build CONFIG.C +CONFIG_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + +config.obj: $(CONFIG_C) $(DISTDIR)\src\config.c + $(CC) $(CFLAGS) $(DISTDIR)\src\config.c + +# Build COMM.C +COMM_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\house.h\ + $(DISTDIR)\src\telnet.h\ + +comm.obj: $(COMM_C) $(DISTDIR)\src\comm.c + $(CC) $(CFLAGS) $(DISTDIR)\src\comm.c + +# Build CLASS.C +CLASS_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\interpreter.h\ + +class.obj: $(CLASS_C) $(DISTDIR)\src\class.c + $(CC) $(CFLAGS) $(DISTDIR)\src\class.c + +# Build CASTLE.C +CASTLE_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + +castle.obj: $(CASTLE_C) $(DISTDIR)\src\castle.c + $(CC) $(CFLAGS) $(DISTDIR)\src\castle.c + +# Build BOARDS.C +BOARDS_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\boards.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + +boards.obj: $(BOARDS_C) $(DISTDIR)\src\boards.c + $(CC) $(CFLAGS) $(DISTDIR)\src\boards.c + +# Build BAN.C +BAN_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + +ban.obj: $(BAN_C) $(DISTDIR)\src\ban.c + $(CC) $(CFLAGS) $(DISTDIR)\src\ban.c + +# Build ACT.WIZARD.C +ACT_WIZARD_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\house.h\ + $(DISTDIR)\src\screen.h\ + $(DISTDIR)\src\constants.h\ + +act.wizard.obj: $(ACT_WIZARD_C) $(DISTDIR)\src\act.wizard.c + $(CC) $(CFLAGS) $(DISTDIR)\src\act.wizard.c + +# Build ACT.SOCIAL.C +ACT_SOCIAL_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + +act.social.obj: $(ACT_SOCIAL_C) $(DISTDIR)\src\act.social.c + $(CC) $(CFLAGS) $(DISTDIR)\src\act.social.c + +# Build ACT.OTHER.C +ACT_OTHER_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\screen.h\ + $(DISTDIR)\src\house.h\ + +act.other.obj: $(ACT_OTHER_C) $(DISTDIR)\src\act.other.c + $(CC) $(CFLAGS) $(DISTDIR)\src\act.other.c + +# Build ACT.OFFENSIVE.C +ACT_OFFENSIVE_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + +act.offensive.obj: $(ACT_OFFENSIVE_C) $(DISTDIR)\src\act.offensive.c + $(CC) $(CFLAGS) $(DISTDIR)\src\act.offensive.c + +# Build ACT.MOVEMENT.C +ACT_MOVEMENT_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\house.h\ + $(DISTDIR)\src\constants.h\ + +act.movement.obj: $(ACT_MOVEMENT_C) $(DISTDIR)\src\act.movement.c + $(CC) $(CFLAGS) $(DISTDIR)\src\act.movement.c + +# Build ACT.ITEM.C +ACT_ITEM_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + +act.item.obj: $(ACT_ITEM_C) $(DISTDIR)\src\act.item.c + $(CC) $(CFLAGS) $(DISTDIR)\src\act.item.c + +# Build ACT.INFORMATIVE.C +ACT_INFORMATIVE_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\spells.h\ + $(DISTDIR)\src\screen.h\ + $(DISTDIR)\src\constants.h\ + +act.informative.obj: $(ACT_INFORMATIVE_C) +$(DISTDIR)\src\act.informative.c + $(CC) $(CFLAGS) $(DISTDIR)\src\act.informative.c + +# Build ACT.COMM.C +ACT_COMM_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\comm.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\handler.h\ + $(DISTDIR)\src\db.h\ + $(DISTDIR)\src\screen.h\ + +act.comm.obj: $(ACT_COMM_C) $(DISTDIR)\src\act.comm.c + $(CC) $(CFLAGS) $(DISTDIR)\src\act.comm.c + +# Build ALIAS.C +ALIAS_C=\ + $(DISTDIR)\src\sysdep.h\ + $(DISTDIR)\src\structs.h\ + $(DISTDIR)\src\utils.h\ + $(DISTDIR)\src\interpreter.h\ + $(DISTDIR)\src\db.h\ + +alias.obj: $(ALIAS_C) $(DISTDIR)\src\alias.c + $(CC) $(CFLAGS) $(DISTDIR)\src\alias.c + diff --git a/src/Makefile.msvc b/src/Makefile.msvc new file mode 100644 index 0000000..be4a8c8 --- /dev/null +++ b/src/Makefile.msvc @@ -0,0 +1,158 @@ +# +# CircleMUD Makefile for Microsoft Visual C++ 4.0, Windows 95/NT +# (manually created by Jeremy Elson) +# +# NOTE: This Makefile is only for MSVC 4.0. If you have a different +# compiler, see the file doc/README.WIN for instructions. +# +# This Makefile assumes that Microsoft Visual C++ v4.0 installed in +# \MSDEV. If you have MSVC++ installed in a different directory, +# change the CLFAGS and LIB lines to reflect the location of your +# header files and standard libraries, respectively. +# +# Make sure that the location of your compiler, linker, and make binaries +# (e.g., \msdev\bin) is in your path. +# + +# COMPILER PARAMETERS +# Name of the C compiler +CC=cl +# Flags to pass to the compiler +CFLAGS = /nologo /I. /IC:\MSDEV\INCLUDE + + +# LINK PARAMETERS +# Name of the linker +LINK=link +# Directory that contains the standard libraries +LIB=C:\MSDEV\LIB +# Flags to pass to the linker +LFLAGS=/OUT:circle.exe /nologo /subsystem:console + +############################################################################## +# Do Not Modify Anything Below This Line (unless you know what you're doing) # +############################################################################## + +MAKE = $(MAKE) /NOLOGO /S + +OBJFILES = comm.obj act.comm.obj act.informative.obj act.movement.obj act.item.obj \ + act.offensive.obj act.other.obj act.social.obj act.wizard.obj ban.obj boards.obj \ + castle.obj class.obj config.obj constants.obj db.obj fight.obj graph.obj handler.obj \ + house.obj interpreter.obj limits.obj magic.obj mail.obj mobact.obj modify.obj \ + objsave.obj olc.obj shop.obj spec_assign.obj spec_procs.obj spell_parser.obj \ + spells.obj utils.obj weather.obj random.obj alias.obj + +default: circle.exe + $(MAKE) circle.exe + +circle.exe : $(OBJFILES) + set lib=$(LIB) + $(LINK) $(LFLAGS) $(OBJFILES) wsock32.lib + +# Dependencies for the object files (automagically generated with +# gcc -MM) + +alias.obj: alias.c conf.h sysdep.h structs.h utils.h interpreter.h db.h + $(CC) -c $(CFLAGS) alias.c +act.comm.obj: act.comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h screen.h + $(CC) -c $(CFLAGS) act.comm.c +act.informative.obj: act.informative.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h screen.h constants.h + $(CC) -c $(CFLAGS) act.informative.c +act.item.obj: act.item.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.item.c +act.movement.obj: act.movement.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h constants.h + $(CC) -c $(CFLAGS) act.movement.c +act.offensive.obj: act.offensive.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.offensive.c +act.other.obj: act.other.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h screen.h house.h + $(CC) -c $(CFLAGS) act.other.c +act.social.obj: act.social.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.social.c +act.wizard.obj: act.wizard.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h screen.h constants.h + $(CC) -c $(CFLAGS) act.wizard.c +ban.obj: ban.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h + $(CC) -c $(CFLAGS) ban.c +boards.obj: boards.c conf.h sysdep.h structs.h utils.h comm.h db.h boards.h \ + interpreter.h handler.h + $(CC) -c $(CFLAGS) boards.c +castle.obj: castle.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) -c $(CFLAGS) castle.c +class.obj: class.c conf.h sysdep.h structs.h db.h utils.h spells.h interpreter.h + $(CC) -c $(CFLAGS) class.c +comm.obj: comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h house.h + $(CC) -c $(CFLAGS) comm.c +config.obj: config.c conf.h sysdep.h structs.h + $(CC) -c $(CFLAGS) config.c +constants.obj: constants.c conf.h sysdep.h structs.h + $(CC) -c $(CFLAGS) constants.c +db.obj: db.c conf.h sysdep.h structs.h utils.h db.h comm.h handler.h spells.h mail.h \ + interpreter.h house.h + $(CC) -c $(CFLAGS) db.c +fight.obj: fight.c conf.h sysdep.h structs.h utils.h comm.h handler.h interpreter.h \ + db.h spells.h screen.h + $(CC) -c $(CFLAGS) fight.c +graph.obj: graph.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h spells.h + $(CC) -c $(CFLAGS) graph.c +handler.obj: handler.c conf.h sysdep.h structs.h utils.h comm.h db.h handler.h \ + interpreter.h spells.h + $(CC) -c $(CFLAGS) handler.c +house.obj: house.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h house.h constants.h + $(CC) -c $(CFLAGS) house.c +interpreter.obj: interpreter.c conf.h sysdep.h structs.h comm.h interpreter.h db.h \ + utils.h spells.h handler.h mail.h screen.h + $(CC) -c $(CFLAGS) interpreter.c +limits.obj: limits.c conf.h sysdep.h structs.h utils.h spells.h comm.h db.h \ + handler.h + $(CC) -c $(CFLAGS) limits.c +magic.obj: magic.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h db.h + $(CC) -c $(CFLAGS) magic.c +mail.obj: mail.c conf.h sysdep.h structs.h utils.h comm.h db.h interpreter.h \ + handler.h mail.h + $(CC) -c $(CFLAGS) mail.c +mobact.obj: mobact.c conf.h sysdep.h structs.h utils.h db.h comm.h interpreter.h \ + handler.h spells.h + $(CC) -c $(CFLAGS) mobact.c +modify.obj: modify.c conf.h sysdep.h structs.h utils.h interpreter.h handler.h db.h \ + comm.h spells.h mail.h boards.h + $(CC) -c $(CFLAGS) modify.c +objsave.obj: objsave.c conf.h sysdep.h structs.h comm.h handler.h db.h \ + interpreter.h utils.h spells.h + $(CC) -c $(CFLAGS) objsave.c +olc.obj: olc.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h \ + olc.h + $(CC) -c $(CFLAGS) olc.c +random.obj: random.c + $(CC) -c $(CFLAGS) random.c +shop.obj: shop.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h shop.h + $(CC) -c $(CFLAGS) shop.c +spec_assign.obj: spec_assign.c conf.h sysdep.h structs.h db.h interpreter.h \ + utils.h + $(CC) -c $(CFLAGS) spec_assign.c +spec_procs.obj: spec_procs.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) spec_procs.c +spell_parser.obj: spell_parser.c conf.h sysdep.h structs.h utils.h interpreter.h \ + spells.h handler.h comm.h db.h + $(CC) -c $(CFLAGS) spell_parser.c +spells.obj: spells.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h \ + db.h constants.h + $(CC) -c $(CFLAGS) spells.c +utils.obj: utils.c conf.h sysdep.h structs.h utils.h comm.h screen.h spells.h \ + handler.h + $(CC) -c $(CFLAGS) utils.c +weather.obj: weather.c conf.h sysdep.h structs.h utils.h comm.h handler.h \ + interpreter.h db.h + $(CC) -c $(CFLAGS) weather.c diff --git a/src/Makefile.os2 b/src/Makefile.os2 new file mode 100644 index 0000000..4e8f196 --- /dev/null +++ b/src/Makefile.os2 @@ -0,0 +1,214 @@ +# CircleMUD Makefile for OS/2 (manually created by David Carver) + +# C compiler to use +CC = gcc + +# Any special flags you want to pass to the compiler +MYFLAGS = -O2 -Wall + +#flags for profiling (see hacker.doc for more information) +PROFILE = + +# Libraires that need to be included for use with GCC for OS/2 +LIB = -lsocket + +############################################################################## +# Do Not Modify Anything Below This Line (unless you know what you're doing) # +############################################################################## + +# For compiling circle with GDB debugger Information +#CFLAGS = -g -O $(MYFLAGS) $(PROFILE) +# Uncomment the line below if you don't want to compile with GDB info +CFLAGS = $(MYFLAGS) $(PROFILE) + +OBJFILES = comm.o act.comm.o act.informative.o act.movement.o act.item.o \ + act.offensive.o act.other.o act.social.o act.wizard.o ban.o boards.o \ + castle.o class.o config.o constants.o db.o fight.o graph.o handler.o \ + house.o interpreter.o limits.o magic.o mail.o mobact.o modify.o \ + objsave.o olc.o shop.o spec_assign.o spec_procs.o spell_parser.o \ + spells.o utils.o weather.o random.o alias.o + +default: .accepted + $(MAKE) ../bin/circle + +.accepted: + @./licheck more + +utils: .accepted + $(MAKE) ../bin/autowiz + $(MAKE) ../bin/delobjs + $(MAKE) ../bin/listrent + $(MAKE) ../bin/mudpasswd + $(MAKE) ../bin/play2to3 + $(MAKE) ../bin/purgeplay + $(MAKE) ../bin/shopconv + $(MAKE) ../bin/showplay + $(MAKE) ../bin/sign + $(MAKE) ../bin/split + $(MAKE) ../bin/wld2html + +all: .accepted + $(MAKE) ../bin/circle + $(MAKE) utils + +circle: + $(MAKE) ../bin/circle +autowiz: + $(MAKE) ../bin/autowiz +delobjs: + $(MAKE) ../bin/delobjs +listrent: + $(MAKE) ../bin/listrent +mudpasswd: + $(MAKE) ../bin/mudpasswd +play2to3: + $(MAKE) ../bin/play2to3 +purgeplay: + $(MAKE) ../bin/purgeplay +shopconv: + $(MAKE) ../bin/shopconv +showplay: + $(MAKE) ../bin/showplay +sign: + $(MAKE) ../bin/sign +split: + $(MAKE) ../bin/split +wld2html: + $(MAKE) ../bin/wld2html + + +../bin/autowiz: util/autowiz.c conf.h sysdep.h structs.h utils.h db.h + $(CC) $(CFLAGS) -o ../bin/autowiz util/autowiz.c +../bin/delobjs: util/delobjs.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) -o ../bin/delobjs util/delobjs.c +../bin/listrent: util/listrent.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) -o ../bin/listrent util/listrent.c +../bin/mudpasswd: util/mudpasswd.c conf.h sysdep.h structs.h utils.h + $(CC) $(CFLAGS) -o ../bin/mudpasswd util/mudpasswd.c +../bin/play2to3: util/play2to3.c + $(CC) $(CFLAGS) -o ../bin/play2to3 util/play2to3.c +../bin/purgeplay: util/purgeplay.c conf.h sysdep.h structs.h utils.h + $(CC) $(CFLAGS) -o ../bin/purgeplay util/purgeplay.c +../bin/shopconv: util/shopconv.c conf.h sysdep.h structs.h db.h utils.h shop.h + $(CC) $(CFLAGS) -o ../bin/shopconv util/shopconv.c +../bin/showplay: util/showplay.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) -o ../bin/showplay util/showplay.c +../bin/sign: util/sign.c conf.h sysdep.h + $(CC) $(CFLAGS) -o ../bin/sign util/sign.c +../bin/split: util/split.c + $(CC) $(CFLAGS) -o ../bin/split util/split.c +../bin/wld2html: util/wld2html.c + $(CC) $(CFLAGS) -o ../bin/wld2html util/wld2html.c + +../bin/circle : $(OBJFILES) + $(CC) -o circle.exe $(PROFILE) $(OBJFILES) $(LIB) +clean: + rm -f *.o + +# Dependencies for the object files (automagically generated with +# gcc -MM) + +alias.o: alias.c conf.h sysdep.h structs.h utils.h interpreter.h db.h + $(CC) -c $(CFLAGS) alias.c +act.comm.o: act.comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h screen.h + $(CC) -c $(CFLAGS) act.comm.c +act.informative.o: act.informative.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h screen.h constants.h + $(CC) -c $(CFLAGS) act.informative.c +act.item.o: act.item.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.item.c +act.movement.o: act.movement.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h constants.h + $(CC) -c $(CFLAGS) act.movement.c +act.offensive.o: act.offensive.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.offensive.c +act.other.o: act.other.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h screen.h house.h + $(CC) -c $(CFLAGS) act.other.c +act.social.o: act.social.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) act.social.c +act.wizard.o: act.wizard.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h screen.h constants.h + $(CC) -c $(CFLAGS) act.wizard.c +ban.o: ban.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h + $(CC) -c $(CFLAGS) ban.c +boards.o: boards.c conf.h sysdep.h structs.h utils.h comm.h db.h boards.h \ + interpreter.h handler.h + $(CC) -c $(CFLAGS) boards.c +castle.o: castle.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) -c $(CFLAGS) castle.c +class.o: class.c conf.h sysdep.h structs.h db.h utils.h spells.h interpreter.h + $(CC) -c $(CFLAGS) class.c +comm.o: comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h house.h + $(CC) -c $(CFLAGS) comm.c +config.o: config.c conf.h sysdep.h structs.h + $(CC) -c $(CFLAGS) config.c +constants.o: constants.c conf.h sysdep.h structs.h + $(CC) -c $(CFLAGS) constants.c +db.o: db.c conf.h sysdep.h structs.h utils.h db.h comm.h handler.h spells.h mail.h \ + interpreter.h house.h + $(CC) -c $(CFLAGS) db.c +fight.o: fight.c conf.h sysdep.h structs.h utils.h comm.h handler.h interpreter.h \ + db.h spells.h screen.h + $(CC) -c $(CFLAGS) fight.c +graph.o: graph.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h spells.h + $(CC) -c $(CFLAGS) graph.c +handler.o: handler.c conf.h sysdep.h structs.h utils.h comm.h db.h handler.h \ + interpreter.h spells.h + $(CC) -c $(CFLAGS) handler.c +house.o: house.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h house.h constants.h + $(CC) -c $(CFLAGS) house.c +interpreter.o: interpreter.c conf.h sysdep.h structs.h comm.h interpreter.h db.h \ + utils.h spells.h handler.h mail.h screen.h + $(CC) -c $(CFLAGS) interpreter.c +limits.o: limits.c conf.h sysdep.h structs.h utils.h spells.h comm.h db.h \ + handler.h + $(CC) -c $(CFLAGS) limits.c +magic.o: magic.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h db.h + $(CC) -c $(CFLAGS) magic.c +mail.o: mail.c conf.h sysdep.h structs.h utils.h comm.h db.h interpreter.h \ + handler.h mail.h + $(CC) -c $(CFLAGS) mail.c +mobact.o: mobact.c conf.h sysdep.h structs.h utils.h db.h comm.h interpreter.h \ + handler.h spells.h + $(CC) -c $(CFLAGS) mobact.c +modify.o: modify.c conf.h sysdep.h structs.h utils.h interpreter.h handler.h db.h \ + comm.h spells.h mail.h boards.h + $(CC) -c $(CFLAGS) modify.c +objsave.o: objsave.c conf.h sysdep.h structs.h comm.h handler.h db.h \ + interpreter.h utils.h spells.h + $(CC) -c $(CFLAGS) objsave.c +olc.o: olc.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h \ + olc.h + $(CC) -c $(CFLAGS) olc.c +random.o: random.c + $(CC) -c $(CFLAGS) random.c +shop.o: shop.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h shop.h + $(CC) -c $(CFLAGS) shop.c +spec_assign.o: spec_assign.c conf.h sysdep.h structs.h db.h interpreter.h \ + utils.h + $(CC) -c $(CFLAGS) spec_assign.c +spec_procs.o: spec_procs.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) -c $(CFLAGS) spec_procs.c +spell_parser.o: spell_parser.c conf.h sysdep.h structs.h utils.h interpreter.h \ + spells.h handler.h comm.h db.h + $(CC) -c $(CFLAGS) spell_parser.c +spells.o: spells.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h \ + db.h constants.h + $(CC) -c $(CFLAGS) spells.c +utils.o: utils.c conf.h sysdep.h structs.h utils.h comm.h screen.h spells.h \ + handler.h + $(CC) -c $(CFLAGS) utils.c +weather.o: weather.c conf.h sysdep.h structs.h utils.h comm.h handler.h \ + interpreter.h db.h + $(CC) -c $(CFLAGS) weather.c diff --git a/src/SCOPTIONS b/src/SCOPTIONS new file mode 100644 index 0000000..5a52cc4 --- /dev/null +++ b/src/SCOPTIONS @@ -0,0 +1,12 @@ +DATA=FAR +CODE=FAR +MATH=STANDARD +ANSI +NOSTACKCHECK +MODIFIED +STACKEXTEND +NOICONS +ONERROR=CONTINUE +INCLUDEDIR=include:netinclude +LIBRARY=LIB:net.lib +LINKEROPTIONS="bufsize 4096" diff --git a/src/Smakefile b/src/Smakefile new file mode 100644 index 0000000..7dd9569 --- /dev/null +++ b/src/Smakefile @@ -0,0 +1,205 @@ +# CircleMUD makefile for the Amiga + +# C compiler to use +CC = sc + +# Any special flags you want to pass to the compiler +MYFLAGS = + +#flags for profiling (see hacker.doc for more information) +PROFILE = + +############################################################################## +# Do Not Modify Anything Below This Line (unless you know what you're doing) # +############################################################################## + +CFLAGS = NOLINK $(MYFLAGS) $(PROFILE) + +MAKE = SMAKE + +OBJFILES = comm.o act.comm.o act.informative.o act.movement.o act.item.o \ + act.offensive.o act.other.o act.social.o act.wizard.o ban.o boards.o \ + castle.o class.o config.o constants.o db.o fight.o graph.o handler.o \ + house.o interpreter.o limits.o magic.o mail.o mobact.o modify.o \ + objsave.o olc.o shop.o spec_assign.o spec_procs.o spell_parser.o \ + spells.o utils.o weather.o random.o + +default: + $(MAKE) /bin/circle + + +utils: + $(MAKE) /bin/autowiz + $(MAKE) /bin/delobjs + $(MAKE) /bin/listrent + $(MAKE) /bin/mudpasswd + $(MAKE) /bin/play2to3 + $(MAKE) /bin/purgeplay + $(MAKE) /bin/shopconv + $(MAKE) /bin/showplay + $(MAKE) /bin/sign + $(MAKE) /bin/split + $(MAKE) /bin/wld2html + +all: .accepted + $(MAKE) /bin/circle + $(MAKE) utils + +circle: + $(MAKE) /bin/circle +autowiz: + $(MAKE) /bin/autowiz +delobjs: + $(MAKE) /bin/delobjs +listrent: + $(MAKE) /bin/listrent +mudpasswd: + $(MAKE) /bin/mudpasswd +play2to3: + $(MAKE) /bin/play2to3 +purgeplay: + $(MAKE) /bin/purgeplay +shopconv: + $(MAKE) /bin/shopconv +showplay: + $(MAKE) /bin/showplay +sign: + $(MAKE) /bin/sign +split: + $(MAKE) /bin/split +wld2html: + $(MAKE) /bin/wld2html + + +/bin/autowiz: util/autowiz.c conf.h sysdep.h structs.h utils.h db.h + $(CC) $(CFLAGS) /bin/autowiz util/autowiz.c LINK +/bin/delobjs: util/delobjs.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) /bin/delobjs util/delobjs.c LINK +/bin/listrent: util/listrent.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) /bin/listrent util/listrent.c LINK +/bin/mudpasswd: util/mudpasswd.c conf.h sysdep.h structs.h utils.h + $(CC) $(CFLAGS) /bin/mudpasswd util/mudpasswd.c LINK +/bin/play2to3: util/play2to3.c + $(CC) $(CFLAGS) /bin/play2to3 util/play2to3.c LINK +/bin/purgeplay: util/purgeplay.c conf.h sysdep.h structs.h utils.h + $(CC) $(CFLAGS) /bin/purgeplay util/purgeplay.c LINK +/bin/shopconv: util/shopconv.c conf.h sysdep.h structs.h db.h utils.h shop.h + $(CC) $(CFLAGS) /bin/shopconv util/shopconv.c LINK +/bin/showplay: util/showplay.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) /bin/showplay util/showplay.c LINK +/bin/sign: util/sign.c conf.h sysdep.h + $(CC) $(CFLAGS) /bin/sign util/sign.c LINK +/bin/split: util/split.c + $(CC) $(CFLAGS) /bin/split util/split.c LINK +/bin/wld2html: util/wld2html.c + $(CC) $(CFLAGS) /bin/wld2html util/wld2html.c LINK + +/bin/circle : $(OBJFILES) + $(CC) $(PROFILE) $(OBJFILES) TO /bin/circle LINK + +# Dependencies for the object files (automagically generated with +# gcc -MM) + +act.comm.o: act.comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h screen.h + $(CC) $(CFLAGS) act.comm.c +act.informative.o: act.informative.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h screen.h + $(CC) $(CFLAGS) act.informative.c +act.item.o: act.item.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) $(CFLAGS) act.item.c +act.movement.o: act.movement.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h + $(CC) $(CFLAGS) act.movement.c +act.offensive.o: act.offensive.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) $(CFLAGS) act.offensive.c +act.other.o: act.other.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h screen.h house.h + $(CC) $(CFLAGS) act.other.c +act.social.o: act.social.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) $(CFLAGS) act.social.c +act.wizard.o: act.wizard.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h house.h screen.h + $(CC) $(CFLAGS) act.wizard.c +ban.o: ban.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h + $(CC) $(CFLAGS) ban.c +boards.o: boards.c conf.h sysdep.h structs.h utils.h comm.h db.h boards.h \ + interpreter.h handler.h + $(CC) $(CFLAGS) boards.c +castle.o: castle.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h \ + handler.h db.h spells.h + $(CC) $(CFLAGS) castle.c +class.o: class.c conf.h sysdep.h structs.h db.h utils.h spells.h interpreter.h + $(CC) $(CFLAGS) class.c +comm.o: comm.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h house.h + $(CC) $(CFLAGS) comm.c +config.o: config.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) config.c +constants.o: constants.c conf.h sysdep.h structs.h + $(CC) $(CFLAGS) constants.c +db.o: db.c conf.h sysdep.h structs.h utils.h db.h comm.h handler.h spells.h mail.h \ + interpreter.h house.h + $(CC) $(CFLAGS) db.c +fight.o: fight.c conf.h sysdep.h structs.h utils.h comm.h handler.h interpreter.h \ + db.h spells.h screen.h + $(CC) $(CFLAGS) fight.c +graph.o: graph.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h \ + db.h spells.h + $(CC) $(CFLAGS) graph.c +handler.o: handler.c conf.h sysdep.h structs.h utils.h comm.h db.h handler.h \ + interpreter.h spells.h + $(CC) $(CFLAGS) handler.c +house.o: house.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h house.h + $(CC) $(CFLAGS) house.c +interpreter.o: interpreter.c conf.h sysdep.h structs.h comm.h interpreter.h db.h \ + utils.h spells.h handler.h mail.h screen.h + $(CC) $(CFLAGS) interpreter.c +limits.o: limits.c conf.h sysdep.h structs.h utils.h spells.h comm.h db.h \ + handler.h + $(CC) $(CFLAGS) limits.c +magic.o: magic.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h db.h + $(CC) $(CFLAGS) magic.c +mail.o: mail.c conf.h sysdep.h structs.h utils.h comm.h db.h interpreter.h \ + handler.h mail.h + $(CC) $(CFLAGS) mail.c +mobact.o: mobact.c conf.h sysdep.h structs.h utils.h db.h comm.h interpreter.h \ + handler.h spells.h + $(CC) $(CFLAGS) mobact.c +modify.o: modify.c conf.h sysdep.h structs.h utils.h interpreter.h handler.h db.h \ + comm.h spells.h mail.h boards.h + $(CC) $(CFLAGS) modify.c +objsave.o: objsave.c conf.h sysdep.h structs.h comm.h handler.h db.h \ + interpreter.h utils.h spells.h + $(CC) $(CFLAGS) objsave.c +olc.o: olc.c conf.h sysdep.h structs.h utils.h comm.h interpreter.h handler.h db.h \ + olc.h + $(CC) $(CFLAGS) olc.c +random.o: random.c + $(CC) $(CFLAGS) random.c +shop.o: shop.c conf.h sysdep.h structs.h comm.h handler.h db.h interpreter.h \ + utils.h shop.h + $(CC) $(CFLAGS) shop.c +spec_assign.o: spec_assign.c conf.h sysdep.h structs.h db.h interpreter.h \ + utils.h + $(CC) $(CFLAGS) spec_assign.c +spec_procs.o: spec_procs.c conf.h sysdep.h structs.h utils.h comm.h \ + interpreter.h handler.h db.h spells.h + $(CC) $(CFLAGS) spec_procs.c +spell_parser.o: spell_parser.c conf.h sysdep.h structs.h utils.h interpreter.h \ + spells.h handler.h comm.h db.h + $(CC) $(CFLAGS) spell_parser.c +spells.o: spells.c conf.h sysdep.h structs.h utils.h comm.h spells.h handler.h \ + db.h + $(CC) $(CFLAGS) spells.c +utils.o: utils.c conf.h sysdep.h structs.h utils.h comm.h screen.h spells.h \ + handler.h + $(CC) $(CFLAGS) utils.c +weather.o: weather.c conf.h sysdep.h structs.h utils.h comm.h handler.h \ + interpreter.h db.h + $(CC) $(CFLAGS) weather.c + diff --git a/src/TODO b/src/TODO new file mode 100644 index 0000000..3bed075 --- /dev/null +++ b/src/TODO @@ -0,0 +1,63 @@ +* = done +? = done? +/ = in progress +- = not started + +/ finish spells +/ string sharing, or at least keyword sharing +/ overhaul do_look and all related functions + +- fix affect_total +- etext system +- large buf freeing +- more imm levs????? +- randomized gold? +- add new prompt system? +- newbie command +- fix process_output (see comment above it) + +? verify correctness of process_input + +* get_char_room_vis/get_char_vis and get_player_vis(0/1) +* outdoor light +* add page breaks to prac list +* sort prac/spell list +* add FAILURE to spells!! +* fix floating point in current prompt system +* add aliases +* fix light bug +* page background story +* purge bug? +* force room bug +* spell word abbrev +* god can unlock doors w/o key +* fix loadroom +* invis start bug +* infrared bug +* xnames bug +* skillset/skillshow +* new where & locate object +* string!!!!!!!! +* new guild code +* anti-class flags +* gen com comments +* ascii flags?? +* act fix +* turn off rent option +* 0.person means 'PC' +* class.c +* debug houses +* combine qsay/quecho +* check on lock picking +* change snoop to use descriptor instead of character +* FIX the freaking buried magic number '11' in act.offensive.c +* fix up prompts +* change type of aff num to 16-bit or greater in playerfile +* make 'player_specials_saved' +* change stat to use spell names instead of numbers +* line-by-line zone parsing +* reply command +* rewrite help system to use internal +* make '! ras' work +* fix the utilities, most of which are broken at the moment +* all those mobs using player specials, you'll see them :) diff --git a/src/act.comm.c b/src/act.comm.c new file mode 100644 index 0000000..e306349 --- /dev/null +++ b/src/act.comm.c @@ -0,0 +1,517 @@ +/* ************************************************************************ +* File: act.comm.c Part of CircleMUD * +* Usage: Player-level communication commands * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "screen.h" + +/* extern variables */ +extern int level_can_shout; +extern int holler_move_cost; + +/* local functions */ +void perform_tell(struct char_data *ch, struct char_data *vict, char *arg); +int is_tell_ok(struct char_data *ch, struct char_data *vict); +ACMD(do_say); +ACMD(do_gsay); +ACMD(do_tell); +ACMD(do_reply); +ACMD(do_spec_comm); +ACMD(do_write); +ACMD(do_page); +ACMD(do_gen_comm); +ACMD(do_qcomm); + + +ACMD(do_say) +{ + skip_spaces(&argument); + + if (!*argument) + send_to_char(ch, "Yes, but WHAT do you want to say?\r\n"); + else { + char buf[MAX_INPUT_LENGTH + 12]; + + snprintf(buf, sizeof(buf), "$n says, '%s'", argument); + act(buf, FALSE, ch, 0, 0, TO_ROOM); + + if (!IS_NPC(ch) && PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else { + delete_doubledollar(argument); + send_to_char(ch, "You say, '%s'\r\n", argument); + } + } +} + + +ACMD(do_gsay) +{ + struct char_data *k; + struct follow_type *f; + + skip_spaces(&argument); + + if (!AFF_FLAGGED(ch, AFF_GROUP)) { + send_to_char(ch, "But you are not the member of a group!\r\n"); + return; + } + if (!*argument) + send_to_char(ch, "Yes, but WHAT do you want to group-say?\r\n"); + else { + char buf[MAX_STRING_LENGTH]; + + if (ch->master) + k = ch->master; + else + k = ch; + + snprintf(buf, sizeof(buf), "$n tells the group, '%s'", argument); + + if (AFF_FLAGGED(k, AFF_GROUP) && (k != ch)) + act(buf, FALSE, ch, 0, k, TO_VICT | TO_SLEEP); + for (f = k->followers; f; f = f->next) + if (AFF_FLAGGED(f->follower, AFF_GROUP) && (f->follower != ch)) + act(buf, FALSE, ch, 0, f->follower, TO_VICT | TO_SLEEP); + + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else + send_to_char(ch, "You tell the group, '%s'\r\n", argument); + } +} + + +void perform_tell(struct char_data *ch, struct char_data *vict, char *arg) +{ + char buf[MAX_STRING_LENGTH]; + + send_to_char(vict, "%s", CCRED(vict, C_NRM)); + snprintf(buf, sizeof(buf), "$n tells you, '%s'", arg); + act(buf, FALSE, ch, 0, vict, TO_VICT | TO_SLEEP); + send_to_char(vict, "%s", CCNRM(vict, C_NRM)); + + if (!IS_NPC(ch) && PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else { + send_to_char(ch, "%s", CCRED(ch, C_CMP)); + snprintf(buf, sizeof(buf), "You tell $N, '%s'", arg); + act(buf, FALSE, ch, 0, vict, TO_CHAR | TO_SLEEP); + send_to_char(ch, "%s", CCNRM(ch, C_CMP)); + } + + if (!IS_NPC(vict) && !IS_NPC(ch)) + GET_LAST_TELL(vict) = GET_IDNUM(ch); +} + +int is_tell_ok(struct char_data *ch, struct char_data *vict) +{ + if (ch == vict) + send_to_char(ch, "You try to tell yourself something.\r\n"); + else if (!IS_NPC(ch) && PRF_FLAGGED(ch, PRF_NOTELL)) + send_to_char(ch, "You can't tell other people while you have notell on.\r\n"); + else if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_SOUNDPROOF)) + send_to_char(ch, "The walls seem to absorb your words.\r\n"); + else if (!IS_NPC(vict) && !vict->desc) /* linkless */ + act("$E's linkless at the moment.", FALSE, ch, 0, vict, TO_CHAR | TO_SLEEP); + else if (PLR_FLAGGED(vict, PLR_WRITING)) + act("$E's writing a message right now; try again later.", FALSE, ch, 0, vict, TO_CHAR | TO_SLEEP); + else if ((!IS_NPC(vict) && PRF_FLAGGED(vict, PRF_NOTELL)) || ROOM_FLAGGED(IN_ROOM(vict), ROOM_SOUNDPROOF)) + act("$E can't hear you.", FALSE, ch, 0, vict, TO_CHAR | TO_SLEEP); + else + return (TRUE); + + return (FALSE); +} + +/* + * Yes, do_tell probably could be combined with whisper and ask, but + * called frequently, and should IMHO be kept as tight as possible. + */ +ACMD(do_tell) +{ + struct char_data *vict = NULL; + char buf[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH]; + + half_chop(argument, buf, buf2); + + if (!*buf || !*buf2) + send_to_char(ch, "Who do you wish to tell what??\r\n"); + else if (GET_LEVEL(ch) < LVL_IMMORT && !(vict = get_player_vis(ch, buf, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "%s", NOPERSON); + else if (GET_LEVEL(ch) >= LVL_IMMORT && !(vict = get_char_vis(ch, buf, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "%s", NOPERSON); + else if (is_tell_ok(ch, vict)) + perform_tell(ch, vict, buf2); +} + + +ACMD(do_reply) +{ + struct char_data *tch = character_list; + + if (IS_NPC(ch)) + return; + + skip_spaces(&argument); + + if (GET_LAST_TELL(ch) == NOBODY) + send_to_char(ch, "You have nobody to reply to!\r\n"); + else if (!*argument) + send_to_char(ch, "What is your reply?\r\n"); + else { + /* + * Make sure the person you're replying to is still playing by searching + * for them. Note, now last tell is stored as player IDnum instead of + * a pointer, which is much better because it's safer, plus will still + * work if someone logs out and back in again. + */ + + /* + * XXX: A descriptor list based search would be faster although + * we could not find link dead people. Not that they can + * hear tells anyway. :) -gg 2/24/98 + */ + while (tch != NULL && (IS_NPC(tch) || GET_IDNUM(tch) != GET_LAST_TELL(ch))) + tch = tch->next; + + if (tch == NULL) + send_to_char(ch, "They are no longer playing.\r\n"); + else if (is_tell_ok(ch, tch)) + perform_tell(ch, tch, argument); + } +} + + +ACMD(do_spec_comm) +{ + char buf[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH]; + struct char_data *vict; + const char *action_sing, *action_plur, *action_others; + + switch (subcmd) { + case SCMD_WHISPER: + action_sing = "whisper to"; + action_plur = "whispers to"; + action_others = "$n whispers something to $N."; + break; + + case SCMD_ASK: + action_sing = "ask"; + action_plur = "asks"; + action_others = "$n asks $N a question."; + break; + + default: + action_sing = "oops"; + action_plur = "oopses"; + action_others = "$n is tongue-tied trying to speak with $N."; + break; + } + + half_chop(argument, buf, buf2); + + if (!*buf || !*buf2) + send_to_char(ch, "Whom do you want to %s.. and what??\r\n", action_sing); + else if (!(vict = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "%s", NOPERSON); + else if (vict == ch) + send_to_char(ch, "You can't get your mouth close enough to your ear...\r\n"); + else { + char buf1[MAX_STRING_LENGTH]; + + snprintf(buf1, sizeof(buf1), "$n %s you, '%s'", action_plur, buf2); + act(buf1, FALSE, ch, 0, vict, TO_VICT); + + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else + send_to_char(ch, "You %s %s, '%s'\r\n", action_sing, GET_NAME(vict), buf2); + act(action_others, FALSE, ch, 0, vict, TO_NOTVICT); + } +} + + +/* + * buf1, buf2 = MAX_OBJECT_NAME_LENGTH + * (if it existed) + */ +ACMD(do_write) +{ + struct obj_data *paper, *pen = NULL; + char *papername, *penname; + char buf1[MAX_STRING_LENGTH], buf2[MAX_STRING_LENGTH]; + + papername = buf1; + penname = buf2; + + two_arguments(argument, papername, penname); + + if (!ch->desc) + return; + + if (!*papername) { /* nothing was delivered */ + send_to_char(ch, "Write? With what? ON what? What are you trying to do?!?\r\n"); + return; + } + if (*penname) { /* there were two arguments */ + if (!(paper = get_obj_in_list_vis(ch, papername, NULL, ch->carrying))) { + send_to_char(ch, "You have no %s.\r\n", papername); + return; + } + if (!(pen = get_obj_in_list_vis(ch, penname, NULL, ch->carrying))) { + send_to_char(ch, "You have no %s.\r\n", penname); + return; + } + } else { /* there was one arg.. let's see what we can find */ + if (!(paper = get_obj_in_list_vis(ch, papername, NULL, ch->carrying))) { + send_to_char(ch, "There is no %s in your inventory.\r\n", papername); + return; + } + if (GET_OBJ_TYPE(paper) == ITEM_PEN) { /* oops, a pen.. */ + pen = paper; + paper = NULL; + } else if (GET_OBJ_TYPE(paper) != ITEM_NOTE) { + send_to_char(ch, "That thing has nothing to do with writing.\r\n"); + return; + } + /* One object was found.. now for the other one. */ + if (!GET_EQ(ch, WEAR_HOLD)) { + send_to_char(ch, "You can't write with %s %s alone.\r\n", AN(papername), papername); + return; + } + if (!CAN_SEE_OBJ(ch, GET_EQ(ch, WEAR_HOLD))) { + send_to_char(ch, "The stuff in your hand is invisible! Yeech!!\r\n"); + return; + } + if (pen) + paper = GET_EQ(ch, WEAR_HOLD); + else + pen = GET_EQ(ch, WEAR_HOLD); + } + + + /* ok.. now let's see what kind of stuff we've found */ + if (GET_OBJ_TYPE(pen) != ITEM_PEN) + act("$p is no good for writing with.", FALSE, ch, pen, 0, TO_CHAR); + else if (GET_OBJ_TYPE(paper) != ITEM_NOTE) + act("You can't write on $p.", FALSE, ch, paper, 0, TO_CHAR); + else if (paper->action_description) + send_to_char(ch, "There's something written on it already.\r\n"); + else { + /* we can write - hooray! */ + send_to_char(ch, "Write your note. End with '@' on a new line.\r\n"); + act("$n begins to jot down a note.", TRUE, ch, 0, 0, TO_ROOM); + string_write(ch->desc, &paper->action_description, MAX_NOTE_LENGTH, 0, NULL); + } +} + + + +ACMD(do_page) +{ + struct descriptor_data *d; + struct char_data *vict; + char buf2[MAX_INPUT_LENGTH], arg[MAX_INPUT_LENGTH]; + + half_chop(argument, arg, buf2); + + if (IS_NPC(ch)) + send_to_char(ch, "Monsters can't page.. go away.\r\n"); + else if (!*arg) + send_to_char(ch, "Whom do you wish to page?\r\n"); + else { + char buf[MAX_STRING_LENGTH]; + + snprintf(buf, sizeof(buf), "\007\007*$n* %s", buf2); + if (!str_cmp(arg, "all")) { + if (GET_LEVEL(ch) > LVL_GOD) { + for (d = descriptor_list; d; d = d->next) + if (STATE(d) == CON_PLAYING && d->character) + act(buf, FALSE, ch, 0, d->character, TO_VICT); + } else + send_to_char(ch, "You will never be godly enough to do that!\r\n"); + return; + } + if ((vict = get_char_vis(ch, arg, NULL, FIND_CHAR_WORLD)) != NULL) { + act(buf, FALSE, ch, 0, vict, TO_VICT); + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else + act(buf, FALSE, ch, 0, vict, TO_CHAR); + } else + send_to_char(ch, "There is no such person in the game!\r\n"); + } +} + + +/********************************************************************** + * generalized communication func, originally by Fred C. Merkel (Torg) * + *********************************************************************/ + +ACMD(do_gen_comm) +{ + struct descriptor_data *i; + char color_on[24]; + char buf1[MAX_INPUT_LENGTH]; + + /* Array of flags which must _not_ be set in order for comm to be heard */ + int channels[] = { + 0, + PRF_DEAF, + PRF_NOGOSS, + PRF_NOAUCT, + PRF_NOGRATZ, + 0 + }; + + /* + * com_msgs: [0] Message if you can't perform the action because of noshout + * [1] name of the action + * [2] message if you're not on the channel + * [3] a color string. + */ + const char *com_msgs[][4] = { + {"You cannot holler!!\r\n", + "holler", + "", + KYEL}, + + {"You cannot shout!!\r\n", + "shout", + "Turn off your noshout flag first!\r\n", + KYEL}, + + {"You cannot gossip!!\r\n", + "gossip", + "You aren't even on the channel!\r\n", + KYEL}, + + {"You cannot auction!!\r\n", + "auction", + "You aren't even on the channel!\r\n", + KMAG}, + + {"You cannot congratulate!\r\n", + "congrat", + "You aren't even on the channel!\r\n", + KGRN} + }; + + /* to keep pets, etc from being ordered to shout */ + if (!ch->desc) + return; + + if (PLR_FLAGGED(ch, PLR_NOSHOUT)) { + send_to_char(ch, "%s", com_msgs[subcmd][0]); + return; + } + if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_SOUNDPROOF)) { + send_to_char(ch, "The walls seem to absorb your words.\r\n"); + return; + } + /* level_can_shout defined in config.c */ + if (GET_LEVEL(ch) < level_can_shout) { + send_to_char(ch, "You must be at least level %d before you can %s.\r\n", level_can_shout, com_msgs[subcmd][1]); + return; + } + /* make sure the char is on the channel */ + if (PRF_FLAGGED(ch, channels[subcmd])) { + send_to_char(ch, "%s", com_msgs[subcmd][2]); + return; + } + /* skip leading spaces */ + skip_spaces(&argument); + + /* make sure that there is something there to say! */ + if (!*argument) { + send_to_char(ch, "Yes, %s, fine, %s we must, but WHAT???\r\n", com_msgs[subcmd][1], com_msgs[subcmd][1]); + return; + } + if (subcmd == SCMD_HOLLER) { + if (GET_MOVE(ch) < holler_move_cost) { + send_to_char(ch, "You're too exhausted to holler.\r\n"); + return; + } else + GET_MOVE(ch) -= holler_move_cost; + } + /* set up the color on code */ + strlcpy(color_on, com_msgs[subcmd][3], sizeof(color_on)); + + /* first, set up strings to be given to the communicator */ + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else + send_to_char(ch, "%sYou %s, '%s'%s\r\n", COLOR_LEV(ch) >= C_CMP ? color_on : "", com_msgs[subcmd][1], argument, CCNRM(ch, C_CMP)); + + snprintf(buf1, sizeof(buf1), "$n %ss, '%s'", com_msgs[subcmd][1], argument); + + /* now send all the strings out */ + for (i = descriptor_list; i; i = i->next) { + if (STATE(i) == CON_PLAYING && i != ch->desc && i->character && + !PRF_FLAGGED(i->character, channels[subcmd]) && + !PLR_FLAGGED(i->character, PLR_WRITING) && + !ROOM_FLAGGED(IN_ROOM(i->character), ROOM_SOUNDPROOF)) { + + if (subcmd == SCMD_SHOUT && + ((world[IN_ROOM(ch)].zone != world[IN_ROOM(i->character)].zone) || + !AWAKE(i->character))) + continue; + + if (COLOR_LEV(i->character) >= C_NRM) + send_to_char(i->character, "%s", color_on); + act(buf1, FALSE, ch, 0, i->character, TO_VICT | TO_SLEEP); + if (COLOR_LEV(i->character) >= C_NRM) + send_to_char(i->character, "%s", KNRM); + } + } +} + + +ACMD(do_qcomm) +{ + if (!PRF_FLAGGED(ch, PRF_QUEST)) { + send_to_char(ch, "You aren't even part of the quest!\r\n"); + return; + } + skip_spaces(&argument); + + if (!*argument) + send_to_char(ch, "%c%s? Yes, fine, %s we must, but WHAT??\r\n", UPPER(*CMD_NAME), CMD_NAME + 1, CMD_NAME); + else { + char buf[MAX_STRING_LENGTH]; + struct descriptor_data *i; + + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else if (subcmd == SCMD_QSAY) { + snprintf(buf, sizeof(buf), "You quest-say, '%s'", argument); + act(buf, FALSE, ch, 0, argument, TO_CHAR); + } else + act(argument, FALSE, ch, 0, argument, TO_CHAR); + + if (subcmd == SCMD_QSAY) + snprintf(buf, sizeof(buf), "$n quest-says, '%s'", argument); + else + strlcpy(buf, argument, sizeof(buf)); + + for (i = descriptor_list; i; i = i->next) + if (STATE(i) == CON_PLAYING && i != ch->desc && PRF_FLAGGED(i->character, PRF_QUEST)) + act(buf, 0, ch, 0, i->character, TO_VICT | TO_SLEEP); + } +} diff --git a/src/act.informative.c b/src/act.informative.c new file mode 100644 index 0000000..84bb5a0 --- /dev/null +++ b/src/act.informative.c @@ -0,0 +1,1693 @@ +/* ************************************************************************ +* File: act.informative.c Part of CircleMUD * +* Usage: Player-level commands of an informative nature * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" +#include "screen.h" +#include "constants.h" + +/* extern variables */ +extern int top_of_helpt; +extern struct help_index_element *help_table; +extern char *help; +extern struct time_info_data time_info; + +extern char *credits; +extern char *news; +extern char *info; +extern char *motd; +extern char *imotd; +extern char *wizlist; +extern char *immlist; +extern char *policies; +extern char *handbook; +extern char *class_abbrevs[]; + +/* extern functions */ +ACMD(do_action); +ACMD(do_insult); +bitvector_t find_class_bitvector(const char *arg); +int level_exp(int chclass, int level); +char *title_male(int chclass, int level); +char *title_female(int chclass, int level); +struct time_info_data *real_time_passed(time_t t2, time_t t1); +int compute_armor_class(struct char_data *ch); + +/* local functions */ +int sort_commands_helper(const void *a, const void *b); +void print_object_location(int num, struct obj_data *obj, struct char_data *ch, int recur); +void show_obj_to_char(struct obj_data *obj, struct char_data *ch, int mode); +void list_obj_to_char(struct obj_data *list, struct char_data *ch, int mode, int show); +void show_obj_modifiers(struct obj_data *obj, struct char_data *ch); +ACMD(do_look); +ACMD(do_examine); +ACMD(do_gold); +ACMD(do_score); +ACMD(do_inventory); +ACMD(do_equipment); +ACMD(do_time); +ACMD(do_weather); +ACMD(do_help); +ACMD(do_who); +ACMD(do_users); +ACMD(do_gen_ps); +void perform_mortal_where(struct char_data *ch, char *arg); +void perform_immort_where(struct char_data *ch, char *arg); +ACMD(do_where); +ACMD(do_levels); +ACMD(do_consider); +ACMD(do_diagnose); +ACMD(do_color); +ACMD(do_toggle); +void sort_commands(void); +ACMD(do_commands); +void diag_char_to_char(struct char_data *i, struct char_data *ch); +void look_at_char(struct char_data *i, struct char_data *ch); +void list_one_char(struct char_data *i, struct char_data *ch); +void list_char_to_char(struct char_data *list, struct char_data *ch); +void do_auto_exits(struct char_data *ch); +ACMD(do_exits); +void look_in_direction(struct char_data *ch, int dir); +void look_in_obj(struct char_data *ch, char *arg); +char *find_exdesc(char *word, struct extra_descr_data *list); +void look_at_target(struct char_data *ch, char *arg); + +/* local globals */ +int *cmd_sort_info; + +/* For show_obj_to_char 'mode'. /-- arbitrary */ +#define SHOW_OBJ_LONG 0 +#define SHOW_OBJ_SHORT 1 +#define SHOW_OBJ_ACTION 2 + + +void show_obj_to_char(struct obj_data *obj, struct char_data *ch, int mode) +{ + if (!obj || !ch) { + log("SYSERR: NULL pointer in show_obj_to_char(): obj=%p ch=%p", obj, ch); + return; + } + + switch (mode) { + case SHOW_OBJ_LONG: + send_to_char(ch, "%s", obj->description); + break; + + case SHOW_OBJ_SHORT: + send_to_char(ch, "%s", obj->short_description); + break; + + case SHOW_OBJ_ACTION: + switch (GET_OBJ_TYPE(obj)) { + case ITEM_NOTE: + if (obj->action_description) { + char notebuf[MAX_NOTE_LENGTH + 64]; + + snprintf(notebuf, sizeof(notebuf), "There is something written on it:\r\n\r\n%s", obj->action_description); + page_string(ch->desc, notebuf, TRUE); + } else + send_to_char(ch, "It's blank.\r\n"); + return; + + case ITEM_DRINKCON: + send_to_char(ch, "It looks like a drink container."); + break; + + default: + send_to_char(ch, "You see nothing special.."); + break; + } + break; + + default: + log("SYSERR: Bad display mode (%d) in show_obj_to_char().", mode); + return; + } + + show_obj_modifiers(obj, ch); + send_to_char(ch, "\r\n"); +} + + +void show_obj_modifiers(struct obj_data *obj, struct char_data *ch) +{ + if (OBJ_FLAGGED(obj, ITEM_INVISIBLE)) + send_to_char(ch, " (invisible)"); + + if (OBJ_FLAGGED(obj, ITEM_BLESS) && AFF_FLAGGED(ch, AFF_DETECT_ALIGN)) + send_to_char(ch, " ..It glows blue!"); + + if (OBJ_FLAGGED(obj, ITEM_MAGIC) && AFF_FLAGGED(ch, AFF_DETECT_MAGIC)) + send_to_char(ch, " ..It glows yellow!"); + + if (OBJ_FLAGGED(obj, ITEM_GLOW)) + send_to_char(ch, " ..It has a soft glowing aura!"); + + if (OBJ_FLAGGED(obj, ITEM_HUM)) + send_to_char(ch, " ..It emits a faint humming sound!"); +} + + +void list_obj_to_char(struct obj_data *list, struct char_data *ch, int mode, int show) +{ + struct obj_data *i; + bool found = FALSE; + + for (i = list; i; i = i->next_content) { + if (CAN_SEE_OBJ(ch, i)) { + show_obj_to_char(i, ch, mode); + found = TRUE; + } + } + if (!found && show) + send_to_char(ch, " Nothing.\r\n"); +} + + +void diag_char_to_char(struct char_data *i, struct char_data *ch) +{ + struct { + byte percent; + const char *text; + } diagnosis[] = { + { 100, "is in excellent condition." }, + { 90, "has a few scratches." }, + { 75, "has some small wounds and bruises." }, + { 50, "has quite a few wounds." }, + { 30, "has some big nasty wounds and scratches." }, + { 15, "looks pretty hurt." }, + { 0, "is in awful condition." }, + { -1, "is bleeding awfully from big wounds." }, + }; + int percent, ar_index; + const char *pers = PERS(i, ch); + + if (GET_MAX_HIT(i) > 0) + percent = (100 * GET_HIT(i)) / GET_MAX_HIT(i); + else + percent = -1; /* How could MAX_HIT be < 1?? */ + + for (ar_index = 0; diagnosis[ar_index].percent >= 0; ar_index++) + if (percent >= diagnosis[ar_index].percent) + break; + + send_to_char(ch, "%c%s %s\r\n", UPPER(*pers), pers + 1, diagnosis[ar_index].text); +} + + +void look_at_char(struct char_data *i, struct char_data *ch) +{ + int j, found; + struct obj_data *tmp_obj; + + if (!ch->desc) + return; + + if (i->player.description) + send_to_char(ch, "%s", i->player.description); + else + act("You see nothing special about $m.", FALSE, i, 0, ch, TO_VICT); + + diag_char_to_char(i, ch); + + found = FALSE; + for (j = 0; !found && j < NUM_WEARS; j++) + if (GET_EQ(i, j) && CAN_SEE_OBJ(ch, GET_EQ(i, j))) + found = TRUE; + + if (found) { + send_to_char(ch, "\r\n"); /* act() does capitalization. */ + act("$n is using:", FALSE, i, 0, ch, TO_VICT); + for (j = 0; j < NUM_WEARS; j++) + if (GET_EQ(i, j) && CAN_SEE_OBJ(ch, GET_EQ(i, j))) { + send_to_char(ch, "%s", wear_where[j]); + show_obj_to_char(GET_EQ(i, j), ch, SHOW_OBJ_SHORT); + } + } + if (ch != i && (IS_THIEF(ch) || GET_LEVEL(ch) >= LVL_IMMORT)) { + found = FALSE; + act("\r\nYou attempt to peek at $s inventory:", FALSE, i, 0, ch, TO_VICT); + for (tmp_obj = i->carrying; tmp_obj; tmp_obj = tmp_obj->next_content) { + if (CAN_SEE_OBJ(ch, tmp_obj) && (rand_number(0, 20) < GET_LEVEL(ch))) { + show_obj_to_char(tmp_obj, ch, SHOW_OBJ_SHORT); + found = TRUE; + } + } + + if (!found) + send_to_char(ch, "You can't see anything.\r\n"); + } +} + + +void list_one_char(struct char_data *i, struct char_data *ch) +{ + const char *positions[] = { + " is lying here, dead.", + " is lying here, mortally wounded.", + " is lying here, incapacitated.", + " is lying here, stunned.", + " is sleeping here.", + " is resting here.", + " is sitting here.", + "!FIGHTING!", + " is standing here." + }; + + if (IS_NPC(i) && i->player.long_descr && GET_POS(i) == GET_DEFAULT_POS(i)) { + if (AFF_FLAGGED(i, AFF_INVISIBLE)) + send_to_char(ch, "*"); + + if (AFF_FLAGGED(ch, AFF_DETECT_ALIGN)) { + if (IS_EVIL(i)) + send_to_char(ch, "(Red Aura) "); + else if (IS_GOOD(i)) + send_to_char(ch, "(Blue Aura) "); + } + send_to_char(ch, "%s", i->player.long_descr); + + if (AFF_FLAGGED(i, AFF_SANCTUARY)) + act("...$e glows with a bright light!", FALSE, i, 0, ch, TO_VICT); + if (AFF_FLAGGED(i, AFF_BLIND)) + act("...$e is groping around blindly!", FALSE, i, 0, ch, TO_VICT); + + return; + } + + if (IS_NPC(i)) + send_to_char(ch, "%c%s", UPPER(*i->player.short_descr), i->player.short_descr + 1); + else + send_to_char(ch, "%s %s", i->player.name, GET_TITLE(i)); + + if (AFF_FLAGGED(i, AFF_INVISIBLE)) + send_to_char(ch, " (invisible)"); + if (AFF_FLAGGED(i, AFF_HIDE)) + send_to_char(ch, " (hidden)"); + if (!IS_NPC(i) && !i->desc) + send_to_char(ch, " (linkless)"); + if (!IS_NPC(i) && PLR_FLAGGED(i, PLR_WRITING)) + send_to_char(ch, " (writing)"); + + if (GET_POS(i) != POS_FIGHTING) + send_to_char(ch, "%s", positions[(int) GET_POS(i)]); + else { + if (FIGHTING(i)) { + send_to_char(ch, " is here, fighting "); + if (FIGHTING(i) == ch) + send_to_char(ch, "YOU!"); + else { + if (IN_ROOM(i) == IN_ROOM(FIGHTING(i))) + send_to_char(ch, "%s!", PERS(FIGHTING(i), ch)); + else + send_to_char(ch, "someone who has already left!"); + } + } else /* NIL fighting pointer */ + send_to_char(ch, " is here struggling with thin air."); + } + + if (AFF_FLAGGED(ch, AFF_DETECT_ALIGN)) { + if (IS_EVIL(i)) + send_to_char(ch, " (Red Aura)"); + else if (IS_GOOD(i)) + send_to_char(ch, " (Blue Aura)"); + } + send_to_char(ch, "\r\n"); + + if (AFF_FLAGGED(i, AFF_SANCTUARY)) + act("...$e glows with a bright light!", FALSE, i, 0, ch, TO_VICT); +} + + + +void list_char_to_char(struct char_data *list, struct char_data *ch) +{ + struct char_data *i; + + for (i = list; i; i = i->next_in_room) + if (ch != i) { + if (CAN_SEE(ch, i)) + list_one_char(i, ch); + else if (IS_DARK(IN_ROOM(ch)) && !CAN_SEE_IN_DARK(ch) && + AFF_FLAGGED(i, AFF_INFRAVISION)) + send_to_char(ch, "You see a pair of glowing red eyes looking your way.\r\n"); + } +} + + +void do_auto_exits(struct char_data *ch) +{ + int door, slen = 0; + + send_to_char(ch, "%s[ Exits: ", CCCYN(ch, C_NRM)); + + for (door = 0; door < NUM_OF_DIRS; door++) { + if (!EXIT(ch, door) || EXIT(ch, door)->to_room == NOWHERE) + continue; + if (EXIT_FLAGGED(EXIT(ch, door), EX_CLOSED)) + continue; + + send_to_char(ch, "%c ", LOWER(*dirs[door])); + slen++; + } + + send_to_char(ch, "%s]%s\r\n", slen ? "" : "None!", CCNRM(ch, C_NRM)); +} + + +ACMD(do_exits) +{ + int door, len = 0; + + if (AFF_FLAGGED(ch, AFF_BLIND)) { + send_to_char(ch, "You can't see a damned thing, you're blind!\r\n"); + return; + } + + send_to_char(ch, "Obvious exits:\r\n"); + + for (door = 0; door < NUM_OF_DIRS; door++) { + if (!EXIT(ch, door) || EXIT(ch, door)->to_room == NOWHERE) + continue; + if (EXIT_FLAGGED(EXIT(ch, door), EX_CLOSED)) + continue; + + len++; + + if (GET_LEVEL(ch) >= LVL_IMMORT) + send_to_char(ch, "%-5s - [%5d] %s\r\n", dirs[door], GET_ROOM_VNUM(EXIT(ch, door)->to_room), + world[EXIT(ch, door)->to_room].name); + else + send_to_char(ch, "%-5s - %s\r\n", dirs[door], IS_DARK(EXIT(ch, door)->to_room) && + !CAN_SEE_IN_DARK(ch) ? "Too dark to tell." : world[EXIT(ch, door)->to_room].name); + } + + if (!len) + send_to_char(ch, " None.\r\n"); +} + + + +void look_at_room(struct char_data *ch, int ignore_brief) +{ + if (!ch->desc) + return; + + if (IS_DARK(IN_ROOM(ch)) && !CAN_SEE_IN_DARK(ch)) { + send_to_char(ch, "It is pitch black...\r\n"); + return; + } else if (AFF_FLAGGED(ch, AFF_BLIND)) { + send_to_char(ch, "You see nothing but infinite darkness...\r\n"); + return; + } + send_to_char(ch, "%s", CCCYN(ch, C_NRM)); + if (!IS_NPC(ch) && PRF_FLAGGED(ch, PRF_ROOMFLAGS)) { + char buf[MAX_STRING_LENGTH]; + + sprintbit(ROOM_FLAGS(IN_ROOM(ch)), room_bits, buf, sizeof(buf)); + send_to_char(ch, "[%5d] %s [ %s]", GET_ROOM_VNUM(IN_ROOM(ch)), world[IN_ROOM(ch)].name, buf); + } else + send_to_char(ch, "%s", world[IN_ROOM(ch)].name); + + send_to_char(ch, "%s\r\n", CCNRM(ch, C_NRM)); + + if ((!IS_NPC(ch) && !PRF_FLAGGED(ch, PRF_BRIEF)) || ignore_brief || + ROOM_FLAGGED(IN_ROOM(ch), ROOM_DEATH)) + send_to_char(ch, "%s", world[IN_ROOM(ch)].description); + + /* autoexits */ + if (!IS_NPC(ch) && PRF_FLAGGED(ch, PRF_AUTOEXIT)) + do_auto_exits(ch); + + /* now list characters & objects */ + send_to_char(ch, "%s", CCGRN(ch, C_NRM)); + list_obj_to_char(world[IN_ROOM(ch)].contents, ch, SHOW_OBJ_LONG, FALSE); + send_to_char(ch, "%s", CCYEL(ch, C_NRM)); + list_char_to_char(world[IN_ROOM(ch)].people, ch); + send_to_char(ch, "%s", CCNRM(ch, C_NRM)); +} + + + +void look_in_direction(struct char_data *ch, int dir) +{ + if (EXIT(ch, dir)) { + if (EXIT(ch, dir)->general_description) + send_to_char(ch, "%s", EXIT(ch, dir)->general_description); + else + send_to_char(ch, "You see nothing special.\r\n"); + + if (EXIT_FLAGGED(EXIT(ch, dir), EX_CLOSED) && EXIT(ch, dir)->keyword) + send_to_char(ch, "The %s is closed.\r\n", fname(EXIT(ch, dir)->keyword)); + else if (EXIT_FLAGGED(EXIT(ch, dir), EX_ISDOOR) && EXIT(ch, dir)->keyword) + send_to_char(ch, "The %s is open.\r\n", fname(EXIT(ch, dir)->keyword)); + } else + send_to_char(ch, "Nothing special there...\r\n"); +} + + + +void look_in_obj(struct char_data *ch, char *arg) +{ + struct obj_data *obj = NULL; + struct char_data *dummy = NULL; + int amt, bits; + + if (!*arg) + send_to_char(ch, "Look in what?\r\n"); + else if (!(bits = generic_find(arg, FIND_OBJ_INV | FIND_OBJ_ROOM | + FIND_OBJ_EQUIP, ch, &dummy, &obj))) { + send_to_char(ch, "There doesn't seem to be %s %s here.\r\n", AN(arg), arg); + } else if ((GET_OBJ_TYPE(obj) != ITEM_DRINKCON) && + (GET_OBJ_TYPE(obj) != ITEM_FOUNTAIN) && + (GET_OBJ_TYPE(obj) != ITEM_CONTAINER)) + send_to_char(ch, "There's nothing inside that!\r\n"); + else { + if (GET_OBJ_TYPE(obj) == ITEM_CONTAINER) { + if (OBJVAL_FLAGGED(obj, CONT_CLOSED)) + send_to_char(ch, "It is closed.\r\n"); + else { + send_to_char(ch, "%s", fname(obj->name)); + switch (bits) { + case FIND_OBJ_INV: + send_to_char(ch, " (carried): \r\n"); + break; + case FIND_OBJ_ROOM: + send_to_char(ch, " (here): \r\n"); + break; + case FIND_OBJ_EQUIP: + send_to_char(ch, " (used): \r\n"); + break; + } + + list_obj_to_char(obj->contains, ch, SHOW_OBJ_SHORT, TRUE); + } + } else { /* item must be a fountain or drink container */ + if (GET_OBJ_VAL(obj, 1) <= 0) + send_to_char(ch, "It is empty.\r\n"); + else { + if (GET_OBJ_VAL(obj,0) <= 0 || GET_OBJ_VAL(obj,1)>GET_OBJ_VAL(obj,0)) { + send_to_char(ch, "Its contents seem somewhat murky.\r\n"); /* BUG */ + } else { + char buf2[MAX_STRING_LENGTH]; + amt = (GET_OBJ_VAL(obj, 1) * 3) / GET_OBJ_VAL(obj, 0); + sprinttype(GET_OBJ_VAL(obj, 2), color_liquid, buf2, sizeof(buf2)); + send_to_char(ch, "It's %sfull of a %s liquid.\r\n", fullness[amt], buf2); + } + } + } + } +} + + + +char *find_exdesc(char *word, struct extra_descr_data *list) +{ + struct extra_descr_data *i; + + for (i = list; i; i = i->next) + if (isname(word, i->keyword)) + return (i->description); + + return (NULL); +} + + +/* + * Given the argument "look at <target>", figure out what object or char + * matches the target. First, see if there is another char in the room + * with the name. Then check local objs for exdescs. + * + * Thanks to Angus Mezick <angus@EDGIL.CCMAIL.COMPUSERVE.COM> for the + * suggested fix to this problem. + */ +void look_at_target(struct char_data *ch, char *arg) +{ + int bits, found = FALSE, j, fnum, i = 0; + struct char_data *found_char = NULL; + struct obj_data *obj, *found_obj = NULL; + char *desc; + + if (!ch->desc) + return; + + if (!*arg) { + send_to_char(ch, "Look at what?\r\n"); + return; + } + + bits = generic_find(arg, FIND_OBJ_INV | FIND_OBJ_ROOM | FIND_OBJ_EQUIP | + FIND_CHAR_ROOM, ch, &found_char, &found_obj); + + /* Is the target a character? */ + if (found_char != NULL) { + look_at_char(found_char, ch); + if (ch != found_char) { + if (CAN_SEE(found_char, ch)) + act("$n looks at you.", TRUE, ch, 0, found_char, TO_VICT); + act("$n looks at $N.", TRUE, ch, 0, found_char, TO_NOTVICT); + } + return; + } + + /* Strip off "number." from 2.foo and friends. */ + if (!(fnum = get_number(&arg))) { + send_to_char(ch, "Look at what?\r\n"); + return; + } + + /* Does the argument match an extra desc in the room? */ + if ((desc = find_exdesc(arg, world[IN_ROOM(ch)].ex_description)) != NULL && ++i == fnum) { + page_string(ch->desc, desc, FALSE); + return; + } + + /* Does the argument match an extra desc in the char's equipment? */ + for (j = 0; j < NUM_WEARS && !found; j++) + if (GET_EQ(ch, j) && CAN_SEE_OBJ(ch, GET_EQ(ch, j))) + if ((desc = find_exdesc(arg, GET_EQ(ch, j)->ex_description)) != NULL && ++i == fnum) { + send_to_char(ch, "%s", desc); + found = TRUE; + } + + /* Does the argument match an extra desc in the char's inventory? */ + for (obj = ch->carrying; obj && !found; obj = obj->next_content) { + if (CAN_SEE_OBJ(ch, obj)) + if ((desc = find_exdesc(arg, obj->ex_description)) != NULL && ++i == fnum) { + send_to_char(ch, "%s", desc); + found = TRUE; + } + } + + /* Does the argument match an extra desc of an object in the room? */ + for (obj = world[IN_ROOM(ch)].contents; obj && !found; obj = obj->next_content) + if (CAN_SEE_OBJ(ch, obj)) + if ((desc = find_exdesc(arg, obj->ex_description)) != NULL && ++i == fnum) { + send_to_char(ch, "%s", desc); + found = TRUE; + } + + /* If an object was found back in generic_find */ + if (bits) { + if (!found) + show_obj_to_char(found_obj, ch, SHOW_OBJ_ACTION); + else { + show_obj_modifiers(found_obj, ch); + send_to_char(ch, "\r\n"); + } + } else if (!found) + send_to_char(ch, "You do not see that here.\r\n"); +} + + +ACMD(do_look) +{ + int look_type; + + if (!ch->desc) + return; + + if (GET_POS(ch) < POS_SLEEPING) + send_to_char(ch, "You can't see anything but stars!\r\n"); + else if (AFF_FLAGGED(ch, AFF_BLIND)) + send_to_char(ch, "You can't see a damned thing, you're blind!\r\n"); + else if (IS_DARK(IN_ROOM(ch)) && !CAN_SEE_IN_DARK(ch)) { + send_to_char(ch, "It is pitch black...\r\n"); + list_char_to_char(world[IN_ROOM(ch)].people, ch); /* glowing red eyes */ + } else { + char arg[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH]; + + half_chop(argument, arg, arg2); + + if (subcmd == SCMD_READ) { + if (!*arg) + send_to_char(ch, "Read what?\r\n"); + else + look_at_target(ch, arg); + return; + } + if (!*arg) /* "look" alone, without an argument at all */ + look_at_room(ch, 1); + else if (is_abbrev(arg, "in")) + look_in_obj(ch, arg2); + /* did the char type 'look <direction>?' */ + else if ((look_type = search_block(arg, dirs, FALSE)) >= 0) + look_in_direction(ch, look_type); + else if (is_abbrev(arg, "at")) + look_at_target(ch, arg2); + else + look_at_target(ch, arg); + } +} + + + +ACMD(do_examine) +{ + struct char_data *tmp_char; + struct obj_data *tmp_object; + char tempsave[MAX_INPUT_LENGTH], arg[MAX_INPUT_LENGTH]; + + one_argument(argument, arg); + + if (!*arg) { + send_to_char(ch, "Examine what?\r\n"); + return; + } + + /* look_at_target() eats the number. */ + look_at_target(ch, strcpy(tempsave, arg)); /* strcpy: OK */ + + generic_find(arg, FIND_OBJ_INV | FIND_OBJ_ROOM | FIND_CHAR_ROOM | + FIND_OBJ_EQUIP, ch, &tmp_char, &tmp_object); + + if (tmp_object) { + if ((GET_OBJ_TYPE(tmp_object) == ITEM_DRINKCON) || + (GET_OBJ_TYPE(tmp_object) == ITEM_FOUNTAIN) || + (GET_OBJ_TYPE(tmp_object) == ITEM_CONTAINER)) { + send_to_char(ch, "When you look inside, you see:\r\n"); + look_in_obj(ch, arg); + } + } +} + + + +ACMD(do_gold) +{ + if (GET_GOLD(ch) == 0) + send_to_char(ch, "You're broke!\r\n"); + else if (GET_GOLD(ch) == 1) + send_to_char(ch, "You have one miserable little gold coin.\r\n"); + else + send_to_char(ch, "You have %d gold coins.\r\n", GET_GOLD(ch)); +} + + +ACMD(do_score) +{ + struct time_info_data playing_time; + + if (IS_NPC(ch)) + return; + + send_to_char(ch, "You are %d years old.\r\n", GET_AGE(ch)); + + if (age(ch)->month == 0 && age(ch)->day == 0) + send_to_char(ch, " It's your birthday today.\r\n"); + else + send_to_char(ch, "\r\n"); + + send_to_char(ch, "You have %d(%d) hit, %d(%d) mana and %d(%d) movement points.\r\n", + GET_HIT(ch), GET_MAX_HIT(ch), GET_MANA(ch), GET_MAX_MANA(ch), + GET_MOVE(ch), GET_MAX_MOVE(ch)); + + send_to_char(ch, "Your armor class is %d/10, and your alignment is %d.\r\n", + compute_armor_class(ch), GET_ALIGNMENT(ch)); + + send_to_char(ch, "You have scored %d exp, and have %d gold coins.\r\n", + GET_EXP(ch), GET_GOLD(ch)); + + if (GET_LEVEL(ch) < LVL_IMMORT) + send_to_char(ch, "You need %d exp to reach your next level.\r\n", + level_exp(GET_CLASS(ch), GET_LEVEL(ch) + 1) - GET_EXP(ch)); + + playing_time = *real_time_passed((time(0) - ch->player.time.logon) + + ch->player.time.played, 0); + send_to_char(ch, "You have been playing for %d day%s and %d hour%s.\r\n", + playing_time.day, playing_time.day == 1 ? "" : "s", + playing_time.hours, playing_time.hours == 1 ? "" : "s"); + + send_to_char(ch, "This ranks you as %s %s (level %d).\r\n", + GET_NAME(ch), GET_TITLE(ch), GET_LEVEL(ch)); + + switch (GET_POS(ch)) { + case POS_DEAD: + send_to_char(ch, "You are DEAD!\r\n"); + break; + case POS_MORTALLYW: + send_to_char(ch, "You are mortally wounded! You should seek help!\r\n"); + break; + case POS_INCAP: + send_to_char(ch, "You are incapacitated, slowly fading away...\r\n"); + break; + case POS_STUNNED: + send_to_char(ch, "You are stunned! You can't move!\r\n"); + break; + case POS_SLEEPING: + send_to_char(ch, "You are sleeping.\r\n"); + break; + case POS_RESTING: + send_to_char(ch, "You are resting.\r\n"); + break; + case POS_SITTING: + send_to_char(ch, "You are sitting.\r\n"); + break; + case POS_FIGHTING: + send_to_char(ch, "You are fighting %s.\r\n", FIGHTING(ch) ? PERS(FIGHTING(ch), ch) : "thin air"); + break; + case POS_STANDING: + send_to_char(ch, "You are standing.\r\n"); + break; + default: + send_to_char(ch, "You are floating.\r\n"); + break; + } + + if (GET_COND(ch, DRUNK) > 10) + send_to_char(ch, "You are intoxicated.\r\n"); + + if (GET_COND(ch, FULL) == 0) + send_to_char(ch, "You are hungry.\r\n"); + + if (GET_COND(ch, THIRST) == 0) + send_to_char(ch, "You are thirsty.\r\n"); + + if (AFF_FLAGGED(ch, AFF_BLIND)) + send_to_char(ch, "You have been blinded!\r\n"); + + if (AFF_FLAGGED(ch, AFF_INVISIBLE)) + send_to_char(ch, "You are invisible.\r\n"); + + if (AFF_FLAGGED(ch, AFF_DETECT_INVIS)) + send_to_char(ch, "You are sensitive to the presence of invisible things.\r\n"); + + if (AFF_FLAGGED(ch, AFF_SANCTUARY)) + send_to_char(ch, "You are protected by Sanctuary.\r\n"); + + if (AFF_FLAGGED(ch, AFF_POISON)) + send_to_char(ch, "You are poisoned!\r\n"); + + if (AFF_FLAGGED(ch, AFF_CHARM)) + send_to_char(ch, "You have been charmed!\r\n"); + + if (affected_by_spell(ch, SPELL_ARMOR)) + send_to_char(ch, "You feel protected.\r\n"); + + if (AFF_FLAGGED(ch, AFF_INFRAVISION)) + send_to_char(ch, "Your eyes are glowing red.\r\n"); + + if (PRF_FLAGGED(ch, PRF_SUMMONABLE)) + send_to_char(ch, "You are summonable by other players.\r\n"); +} + + +ACMD(do_inventory) +{ + send_to_char(ch, "You are carrying:\r\n"); + list_obj_to_char(ch->carrying, ch, SHOW_OBJ_SHORT, TRUE); +} + + +ACMD(do_equipment) +{ + int i, found = 0; + + send_to_char(ch, "You are using:\r\n"); + for (i = 0; i < NUM_WEARS; i++) { + if (GET_EQ(ch, i)) { + if (CAN_SEE_OBJ(ch, GET_EQ(ch, i))) { + send_to_char(ch, "%s", wear_where[i]); + show_obj_to_char(GET_EQ(ch, i), ch, SHOW_OBJ_SHORT); + found = TRUE; + } else { + send_to_char(ch, "%s", wear_where[i]); + send_to_char(ch, "Something.\r\n"); + found = TRUE; + } + } + } + if (!found) + send_to_char(ch, " Nothing.\r\n"); +} + + +ACMD(do_time) +{ + const char *suf; + int weekday, day; + + /* day in [1..35] */ + day = time_info.day + 1; + + /* 35 days in a month, 7 days a week */ + weekday = ((35 * time_info.month) + day) % 7; + + send_to_char(ch, "It is %d o'clock %s, on %s.\r\n", + (time_info.hours % 12 == 0) ? 12 : (time_info.hours % 12), + time_info.hours >= 12 ? "pm" : "am", weekdays[weekday]); + + /* + * Peter Ajamian <peter@PAJAMIAN.DHS.ORG> supplied the following as a fix + * for a bug introduced in the ordinal display that caused 11, 12, and 13 + * to be incorrectly displayed as 11st, 12nd, and 13rd. Nate Winters + * <wintersn@HOTMAIL.COM> had already submitted a fix, but it hard-coded a + * limit on ordinal display which I want to avoid. -dak + */ + + suf = "th"; + + if (((day % 100) / 10) != 1) { + switch (day % 10) { + case 1: + suf = "st"; + break; + case 2: + suf = "nd"; + break; + case 3: + suf = "rd"; + break; + } + } + + send_to_char(ch, "The %d%s Day of the %s, Year %d.\r\n", + day, suf, month_name[time_info.month], time_info.year); +} + + +ACMD(do_weather) +{ + const char *sky_look[] = { + "cloudless", + "cloudy", + "rainy", + "lit by flashes of lightning" + }; + + if (OUTSIDE(ch)) + { + send_to_char(ch, "The sky is %s and %s.\r\n", sky_look[weather_info.sky], + weather_info.change >= 0 ? "you feel a warm wind from south" : + "your foot tells you bad weather is due"); + if (GET_LEVEL(ch) >= LVL_GOD) + send_to_char(ch, "Pressure: %d (change: %d), Sky: %d (%s)\r\n", + weather_info.pressure, + weather_info.change, + weather_info.sky, + sky_look[weather_info.sky]); + } + else + send_to_char(ch, "You have no feeling about the weather at all.\r\n"); +} + + +ACMD(do_help) +{ + int chk, bot, top, mid, minlen; + + if (!ch->desc) + return; + + skip_spaces(&argument); + + if (!*argument) { + page_string(ch->desc, help, 0); + return; + } + if (!help_table) { + send_to_char(ch, "No help available.\r\n"); + return; + } + + bot = 0; + top = top_of_helpt; + minlen = strlen(argument); + + for (;;) { + mid = (bot + top) / 2; + + if (bot > top) { + send_to_char(ch, "There is no help on that word.\r\n"); + return; + } else if (!(chk = strn_cmp(argument, help_table[mid].keyword, minlen))) { + /* trace backwards to find first matching entry. Thanks Jeff Fink! */ + while ((mid > 0) && + (!(chk = strn_cmp(argument, help_table[mid - 1].keyword, minlen)))) + mid--; + page_string(ch->desc, help_table[mid].entry, 0); + return; + } else { + if (chk > 0) + bot = mid + 1; + else + top = mid - 1; + } + } +} + + + +#define WHO_FORMAT \ +"format: who [minlev[-maxlev]] [-n name] [-c classlist] [-s] [-o] [-q] [-r] [-z]\r\n" + +/* FIXME: This whole thing just needs rewritten. */ +ACMD(do_who) +{ + struct descriptor_data *d; + struct char_data *tch; + char name_search[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH]; + char mode; + int low = 0, high = LVL_IMPL, localwho = 0, questwho = 0; + int showclass = 0, short_list = 0, outlaws = 0, num_can_see = 0; + int who_room = 0; + + skip_spaces(&argument); + strcpy(buf, argument); /* strcpy: OK (sizeof: argument == buf) */ + name_search[0] = '\0'; + + while (*buf) { + char arg[MAX_INPUT_LENGTH], buf1[MAX_INPUT_LENGTH]; + + half_chop(buf, arg, buf1); + if (isdigit(*arg)) { + sscanf(arg, "%d-%d", &low, &high); + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + } else if (*arg == '-') { + mode = *(arg + 1); /* just in case; we destroy arg in the switch */ + switch (mode) { + case 'o': + case 'k': + outlaws = 1; + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + break; + case 'z': + localwho = 1; + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + break; + case 's': + short_list = 1; + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + break; + case 'q': + questwho = 1; + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + break; + case 'l': + half_chop(buf1, arg, buf); + sscanf(arg, "%d-%d", &low, &high); + break; + case 'n': + half_chop(buf1, name_search, buf); + break; + case 'r': + who_room = 1; + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + break; + case 'c': + half_chop(buf1, arg, buf); + showclass = find_class_bitvector(arg); + break; + default: + send_to_char(ch, "%s", WHO_FORMAT); + return; + } /* end of switch */ + + } else { /* endif */ + send_to_char(ch, "%s", WHO_FORMAT); + return; + } + } /* end while (parser) */ + + send_to_char(ch, "Players\r\n-------\r\n"); + + for (d = descriptor_list; d; d = d->next) { + if (STATE(d) != CON_PLAYING) + continue; + + if (d->original) + tch = d->original; + else if (!(tch = d->character)) + continue; + + if (*name_search && str_cmp(GET_NAME(tch), name_search) && + !strstr(GET_TITLE(tch), name_search)) + continue; + if (!CAN_SEE(ch, tch) || GET_LEVEL(tch) < low || GET_LEVEL(tch) > high) + continue; + if (outlaws && !PLR_FLAGGED(tch, PLR_KILLER) && + !PLR_FLAGGED(tch, PLR_THIEF)) + continue; + if (questwho && !PRF_FLAGGED(tch, PRF_QUEST)) + continue; + if (localwho && world[IN_ROOM(ch)].zone != world[IN_ROOM(tch)].zone) + continue; + if (who_room && (IN_ROOM(tch) != IN_ROOM(ch))) + continue; + if (showclass && !(showclass & (1 << GET_CLASS(tch)))) + continue; + if (short_list) { + send_to_char(ch, "%s[%2d %s] %-12.12s%s%s", + (GET_LEVEL(tch) >= LVL_IMMORT ? CCYEL(ch, C_SPR) : ""), + GET_LEVEL(tch), CLASS_ABBR(tch), GET_NAME(tch), + (GET_LEVEL(tch) >= LVL_IMMORT ? CCNRM(ch, C_SPR) : ""), + ((!(++num_can_see % 4)) ? "\r\n" : "")); + } else { + num_can_see++; + send_to_char(ch, "%s[%2d %s] %s %s", + (GET_LEVEL(tch) >= LVL_IMMORT ? CCYEL(ch, C_SPR) : ""), + GET_LEVEL(tch), CLASS_ABBR(tch), GET_NAME(tch), + GET_TITLE(tch)); + + if (GET_INVIS_LEV(tch)) + send_to_char(ch, " (i%d)", GET_INVIS_LEV(tch)); + else if (AFF_FLAGGED(tch, AFF_INVISIBLE)) + send_to_char(ch, " (invis)"); + + if (PLR_FLAGGED(tch, PLR_MAILING)) + send_to_char(ch, " (mailing)"); + else if (PLR_FLAGGED(tch, PLR_WRITING)) + send_to_char(ch, " (writing)"); + + if (PRF_FLAGGED(tch, PRF_DEAF)) + send_to_char(ch, " (deaf)"); + if (PRF_FLAGGED(tch, PRF_NOTELL)) + send_to_char(ch, " (notell)"); + if (PRF_FLAGGED(tch, PRF_QUEST)) + send_to_char(ch, " (quest)"); + if (PLR_FLAGGED(tch, PLR_THIEF)) + send_to_char(ch, " (THIEF)"); + if (PLR_FLAGGED(tch, PLR_KILLER)) + send_to_char(ch, " (KILLER)"); + if (GET_LEVEL(tch) >= LVL_IMMORT) + send_to_char(ch, CCNRM(ch, C_SPR)); + send_to_char(ch, "\r\n"); + } /* endif shortlist */ + } /* end of for */ + if (short_list && (num_can_see % 4)) + send_to_char(ch, "\r\n"); + if (num_can_see == 0) + send_to_char(ch, "\r\nNobody at all!\r\n"); + else if (num_can_see == 1) + send_to_char(ch, "\r\nOne lonely character displayed.\r\n"); + else + send_to_char(ch, "\r\n%d characters displayed.\r\n", num_can_see); +} + + +#define USERS_FORMAT \ +"format: users [-l minlevel[-maxlevel]] [-n name] [-h host] [-c classlist] [-o] [-p]\r\n" + +/* BIG OL' FIXME: Rewrite it all. Similar to do_who(). */ +ACMD(do_users) +{ + char line[200], line2[220], idletime[10], classname[20]; + char state[30], *timeptr, mode; + char name_search[MAX_INPUT_LENGTH], host_search[MAX_INPUT_LENGTH]; + struct char_data *tch; + struct descriptor_data *d; + int low = 0, high = LVL_IMPL, num_can_see = 0; + int showclass = 0, outlaws = 0, playing = 0, deadweight = 0; + char buf[MAX_INPUT_LENGTH], arg[MAX_INPUT_LENGTH]; + + host_search[0] = name_search[0] = '\0'; + + strcpy(buf, argument); /* strcpy: OK (sizeof: argument == buf) */ + while (*buf) { + char buf1[MAX_INPUT_LENGTH]; + + half_chop(buf, arg, buf1); + if (*arg == '-') { + mode = *(arg + 1); /* just in case; we destroy arg in the switch */ + switch (mode) { + case 'o': + case 'k': + outlaws = 1; + playing = 1; + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + break; + case 'p': + playing = 1; + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + break; + case 'd': + deadweight = 1; + strcpy(buf, buf1); /* strcpy: OK (sizeof: buf1 == buf) */ + break; + case 'l': + playing = 1; + half_chop(buf1, arg, buf); + sscanf(arg, "%d-%d", &low, &high); + break; + case 'n': + playing = 1; + half_chop(buf1, name_search, buf); + break; + case 'h': + playing = 1; + half_chop(buf1, host_search, buf); + break; + case 'c': + playing = 1; + half_chop(buf1, arg, buf); + showclass = find_class_bitvector(arg); + break; + default: + send_to_char(ch, "%s", USERS_FORMAT); + return; + } /* end of switch */ + + } else { /* endif */ + send_to_char(ch, "%s", USERS_FORMAT); + return; + } + } /* end while (parser) */ + send_to_char(ch, + "Num Class Name State Idl Login@ Site\r\n" + "--- ------- ------------ -------------- --- -------- ------------------------\r\n"); + + one_argument(argument, arg); + + for (d = descriptor_list; d; d = d->next) { + if (STATE(d) != CON_PLAYING && playing) + continue; + if (STATE(d) == CON_PLAYING && deadweight) + continue; + if (STATE(d) == CON_PLAYING) { + if (d->original) + tch = d->original; + else if (!(tch = d->character)) + continue; + + if (*host_search && !strstr(d->host, host_search)) + continue; + if (*name_search && str_cmp(GET_NAME(tch), name_search)) + continue; + if (!CAN_SEE(ch, tch) || GET_LEVEL(tch) < low || GET_LEVEL(tch) > high) + continue; + if (outlaws && !PLR_FLAGGED(tch, PLR_KILLER) && + !PLR_FLAGGED(tch, PLR_THIEF)) + continue; + if (showclass && !(showclass & (1 << GET_CLASS(tch)))) + continue; + if (GET_INVIS_LEV(ch) > GET_LEVEL(ch)) + continue; + + if (d->original) + sprintf(classname, "[%2d %s]", GET_LEVEL(d->original), + CLASS_ABBR(d->original)); + else + sprintf(classname, "[%2d %s]", GET_LEVEL(d->character), + CLASS_ABBR(d->character)); + } else + strcpy(classname, " - "); + + timeptr = asctime(localtime(&d->login_time)); + timeptr += 11; + *(timeptr + 8) = '\0'; + + if (STATE(d) == CON_PLAYING && d->original) + strcpy(state, "Switched"); + else + strcpy(state, connected_types[STATE(d)]); + + if (d->character && STATE(d) == CON_PLAYING && GET_LEVEL(d->character) < LVL_GOD) + sprintf(idletime, "%3d", d->character->char_specials.timer * + SECS_PER_MUD_HOUR / SECS_PER_REAL_MIN); + else + strcpy(idletime, ""); + + sprintf(line, "%3d %-7s %-12s %-14s %-3s %-8s ", d->desc_num, classname, + d->original && d->original->player.name ? d->original->player.name : + d->character && d->character->player.name ? d->character->player.name : + "UNDEFINED", + state, idletime, timeptr); + + if (d->host && *d->host) + sprintf(line + strlen(line), "[%s]\r\n", d->host); + else + strcat(line, "[Hostname unknown]\r\n"); + + if (STATE(d) != CON_PLAYING) { + sprintf(line2, "%s%s%s", CCGRN(ch, C_SPR), line, CCNRM(ch, C_SPR)); + strcpy(line, line2); + } + if (STATE(d) != CON_PLAYING || + (STATE(d) == CON_PLAYING && CAN_SEE(ch, d->character))) { + send_to_char(ch, "%s", line); + num_can_see++; + } + } + + send_to_char(ch, "\r\n%d visible sockets connected.\r\n", num_can_see); +} + + +/* Generic page_string function for displaying text */ +ACMD(do_gen_ps) +{ + switch (subcmd) { + case SCMD_CREDITS: + page_string(ch->desc, credits, 0); + break; + case SCMD_NEWS: + page_string(ch->desc, news, 0); + break; + case SCMD_INFO: + page_string(ch->desc, info, 0); + break; + case SCMD_WIZLIST: + page_string(ch->desc, wizlist, 0); + break; + case SCMD_IMMLIST: + page_string(ch->desc, immlist, 0); + break; + case SCMD_HANDBOOK: + page_string(ch->desc, handbook, 0); + break; + case SCMD_POLICIES: + page_string(ch->desc, policies, 0); + break; + case SCMD_MOTD: + page_string(ch->desc, motd, 0); + break; + case SCMD_IMOTD: + page_string(ch->desc, imotd, 0); + break; + case SCMD_CLEAR: + send_to_char(ch, "\033[H\033[J"); + break; + case SCMD_VERSION: + send_to_char(ch, "%s\r\n", circlemud_version); + break; + case SCMD_WHOAMI: + send_to_char(ch, "%s\r\n", GET_NAME(ch)); + break; + default: + log("SYSERR: Unhandled case in do_gen_ps. (%d)", subcmd); + return; + } +} + + +void perform_mortal_where(struct char_data *ch, char *arg) +{ + struct char_data *i; + struct descriptor_data *d; + + if (!*arg) { + send_to_char(ch, "Players in your Zone\r\n--------------------\r\n"); + for (d = descriptor_list; d; d = d->next) { + if (STATE(d) != CON_PLAYING || d->character == ch) + continue; + if ((i = (d->original ? d->original : d->character)) == NULL) + continue; + if (IN_ROOM(i) == NOWHERE || !CAN_SEE(ch, i)) + continue; + if (world[IN_ROOM(ch)].zone != world[IN_ROOM(i)].zone) + continue; + send_to_char(ch, "%-20s - %s\r\n", GET_NAME(i), world[IN_ROOM(i)].name); + } + } else { /* print only FIRST char, not all. */ + for (i = character_list; i; i = i->next) { + if (IN_ROOM(i) == NOWHERE || i == ch) + continue; + if (!CAN_SEE(ch, i) || world[IN_ROOM(i)].zone != world[IN_ROOM(ch)].zone) + continue; + if (!isname(arg, i->player.name)) + continue; + send_to_char(ch, "%-25s - %s\r\n", GET_NAME(i), world[IN_ROOM(i)].name); + return; + } + send_to_char(ch, "Nobody around by that name.\r\n"); + } +} + + +void print_object_location(int num, struct obj_data *obj, struct char_data *ch, + int recur) +{ + if (num > 0) + send_to_char(ch, "O%3d. %-25s - ", num, obj->short_description); + else + send_to_char(ch, "%33s", " - "); + + if (IN_ROOM(obj) != NOWHERE) + send_to_char(ch, "[%5d] %s\r\n", GET_ROOM_VNUM(IN_ROOM(obj)), world[IN_ROOM(obj)].name); + else if (obj->carried_by) + send_to_char(ch, "carried by %s\r\n", PERS(obj->carried_by, ch)); + else if (obj->worn_by) + send_to_char(ch, "worn by %s\r\n", PERS(obj->worn_by, ch)); + else if (obj->in_obj) { + send_to_char(ch, "inside %s%s\r\n", obj->in_obj->short_description, (recur ? ", which is" : " ")); + if (recur) + print_object_location(0, obj->in_obj, ch, recur); + } else + send_to_char(ch, "in an unknown location\r\n"); +} + + + +void perform_immort_where(struct char_data *ch, char *arg) +{ + struct char_data *i; + struct obj_data *k; + struct descriptor_data *d; + int num = 0, found = 0; + + if (!*arg) { + send_to_char(ch, "Players\r\n-------\r\n"); + for (d = descriptor_list; d; d = d->next) + if (STATE(d) == CON_PLAYING) { + i = (d->original ? d->original : d->character); + if (i && CAN_SEE(ch, i) && (IN_ROOM(i) != NOWHERE)) { + if (d->original) + send_to_char(ch, "%-20s - [%5d] %s (in %s)\r\n", + GET_NAME(i), GET_ROOM_VNUM(IN_ROOM(d->character)), + world[IN_ROOM(d->character)].name, GET_NAME(d->character)); + else + send_to_char(ch, "%-20s - [%5d] %s\r\n", GET_NAME(i), GET_ROOM_VNUM(IN_ROOM(i)), world[IN_ROOM(i)].name); + } + } + } else { + for (i = character_list; i; i = i->next) + if (CAN_SEE(ch, i) && IN_ROOM(i) != NOWHERE && isname(arg, i->player.name)) { + found = 1; + send_to_char(ch, "M%3d. %-25s - [%5d] %s\r\n", ++num, GET_NAME(i), + GET_ROOM_VNUM(IN_ROOM(i)), world[IN_ROOM(i)].name); + } + for (num = 0, k = object_list; k; k = k->next) + if (CAN_SEE_OBJ(ch, k) && isname(arg, k->name)) { + found = 1; + print_object_location(++num, k, ch, TRUE); + } + if (!found) + send_to_char(ch, "Couldn't find any such thing.\r\n"); + } +} + + + +ACMD(do_where) +{ + char arg[MAX_INPUT_LENGTH]; + + one_argument(argument, arg); + + if (GET_LEVEL(ch) >= LVL_IMMORT) + perform_immort_where(ch, arg); + else + perform_mortal_where(ch, arg); +} + + + +ACMD(do_levels) +{ + char buf[MAX_STRING_LENGTH]; + size_t i, len = 0; + int nlen; + + if (IS_NPC(ch)) { + send_to_char(ch, "You ain't nothin' but a hound-dog.\r\n"); + return; + } + + for (i = 1; i < LVL_IMMORT; i++) { + nlen = snprintf(buf + len, sizeof(buf) - len, "[%2d] %8d-%-8d : ", i, + level_exp(GET_CLASS(ch), i), level_exp(GET_CLASS(ch), i + 1) - 1); + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + len += nlen; + + switch (GET_SEX(ch)) { + case SEX_MALE: + case SEX_NEUTRAL: + nlen = snprintf(buf + len, sizeof(buf) - len, "%s\r\n", title_male(GET_CLASS(ch), i)); + break; + case SEX_FEMALE: + nlen = snprintf(buf + len, sizeof(buf) - len, "%s\r\n", title_female(GET_CLASS(ch), i)); + break; + default: + nlen = snprintf(buf + len, sizeof(buf) - len, "Oh dear. You seem to be sexless.\r\n"); + break; + } + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + len += nlen; + } + + if (len < sizeof(buf)) + snprintf(buf + len, sizeof(buf) - len, "[%2d] %8d : Immortality\r\n", + LVL_IMMORT, level_exp(GET_CLASS(ch), LVL_IMMORT)); + page_string(ch->desc, buf, TRUE); +} + + + +ACMD(do_consider) +{ + char buf[MAX_INPUT_LENGTH]; + struct char_data *victim; + int diff; + + one_argument(argument, buf); + + if (!(victim = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM))) { + send_to_char(ch, "Consider killing who?\r\n"); + return; + } + if (victim == ch) { + send_to_char(ch, "Easy! Very easy indeed!\r\n"); + return; + } + if (!IS_NPC(victim)) { + send_to_char(ch, "Would you like to borrow a cross and a shovel?\r\n"); + return; + } + diff = (GET_LEVEL(victim) - GET_LEVEL(ch)); + + if (diff <= -10) + send_to_char(ch, "Now where did that chicken go?\r\n"); + else if (diff <= -5) + send_to_char(ch, "You could do it with a needle!\r\n"); + else if (diff <= -2) + send_to_char(ch, "Easy.\r\n"); + else if (diff <= -1) + send_to_char(ch, "Fairly easy.\r\n"); + else if (diff == 0) + send_to_char(ch, "The perfect match!\r\n"); + else if (diff <= 1) + send_to_char(ch, "You would need some luck!\r\n"); + else if (diff <= 2) + send_to_char(ch, "You would need a lot of luck!\r\n"); + else if (diff <= 3) + send_to_char(ch, "You would need a lot of luck and great equipment!\r\n"); + else if (diff <= 5) + send_to_char(ch, "Do you feel lucky, punk?\r\n"); + else if (diff <= 10) + send_to_char(ch, "Are you mad!?\r\n"); + else if (diff <= 100) + send_to_char(ch, "You ARE mad!\r\n"); +} + + + +ACMD(do_diagnose) +{ + char buf[MAX_INPUT_LENGTH]; + struct char_data *vict; + + one_argument(argument, buf); + + if (*buf) { + if (!(vict = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "%s", NOPERSON); + else + diag_char_to_char(vict, ch); + } else { + if (FIGHTING(ch)) + diag_char_to_char(FIGHTING(ch), ch); + else + send_to_char(ch, "Diagnose who?\r\n"); + } +} + + +const char *ctypes[] = { + "off", "sparse", "normal", "complete", "\n" +}; + +ACMD(do_color) +{ + char arg[MAX_INPUT_LENGTH]; + int tp; + + if (IS_NPC(ch)) + return; + + one_argument(argument, arg); + + if (!*arg) { + send_to_char(ch, "Your current color level is %s.\r\n", ctypes[COLOR_LEV(ch)]); + return; + } + if (((tp = search_block(arg, ctypes, FALSE)) == -1)) { + send_to_char(ch, "Usage: color { Off | Sparse | Normal | Complete }\r\n"); + return; + } + REMOVE_BIT(PRF_FLAGS(ch), PRF_COLOR_1 | PRF_COLOR_2); + SET_BIT(PRF_FLAGS(ch), (PRF_COLOR_1 * (tp & 1)) | (PRF_COLOR_2 * (tp & 2) >> 1)); + + send_to_char(ch, "Your %scolor%s is now %s.\r\n", CCRED(ch, C_SPR), CCNRM(ch, C_OFF), ctypes[tp]); +} + + +ACMD(do_toggle) +{ + char buf2[4]; + + if (IS_NPC(ch)) + return; + + if (GET_WIMP_LEV(ch) == 0) + strcpy(buf2, "OFF"); /* strcpy: OK */ + else + sprintf(buf2, "%-3.3d", GET_WIMP_LEV(ch)); /* sprintf: OK */ + + if (GET_LEVEL(ch) >= LVL_IMMORT) { + send_to_char(ch, + " No Hassle: %-3s " + " Holylight: %-3s " + " Room Flags: %-3s\r\n", + ONOFF(PRF_FLAGGED(ch, PRF_NOHASSLE)), + ONOFF(PRF_FLAGGED(ch, PRF_HOLYLIGHT)), + ONOFF(PRF_FLAGGED(ch, PRF_ROOMFLAGS)) + ); + } + + send_to_char(ch, + "Hit Pnt Display: %-3s " + " Brief Mode: %-3s " + " Summon Protect: %-3s\r\n" + + " Move Display: %-3s " + " Compact Mode: %-3s " + " On Quest: %-3s\r\n" + + " Mana Display: %-3s " + " NoTell: %-3s " + " Repeat Comm.: %-3s\r\n" + + " Auto Show Exit: %-3s " + " Deaf: %-3s " + " Wimp Level: %-3s\r\n" + + " Gossip Channel: %-3s " + "Auction Channel: %-3s " + " Grats Channel: %-3s\r\n" + + " Color Level: %s\r\n", + + ONOFF(PRF_FLAGGED(ch, PRF_DISPHP)), + ONOFF(PRF_FLAGGED(ch, PRF_BRIEF)), + ONOFF(!PRF_FLAGGED(ch, PRF_SUMMONABLE)), + + ONOFF(PRF_FLAGGED(ch, PRF_DISPMOVE)), + ONOFF(PRF_FLAGGED(ch, PRF_COMPACT)), + YESNO(PRF_FLAGGED(ch, PRF_QUEST)), + + ONOFF(PRF_FLAGGED(ch, PRF_DISPMANA)), + ONOFF(PRF_FLAGGED(ch, PRF_NOTELL)), + YESNO(!PRF_FLAGGED(ch, PRF_NOREPEAT)), + + ONOFF(PRF_FLAGGED(ch, PRF_AUTOEXIT)), + YESNO(PRF_FLAGGED(ch, PRF_DEAF)), + buf2, + + ONOFF(!PRF_FLAGGED(ch, PRF_NOGOSS)), + ONOFF(!PRF_FLAGGED(ch, PRF_NOAUCT)), + ONOFF(!PRF_FLAGGED(ch, PRF_NOGRATZ)), + + ctypes[COLOR_LEV(ch)]); +} + + +int sort_commands_helper(const void *a, const void *b) +{ + return strcmp(cmd_info[*(const int *)a].command, cmd_info[*(const int *)b].command); +} + + +void sort_commands(void) +{ + int a, num_of_cmds = 0; + + while (cmd_info[num_of_cmds].command[0] != '\n') + num_of_cmds++; + num_of_cmds++; /* \n */ + + CREATE(cmd_sort_info, int, num_of_cmds); + + for (a = 0; a < num_of_cmds; a++) + cmd_sort_info[a] = a; + + /* Don't sort the RESERVED or \n entries. */ + qsort(cmd_sort_info + 1, num_of_cmds - 2, sizeof(int), sort_commands_helper); +} + + +ACMD(do_commands) +{ + int no, i, cmd_num; + int wizhelp = 0, socials = 0; + struct char_data *vict; + char arg[MAX_INPUT_LENGTH]; + + one_argument(argument, arg); + + if (*arg) { + if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_WORLD)) || IS_NPC(vict)) { + send_to_char(ch, "Who is that?\r\n"); + return; + } + if (GET_LEVEL(ch) < GET_LEVEL(vict)) { + send_to_char(ch, "You can't see the commands of people above your level.\r\n"); + return; + } + } else + vict = ch; + + if (subcmd == SCMD_SOCIALS) + socials = 1; + else if (subcmd == SCMD_WIZHELP) + wizhelp = 1; + + send_to_char(ch, "The following %s%s are available to %s:\r\n", + wizhelp ? "privileged " : "", + socials ? "socials" : "commands", + vict == ch ? "you" : GET_NAME(vict)); + + /* cmd_num starts at 1, not 0, to remove 'RESERVED' */ + for (no = 1, cmd_num = 1; cmd_info[cmd_sort_info[cmd_num]].command[0] != '\n'; cmd_num++) { + i = cmd_sort_info[cmd_num]; + + if (cmd_info[i].minimum_level < 0 || GET_LEVEL(vict) < cmd_info[i].minimum_level) + continue; + + if ((cmd_info[i].minimum_level >= LVL_IMMORT) != wizhelp) + continue; + + if (!wizhelp && socials != (cmd_info[i].command_pointer == do_action || cmd_info[i].command_pointer == do_insult)) + continue; + + send_to_char(ch, "%-11s%s", cmd_info[i].command, no++ % 7 == 0 ? "\r\n" : ""); + } + + if (no % 7 != 1) + send_to_char(ch, "\r\n"); +} diff --git a/src/act.item.c b/src/act.item.c new file mode 100644 index 0000000..36eac5f --- /dev/null +++ b/src/act.item.c @@ -0,0 +1,1467 @@ +/* ************************************************************************ +* File: act.item.c Part of CircleMUD * +* Usage: object handling routines -- get/drop and container handling * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" +#include "constants.h" + +/* extern variables */ +extern room_rnum donation_room_1; +#if 0 +extern room_rnum donation_room_2; /* uncomment if needed! */ +extern room_rnum donation_room_3; /* uncomment if needed! */ +#endif + +/* local functions */ +int can_take_obj(struct char_data *ch, struct obj_data *obj); +void get_check_money(struct char_data *ch, struct obj_data *obj); +int perform_get_from_room(struct char_data *ch, struct obj_data *obj); +void get_from_room(struct char_data *ch, char *arg, int amount); +void perform_give_gold(struct char_data *ch, struct char_data *vict, int amount); +void perform_give(struct char_data *ch, struct char_data *vict, struct obj_data *obj); +int perform_drop(struct char_data *ch, struct obj_data *obj, byte mode, const char *sname, room_rnum RDR); +void perform_drop_gold(struct char_data *ch, int amount, byte mode, room_rnum RDR); +struct char_data *give_find_vict(struct char_data *ch, char *arg); +void weight_change_object(struct obj_data *obj, int weight); +void perform_put(struct char_data *ch, struct obj_data *obj, struct obj_data *cont); +void name_from_drinkcon(struct obj_data *obj); +void get_from_container(struct char_data *ch, struct obj_data *cont, char *arg, int mode, int amount); +void name_to_drinkcon(struct obj_data *obj, int type); +void wear_message(struct char_data *ch, struct obj_data *obj, int where); +void perform_wear(struct char_data *ch, struct obj_data *obj, int where); +int find_eq_pos(struct char_data *ch, struct obj_data *obj, char *arg); +void perform_get_from_container(struct char_data *ch, struct obj_data *obj, struct obj_data *cont, int mode); +void perform_remove(struct char_data *ch, int pos); +ACMD(do_remove); +ACMD(do_put); +ACMD(do_get); +ACMD(do_drop); +ACMD(do_give); +ACMD(do_drink); +ACMD(do_eat); +ACMD(do_pour); +ACMD(do_wear); +ACMD(do_wield); +ACMD(do_grab); + + +void perform_put(struct char_data *ch, struct obj_data *obj, + struct obj_data *cont) +{ + if (GET_OBJ_WEIGHT(cont) + GET_OBJ_WEIGHT(obj) > GET_OBJ_VAL(cont, 0)) + act("$p won't fit in $P.", FALSE, ch, obj, cont, TO_CHAR); + else if (OBJ_FLAGGED(obj, ITEM_NODROP) && IN_ROOM(cont) != NOWHERE) + act("You can't get $p out of your hand.", FALSE, ch, obj, NULL, TO_CHAR); + else { + obj_from_char(obj); + obj_to_obj(obj, cont); + + act("$n puts $p in $P.", TRUE, ch, obj, cont, TO_ROOM); + + /* Yes, I realize this is strange until we have auto-equip on rent. -gg */ + if (OBJ_FLAGGED(obj, ITEM_NODROP) && !OBJ_FLAGGED(cont, ITEM_NODROP)) { + SET_BIT(GET_OBJ_EXTRA(cont), ITEM_NODROP); + act("You get a strange feeling as you put $p in $P.", FALSE, + ch, obj, cont, TO_CHAR); + } else + act("You put $p in $P.", FALSE, ch, obj, cont, TO_CHAR); + } +} + + +/* The following put modes are supported by the code below: + + 1) put <object> <container> + 2) put all.<object> <container> + 3) put all <container> + + <container> must be in inventory or on ground. + all objects to be put into container must be in inventory. +*/ + +ACMD(do_put) +{ + char arg1[MAX_INPUT_LENGTH]; + char arg2[MAX_INPUT_LENGTH]; + char arg3[MAX_INPUT_LENGTH]; + struct obj_data *obj, *next_obj, *cont; + struct char_data *tmp_char; + int obj_dotmode, cont_dotmode, found = 0, howmany = 1; + char *theobj, *thecont; + + one_argument(two_arguments(argument, arg1, arg2), arg3); /* three_arguments */ + + if (*arg3 && is_number(arg1)) { + howmany = atoi(arg1); + theobj = arg2; + thecont = arg3; + } else { + theobj = arg1; + thecont = arg2; + } + obj_dotmode = find_all_dots(theobj); + cont_dotmode = find_all_dots(thecont); + + if (!*theobj) + send_to_char(ch, "Put what in what?\r\n"); + else if (cont_dotmode != FIND_INDIV) + send_to_char(ch, "You can only put things into one container at a time.\r\n"); + else if (!*thecont) { + send_to_char(ch, "What do you want to put %s in?\r\n", obj_dotmode == FIND_INDIV ? "it" : "them"); + } else { + generic_find(thecont, FIND_OBJ_INV | FIND_OBJ_ROOM, ch, &tmp_char, &cont); + if (!cont) + send_to_char(ch, "You don't see %s %s here.\r\n", AN(thecont), thecont); + else if (GET_OBJ_TYPE(cont) != ITEM_CONTAINER) + act("$p is not a container.", FALSE, ch, cont, 0, TO_CHAR); + else if (OBJVAL_FLAGGED(cont, CONT_CLOSED)) + send_to_char(ch, "You'd better open it first!\r\n"); + else { + if (obj_dotmode == FIND_INDIV) { /* put <obj> <container> */ + if (!(obj = get_obj_in_list_vis(ch, theobj, NULL, ch->carrying))) + send_to_char(ch, "You aren't carrying %s %s.\r\n", AN(theobj), theobj); + else if (obj == cont && howmany == 1) + send_to_char(ch, "You attempt to fold it into itself, but fail.\r\n"); + else { + while (obj && howmany) { + next_obj = obj->next_content; + if (obj != cont) { + howmany--; + perform_put(ch, obj, cont); + } + obj = get_obj_in_list_vis(ch, theobj, NULL, next_obj); + } + } + } else { + for (obj = ch->carrying; obj; obj = next_obj) { + next_obj = obj->next_content; + if (obj != cont && CAN_SEE_OBJ(ch, obj) && + (obj_dotmode == FIND_ALL || isname(theobj, obj->name))) { + found = 1; + perform_put(ch, obj, cont); + } + } + if (!found) { + if (obj_dotmode == FIND_ALL) + send_to_char(ch, "You don't seem to have anything to put in it.\r\n"); + else + send_to_char(ch, "You don't seem to have any %ss.\r\n", theobj); + } + } + } + } +} + + + +int can_take_obj(struct char_data *ch, struct obj_data *obj) +{ + if (IS_CARRYING_N(ch) >= CAN_CARRY_N(ch)) { + act("$p: you can't carry that many items.", FALSE, ch, obj, 0, TO_CHAR); + return (0); + } else if ((IS_CARRYING_W(ch) + GET_OBJ_WEIGHT(obj)) > CAN_CARRY_W(ch)) { + act("$p: you can't carry that much weight.", FALSE, ch, obj, 0, TO_CHAR); + return (0); + } else if (!(CAN_WEAR(obj, ITEM_WEAR_TAKE))) { + act("$p: you can't take that!", FALSE, ch, obj, 0, TO_CHAR); + return (0); + } + return (1); +} + + +void get_check_money(struct char_data *ch, struct obj_data *obj) +{ + int value = GET_OBJ_VAL(obj, 0); + + if (GET_OBJ_TYPE(obj) != ITEM_MONEY || value <= 0) + return; + + extract_obj(obj); + + GET_GOLD(ch) += value; + + if (value == 1) + send_to_char(ch, "There was 1 coin.\r\n"); + else + send_to_char(ch, "There were %d coins.\r\n", value); +} + + +void perform_get_from_container(struct char_data *ch, struct obj_data *obj, + struct obj_data *cont, int mode) +{ + if (mode == FIND_OBJ_INV || can_take_obj(ch, obj)) { + if (IS_CARRYING_N(ch) >= CAN_CARRY_N(ch)) + act("$p: you can't hold any more items.", FALSE, ch, obj, 0, TO_CHAR); + else { + obj_from_obj(obj); + obj_to_char(obj, ch); + act("You get $p from $P.", FALSE, ch, obj, cont, TO_CHAR); + act("$n gets $p from $P.", TRUE, ch, obj, cont, TO_ROOM); + get_check_money(ch, obj); + } + } +} + + +void get_from_container(struct char_data *ch, struct obj_data *cont, + char *arg, int mode, int howmany) +{ + struct obj_data *obj, *next_obj; + int obj_dotmode, found = 0; + + obj_dotmode = find_all_dots(arg); + + if (OBJVAL_FLAGGED(cont, CONT_CLOSED)) + act("$p is closed.", FALSE, ch, cont, 0, TO_CHAR); + else if (obj_dotmode == FIND_INDIV) { + if (!(obj = get_obj_in_list_vis(ch, arg, NULL, cont->contains))) { + char buf[MAX_STRING_LENGTH]; + + snprintf(buf, sizeof(buf), "There doesn't seem to be %s %s in $p.", AN(arg), arg); + act(buf, FALSE, ch, cont, 0, TO_CHAR); + } else { + struct obj_data *obj_next; + while (obj && howmany--) { + obj_next = obj->next_content; + perform_get_from_container(ch, obj, cont, mode); + obj = get_obj_in_list_vis(ch, arg, NULL, obj_next); + } + } + } else { + if (obj_dotmode == FIND_ALLDOT && !*arg) { + send_to_char(ch, "Get all of what?\r\n"); + return; + } + for (obj = cont->contains; obj; obj = next_obj) { + next_obj = obj->next_content; + if (CAN_SEE_OBJ(ch, obj) && + (obj_dotmode == FIND_ALL || isname(arg, obj->name))) { + found = 1; + perform_get_from_container(ch, obj, cont, mode); + } + } + if (!found) { + if (obj_dotmode == FIND_ALL) + act("$p seems to be empty.", FALSE, ch, cont, 0, TO_CHAR); + else { + char buf[MAX_STRING_LENGTH]; + + snprintf(buf, sizeof(buf), "You can't seem to find any %ss in $p.", arg); + act(buf, FALSE, ch, cont, 0, TO_CHAR); + } + } + } +} + + +int perform_get_from_room(struct char_data *ch, struct obj_data *obj) +{ + if (can_take_obj(ch, obj)) { + obj_from_room(obj); + obj_to_char(obj, ch); + act("You get $p.", FALSE, ch, obj, 0, TO_CHAR); + act("$n gets $p.", TRUE, ch, obj, 0, TO_ROOM); + get_check_money(ch, obj); + return (1); + } + return (0); +} + + +void get_from_room(struct char_data *ch, char *arg, int howmany) +{ + struct obj_data *obj, *next_obj; + int dotmode, found = 0; + + dotmode = find_all_dots(arg); + + if (dotmode == FIND_INDIV) { + if (!(obj = get_obj_in_list_vis(ch, arg, NULL, world[IN_ROOM(ch)].contents))) + send_to_char(ch, "You don't see %s %s here.\r\n", AN(arg), arg); + else { + struct obj_data *obj_next; + while(obj && howmany--) { + obj_next = obj->next_content; + perform_get_from_room(ch, obj); + obj = get_obj_in_list_vis(ch, arg, NULL, obj_next); + } + } + } else { + if (dotmode == FIND_ALLDOT && !*arg) { + send_to_char(ch, "Get all of what?\r\n"); + return; + } + for (obj = world[IN_ROOM(ch)].contents; obj; obj = next_obj) { + next_obj = obj->next_content; + if (CAN_SEE_OBJ(ch, obj) && + (dotmode == FIND_ALL || isname(arg, obj->name))) { + found = 1; + perform_get_from_room(ch, obj); + } + } + if (!found) { + if (dotmode == FIND_ALL) + send_to_char(ch, "There doesn't seem to be anything here.\r\n"); + else + send_to_char(ch, "You don't see any %ss here.\r\n", arg); + } + } +} + + + +ACMD(do_get) +{ + char arg1[MAX_INPUT_LENGTH]; + char arg2[MAX_INPUT_LENGTH]; + char arg3[MAX_INPUT_LENGTH]; + + int cont_dotmode, found = 0, mode; + struct obj_data *cont; + struct char_data *tmp_char; + + one_argument(two_arguments(argument, arg1, arg2), arg3); /* three_arguments */ + + if (!*arg1) + send_to_char(ch, "Get what?\r\n"); + else if (!*arg2) + get_from_room(ch, arg1, 1); + else if (is_number(arg1) && !*arg3) + get_from_room(ch, arg2, atoi(arg1)); + else { + int amount = 1; + if (is_number(arg1)) { + amount = atoi(arg1); + strcpy(arg1, arg2); /* strcpy: OK (sizeof: arg1 == arg2) */ + strcpy(arg2, arg3); /* strcpy: OK (sizeof: arg2 == arg3) */ + } + cont_dotmode = find_all_dots(arg2); + if (cont_dotmode == FIND_INDIV) { + mode = generic_find(arg2, FIND_OBJ_INV | FIND_OBJ_ROOM, ch, &tmp_char, &cont); + if (!cont) + send_to_char(ch, "You don't have %s %s.\r\n", AN(arg2), arg2); + else if (GET_OBJ_TYPE(cont) != ITEM_CONTAINER) + act("$p is not a container.", FALSE, ch, cont, 0, TO_CHAR); + else + get_from_container(ch, cont, arg1, mode, amount); + } else { + if (cont_dotmode == FIND_ALLDOT && !*arg2) { + send_to_char(ch, "Get from all of what?\r\n"); + return; + } + for (cont = ch->carrying; cont; cont = cont->next_content) + if (CAN_SEE_OBJ(ch, cont) && + (cont_dotmode == FIND_ALL || isname(arg2, cont->name))) { + if (GET_OBJ_TYPE(cont) == ITEM_CONTAINER) { + found = 1; + get_from_container(ch, cont, arg1, FIND_OBJ_INV, amount); + } else if (cont_dotmode == FIND_ALLDOT) { + found = 1; + act("$p is not a container.", FALSE, ch, cont, 0, TO_CHAR); + } + } + for (cont = world[IN_ROOM(ch)].contents; cont; cont = cont->next_content) + if (CAN_SEE_OBJ(ch, cont) && + (cont_dotmode == FIND_ALL || isname(arg2, cont->name))) { + if (GET_OBJ_TYPE(cont) == ITEM_CONTAINER) { + get_from_container(ch, cont, arg1, FIND_OBJ_ROOM, amount); + found = 1; + } else if (cont_dotmode == FIND_ALLDOT) { + act("$p is not a container.", FALSE, ch, cont, 0, TO_CHAR); + found = 1; + } + } + if (!found) { + if (cont_dotmode == FIND_ALL) + send_to_char(ch, "You can't seem to find any containers.\r\n"); + else + send_to_char(ch, "You can't seem to find any %ss here.\r\n", arg2); + } + } + } +} + + +void perform_drop_gold(struct char_data *ch, int amount, + byte mode, room_rnum RDR) +{ + struct obj_data *obj; + + if (amount <= 0) + send_to_char(ch, "Heh heh heh.. we are jolly funny today, eh?\r\n"); + else if (GET_GOLD(ch) < amount) + send_to_char(ch, "You don't have that many coins!\r\n"); + else { + if (mode != SCMD_JUNK) { + WAIT_STATE(ch, PULSE_VIOLENCE); /* to prevent coin-bombing */ + obj = create_money(amount); + if (mode == SCMD_DONATE) { + send_to_char(ch, "You throw some gold into the air where it disappears in a puff of smoke!\r\n"); + act("$n throws some gold into the air where it disappears in a puff of smoke!", + FALSE, ch, 0, 0, TO_ROOM); + obj_to_room(obj, RDR); + act("$p suddenly appears in a puff of orange smoke!", 0, 0, obj, 0, TO_ROOM); + } else { + char buf[MAX_STRING_LENGTH]; + + snprintf(buf, sizeof(buf), "$n drops %s.", money_desc(amount)); + act(buf, TRUE, ch, 0, 0, TO_ROOM); + + send_to_char(ch, "You drop some gold.\r\n"); + obj_to_room(obj, IN_ROOM(ch)); + } + } else { + char buf[MAX_STRING_LENGTH]; + + snprintf(buf, sizeof(buf), "$n drops %s which disappears in a puff of smoke!", money_desc(amount)); + act(buf, FALSE, ch, 0, 0, TO_ROOM); + + send_to_char(ch, "You drop some gold which disappears in a puff of smoke!\r\n"); + } + GET_GOLD(ch) -= amount; + } +} + + +#define VANISH(mode) ((mode == SCMD_DONATE || mode == SCMD_JUNK) ? \ + " It vanishes in a puff of smoke!" : "") + +int perform_drop(struct char_data *ch, struct obj_data *obj, + byte mode, const char *sname, room_rnum RDR) +{ + char buf[MAX_STRING_LENGTH]; + int value; + + if (OBJ_FLAGGED(obj, ITEM_NODROP)) { + snprintf(buf, sizeof(buf), "You can't %s $p, it must be CURSED!", sname); + act(buf, FALSE, ch, obj, 0, TO_CHAR); + return (0); + } + + snprintf(buf, sizeof(buf), "You %s $p.%s", sname, VANISH(mode)); + act(buf, FALSE, ch, obj, 0, TO_CHAR); + + snprintf(buf, sizeof(buf), "$n %ss $p.%s", sname, VANISH(mode)); + act(buf, TRUE, ch, obj, 0, TO_ROOM); + + obj_from_char(obj); + + if ((mode == SCMD_DONATE) && OBJ_FLAGGED(obj, ITEM_NODONATE)) + mode = SCMD_JUNK; + + switch (mode) { + case SCMD_DROP: + obj_to_room(obj, IN_ROOM(ch)); + return (0); + case SCMD_DONATE: + obj_to_room(obj, RDR); + act("$p suddenly appears in a puff a smoke!", FALSE, 0, obj, 0, TO_ROOM); + return (0); + case SCMD_JUNK: + value = MAX(1, MIN(200, GET_OBJ_COST(obj) / 16)); + extract_obj(obj); + return (value); + default: + log("SYSERR: Incorrect argument %d passed to perform_drop.", mode); + break; + } + + return (0); +} + + + +ACMD(do_drop) +{ + char arg[MAX_INPUT_LENGTH]; + struct obj_data *obj, *next_obj; + room_rnum RDR = 0; + byte mode = SCMD_DROP; + int dotmode, amount = 0, multi; + const char *sname; + + switch (subcmd) { + case SCMD_JUNK: + sname = "junk"; + mode = SCMD_JUNK; + break; + case SCMD_DONATE: + sname = "donate"; + mode = SCMD_DONATE; + switch (rand_number(0, 2)) { + case 0: + mode = SCMD_JUNK; + break; + case 1: + case 2: + RDR = real_room(donation_room_1); + break; +/* case 3: RDR = real_room(donation_room_2); break; + case 4: RDR = real_room(donation_room_3); break; +*/ + } + if (RDR == NOWHERE) { + send_to_char(ch, "Sorry, you can't donate anything right now.\r\n"); + return; + } + break; + default: + sname = "drop"; + break; + } + + argument = one_argument(argument, arg); + + if (!*arg) { + send_to_char(ch, "What do you want to %s?\r\n", sname); + return; + } else if (is_number(arg)) { + multi = atoi(arg); + one_argument(argument, arg); + if (!str_cmp("coins", arg) || !str_cmp("coin", arg)) + perform_drop_gold(ch, multi, mode, RDR); + else if (multi <= 0) + send_to_char(ch, "Yeah, that makes sense.\r\n"); + else if (!*arg) + send_to_char(ch, "What do you want to %s %d of?\r\n", sname, multi); + else if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have any %ss.\r\n", arg); + else { + do { + next_obj = get_obj_in_list_vis(ch, arg, NULL, obj->next_content); + amount += perform_drop(ch, obj, mode, sname, RDR); + obj = next_obj; + } while (obj && --multi); + } + } else { + dotmode = find_all_dots(arg); + + /* Can't junk or donate all */ + if ((dotmode == FIND_ALL) && (subcmd == SCMD_JUNK || subcmd == SCMD_DONATE)) { + if (subcmd == SCMD_JUNK) + send_to_char(ch, "Go to the dump if you want to junk EVERYTHING!\r\n"); + else + send_to_char(ch, "Go do the donation room if you want to donate EVERYTHING!\r\n"); + return; + } + if (dotmode == FIND_ALL) { + if (!ch->carrying) + send_to_char(ch, "You don't seem to be carrying anything.\r\n"); + else + for (obj = ch->carrying; obj; obj = next_obj) { + next_obj = obj->next_content; + amount += perform_drop(ch, obj, mode, sname, RDR); + } + } else if (dotmode == FIND_ALLDOT) { + if (!*arg) { + send_to_char(ch, "What do you want to %s all of?\r\n", sname); + return; + } + if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have any %ss.\r\n", arg); + + while (obj) { + next_obj = get_obj_in_list_vis(ch, arg, NULL, obj->next_content); + amount += perform_drop(ch, obj, mode, sname, RDR); + obj = next_obj; + } + } else { + if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg), arg); + else + amount += perform_drop(ch, obj, mode, sname, RDR); + } + } + + if (amount && (subcmd == SCMD_JUNK)) { + send_to_char(ch, "You have been rewarded by the gods!\r\n"); + act("$n has been rewarded by the gods!", TRUE, ch, 0, 0, TO_ROOM); + GET_GOLD(ch) += amount; + } +} + + +void perform_give(struct char_data *ch, struct char_data *vict, + struct obj_data *obj) +{ + if (OBJ_FLAGGED(obj, ITEM_NODROP)) { + act("You can't let go of $p!! Yeech!", FALSE, ch, obj, 0, TO_CHAR); + return; + } + if (IS_CARRYING_N(vict) >= CAN_CARRY_N(vict)) { + act("$N seems to have $S hands full.", FALSE, ch, 0, vict, TO_CHAR); + return; + } + if (GET_OBJ_WEIGHT(obj) + IS_CARRYING_W(vict) > CAN_CARRY_W(vict)) { + act("$E can't carry that much weight.", FALSE, ch, 0, vict, TO_CHAR); + return; + } + obj_from_char(obj); + obj_to_char(obj, vict); + act("You give $p to $N.", FALSE, ch, obj, vict, TO_CHAR); + act("$n gives you $p.", FALSE, ch, obj, vict, TO_VICT); + act("$n gives $p to $N.", TRUE, ch, obj, vict, TO_NOTVICT); +} + +/* utility function for give */ +struct char_data *give_find_vict(struct char_data *ch, char *arg) +{ + struct char_data *vict; + + skip_spaces(&arg); + if (!*arg) + send_to_char(ch, "To who?\r\n"); + else if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "%s", NOPERSON); + else if (vict == ch) + send_to_char(ch, "What's the point of that?\r\n"); + else + return (vict); + + return (NULL); +} + + +void perform_give_gold(struct char_data *ch, struct char_data *vict, + int amount) +{ + char buf[MAX_STRING_LENGTH]; + + if (amount <= 0) { + send_to_char(ch, "Heh heh heh ... we are jolly funny today, eh?\r\n"); + return; + } + if ((GET_GOLD(ch) < amount) && (IS_NPC(ch) || (GET_LEVEL(ch) < LVL_GOD))) { + send_to_char(ch, "You don't have that many coins!\r\n"); + return; + } + send_to_char(ch, "%s", OK); + + snprintf(buf, sizeof(buf), "$n gives you %d gold coin%s.", amount, amount == 1 ? "" : "s"); + act(buf, FALSE, ch, 0, vict, TO_VICT); + + snprintf(buf, sizeof(buf), "$n gives %s to $N.", money_desc(amount)); + act(buf, TRUE, ch, 0, vict, TO_NOTVICT); + + if (IS_NPC(ch) || (GET_LEVEL(ch) < LVL_GOD)) + GET_GOLD(ch) -= amount; + GET_GOLD(vict) += amount; +} + + +ACMD(do_give) +{ + char arg[MAX_STRING_LENGTH]; + int amount, dotmode; + struct char_data *vict; + struct obj_data *obj, *next_obj; + + argument = one_argument(argument, arg); + + if (!*arg) + send_to_char(ch, "Give what to who?\r\n"); + else if (is_number(arg)) { + amount = atoi(arg); + argument = one_argument(argument, arg); + if (!str_cmp("coins", arg) || !str_cmp("coin", arg)) { + one_argument(argument, arg); + if ((vict = give_find_vict(ch, arg)) != NULL) + perform_give_gold(ch, vict, amount); + return; + } else if (!*arg) /* Give multiple code. */ + send_to_char(ch, "What do you want to give %d of?\r\n", amount); + else if (!(vict = give_find_vict(ch, argument))) + return; + else if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have any %ss.\r\n", arg); + else { + while (obj && amount--) { + next_obj = get_obj_in_list_vis(ch, arg, NULL, obj->next_content); + perform_give(ch, vict, obj); + obj = next_obj; + } + } + } else { + char buf1[MAX_INPUT_LENGTH]; + + one_argument(argument, buf1); + if (!(vict = give_find_vict(ch, buf1))) + return; + dotmode = find_all_dots(arg); + if (dotmode == FIND_INDIV) { + if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg), arg); + else + perform_give(ch, vict, obj); + } else { + if (dotmode == FIND_ALLDOT && !*arg) { + send_to_char(ch, "All of what?\r\n"); + return; + } + if (!ch->carrying) + send_to_char(ch, "You don't seem to be holding anything.\r\n"); + else + for (obj = ch->carrying; obj; obj = next_obj) { + next_obj = obj->next_content; + if (CAN_SEE_OBJ(ch, obj) && + ((dotmode == FIND_ALL || isname(arg, obj->name)))) + perform_give(ch, vict, obj); + } + } + } +} + + + +void weight_change_object(struct obj_data *obj, int weight) +{ + struct obj_data *tmp_obj; + struct char_data *tmp_ch; + + if (IN_ROOM(obj) != NOWHERE) { + GET_OBJ_WEIGHT(obj) += weight; + } else if ((tmp_ch = obj->carried_by)) { + obj_from_char(obj); + GET_OBJ_WEIGHT(obj) += weight; + obj_to_char(obj, tmp_ch); + } else if ((tmp_obj = obj->in_obj)) { + obj_from_obj(obj); + GET_OBJ_WEIGHT(obj) += weight; + obj_to_obj(obj, tmp_obj); + } else { + log("SYSERR: Unknown attempt to subtract weight from an object."); + } +} + + + +void name_from_drinkcon(struct obj_data *obj) +{ + char *new_name, *cur_name, *next; + const char *liqname; + int liqlen, cpylen; + + if (!obj || (GET_OBJ_TYPE(obj) != ITEM_DRINKCON && GET_OBJ_TYPE(obj) != ITEM_FOUNTAIN)) + return; + + liqname = drinknames[GET_OBJ_VAL(obj, 2)]; + if (!isname(liqname, obj->name)) { + log("SYSERR: Can't remove liquid '%s' from '%s' (%d) item.", liqname, obj->name, obj->item_number); + return; + } + + liqlen = strlen(liqname); + CREATE(new_name, char, strlen(obj->name) - strlen(liqname)); /* +1 for NUL, -1 for space */ + + for (cur_name = obj->name; cur_name; cur_name = next) { + if (*cur_name == ' ') + cur_name++; + + if ((next = strchr(cur_name, ' '))) + cpylen = next - cur_name; + else + cpylen = strlen(cur_name); + + if (!strn_cmp(cur_name, liqname, liqlen)) + continue; + + if (*new_name) + strcat(new_name, " "); /* strcat: OK (size precalculated) */ + strncat(new_name, cur_name, cpylen); /* strncat: OK (size precalculated) */ + } + + if (GET_OBJ_RNUM(obj) == NOTHING || obj->name != obj_proto[GET_OBJ_RNUM(obj)].name) + free(obj->name); + obj->name = new_name; +} + + + +void name_to_drinkcon(struct obj_data *obj, int type) +{ + char *new_name; + + if (!obj || (GET_OBJ_TYPE(obj) != ITEM_DRINKCON && GET_OBJ_TYPE(obj) != ITEM_FOUNTAIN)) + return; + + CREATE(new_name, char, strlen(obj->name) + strlen(drinknames[type]) + 2); + sprintf(new_name, "%s %s", obj->name, drinknames[type]); /* sprintf: OK */ + + if (GET_OBJ_RNUM(obj) == NOTHING || obj->name != obj_proto[GET_OBJ_RNUM(obj)].name) + free(obj->name); + + obj->name = new_name; +} + + + +ACMD(do_drink) +{ + char arg[MAX_INPUT_LENGTH]; + struct obj_data *temp; + struct affected_type af; + int amount, weight; + int on_ground = 0; + + one_argument(argument, arg); + + if (IS_NPC(ch)) /* Cannot use GET_COND() on mobs. */ + return; + + if (!*arg) { + send_to_char(ch, "Drink from what?\r\n"); + return; + } + if (!(temp = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) { + if (!(temp = get_obj_in_list_vis(ch, arg, NULL, world[IN_ROOM(ch)].contents))) { + send_to_char(ch, "You can't find it!\r\n"); + return; + } else + on_ground = 1; + } + if ((GET_OBJ_TYPE(temp) != ITEM_DRINKCON) && + (GET_OBJ_TYPE(temp) != ITEM_FOUNTAIN)) { + send_to_char(ch, "You can't drink from that!\r\n"); + return; + } + if (on_ground && (GET_OBJ_TYPE(temp) == ITEM_DRINKCON)) { + send_to_char(ch, "You have to be holding that to drink from it.\r\n"); + return; + } + if ((GET_COND(ch, DRUNK) > 10) && (GET_COND(ch, THIRST) > 0)) { + /* The pig is drunk */ + send_to_char(ch, "You can't seem to get close enough to your mouth.\r\n"); + act("$n tries to drink but misses $s mouth!", TRUE, ch, 0, 0, TO_ROOM); + return; + } + if ((GET_COND(ch, FULL) > 20) && (GET_COND(ch, THIRST) > 0)) { + send_to_char(ch, "Your stomach can't contain anymore!\r\n"); + return; + } + if (!GET_OBJ_VAL(temp, 1)) { + send_to_char(ch, "It's empty.\r\n"); + return; + } + if (subcmd == SCMD_DRINK) { + char buf[MAX_STRING_LENGTH]; + + snprintf(buf, sizeof(buf), "$n drinks %s from $p.", drinks[GET_OBJ_VAL(temp, 2)]); + act(buf, TRUE, ch, temp, 0, TO_ROOM); + + send_to_char(ch, "You drink the %s.\r\n", drinks[GET_OBJ_VAL(temp, 2)]); + + if (drink_aff[GET_OBJ_VAL(temp, 2)][DRUNK] > 0) + amount = (25 - GET_COND(ch, THIRST)) / drink_aff[GET_OBJ_VAL(temp, 2)][DRUNK]; + else + amount = rand_number(3, 10); + + } else { + act("$n sips from $p.", TRUE, ch, temp, 0, TO_ROOM); + send_to_char(ch, "It tastes like %s.\r\n", drinks[GET_OBJ_VAL(temp, 2)]); + amount = 1; + } + + amount = MIN(amount, GET_OBJ_VAL(temp, 1)); + + /* You can't subtract more than the object weighs */ + weight = MIN(amount, GET_OBJ_WEIGHT(temp)); + + weight_change_object(temp, -weight); /* Subtract amount */ + + gain_condition(ch, DRUNK, drink_aff[GET_OBJ_VAL(temp, 2)][DRUNK] * amount / 4); + gain_condition(ch, FULL, drink_aff[GET_OBJ_VAL(temp, 2)][FULL] * amount / 4); + gain_condition(ch, THIRST, drink_aff[GET_OBJ_VAL(temp, 2)][THIRST] * amount / 4); + + if (GET_COND(ch, DRUNK) > 10) + send_to_char(ch, "You feel drunk.\r\n"); + + if (GET_COND(ch, THIRST) > 20) + send_to_char(ch, "You don't feel thirsty any more.\r\n"); + + if (GET_COND(ch, FULL) > 20) + send_to_char(ch, "You are full.\r\n"); + + if (GET_OBJ_VAL(temp, 3)) { /* The crap was poisoned ! */ + send_to_char(ch, "Oops, it tasted rather strange!\r\n"); + act("$n chokes and utters some strange sounds.", TRUE, ch, 0, 0, TO_ROOM); + + af.type = SPELL_POISON; + af.duration = amount * 3; + af.modifier = 0; + af.location = APPLY_NONE; + af.bitvector = AFF_POISON; + affect_join(ch, &af, FALSE, FALSE, FALSE, FALSE); + } + /* empty the container, and no longer poison. */ + GET_OBJ_VAL(temp, 1) -= amount; + if (!GET_OBJ_VAL(temp, 1)) { /* The last bit */ + name_from_drinkcon(temp); + GET_OBJ_VAL(temp, 2) = 0; + GET_OBJ_VAL(temp, 3) = 0; + } + return; +} + + + +ACMD(do_eat) +{ + char arg[MAX_INPUT_LENGTH]; + struct obj_data *food; + struct affected_type af; + int amount; + + one_argument(argument, arg); + + if (IS_NPC(ch)) /* Cannot use GET_COND() on mobs. */ + return; + + if (!*arg) { + send_to_char(ch, "Eat what?\r\n"); + return; + } + if (!(food = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) { + send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg), arg); + return; + } + if (subcmd == SCMD_TASTE && ((GET_OBJ_TYPE(food) == ITEM_DRINKCON) || + (GET_OBJ_TYPE(food) == ITEM_FOUNTAIN))) { + do_drink(ch, argument, 0, SCMD_SIP); + return; + } + if ((GET_OBJ_TYPE(food) != ITEM_FOOD) && (GET_LEVEL(ch) < LVL_GOD)) { + send_to_char(ch, "You can't eat THAT!\r\n"); + return; + } + if (GET_COND(ch, FULL) > 20) {/* Stomach full */ + send_to_char(ch, "You are too full to eat more!\r\n"); + return; + } + if (subcmd == SCMD_EAT) { + act("You eat $p.", FALSE, ch, food, 0, TO_CHAR); + act("$n eats $p.", TRUE, ch, food, 0, TO_ROOM); + } else { + act("You nibble a little bit of $p.", FALSE, ch, food, 0, TO_CHAR); + act("$n tastes a little bit of $p.", TRUE, ch, food, 0, TO_ROOM); + } + + amount = (subcmd == SCMD_EAT ? GET_OBJ_VAL(food, 0) : 1); + + gain_condition(ch, FULL, amount); + + if (GET_COND(ch, FULL) > 20) + send_to_char(ch, "You are full.\r\n"); + + if (GET_OBJ_VAL(food, 3) && (GET_LEVEL(ch) < LVL_IMMORT)) { + /* The crap was poisoned ! */ + send_to_char(ch, "Oops, that tasted rather strange!\r\n"); + act("$n coughs and utters some strange sounds.", FALSE, ch, 0, 0, TO_ROOM); + + af.type = SPELL_POISON; + af.duration = amount * 2; + af.modifier = 0; + af.location = APPLY_NONE; + af.bitvector = AFF_POISON; + affect_join(ch, &af, FALSE, FALSE, FALSE, FALSE); + } + if (subcmd == SCMD_EAT) + extract_obj(food); + else { + if (!(--GET_OBJ_VAL(food, 0))) { + send_to_char(ch, "There's nothing left now.\r\n"); + extract_obj(food); + } + } +} + + +ACMD(do_pour) +{ + char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH]; + struct obj_data *from_obj = NULL, *to_obj = NULL; + int amount; + + two_arguments(argument, arg1, arg2); + + if (subcmd == SCMD_POUR) { + if (!*arg1) { /* No arguments */ + send_to_char(ch, "From what do you want to pour?\r\n"); + return; + } + if (!(from_obj = get_obj_in_list_vis(ch, arg1, NULL, ch->carrying))) { + send_to_char(ch, "You can't find it!\r\n"); + return; + } + if (GET_OBJ_TYPE(from_obj) != ITEM_DRINKCON) { + send_to_char(ch, "You can't pour from that!\r\n"); + return; + } + } + if (subcmd == SCMD_FILL) { + if (!*arg1) { /* no arguments */ + send_to_char(ch, "What do you want to fill? And what are you filling it from?\r\n"); + return; + } + if (!(to_obj = get_obj_in_list_vis(ch, arg1, NULL, ch->carrying))) { + send_to_char(ch, "You can't find it!\r\n"); + return; + } + if (GET_OBJ_TYPE(to_obj) != ITEM_DRINKCON) { + act("You can't fill $p!", FALSE, ch, to_obj, 0, TO_CHAR); + return; + } + if (!*arg2) { /* no 2nd argument */ + act("What do you want to fill $p from?", FALSE, ch, to_obj, 0, TO_CHAR); + return; + } + if (!(from_obj = get_obj_in_list_vis(ch, arg2, NULL, world[IN_ROOM(ch)].contents))) { + send_to_char(ch, "There doesn't seem to be %s %s here.\r\n", AN(arg2), arg2); + return; + } + if (GET_OBJ_TYPE(from_obj) != ITEM_FOUNTAIN) { + act("You can't fill something from $p.", FALSE, ch, from_obj, 0, TO_CHAR); + return; + } + } + if (GET_OBJ_VAL(from_obj, 1) == 0) { + act("The $p is empty.", FALSE, ch, from_obj, 0, TO_CHAR); + return; + } + if (subcmd == SCMD_POUR) { /* pour */ + if (!*arg2) { + send_to_char(ch, "Where do you want it? Out or in what?\r\n"); + return; + } + if (!str_cmp(arg2, "out")) { + act("$n empties $p.", TRUE, ch, from_obj, 0, TO_ROOM); + act("You empty $p.", FALSE, ch, from_obj, 0, TO_CHAR); + + weight_change_object(from_obj, -GET_OBJ_VAL(from_obj, 1)); /* Empty */ + + name_from_drinkcon(from_obj); + GET_OBJ_VAL(from_obj, 1) = 0; + GET_OBJ_VAL(from_obj, 2) = 0; + GET_OBJ_VAL(from_obj, 3) = 0; + + return; + } + if (!(to_obj = get_obj_in_list_vis(ch, arg2, NULL, ch->carrying))) { + send_to_char(ch, "You can't find it!\r\n"); + return; + } + if ((GET_OBJ_TYPE(to_obj) != ITEM_DRINKCON) && + (GET_OBJ_TYPE(to_obj) != ITEM_FOUNTAIN)) { + send_to_char(ch, "You can't pour anything into that.\r\n"); + return; + } + } + if (to_obj == from_obj) { + send_to_char(ch, "A most unproductive effort.\r\n"); + return; + } + if ((GET_OBJ_VAL(to_obj, 1) != 0) && + (GET_OBJ_VAL(to_obj, 2) != GET_OBJ_VAL(from_obj, 2))) { + send_to_char(ch, "There is already another liquid in it!\r\n"); + return; + } + if (!(GET_OBJ_VAL(to_obj, 1) < GET_OBJ_VAL(to_obj, 0))) { + send_to_char(ch, "There is no room for more.\r\n"); + return; + } + if (subcmd == SCMD_POUR) + send_to_char(ch, "You pour the %s into the %s.", drinks[GET_OBJ_VAL(from_obj, 2)], arg2); + + if (subcmd == SCMD_FILL) { + act("You gently fill $p from $P.", FALSE, ch, to_obj, from_obj, TO_CHAR); + act("$n gently fills $p from $P.", TRUE, ch, to_obj, from_obj, TO_ROOM); + } + /* New alias */ + if (GET_OBJ_VAL(to_obj, 1) == 0) + name_to_drinkcon(to_obj, GET_OBJ_VAL(from_obj, 2)); + + /* First same type liq. */ + GET_OBJ_VAL(to_obj, 2) = GET_OBJ_VAL(from_obj, 2); + + /* Then how much to pour */ + GET_OBJ_VAL(from_obj, 1) -= (amount = + (GET_OBJ_VAL(to_obj, 0) - GET_OBJ_VAL(to_obj, 1))); + + GET_OBJ_VAL(to_obj, 1) = GET_OBJ_VAL(to_obj, 0); + + if (GET_OBJ_VAL(from_obj, 1) < 0) { /* There was too little */ + GET_OBJ_VAL(to_obj, 1) += GET_OBJ_VAL(from_obj, 1); + amount += GET_OBJ_VAL(from_obj, 1); + name_from_drinkcon(from_obj); + GET_OBJ_VAL(from_obj, 1) = 0; + GET_OBJ_VAL(from_obj, 2) = 0; + GET_OBJ_VAL(from_obj, 3) = 0; + } + /* Then the poison boogie */ + GET_OBJ_VAL(to_obj, 3) = + (GET_OBJ_VAL(to_obj, 3) || GET_OBJ_VAL(from_obj, 3)); + + /* And the weight boogie */ + weight_change_object(from_obj, -amount); + weight_change_object(to_obj, amount); /* Add weight */ +} + + + +void wear_message(struct char_data *ch, struct obj_data *obj, int where) +{ + const char *wear_messages[][2] = { + {"$n lights $p and holds it.", + "You light $p and hold it."}, + + {"$n slides $p on to $s right ring finger.", + "You slide $p on to your right ring finger."}, + + {"$n slides $p on to $s left ring finger.", + "You slide $p on to your left ring finger."}, + + {"$n wears $p around $s neck.", + "You wear $p around your neck."}, + + {"$n wears $p around $s neck.", + "You wear $p around your neck."}, + + {"$n wears $p on $s body.", + "You wear $p on your body."}, + + {"$n wears $p on $s head.", + "You wear $p on your head."}, + + {"$n puts $p on $s legs.", + "You put $p on your legs."}, + + {"$n wears $p on $s feet.", + "You wear $p on your feet."}, + + {"$n puts $p on $s hands.", + "You put $p on your hands."}, + + {"$n wears $p on $s arms.", + "You wear $p on your arms."}, + + {"$n straps $p around $s arm as a shield.", + "You start to use $p as a shield."}, + + {"$n wears $p about $s body.", + "You wear $p around your body."}, + + {"$n wears $p around $s waist.", + "You wear $p around your waist."}, + + {"$n puts $p on around $s right wrist.", + "You put $p on around your right wrist."}, + + {"$n puts $p on around $s left wrist.", + "You put $p on around your left wrist."}, + + {"$n wields $p.", + "You wield $p."}, + + {"$n grabs $p.", + "You grab $p."} + }; + + act(wear_messages[where][0], TRUE, ch, obj, 0, TO_ROOM); + act(wear_messages[where][1], FALSE, ch, obj, 0, TO_CHAR); +} + + + +void perform_wear(struct char_data *ch, struct obj_data *obj, int where) +{ + /* + * ITEM_WEAR_TAKE is used for objects that do not require special bits + * to be put into that position (e.g. you can hold any object, not just + * an object with a HOLD bit.) + */ + + int wear_bitvectors[] = { + ITEM_WEAR_TAKE, ITEM_WEAR_FINGER, ITEM_WEAR_FINGER, ITEM_WEAR_NECK, + ITEM_WEAR_NECK, ITEM_WEAR_BODY, ITEM_WEAR_HEAD, ITEM_WEAR_LEGS, + ITEM_WEAR_FEET, ITEM_WEAR_HANDS, ITEM_WEAR_ARMS, ITEM_WEAR_SHIELD, + ITEM_WEAR_ABOUT, ITEM_WEAR_WAIST, ITEM_WEAR_WRIST, ITEM_WEAR_WRIST, + ITEM_WEAR_WIELD, ITEM_WEAR_TAKE + }; + + const char *already_wearing[] = { + "You're already using a light.\r\n", + "YOU SHOULD NEVER SEE THIS MESSAGE. PLEASE REPORT.\r\n", + "You're already wearing something on both of your ring fingers.\r\n", + "YOU SHOULD NEVER SEE THIS MESSAGE. PLEASE REPORT.\r\n", + "You can't wear anything else around your neck.\r\n", + "You're already wearing something on your body.\r\n", + "You're already wearing something on your head.\r\n", + "You're already wearing something on your legs.\r\n", + "You're already wearing something on your feet.\r\n", + "You're already wearing something on your hands.\r\n", + "You're already wearing something on your arms.\r\n", + "You're already using a shield.\r\n", + "You're already wearing something about your body.\r\n", + "You already have something around your waist.\r\n", + "YOU SHOULD NEVER SEE THIS MESSAGE. PLEASE REPORT.\r\n", + "You're already wearing something around both of your wrists.\r\n", + "You're already wielding a weapon.\r\n", + "You're already holding something.\r\n" + }; + + /* first, make sure that the wear position is valid. */ + if (!CAN_WEAR(obj, wear_bitvectors[where])) { + act("You can't wear $p there.", FALSE, ch, obj, 0, TO_CHAR); + return; + } + /* for neck, finger, and wrist, try pos 2 if pos 1 is already full */ + if ((where == WEAR_FINGER_R) || (where == WEAR_NECK_1) || (where == WEAR_WRIST_R)) + if (GET_EQ(ch, where)) + where++; + + if (GET_EQ(ch, where)) { + send_to_char(ch, "%s", already_wearing[where]); + return; + } + wear_message(ch, obj, where); + obj_from_char(obj); + equip_char(ch, obj, where); +} + + + +int find_eq_pos(struct char_data *ch, struct obj_data *obj, char *arg) +{ + int where = -1; + + const char *keywords[] = { + "!RESERVED!", + "finger", + "!RESERVED!", + "neck", + "!RESERVED!", + "body", + "head", + "legs", + "feet", + "hands", + "arms", + "shield", + "about", + "waist", + "wrist", + "!RESERVED!", + "!RESERVED!", + "!RESERVED!", + "\n" + }; + + if (!arg || !*arg) { + if (CAN_WEAR(obj, ITEM_WEAR_FINGER)) where = WEAR_FINGER_R; + if (CAN_WEAR(obj, ITEM_WEAR_NECK)) where = WEAR_NECK_1; + if (CAN_WEAR(obj, ITEM_WEAR_BODY)) where = WEAR_BODY; + if (CAN_WEAR(obj, ITEM_WEAR_HEAD)) where = WEAR_HEAD; + if (CAN_WEAR(obj, ITEM_WEAR_LEGS)) where = WEAR_LEGS; + if (CAN_WEAR(obj, ITEM_WEAR_FEET)) where = WEAR_FEET; + if (CAN_WEAR(obj, ITEM_WEAR_HANDS)) where = WEAR_HANDS; + if (CAN_WEAR(obj, ITEM_WEAR_ARMS)) where = WEAR_ARMS; + if (CAN_WEAR(obj, ITEM_WEAR_SHIELD)) where = WEAR_SHIELD; + if (CAN_WEAR(obj, ITEM_WEAR_ABOUT)) where = WEAR_ABOUT; + if (CAN_WEAR(obj, ITEM_WEAR_WAIST)) where = WEAR_WAIST; + if (CAN_WEAR(obj, ITEM_WEAR_WRIST)) where = WEAR_WRIST_R; + } else if ((where = search_block(arg, keywords, FALSE)) < 0) + send_to_char(ch, "'%s'? What part of your body is THAT?\r\n", arg); + + return (where); +} + + + +ACMD(do_wear) +{ + char arg1[MAX_INPUT_LENGTH]; + char arg2[MAX_INPUT_LENGTH]; + struct obj_data *obj, *next_obj; + int where, dotmode, items_worn = 0; + + two_arguments(argument, arg1, arg2); + + if (!*arg1) { + send_to_char(ch, "Wear what?\r\n"); + return; + } + dotmode = find_all_dots(arg1); + + if (*arg2 && (dotmode != FIND_INDIV)) { + send_to_char(ch, "You can't specify the same body location for more than one item!\r\n"); + return; + } + if (dotmode == FIND_ALL) { + for (obj = ch->carrying; obj; obj = next_obj) { + next_obj = obj->next_content; + if (CAN_SEE_OBJ(ch, obj) && (where = find_eq_pos(ch, obj, 0)) >= 0) { + items_worn++; + perform_wear(ch, obj, where); + } + } + if (!items_worn) + send_to_char(ch, "You don't seem to have anything wearable.\r\n"); + } else if (dotmode == FIND_ALLDOT) { + if (!*arg1) { + send_to_char(ch, "Wear all of what?\r\n"); + return; + } + if (!(obj = get_obj_in_list_vis(ch, arg1, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have any %ss.\r\n", arg1); + else + while (obj) { + next_obj = get_obj_in_list_vis(ch, arg1, NULL, obj->next_content); + if ((where = find_eq_pos(ch, obj, 0)) >= 0) + perform_wear(ch, obj, where); + else + act("You can't wear $p.", FALSE, ch, obj, 0, TO_CHAR); + obj = next_obj; + } + } else { + if (!(obj = get_obj_in_list_vis(ch, arg1, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg1), arg1); + else { + if ((where = find_eq_pos(ch, obj, arg2)) >= 0) + perform_wear(ch, obj, where); + else if (!*arg2) + act("You can't wear $p.", FALSE, ch, obj, 0, TO_CHAR); + } + } +} + + + +ACMD(do_wield) +{ + char arg[MAX_INPUT_LENGTH]; + struct obj_data *obj; + + one_argument(argument, arg); + + if (!*arg) + send_to_char(ch, "Wield what?\r\n"); + else if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg), arg); + else { + if (!CAN_WEAR(obj, ITEM_WEAR_WIELD)) + send_to_char(ch, "You can't wield that.\r\n"); + else if (GET_OBJ_WEIGHT(obj) > str_app[STRENGTH_APPLY_INDEX(ch)].wield_w) + send_to_char(ch, "It's too heavy for you to use.\r\n"); + else + perform_wear(ch, obj, WEAR_WIELD); + } +} + + + +ACMD(do_grab) +{ + char arg[MAX_INPUT_LENGTH]; + struct obj_data *obj; + + one_argument(argument, arg); + + if (!*arg) + send_to_char(ch, "Hold what?\r\n"); + else if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) + send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg), arg); + else { + if (GET_OBJ_TYPE(obj) == ITEM_LIGHT) + perform_wear(ch, obj, WEAR_LIGHT); + else { + if (!CAN_WEAR(obj, ITEM_WEAR_HOLD) && GET_OBJ_TYPE(obj) != ITEM_WAND && + GET_OBJ_TYPE(obj) != ITEM_STAFF && GET_OBJ_TYPE(obj) != ITEM_SCROLL && + GET_OBJ_TYPE(obj) != ITEM_POTION) + send_to_char(ch, "You can't hold that.\r\n"); + else + perform_wear(ch, obj, WEAR_HOLD); + } + } +} + + + +void perform_remove(struct char_data *ch, int pos) +{ + struct obj_data *obj; + + if (!(obj = GET_EQ(ch, pos))) + log("SYSERR: perform_remove: bad pos %d passed.", pos); + else if (OBJ_FLAGGED(obj, ITEM_NODROP)) + act("You can't remove $p, it must be CURSED!", FALSE, ch, obj, 0, TO_CHAR); + else if (IS_CARRYING_N(ch) >= CAN_CARRY_N(ch)) + act("$p: you can't carry that many items!", FALSE, ch, obj, 0, TO_CHAR); + else { + obj_to_char(unequip_char(ch, pos), ch); + act("You stop using $p.", FALSE, ch, obj, 0, TO_CHAR); + act("$n stops using $p.", TRUE, ch, obj, 0, TO_ROOM); + } +} + + + +ACMD(do_remove) +{ + char arg[MAX_INPUT_LENGTH]; + int i, dotmode, found; + + one_argument(argument, arg); + + if (!*arg) { + send_to_char(ch, "Remove what?\r\n"); + return; + } + dotmode = find_all_dots(arg); + + if (dotmode == FIND_ALL) { + found = 0; + for (i = 0; i < NUM_WEARS; i++) + if (GET_EQ(ch, i)) { + perform_remove(ch, i); + found = 1; + } + if (!found) + send_to_char(ch, "You're not using anything.\r\n"); + } else if (dotmode == FIND_ALLDOT) { + if (!*arg) + send_to_char(ch, "Remove all of what?\r\n"); + else { + found = 0; + for (i = 0; i < NUM_WEARS; i++) + if (GET_EQ(ch, i) && CAN_SEE_OBJ(ch, GET_EQ(ch, i)) && + isname(arg, GET_EQ(ch, i)->name)) { + perform_remove(ch, i); + found = 1; + } + if (!found) + send_to_char(ch, "You don't seem to be using any %ss.\r\n", arg); + } + } else { + if ((i = get_obj_pos_in_equip_vis(ch, arg, NULL, ch->equipment)) < 0) + send_to_char(ch, "You don't seem to be using %s %s.\r\n", AN(arg), arg); + else + perform_remove(ch, i); + } +} diff --git a/src/act.movement.c b/src/act.movement.c new file mode 100644 index 0000000..0e80ec7 --- /dev/null +++ b/src/act.movement.c @@ -0,0 +1,736 @@ +/* ************************************************************************ +* File: act.movement.c Part of CircleMUD * +* Usage: movement commands, door handling, & sleep/rest/etc state * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" +#include "house.h" +#include "constants.h" + + +/* external variables */ +extern int tunnel_size; + +/* external functions */ +int special(struct char_data *ch, int cmd, char *arg); +void death_cry(struct char_data *ch); +int find_eq_pos(struct char_data *ch, struct obj_data *obj, char *arg); + +/* local functions */ +int has_boat(struct char_data *ch); +int find_door(struct char_data *ch, const char *type, char *dir, const char *cmdname); +int has_key(struct char_data *ch, obj_vnum key); +void do_doorcmd(struct char_data *ch, struct obj_data *obj, int door, int scmd); +int ok_pick(struct char_data *ch, obj_vnum keynum, int pickproof, int scmd); +ACMD(do_gen_door); +ACMD(do_enter); +ACMD(do_leave); +ACMD(do_stand); +ACMD(do_sit); +ACMD(do_rest); +ACMD(do_sleep); +ACMD(do_wake); +ACMD(do_follow); + + +/* simple function to determine if char can walk on water */ +int has_boat(struct char_data *ch) +{ + struct obj_data *obj; + int i; + +/* + if (ROOM_IDENTITY(IN_ROOM(ch)) == DEAD_SEA) + return (1); +*/ + + if (GET_LEVEL(ch) > LVL_IMMORT) + return (1); + + if (AFF_FLAGGED(ch, AFF_WATERWALK)) + return (1); + + /* non-wearable boats in inventory will do it */ + for (obj = ch->carrying; obj; obj = obj->next_content) + if (GET_OBJ_TYPE(obj) == ITEM_BOAT && (find_eq_pos(ch, obj, NULL) < 0)) + return (1); + + /* and any boat you're wearing will do it too */ + for (i = 0; i < NUM_WEARS; i++) + if (GET_EQ(ch, i) && GET_OBJ_TYPE(GET_EQ(ch, i)) == ITEM_BOAT) + return (1); + + return (0); +} + + + +/* do_simple_move assumes + * 1. That there is no master and no followers. + * 2. That the direction exists. + * + * Returns : + * 1 : If succes. + * 0 : If fail + */ +int do_simple_move(struct char_data *ch, int dir, int need_specials_check) +{ + char throwaway[MAX_INPUT_LENGTH] = ""; /* Functions assume writable. */ + room_rnum was_in; + int need_movement; + + /* + * Check for special routines (North is 1 in command list, but 0 here) Note + * -- only check if following; this avoids 'double spec-proc' bug + */ + if (need_specials_check && special(ch, dir + 1, throwaway)) + return (0); + + /* charmed? */ + if (AFF_FLAGGED(ch, AFF_CHARM) && ch->master && IN_ROOM(ch) == IN_ROOM(ch->master)) { + send_to_char(ch, "The thought of leaving your master makes you weep.\r\n"); + act("$n bursts into tears.", FALSE, ch, 0, 0, TO_ROOM); + return (0); + } + + /* if this room or the one we're going to needs a boat, check for one */ + if ((SECT(IN_ROOM(ch)) == SECT_WATER_NOSWIM) || + (SECT(EXIT(ch, dir)->to_room) == SECT_WATER_NOSWIM)) { + if (!has_boat(ch)) { + send_to_char(ch, "You need a boat to go there.\r\n"); + return (0); + } + } + + /* move points needed is avg. move loss for src and destination sect type */ + need_movement = (movement_loss[SECT(IN_ROOM(ch))] + + movement_loss[SECT(EXIT(ch, dir)->to_room)]) / 2; + + if (GET_MOVE(ch) < need_movement && !IS_NPC(ch)) { + if (need_specials_check && ch->master) + send_to_char(ch, "You are too exhausted to follow.\r\n"); + else + send_to_char(ch, "You are too exhausted.\r\n"); + + return (0); + } + if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_ATRIUM)) { + if (!House_can_enter(ch, GET_ROOM_VNUM(EXIT(ch, dir)->to_room))) { + send_to_char(ch, "That's private property -- no trespassing!\r\n"); + return (0); + } + } + if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_TUNNEL) && + num_pc_in_room(&(world[EXIT(ch, dir)->to_room])) >= tunnel_size) { + if (tunnel_size > 1) + send_to_char(ch, "There isn't enough room for you to go there!\r\n"); + else + send_to_char(ch, "There isn't enough room there for more than one person!\r\n"); + return (0); + } + /* Mortals and low level gods cannot enter greater god rooms. */ + if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_GODROOM) && + GET_LEVEL(ch) < LVL_GRGOD) { + send_to_char(ch, "You aren't godly enough to use that room!\r\n"); + return (0); + } + + /* Now we know we're allow to go into the room. */ + if (GET_LEVEL(ch) < LVL_IMMORT && !IS_NPC(ch)) + GET_MOVE(ch) -= need_movement; + + if (!AFF_FLAGGED(ch, AFF_SNEAK)) { + char buf2[MAX_STRING_LENGTH]; + + snprintf(buf2, sizeof(buf2), "$n leaves %s.", dirs[dir]); + act(buf2, TRUE, ch, 0, 0, TO_ROOM); + } + was_in = IN_ROOM(ch); + char_from_room(ch); + char_to_room(ch, world[was_in].dir_option[dir]->to_room); + + if (!AFF_FLAGGED(ch, AFF_SNEAK)) + act("$n has arrived.", TRUE, ch, 0, 0, TO_ROOM); + + if (ch->desc != NULL) + look_at_room(ch, 0); + + if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_DEATH) && GET_LEVEL(ch) < LVL_IMMORT) { + log_death_trap(ch); + death_cry(ch); + extract_char(ch); + return (0); + } + return (1); +} + + +int perform_move(struct char_data *ch, int dir, int need_specials_check) +{ + room_rnum was_in; + struct follow_type *k, *next; + + if (ch == NULL || dir < 0 || dir >= NUM_OF_DIRS || FIGHTING(ch)) + return (0); + else if (!EXIT(ch, dir) || EXIT(ch, dir)->to_room == NOWHERE) + send_to_char(ch, "Alas, you cannot go that way...\r\n"); + else if (EXIT_FLAGGED(EXIT(ch, dir), EX_CLOSED)) { + if (EXIT(ch, dir)->keyword) + send_to_char(ch, "The %s seems to be closed.\r\n", fname(EXIT(ch, dir)->keyword)); + else + send_to_char(ch, "It seems to be closed.\r\n"); + } else { + if (!ch->followers) + return (do_simple_move(ch, dir, need_specials_check)); + + was_in = IN_ROOM(ch); + if (!do_simple_move(ch, dir, need_specials_check)) + return (0); + + for (k = ch->followers; k; k = next) { + next = k->next; + if ((IN_ROOM(k->follower) == was_in) && + (GET_POS(k->follower) >= POS_STANDING)) { + act("You follow $N.\r\n", FALSE, k->follower, 0, ch, TO_CHAR); + perform_move(k->follower, dir, 1); + } + } + return (1); + } + return (0); +} + + +ACMD(do_move) +{ + /* + * This is basically a mapping of cmd numbers to perform_move indices. + * It cannot be done in perform_move because perform_move is called + * by other functions which do not require the remapping. + */ + perform_move(ch, subcmd - 1, 0); +} + + +int find_door(struct char_data *ch, const char *type, char *dir, const char *cmdname) +{ + int door; + + if (*dir) { /* a direction was specified */ + if ((door = search_block(dir, dirs, FALSE)) == -1) { /* Partial Match */ + send_to_char(ch, "That's not a direction.\r\n"); + return (-1); + } + if (EXIT(ch, door)) { /* Braces added according to indent. -gg */ + if (EXIT(ch, door)->keyword) { + if (isname(type, EXIT(ch, door)->keyword)) + return (door); + else { + send_to_char(ch, "I see no %s there.\r\n", type); + return (-1); + } + } else + return (door); + } else { + send_to_char(ch, "I really don't see how you can %s anything there.\r\n", cmdname); + return (-1); + } + } else { /* try to locate the keyword */ + if (!*type) { + send_to_char(ch, "What is it you want to %s?\r\n", cmdname); + return (-1); + } + for (door = 0; door < NUM_OF_DIRS; door++) + if (EXIT(ch, door)) + if (EXIT(ch, door)->keyword) + if (isname(type, EXIT(ch, door)->keyword)) + return (door); + + send_to_char(ch, "There doesn't seem to be %s %s here.\r\n", AN(type), type); + return (-1); + } +} + + +int has_key(struct char_data *ch, obj_vnum key) +{ + struct obj_data *o; + + for (o = ch->carrying; o; o = o->next_content) + if (GET_OBJ_VNUM(o) == key) + return (1); + + if (GET_EQ(ch, WEAR_HOLD)) + if (GET_OBJ_VNUM(GET_EQ(ch, WEAR_HOLD)) == key) + return (1); + + return (0); +} + + + +#define NEED_OPEN (1 << 0) +#define NEED_CLOSED (1 << 1) +#define NEED_UNLOCKED (1 << 2) +#define NEED_LOCKED (1 << 3) + +const char *cmd_door[] = +{ + "open", + "close", + "unlock", + "lock", + "pick" +}; + +const int flags_door[] = +{ + NEED_CLOSED | NEED_UNLOCKED, + NEED_OPEN, + NEED_CLOSED | NEED_LOCKED, + NEED_CLOSED | NEED_UNLOCKED, + NEED_CLOSED | NEED_LOCKED +}; + + +#define EXITN(room, door) (world[room].dir_option[door]) +#define OPEN_DOOR(room, obj, door) ((obj) ?\ + (REMOVE_BIT(GET_OBJ_VAL(obj, 1), CONT_CLOSED)) :\ + (REMOVE_BIT(EXITN(room, door)->exit_info, EX_CLOSED))) +#define CLOSE_DOOR(room, obj, door) ((obj) ?\ + (SET_BIT(GET_OBJ_VAL(obj, 1), CONT_CLOSED)) :\ + (SET_BIT(EXITN(room, door)->exit_info, EX_CLOSED))) +#define LOCK_DOOR(room, obj, door) ((obj) ?\ + (SET_BIT(GET_OBJ_VAL(obj, 1), CONT_LOCKED)) :\ + (SET_BIT(EXITN(room, door)->exit_info, EX_LOCKED))) +#define UNLOCK_DOOR(room, obj, door) ((obj) ?\ + (REMOVE_BIT(GET_OBJ_VAL(obj, 1), CONT_LOCKED)) :\ + (REMOVE_BIT(EXITN(room, door)->exit_info, EX_LOCKED))) +#define TOGGLE_LOCK(room, obj, door) ((obj) ?\ + (TOGGLE_BIT(GET_OBJ_VAL(obj, 1), CONT_LOCKED)) :\ + (TOGGLE_BIT(EXITN(room, door)->exit_info, EX_LOCKED))) + +void do_doorcmd(struct char_data *ch, struct obj_data *obj, int door, int scmd) +{ + char buf[MAX_STRING_LENGTH]; + size_t len; + room_rnum other_room = NOWHERE; + struct room_direction_data *back = NULL; + + len = snprintf(buf, sizeof(buf), "$n %ss ", cmd_door[scmd]); + if (!obj && ((other_room = EXIT(ch, door)->to_room) != NOWHERE)) + if ((back = world[other_room].dir_option[rev_dir[door]]) != NULL) + if (back->to_room != IN_ROOM(ch)) + back = NULL; + + switch (scmd) { + case SCMD_OPEN: + OPEN_DOOR(IN_ROOM(ch), obj, door); + if (back) + OPEN_DOOR(other_room, obj, rev_dir[door]); + send_to_char(ch, "%s", OK); + break; + + case SCMD_CLOSE: + CLOSE_DOOR(IN_ROOM(ch), obj, door); + if (back) + CLOSE_DOOR(other_room, obj, rev_dir[door]); + send_to_char(ch, "%s", OK); + break; + + case SCMD_LOCK: + LOCK_DOOR(IN_ROOM(ch), obj, door); + if (back) + LOCK_DOOR(other_room, obj, rev_dir[door]); + send_to_char(ch, "*Click*\r\n"); + break; + + case SCMD_UNLOCK: + UNLOCK_DOOR(IN_ROOM(ch), obj, door); + if (back) + UNLOCK_DOOR(other_room, obj, rev_dir[door]); + send_to_char(ch, "*Click*\r\n"); + break; + + case SCMD_PICK: + TOGGLE_LOCK(IN_ROOM(ch), obj, door); + if (back) + TOGGLE_LOCK(other_room, obj, rev_dir[door]); + send_to_char(ch, "The lock quickly yields to your skills.\r\n"); + len = strlcpy(buf, "$n skillfully picks the lock on ", sizeof(buf)); + break; + } + + /* Notify the room. */ + if (len < sizeof(buf)) + snprintf(buf + len, sizeof(buf) - len, "%s%s.", + obj ? "" : "the ", obj ? "$p" : EXIT(ch, door)->keyword ? "$F" : "door"); + if (!obj || IN_ROOM(obj) != NOWHERE) + act(buf, FALSE, ch, obj, obj ? 0 : EXIT(ch, door)->keyword, TO_ROOM); + + /* Notify the other room */ + if (back && (scmd == SCMD_OPEN || scmd == SCMD_CLOSE)) + send_to_room(EXIT(ch, door)->to_room, "The %s is %s%s from the other side.", + back->keyword ? fname(back->keyword) : "door", cmd_door[scmd], + scmd == SCMD_CLOSE ? "d" : "ed"); +} + + +int ok_pick(struct char_data *ch, obj_vnum keynum, int pickproof, int scmd) +{ + int percent, skill_lvl; + + if (scmd != SCMD_PICK) + return (1); + + percent = rand_number(1, 101); + skill_lvl = GET_SKILL(ch, SKILL_PICK_LOCK) + dex_app_skill[GET_DEX(ch)].p_locks; + + if (keynum == NOTHING) + send_to_char(ch, "Odd - you can't seem to find a keyhole.\r\n"); + else if (pickproof) + send_to_char(ch, "It resists your attempts to pick it.\r\n"); + else if (percent > skill_lvl) + send_to_char(ch, "You failed to pick the lock.\r\n"); + else + return (1); + + return (0); +} + + +#define DOOR_IS_OPENABLE(ch, obj, door) ((obj) ? \ + ((GET_OBJ_TYPE(obj) == ITEM_CONTAINER) && \ + OBJVAL_FLAGGED(obj, CONT_CLOSEABLE)) :\ + (EXIT_FLAGGED(EXIT(ch, door), EX_ISDOOR))) +#define DOOR_IS_OPEN(ch, obj, door) ((obj) ? \ + (!OBJVAL_FLAGGED(obj, CONT_CLOSED)) :\ + (!EXIT_FLAGGED(EXIT(ch, door), EX_CLOSED))) +#define DOOR_IS_UNLOCKED(ch, obj, door) ((obj) ? \ + (!OBJVAL_FLAGGED(obj, CONT_LOCKED)) :\ + (!EXIT_FLAGGED(EXIT(ch, door), EX_LOCKED))) +#define DOOR_IS_PICKPROOF(ch, obj, door) ((obj) ? \ + (OBJVAL_FLAGGED(obj, CONT_PICKPROOF)) : \ + (EXIT_FLAGGED(EXIT(ch, door), EX_PICKPROOF))) + +#define DOOR_IS_CLOSED(ch, obj, door) (!(DOOR_IS_OPEN(ch, obj, door))) +#define DOOR_IS_LOCKED(ch, obj, door) (!(DOOR_IS_UNLOCKED(ch, obj, door))) +#define DOOR_KEY(ch, obj, door) ((obj) ? (GET_OBJ_VAL(obj, 2)) : \ + (EXIT(ch, door)->key)) + +ACMD(do_gen_door) +{ + int door = -1; + obj_vnum keynum; + char type[MAX_INPUT_LENGTH], dir[MAX_INPUT_LENGTH]; + struct obj_data *obj = NULL; + struct char_data *victim = NULL; + + skip_spaces(&argument); + if (!*argument) { + send_to_char(ch, "%c%s what?\r\n", UPPER(*cmd_door[subcmd]), cmd_door[subcmd] + 1); + return; + } + two_arguments(argument, type, dir); + if (!generic_find(type, FIND_OBJ_INV | FIND_OBJ_ROOM, ch, &victim, &obj)) + door = find_door(ch, type, dir, cmd_door[subcmd]); + + if ((obj) || (door >= 0)) { + keynum = DOOR_KEY(ch, obj, door); + if (!(DOOR_IS_OPENABLE(ch, obj, door))) + act("You can't $F that!", FALSE, ch, 0, cmd_door[subcmd], TO_CHAR); + else if (!DOOR_IS_OPEN(ch, obj, door) && + IS_SET(flags_door[subcmd], NEED_OPEN)) + send_to_char(ch, "But it's already closed!\r\n"); + else if (!DOOR_IS_CLOSED(ch, obj, door) && + IS_SET(flags_door[subcmd], NEED_CLOSED)) + send_to_char(ch, "But it's currently open!\r\n"); + else if (!(DOOR_IS_LOCKED(ch, obj, door)) && + IS_SET(flags_door[subcmd], NEED_LOCKED)) + send_to_char(ch, "Oh.. it wasn't locked, after all..\r\n"); + else if (!(DOOR_IS_UNLOCKED(ch, obj, door)) && + IS_SET(flags_door[subcmd], NEED_UNLOCKED)) + send_to_char(ch, "It seems to be locked.\r\n"); + else if (!has_key(ch, keynum) && (GET_LEVEL(ch) < LVL_GOD) && + ((subcmd == SCMD_LOCK) || (subcmd == SCMD_UNLOCK))) + send_to_char(ch, "You don't seem to have the proper key.\r\n"); + else if (ok_pick(ch, keynum, DOOR_IS_PICKPROOF(ch, obj, door), subcmd)) + do_doorcmd(ch, obj, door, subcmd); + } + return; +} + + + +ACMD(do_enter) +{ + char buf[MAX_INPUT_LENGTH]; + int door; + + one_argument(argument, buf); + + if (*buf) { /* an argument was supplied, search for door + * keyword */ + for (door = 0; door < NUM_OF_DIRS; door++) + if (EXIT(ch, door)) + if (EXIT(ch, door)->keyword) + if (!str_cmp(EXIT(ch, door)->keyword, buf)) { + perform_move(ch, door, 1); + return; + } + send_to_char(ch, "There is no %s here.\r\n", buf); + } else if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_INDOORS)) + send_to_char(ch, "You are already indoors.\r\n"); + else { + /* try to locate an entrance */ + for (door = 0; door < NUM_OF_DIRS; door++) + if (EXIT(ch, door)) + if (EXIT(ch, door)->to_room != NOWHERE) + if (!EXIT_FLAGGED(EXIT(ch, door), EX_CLOSED) && + ROOM_FLAGGED(EXIT(ch, door)->to_room, ROOM_INDOORS)) { + perform_move(ch, door, 1); + return; + } + send_to_char(ch, "You can't seem to find anything to enter.\r\n"); + } +} + + +ACMD(do_leave) +{ + int door; + + if (OUTSIDE(ch)) + send_to_char(ch, "You are outside.. where do you want to go?\r\n"); + else { + for (door = 0; door < NUM_OF_DIRS; door++) + if (EXIT(ch, door)) + if (EXIT(ch, door)->to_room != NOWHERE) + if (!EXIT_FLAGGED(EXIT(ch, door), EX_CLOSED) && + !ROOM_FLAGGED(EXIT(ch, door)->to_room, ROOM_INDOORS)) { + perform_move(ch, door, 1); + return; + } + send_to_char(ch, "I see no obvious exits to the outside.\r\n"); + } +} + + +ACMD(do_stand) +{ + switch (GET_POS(ch)) { + case POS_STANDING: + send_to_char(ch, "You are already standing.\r\n"); + break; + case POS_SITTING: + send_to_char(ch, "You stand up.\r\n"); + act("$n clambers to $s feet.", TRUE, ch, 0, 0, TO_ROOM); + /* Will be sitting after a successful bash and may still be fighting. */ + GET_POS(ch) = FIGHTING(ch) ? POS_FIGHTING : POS_STANDING; + break; + case POS_RESTING: + send_to_char(ch, "You stop resting, and stand up.\r\n"); + act("$n stops resting, and clambers on $s feet.", TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_STANDING; + break; + case POS_SLEEPING: + send_to_char(ch, "You have to wake up first!\r\n"); + break; + case POS_FIGHTING: + send_to_char(ch, "Do you not consider fighting as standing?\r\n"); + break; + default: + send_to_char(ch, "You stop floating around, and put your feet on the ground.\r\n"); + act("$n stops floating around, and puts $s feet on the ground.", + TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_STANDING; + break; + } +} + + +ACMD(do_sit) +{ + switch (GET_POS(ch)) { + case POS_STANDING: + send_to_char(ch, "You sit down.\r\n"); + act("$n sits down.", FALSE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_SITTING; + break; + case POS_SITTING: + send_to_char(ch, "You're sitting already.\r\n"); + break; + case POS_RESTING: + send_to_char(ch, "You stop resting, and sit up.\r\n"); + act("$n stops resting.", TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_SITTING; + break; + case POS_SLEEPING: + send_to_char(ch, "You have to wake up first.\r\n"); + break; + case POS_FIGHTING: + send_to_char(ch, "Sit down while fighting? Are you MAD?\r\n"); + break; + default: + send_to_char(ch, "You stop floating around, and sit down.\r\n"); + act("$n stops floating around, and sits down.", TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_SITTING; + break; + } +} + + +ACMD(do_rest) +{ + switch (GET_POS(ch)) { + case POS_STANDING: + send_to_char(ch, "You sit down and rest your tired bones.\r\n"); + act("$n sits down and rests.", TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_RESTING; + break; + case POS_SITTING: + send_to_char(ch, "You rest your tired bones.\r\n"); + act("$n rests.", TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_RESTING; + break; + case POS_RESTING: + send_to_char(ch, "You are already resting.\r\n"); + break; + case POS_SLEEPING: + send_to_char(ch, "You have to wake up first.\r\n"); + break; + case POS_FIGHTING: + send_to_char(ch, "Rest while fighting? Are you MAD?\r\n"); + break; + default: + send_to_char(ch, "You stop floating around, and stop to rest your tired bones.\r\n"); + act("$n stops floating around, and rests.", FALSE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_SITTING; + break; + } +} + + +ACMD(do_sleep) +{ + switch (GET_POS(ch)) { + case POS_STANDING: + case POS_SITTING: + case POS_RESTING: + send_to_char(ch, "You go to sleep.\r\n"); + act("$n lies down and falls asleep.", TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_SLEEPING; + break; + case POS_SLEEPING: + send_to_char(ch, "You are already sound asleep.\r\n"); + break; + case POS_FIGHTING: + send_to_char(ch, "Sleep while fighting? Are you MAD?\r\n"); + break; + default: + send_to_char(ch, "You stop floating around, and lie down to sleep.\r\n"); + act("$n stops floating around, and lie down to sleep.", + TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_SLEEPING; + break; + } +} + + +ACMD(do_wake) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *vict; + int self = 0; + + one_argument(argument, arg); + if (*arg) { + if (GET_POS(ch) == POS_SLEEPING) + send_to_char(ch, "Maybe you should wake yourself up first.\r\n"); + else if ((vict = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM)) == NULL) + send_to_char(ch, "%s", NOPERSON); + else if (vict == ch) + self = 1; + else if (AWAKE(vict)) + act("$E is already awake.", FALSE, ch, 0, vict, TO_CHAR); + else if (AFF_FLAGGED(vict, AFF_SLEEP)) + act("You can't wake $M up!", FALSE, ch, 0, vict, TO_CHAR); + else if (GET_POS(vict) < POS_SLEEPING) + act("$E's in pretty bad shape!", FALSE, ch, 0, vict, TO_CHAR); + else { + act("You wake $M up.", FALSE, ch, 0, vict, TO_CHAR); + act("You are awakened by $n.", FALSE, ch, 0, vict, TO_VICT | TO_SLEEP); + GET_POS(vict) = POS_SITTING; + } + if (!self) + return; + } + if (AFF_FLAGGED(ch, AFF_SLEEP)) + send_to_char(ch, "You can't wake up!\r\n"); + else if (GET_POS(ch) > POS_SLEEPING) + send_to_char(ch, "You are already awake...\r\n"); + else { + send_to_char(ch, "You awaken, and sit up.\r\n"); + act("$n awakens.", TRUE, ch, 0, 0, TO_ROOM); + GET_POS(ch) = POS_SITTING; + } +} + + +ACMD(do_follow) +{ + char buf[MAX_INPUT_LENGTH]; + struct char_data *leader; + + one_argument(argument, buf); + + if (*buf) { + if (!(leader = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM))) { + send_to_char(ch, "%s", NOPERSON); + return; + } + } else { + send_to_char(ch, "Whom do you wish to follow?\r\n"); + return; + } + + if (ch->master == leader) { + act("You are already following $M.", FALSE, ch, 0, leader, TO_CHAR); + return; + } + if (AFF_FLAGGED(ch, AFF_CHARM) && (ch->master)) { + act("But you only feel like following $N!", FALSE, ch, 0, ch->master, TO_CHAR); + } else { /* Not Charmed follow person */ + if (leader == ch) { + if (!ch->master) { + send_to_char(ch, "You are already following yourself.\r\n"); + return; + } + stop_follower(ch); + } else { + if (circle_follow(ch, leader)) { + send_to_char(ch, "Sorry, but following in loops is not allowed.\r\n"); + return; + } + if (ch->master) + stop_follower(ch); + REMOVE_BIT(AFF_FLAGS(ch), AFF_GROUP); + add_follower(ch, leader); + } + } +} diff --git a/src/act.offensive.c b/src/act.offensive.c new file mode 100644 index 0000000..171bb09 --- /dev/null +++ b/src/act.offensive.c @@ -0,0 +1,451 @@ +/* ************************************************************************ +* File: act.offensive.c Part of CircleMUD * +* Usage: player-level commands of an offensive nature * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" + +/* extern variables */ +extern int pk_allowed; + +/* extern functions */ +void raw_kill(struct char_data *ch); +void check_killer(struct char_data *ch, struct char_data *vict); +int compute_armor_class(struct char_data *ch); + +/* local functions */ +ACMD(do_assist); +ACMD(do_hit); +ACMD(do_kill); +ACMD(do_backstab); +ACMD(do_order); +ACMD(do_flee); +ACMD(do_bash); +ACMD(do_rescue); +ACMD(do_kick); + + +ACMD(do_assist) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *helpee, *opponent; + + if (FIGHTING(ch)) { + send_to_char(ch, "You're already fighting! How can you assist someone else?\r\n"); + return; + } + one_argument(argument, arg); + + if (!*arg) + send_to_char(ch, "Whom do you wish to assist?\r\n"); + else if (!(helpee = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "%s", NOPERSON); + else if (helpee == ch) + send_to_char(ch, "You can't help yourself any more than this!\r\n"); + else { + /* + * Hit the same enemy the person you're helping is. + */ + if (FIGHTING(helpee)) + opponent = FIGHTING(helpee); + else + for (opponent = world[IN_ROOM(ch)].people; + opponent && (FIGHTING(opponent) != helpee); + opponent = opponent->next_in_room) + ; + + if (!opponent) + act("But nobody is fighting $M!", FALSE, ch, 0, helpee, TO_CHAR); + else if (!CAN_SEE(ch, opponent)) + act("You can't see who is fighting $M!", FALSE, ch, 0, helpee, TO_CHAR); + else if (!pk_allowed && !IS_NPC(opponent)) /* prevent accidental pkill */ + act("Use 'murder' if you really want to attack $N.", FALSE, + ch, 0, opponent, TO_CHAR); + else { + send_to_char(ch, "You join the fight!\r\n"); + act("$N assists you!", 0, helpee, 0, ch, TO_CHAR); + act("$n assists $N.", FALSE, ch, 0, helpee, TO_NOTVICT); + hit(ch, opponent, TYPE_UNDEFINED); + } + } +} + + +ACMD(do_hit) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *vict; + + one_argument(argument, arg); + + if (!*arg) + send_to_char(ch, "Hit who?\r\n"); + else if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "They don't seem to be here.\r\n"); + else if (vict == ch) { + send_to_char(ch, "You hit yourself...OUCH!.\r\n"); + act("$n hits $mself, and says OUCH!", FALSE, ch, 0, vict, TO_ROOM); + } else if (AFF_FLAGGED(ch, AFF_CHARM) && (ch->master == vict)) + act("$N is just such a good friend, you simply can't hit $M.", FALSE, ch, 0, vict, TO_CHAR); + else { + if (!pk_allowed) { + if (!IS_NPC(vict) && !IS_NPC(ch)) { + if (subcmd != SCMD_MURDER) { + send_to_char(ch, "Use 'murder' to hit another player.\r\n"); + return; + } else { + check_killer(ch, vict); + } + } + if (AFF_FLAGGED(ch, AFF_CHARM) && !IS_NPC(ch->master) && !IS_NPC(vict)) + return; /* you can't order a charmed pet to attack a + * player */ + } + if ((GET_POS(ch) == POS_STANDING) && (vict != FIGHTING(ch))) { + hit(ch, vict, TYPE_UNDEFINED); + WAIT_STATE(ch, PULSE_VIOLENCE + 2); + } else + send_to_char(ch, "You do the best you can!\r\n"); + } +} + + + +ACMD(do_kill) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *vict; + + if (GET_LEVEL(ch) < LVL_IMPL || IS_NPC(ch)) { + do_hit(ch, argument, cmd, subcmd); + return; + } + one_argument(argument, arg); + + if (!*arg) { + send_to_char(ch, "Kill who?\r\n"); + } else { + if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "They aren't here.\r\n"); + else if (ch == vict) + send_to_char(ch, "Your mother would be so sad.. :(\r\n"); + else { + act("You chop $M to pieces! Ah! The blood!", FALSE, ch, 0, vict, TO_CHAR); + act("$N chops you to pieces!", FALSE, vict, 0, ch, TO_CHAR); + act("$n brutally slays $N!", FALSE, ch, 0, vict, TO_NOTVICT); + raw_kill(vict); + } + } +} + + + +ACMD(do_backstab) +{ + char buf[MAX_INPUT_LENGTH]; + struct char_data *vict; + int percent, prob; + + if (IS_NPC(ch) || !GET_SKILL(ch, SKILL_BACKSTAB)) { + send_to_char(ch, "You have no idea how to do that.\r\n"); + return; + } + + one_argument(argument, buf); + + if (!(vict = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM))) { + send_to_char(ch, "Backstab who?\r\n"); + return; + } + if (vict == ch) { + send_to_char(ch, "How can you sneak up on yourself?\r\n"); + return; + } + if (!GET_EQ(ch, WEAR_WIELD)) { + send_to_char(ch, "You need to wield a weapon to make it a success.\r\n"); + return; + } + if (GET_OBJ_VAL(GET_EQ(ch, WEAR_WIELD), 3) != TYPE_PIERCE - TYPE_HIT) { + send_to_char(ch, "Only piercing weapons can be used for backstabbing.\r\n"); + return; + } + if (FIGHTING(vict)) { + send_to_char(ch, "You can't backstab a fighting person -- they're too alert!\r\n"); + return; + } + + if (MOB_FLAGGED(vict, MOB_AWARE) && AWAKE(vict)) { + act("You notice $N lunging at you!", FALSE, vict, 0, ch, TO_CHAR); + act("$e notices you lunging at $m!", FALSE, vict, 0, ch, TO_VICT); + act("$n notices $N lunging at $m!", FALSE, vict, 0, ch, TO_NOTVICT); + hit(vict, ch, TYPE_UNDEFINED); + return; + } + + percent = rand_number(1, 101); /* 101% is a complete failure */ + prob = GET_SKILL(ch, SKILL_BACKSTAB); + + if (AWAKE(vict) && (percent > prob)) + damage(ch, vict, 0, SKILL_BACKSTAB); + else + hit(ch, vict, SKILL_BACKSTAB); + + WAIT_STATE(ch, 2 * PULSE_VIOLENCE); +} + + +ACMD(do_order) +{ + char name[MAX_INPUT_LENGTH], message[MAX_INPUT_LENGTH]; + bool found = FALSE; + struct char_data *vict; + struct follow_type *k; + + half_chop(argument, name, message); + + if (!*name || !*message) + send_to_char(ch, "Order who to do what?\r\n"); + else if (!(vict = get_char_vis(ch, name, NULL, FIND_CHAR_ROOM)) && !is_abbrev(name, "followers")) + send_to_char(ch, "That person isn't here.\r\n"); + else if (ch == vict) + send_to_char(ch, "You obviously suffer from skitzofrenia.\r\n"); + else { + if (AFF_FLAGGED(ch, AFF_CHARM)) { + send_to_char(ch, "Your superior would not aprove of you giving orders.\r\n"); + return; + } + if (vict) { + char buf[MAX_STRING_LENGTH]; + + snprintf(buf, sizeof(buf), "$N orders you to '%s'", message); + act(buf, FALSE, vict, 0, ch, TO_CHAR); + act("$n gives $N an order.", FALSE, ch, 0, vict, TO_ROOM); + + if ((vict->master != ch) || !AFF_FLAGGED(vict, AFF_CHARM)) + act("$n has an indifferent look.", FALSE, vict, 0, 0, TO_ROOM); + else { + send_to_char(ch, "%s", OK); + command_interpreter(vict, message); + } + } else { /* This is order "followers" */ + char buf[MAX_STRING_LENGTH]; + + snprintf(buf, sizeof(buf), "$n issues the order '%s'.", message); + act(buf, FALSE, ch, 0, 0, TO_ROOM); + + for (k = ch->followers; k; k = k->next) { + if (IN_ROOM(ch) == IN_ROOM(k->follower)) + if (AFF_FLAGGED(k->follower, AFF_CHARM)) { + found = TRUE; + command_interpreter(k->follower, message); + } + } + if (found) + send_to_char(ch, "%s", OK); + else + send_to_char(ch, "Nobody here is a loyal subject of yours!\r\n"); + } + } +} + + + +ACMD(do_flee) +{ + int i, attempt, loss; + struct char_data *was_fighting; + + if (GET_POS(ch) < POS_FIGHTING) { + send_to_char(ch, "You are in pretty bad shape, unable to flee!\r\n"); + return; + } + + for (i = 0; i < 6; i++) { + attempt = rand_number(0, NUM_OF_DIRS - 1); /* Select a random direction */ + if (CAN_GO(ch, attempt) && + !ROOM_FLAGGED(EXIT(ch, attempt)->to_room, ROOM_DEATH)) { + act("$n panics, and attempts to flee!", TRUE, ch, 0, 0, TO_ROOM); + was_fighting = FIGHTING(ch); + if (do_simple_move(ch, attempt, TRUE)) { + send_to_char(ch, "You flee head over heels.\r\n"); + if (was_fighting && !IS_NPC(ch)) { + loss = GET_MAX_HIT(was_fighting) - GET_HIT(was_fighting); + loss *= GET_LEVEL(was_fighting); + gain_exp(ch, -loss); + } + } else { + act("$n tries to flee, but can't!", TRUE, ch, 0, 0, TO_ROOM); + } + return; + } + } + send_to_char(ch, "PANIC! You couldn't escape!\r\n"); +} + + +ACMD(do_bash) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *vict; + int percent, prob; + + one_argument(argument, arg); + + if (IS_NPC(ch) || !GET_SKILL(ch, SKILL_BASH)) { + send_to_char(ch, "You have no idea how.\r\n"); + return; + } + if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_PEACEFUL)) { + send_to_char(ch, "This room just has such a peaceful, easy feeling...\r\n"); + return; + } + if (!GET_EQ(ch, WEAR_WIELD)) { + send_to_char(ch, "You need to wield a weapon to make it a success.\r\n"); + return; + } + if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM))) { + if (FIGHTING(ch) && IN_ROOM(ch) == IN_ROOM(FIGHTING(ch))) { + vict = FIGHTING(ch); + } else { + send_to_char(ch, "Bash who?\r\n"); + return; + } + } + if (vict == ch) { + send_to_char(ch, "Aren't we funny today...\r\n"); + return; + } + percent = rand_number(1, 101); /* 101% is a complete failure */ + prob = GET_SKILL(ch, SKILL_BASH); + + if (MOB_FLAGGED(vict, MOB_NOBASH)) + percent = 101; + + if (percent > prob) { + damage(ch, vict, 0, SKILL_BASH); + GET_POS(ch) = POS_SITTING; + } else { + /* + * If we bash a player and they wimp out, they will move to the previous + * room before we set them sitting. If we try to set the victim sitting + * first to make sure they don't flee, then we can't bash them! So now + * we only set them sitting if they didn't flee. -gg 9/21/98 + */ + if (damage(ch, vict, 1, SKILL_BASH) > 0) { /* -1 = dead, 0 = miss */ + WAIT_STATE(vict, PULSE_VIOLENCE); + if (IN_ROOM(ch) == IN_ROOM(vict)) + GET_POS(vict) = POS_SITTING; + } + } + WAIT_STATE(ch, PULSE_VIOLENCE * 2); +} + + +ACMD(do_rescue) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *vict, *tmp_ch; + int percent, prob; + + if (IS_NPC(ch) || !GET_SKILL(ch, SKILL_RESCUE)) { + send_to_char(ch, "You have no idea how to do that.\r\n"); + return; + } + + one_argument(argument, arg); + + if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM))) { + send_to_char(ch, "Whom do you want to rescue?\r\n"); + return; + } + if (vict == ch) { + send_to_char(ch, "What about fleeing instead?\r\n"); + return; + } + if (FIGHTING(ch) == vict) { + send_to_char(ch, "How can you rescue someone you are trying to kill?\r\n"); + return; + } + for (tmp_ch = world[IN_ROOM(ch)].people; tmp_ch && + (FIGHTING(tmp_ch) != vict); tmp_ch = tmp_ch->next_in_room); + + if (!tmp_ch) { + act("But nobody is fighting $M!", FALSE, ch, 0, vict, TO_CHAR); + return; + } + percent = rand_number(1, 101); /* 101% is a complete failure */ + prob = GET_SKILL(ch, SKILL_RESCUE); + + if (percent > prob) { + send_to_char(ch, "You fail the rescue!\r\n"); + return; + } + send_to_char(ch, "Banzai! To the rescue...\r\n"); + act("You are rescued by $N, you are confused!", FALSE, vict, 0, ch, TO_CHAR); + act("$n heroically rescues $N!", FALSE, ch, 0, vict, TO_NOTVICT); + + if (FIGHTING(vict) == tmp_ch) + stop_fighting(vict); + if (FIGHTING(tmp_ch)) + stop_fighting(tmp_ch); + if (FIGHTING(ch)) + stop_fighting(ch); + + set_fighting(ch, tmp_ch); + set_fighting(tmp_ch, ch); + + WAIT_STATE(vict, 2 * PULSE_VIOLENCE); +} + + + +ACMD(do_kick) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *vict; + int percent, prob; + + if (IS_NPC(ch) || !GET_SKILL(ch, SKILL_KICK)) { + send_to_char(ch, "You have no idea how.\r\n"); + return; + } + one_argument(argument, arg); + + if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM))) { + if (FIGHTING(ch) && IN_ROOM(ch) == IN_ROOM(FIGHTING(ch))) { + vict = FIGHTING(ch); + } else { + send_to_char(ch, "Kick who?\r\n"); + return; + } + } + if (vict == ch) { + send_to_char(ch, "Aren't we funny today...\r\n"); + return; + } + /* 101% is a complete failure */ + percent = ((10 - (compute_armor_class(vict) / 10)) * 2) + rand_number(1, 101); + prob = GET_SKILL(ch, SKILL_KICK); + + if (percent > prob) { + damage(ch, vict, 0, SKILL_KICK); + } else + damage(ch, vict, GET_LEVEL(ch) / 2, SKILL_KICK); + + WAIT_STATE(ch, PULSE_VIOLENCE * 3); +} diff --git a/src/act.other.c b/src/act.other.c new file mode 100644 index 0000000..98781a4 --- /dev/null +++ b/src/act.other.c @@ -0,0 +1,955 @@ +/* ************************************************************************ +* File: act.other.c Part of CircleMUD * +* Usage: Miscellaneous player-level commands * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define __ACT_OTHER_C__ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" +#include "screen.h" +#include "house.h" +#include "constants.h" + +/* extern variables */ +extern struct spell_info_type spell_info[]; +extern const char *class_abbrevs[]; +extern int free_rent; +extern int pt_allowed; +extern int max_filesize; +extern int nameserver_is_slow; +extern int auto_save; +extern int track_through_doors; + +/* extern procedures */ +void list_skills(struct char_data *ch); +void appear(struct char_data *ch); +void write_aliases(struct char_data *ch); +void perform_immort_vis(struct char_data *ch); +SPECIAL(shop_keeper); +ACMD(do_gen_comm); +void die(struct char_data *ch); +void Crash_rentsave(struct char_data *ch, int cost); + +/* local functions */ +ACMD(do_quit); +ACMD(do_save); +ACMD(do_not_here); +ACMD(do_sneak); +ACMD(do_hide); +ACMD(do_steal); +ACMD(do_practice); +ACMD(do_visible); +ACMD(do_title); +int perform_group(struct char_data *ch, struct char_data *vict); +void print_group(struct char_data *ch); +ACMD(do_group); +ACMD(do_ungroup); +ACMD(do_report); +ACMD(do_split); +ACMD(do_use); +ACMD(do_wimpy); +ACMD(do_display); +ACMD(do_gen_write); +ACMD(do_gen_tog); + + +ACMD(do_quit) +{ + if (IS_NPC(ch) || !ch->desc) + return; + + if (subcmd != SCMD_QUIT && GET_LEVEL(ch) < LVL_IMMORT) + send_to_char(ch, "You have to type quit--no less, to quit!\r\n"); + else if (GET_POS(ch) == POS_FIGHTING) + send_to_char(ch, "No way! You're fighting for your life!\r\n"); + else if (GET_POS(ch) < POS_STUNNED) { + send_to_char(ch, "You die before your time...\r\n"); + die(ch); + } else { + act("$n has left the game.", TRUE, ch, 0, 0, TO_ROOM); + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s has quit the game.", GET_NAME(ch)); + send_to_char(ch, "Goodbye, friend.. Come back soon!\r\n"); + + /* We used to check here for duping attempts, but we may as well + * do it right in extract_char(), since there is no check if a + * player rents out and it can leave them in an equally screwy + * situation. + */ + + if (free_rent) + Crash_rentsave(ch, 0); + + /* If someone is quitting in their house, let them load back here. */ + if (!PLR_FLAGGED(ch, PLR_LOADROOM) && ROOM_FLAGGED(IN_ROOM(ch), ROOM_HOUSE)) + GET_LOADROOM(ch) = GET_ROOM_VNUM(IN_ROOM(ch)); + + extract_char(ch); /* Char is saved before extracting. */ + } +} + + + +ACMD(do_save) +{ + if (IS_NPC(ch) || !ch->desc) + return; + + /* Only tell the char we're saving if they actually typed "save" */ + if (cmd) { + /* + * This prevents item duplication by two PC's using coordinated saves + * (or one PC with a house) and system crashes. Note that houses are + * still automatically saved without this enabled. This code assumes + * that guest immortals aren't trustworthy. If you've disabled guest + * immortal advances from mortality, you may want < instead of <=. + */ + if (auto_save && GET_LEVEL(ch) <= LVL_IMMORT) { + send_to_char(ch, "Saving aliases.\r\n"); + write_aliases(ch); + return; + } + send_to_char(ch, "Saving %s and aliases.\r\n", GET_NAME(ch)); + } + + write_aliases(ch); + save_char(ch); + Crash_crashsave(ch); + if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_HOUSE_CRASH)) + House_crashsave(GET_ROOM_VNUM(IN_ROOM(ch))); +} + + +/* generic function for commands which are normally overridden by + special procedures - i.e., shop commands, mail commands, etc. */ +ACMD(do_not_here) +{ + send_to_char(ch, "Sorry, but you cannot do that here!\r\n"); +} + + + +ACMD(do_sneak) +{ + struct affected_type af; + byte percent; + + if (IS_NPC(ch) || !GET_SKILL(ch, SKILL_SNEAK)) { + send_to_char(ch, "You have no idea how to do that.\r\n"); + return; + } + send_to_char(ch, "Okay, you'll try to move silently for a while.\r\n"); + if (AFF_FLAGGED(ch, AFF_SNEAK)) + affect_from_char(ch, SKILL_SNEAK); + + percent = rand_number(1, 101); /* 101% is a complete failure */ + + if (percent > GET_SKILL(ch, SKILL_SNEAK) + dex_app_skill[GET_DEX(ch)].sneak) + return; + + af.type = SKILL_SNEAK; + af.duration = GET_LEVEL(ch); + af.modifier = 0; + af.location = APPLY_NONE; + af.bitvector = AFF_SNEAK; + affect_to_char(ch, &af); +} + + + +ACMD(do_hide) +{ + byte percent; + + if (IS_NPC(ch) || !GET_SKILL(ch, SKILL_HIDE)) { + send_to_char(ch, "You have no idea how to do that.\r\n"); + return; + } + + send_to_char(ch, "You attempt to hide yourself.\r\n"); + + if (AFF_FLAGGED(ch, AFF_HIDE)) + REMOVE_BIT(AFF_FLAGS(ch), AFF_HIDE); + + percent = rand_number(1, 101); /* 101% is a complete failure */ + + if (percent > GET_SKILL(ch, SKILL_HIDE) + dex_app_skill[GET_DEX(ch)].hide) + return; + + SET_BIT(AFF_FLAGS(ch), AFF_HIDE); +} + + + + +ACMD(do_steal) +{ + struct char_data *vict; + struct obj_data *obj; + char vict_name[MAX_INPUT_LENGTH], obj_name[MAX_INPUT_LENGTH]; + int percent, gold, eq_pos, pcsteal = 0, ohoh = 0; + + if (IS_NPC(ch) || !GET_SKILL(ch, SKILL_STEAL)) { + send_to_char(ch, "You have no idea how to do that.\r\n"); + return; + } + if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_PEACEFUL)) { + send_to_char(ch, "This room just has such a peaceful, easy feeling...\r\n"); + return; + } + + two_arguments(argument, obj_name, vict_name); + + if (!(vict = get_char_vis(ch, vict_name, NULL, FIND_CHAR_ROOM))) { + send_to_char(ch, "Steal what from who?\r\n"); + return; + } else if (vict == ch) { + send_to_char(ch, "Come on now, that's rather stupid!\r\n"); + return; + } + + /* 101% is a complete failure */ + percent = rand_number(1, 101) - dex_app_skill[GET_DEX(ch)].p_pocket; + + if (GET_POS(vict) < POS_SLEEPING) + percent = -1; /* ALWAYS SUCCESS, unless heavy object. */ + + if (!pt_allowed && !IS_NPC(vict)) + pcsteal = 1; + + if (!AWAKE(vict)) /* Easier to steal from sleeping people. */ + percent -= 50; + + /* NO NO With Imp's and Shopkeepers, and if player thieving is not allowed */ + if (GET_LEVEL(vict) >= LVL_IMMORT || pcsteal || + GET_MOB_SPEC(vict) == shop_keeper) + percent = 101; /* Failure */ + + if (str_cmp(obj_name, "coins") && str_cmp(obj_name, "gold")) { + + if (!(obj = get_obj_in_list_vis(ch, obj_name, NULL, vict->carrying))) { + + for (eq_pos = 0; eq_pos < NUM_WEARS; eq_pos++) + if (GET_EQ(vict, eq_pos) && + (isname(obj_name, GET_EQ(vict, eq_pos)->name)) && + CAN_SEE_OBJ(ch, GET_EQ(vict, eq_pos))) { + obj = GET_EQ(vict, eq_pos); + break; + } + if (!obj) { + act("$E hasn't got that item.", FALSE, ch, 0, vict, TO_CHAR); + return; + } else { /* It is equipment */ + if ((GET_POS(vict) > POS_STUNNED)) { + send_to_char(ch, "Steal the equipment now? Impossible!\r\n"); + return; + } else { + act("You unequip $p and steal it.", FALSE, ch, obj, 0, TO_CHAR); + act("$n steals $p from $N.", FALSE, ch, obj, vict, TO_NOTVICT); + obj_to_char(unequip_char(vict, eq_pos), ch); + } + } + } else { /* obj found in inventory */ + + percent += GET_OBJ_WEIGHT(obj); /* Make heavy harder */ + + if (percent > GET_SKILL(ch, SKILL_STEAL)) { + ohoh = TRUE; + send_to_char(ch, "Oops..\r\n"); + act("$n tried to steal something from you!", FALSE, ch, 0, vict, TO_VICT); + act("$n tries to steal something from $N.", TRUE, ch, 0, vict, TO_NOTVICT); + } else { /* Steal the item */ + if (IS_CARRYING_N(ch) + 1 < CAN_CARRY_N(ch)) { + if (IS_CARRYING_W(ch) + GET_OBJ_WEIGHT(obj) < CAN_CARRY_W(ch)) { + obj_from_char(obj); + obj_to_char(obj, ch); + send_to_char(ch, "Got it!\r\n"); + } + } else + send_to_char(ch, "You cannot carry that much.\r\n"); + } + } + } else { /* Steal some coins */ + if (AWAKE(vict) && (percent > GET_SKILL(ch, SKILL_STEAL))) { + ohoh = TRUE; + send_to_char(ch, "Oops..\r\n"); + act("You discover that $n has $s hands in your wallet.", FALSE, ch, 0, vict, TO_VICT); + act("$n tries to steal gold from $N.", TRUE, ch, 0, vict, TO_NOTVICT); + } else { + /* Steal some gold coins */ + gold = (GET_GOLD(vict) * rand_number(1, 10)) / 100; + gold = MIN(1782, gold); + if (gold > 0) { + GET_GOLD(ch) += gold; + GET_GOLD(vict) -= gold; + if (gold > 1) + send_to_char(ch, "Bingo! You got %d gold coins.\r\n", gold); + else + send_to_char(ch, "You manage to swipe a solitary gold coin.\r\n"); + } else { + send_to_char(ch, "You couldn't get any gold...\r\n"); + } + } + } + + if (ohoh && IS_NPC(vict) && AWAKE(vict)) + hit(vict, ch, TYPE_UNDEFINED); +} + + + +ACMD(do_practice) +{ + char arg[MAX_INPUT_LENGTH]; + + if (IS_NPC(ch)) + return; + + one_argument(argument, arg); + + if (*arg) + send_to_char(ch, "You can only practice skills in your guild.\r\n"); + else + list_skills(ch); +} + + + +ACMD(do_visible) +{ + if (GET_LEVEL(ch) >= LVL_IMMORT) { + perform_immort_vis(ch); + return; + } + + if AFF_FLAGGED(ch, AFF_INVISIBLE) { + appear(ch); + send_to_char(ch, "You break the spell of invisibility.\r\n"); + } else + send_to_char(ch, "You are already visible.\r\n"); +} + + + +ACMD(do_title) +{ + skip_spaces(&argument); + delete_doubledollar(argument); + + if (IS_NPC(ch)) + send_to_char(ch, "Your title is fine... go away.\r\n"); + else if (PLR_FLAGGED(ch, PLR_NOTITLE)) + send_to_char(ch, "You can't title yourself -- you shouldn't have abused it!\r\n"); + else if (strstr(argument, "(") || strstr(argument, ")")) + send_to_char(ch, "Titles can't contain the ( or ) characters.\r\n"); + else if (strlen(argument) > MAX_TITLE_LENGTH) + send_to_char(ch, "Sorry, titles can't be longer than %d characters.\r\n", MAX_TITLE_LENGTH); + else { + set_title(ch, argument); + send_to_char(ch, "Okay, you're now %s %s.\r\n", GET_NAME(ch), GET_TITLE(ch)); + } +} + + +int perform_group(struct char_data *ch, struct char_data *vict) +{ + if (AFF_FLAGGED(vict, AFF_GROUP) || !CAN_SEE(ch, vict)) + return (0); + + SET_BIT(AFF_FLAGS(vict), AFF_GROUP); + if (ch != vict) + act("$N is now a member of your group.", FALSE, ch, 0, vict, TO_CHAR); + act("You are now a member of $n's group.", FALSE, ch, 0, vict, TO_VICT); + act("$N is now a member of $n's group.", FALSE, ch, 0, vict, TO_NOTVICT); + return (1); +} + + +void print_group(struct char_data *ch) +{ + struct char_data *k; + struct follow_type *f; + + if (!AFF_FLAGGED(ch, AFF_GROUP)) + send_to_char(ch, "But you are not the member of a group!\r\n"); + else { + char buf[MAX_STRING_LENGTH]; + + send_to_char(ch, "Your group consists of:\r\n"); + + k = (ch->master ? ch->master : ch); + + if (AFF_FLAGGED(k, AFF_GROUP)) { + snprintf(buf, sizeof(buf), " [%3dH %3dM %3dV] [%2d %s] $N (Head of group)", + GET_HIT(k), GET_MANA(k), GET_MOVE(k), GET_LEVEL(k), CLASS_ABBR(k)); + act(buf, FALSE, ch, 0, k, TO_CHAR); + } + + for (f = k->followers; f; f = f->next) { + if (!AFF_FLAGGED(f->follower, AFF_GROUP)) + continue; + + snprintf(buf, sizeof(buf), " [%3dH %3dM %3dV] [%2d %s] $N", GET_HIT(f->follower), + GET_MANA(f->follower), GET_MOVE(f->follower), + GET_LEVEL(f->follower), CLASS_ABBR(f->follower)); + act(buf, FALSE, ch, 0, f->follower, TO_CHAR); + } + } +} + + + +ACMD(do_group) +{ + char buf[MAX_STRING_LENGTH]; + struct char_data *vict; + struct follow_type *f; + int found; + + one_argument(argument, buf); + + if (!*buf) { + print_group(ch); + return; + } + + if (ch->master) { + act("You can not enroll group members without being head of a group.", + FALSE, ch, 0, 0, TO_CHAR); + return; + } + + if (!str_cmp(buf, "all")) { + perform_group(ch, ch); + for (found = 0, f = ch->followers; f; f = f->next) + found += perform_group(ch, f->follower); + if (!found) + send_to_char(ch, "Everyone following you is already in your group.\r\n"); + return; + } + + if (!(vict = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "%s", NOPERSON); + else if ((vict->master != ch) && (vict != ch)) + act("$N must follow you to enter your group.", FALSE, ch, 0, vict, TO_CHAR); + else { + if (!AFF_FLAGGED(vict, AFF_GROUP)) + perform_group(ch, vict); + else { + if (ch != vict) + act("$N is no longer a member of your group.", FALSE, ch, 0, vict, TO_CHAR); + act("You have been kicked out of $n's group!", FALSE, ch, 0, vict, TO_VICT); + act("$N has been kicked out of $n's group!", FALSE, ch, 0, vict, TO_NOTVICT); + REMOVE_BIT(AFF_FLAGS(vict), AFF_GROUP); + } + } +} + + + +ACMD(do_ungroup) +{ + char buf[MAX_INPUT_LENGTH]; + struct follow_type *f, *next_fol; + struct char_data *tch; + + one_argument(argument, buf); + + if (!*buf) { + if (ch->master || !(AFF_FLAGGED(ch, AFF_GROUP))) { + send_to_char(ch, "But you lead no group!\r\n"); + return; + } + + for (f = ch->followers; f; f = next_fol) { + next_fol = f->next; + if (AFF_FLAGGED(f->follower, AFF_GROUP)) { + REMOVE_BIT(AFF_FLAGS(f->follower), AFF_GROUP); + act("$N has disbanded the group.", TRUE, f->follower, NULL, ch, TO_CHAR); + if (!AFF_FLAGGED(f->follower, AFF_CHARM)) + stop_follower(f->follower); + } + } + + REMOVE_BIT(AFF_FLAGS(ch), AFF_GROUP); + send_to_char(ch, "You disband the group.\r\n"); + return; + } + if (!(tch = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM))) { + send_to_char(ch, "There is no such person!\r\n"); + return; + } + if (tch->master != ch) { + send_to_char(ch, "That person is not following you!\r\n"); + return; + } + + if (!AFF_FLAGGED(tch, AFF_GROUP)) { + send_to_char(ch, "That person isn't in your group.\r\n"); + return; + } + + REMOVE_BIT(AFF_FLAGS(tch), AFF_GROUP); + + act("$N is no longer a member of your group.", FALSE, ch, 0, tch, TO_CHAR); + act("You have been kicked out of $n's group!", FALSE, ch, 0, tch, TO_VICT); + act("$N has been kicked out of $n's group!", FALSE, ch, 0, tch, TO_NOTVICT); + + if (!AFF_FLAGGED(tch, AFF_CHARM)) + stop_follower(tch); +} + + + + +ACMD(do_report) +{ + char buf[MAX_STRING_LENGTH]; + struct char_data *k; + struct follow_type *f; + + if (!AFF_FLAGGED(ch, AFF_GROUP)) { + send_to_char(ch, "But you are not a member of any group!\r\n"); + return; + } + + snprintf(buf, sizeof(buf), "$n reports: %d/%dH, %d/%dM, %d/%dV\r\n", + GET_HIT(ch), GET_MAX_HIT(ch), + GET_MANA(ch), GET_MAX_MANA(ch), + GET_MOVE(ch), GET_MAX_MOVE(ch)); + + k = (ch->master ? ch->master : ch); + + for (f = k->followers; f; f = f->next) + if (AFF_FLAGGED(f->follower, AFF_GROUP) && f->follower != ch) + act(buf, TRUE, ch, NULL, f->follower, TO_VICT); + + if (k != ch) + act(buf, TRUE, ch, NULL, k, TO_VICT); + + send_to_char(ch, "You report to the group.\r\n"); +} + + + +ACMD(do_split) +{ + char buf[MAX_INPUT_LENGTH]; + int amount, num, share, rest; + size_t len; + struct char_data *k; + struct follow_type *f; + + if (IS_NPC(ch)) + return; + + one_argument(argument, buf); + + if (is_number(buf)) { + amount = atoi(buf); + if (amount <= 0) { + send_to_char(ch, "Sorry, you can't do that.\r\n"); + return; + } + if (amount > GET_GOLD(ch)) { + send_to_char(ch, "You don't seem to have that much gold to split.\r\n"); + return; + } + k = (ch->master ? ch->master : ch); + + if (AFF_FLAGGED(k, AFF_GROUP) && (IN_ROOM(k) == IN_ROOM(ch))) + num = 1; + else + num = 0; + + for (f = k->followers; f; f = f->next) + if (AFF_FLAGGED(f->follower, AFF_GROUP) && + (!IS_NPC(f->follower)) && + (IN_ROOM(f->follower) == IN_ROOM(ch))) + num++; + + if (num && AFF_FLAGGED(ch, AFF_GROUP)) { + share = amount / num; + rest = amount % num; + } else { + send_to_char(ch, "With whom do you wish to share your gold?\r\n"); + return; + } + + GET_GOLD(ch) -= share * (num - 1); + + /* Abusing signed/unsigned to make sizeof work. */ + len = snprintf(buf, sizeof(buf), "%s splits %d coins; you receive %d.\r\n", + GET_NAME(ch), amount, share); + if (rest && len < sizeof(buf)) { + snprintf(buf + len, sizeof(buf) - len, + "%d coin%s %s not splitable, so %s keeps the money.\r\n", rest, + (rest == 1) ? "" : "s", (rest == 1) ? "was" : "were", GET_NAME(ch)); + } + if (AFF_FLAGGED(k, AFF_GROUP) && IN_ROOM(k) == IN_ROOM(ch) && + !IS_NPC(k) && k != ch) { + GET_GOLD(k) += share; + send_to_char(k, "%s", buf); + } + + for (f = k->followers; f; f = f->next) { + if (AFF_FLAGGED(f->follower, AFF_GROUP) && + (!IS_NPC(f->follower)) && + (IN_ROOM(f->follower) == IN_ROOM(ch)) && + f->follower != ch) { + + GET_GOLD(f->follower) += share; + send_to_char(f->follower, "%s", buf); + } + } + send_to_char(ch, "You split %d coins among %d members -- %d coins each.\r\n", + amount, num, share); + + if (rest) { + send_to_char(ch, "%d coin%s %s not splitable, so you keep the money.\r\n", + rest, (rest == 1) ? "" : "s", (rest == 1) ? "was" : "were"); + GET_GOLD(ch) += rest; + } + } else { + send_to_char(ch, "How many coins do you wish to split with your group?\r\n"); + return; + } +} + + + +ACMD(do_use) +{ + char buf[MAX_INPUT_LENGTH], arg[MAX_INPUT_LENGTH]; + struct obj_data *mag_item; + + half_chop(argument, arg, buf); + if (!*arg) { + send_to_char(ch, "What do you want to %s?\r\n", CMD_NAME); + return; + } + mag_item = GET_EQ(ch, WEAR_HOLD); + + if (!mag_item || !isname(arg, mag_item->name)) { + switch (subcmd) { + case SCMD_RECITE: + case SCMD_QUAFF: + if (!(mag_item = get_obj_in_list_vis(ch, arg, NULL, ch->carrying))) { + send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg), arg); + return; + } + break; + case SCMD_USE: + send_to_char(ch, "You don't seem to be holding %s %s.\r\n", AN(arg), arg); + return; + default: + log("SYSERR: Unknown subcmd %d passed to do_use.", subcmd); + return; + } + } + switch (subcmd) { + case SCMD_QUAFF: + if (GET_OBJ_TYPE(mag_item) != ITEM_POTION) { + send_to_char(ch, "You can only quaff potions.\r\n"); + return; + } + break; + case SCMD_RECITE: + if (GET_OBJ_TYPE(mag_item) != ITEM_SCROLL) { + send_to_char(ch, "You can only recite scrolls.\r\n"); + return; + } + break; + case SCMD_USE: + if ((GET_OBJ_TYPE(mag_item) != ITEM_WAND) && + (GET_OBJ_TYPE(mag_item) != ITEM_STAFF)) { + send_to_char(ch, "You can't seem to figure out how to use it.\r\n"); + return; + } + break; + } + + mag_objectmagic(ch, mag_item, buf); +} + + + +ACMD(do_wimpy) +{ + char arg[MAX_INPUT_LENGTH]; + int wimp_lev; + + /* 'wimp_level' is a player_special. -gg 2/25/98 */ + if (IS_NPC(ch)) + return; + + one_argument(argument, arg); + + if (!*arg) { + if (GET_WIMP_LEV(ch)) { + send_to_char(ch, "Your current wimp level is %d hit points.\r\n", GET_WIMP_LEV(ch)); + return; + } else { + send_to_char(ch, "At the moment, you're not a wimp. (sure, sure...)\r\n"); + return; + } + } + if (isdigit(*arg)) { + if ((wimp_lev = atoi(arg)) != 0) { + if (wimp_lev < 0) + send_to_char(ch, "Heh, heh, heh.. we are jolly funny today, eh?\r\n"); + else if (wimp_lev > GET_MAX_HIT(ch)) + send_to_char(ch, "That doesn't make much sense, now does it?\r\n"); + else if (wimp_lev > (GET_MAX_HIT(ch) / 2)) + send_to_char(ch, "You can't set your wimp level above half your hit points.\r\n"); + else { + send_to_char(ch, "Okay, you'll wimp out if you drop below %d hit points.\r\n", wimp_lev); + GET_WIMP_LEV(ch) = wimp_lev; + } + } else { + send_to_char(ch, "Okay, you'll now tough out fights to the bitter end.\r\n"); + GET_WIMP_LEV(ch) = 0; + } + } else + send_to_char(ch, "Specify at how many hit points you want to wimp out at. (0 to disable)\r\n"); +} + + +ACMD(do_display) +{ + size_t i; + + if (IS_NPC(ch)) { + send_to_char(ch, "Mosters don't need displays. Go away.\r\n"); + return; + } + skip_spaces(&argument); + + if (!*argument) { + send_to_char(ch, "Usage: prompt { { H | M | V } | all | auto | none }\r\n"); + return; + } + + if (!str_cmp(argument, "auto")) { + TOGGLE_BIT(PRF_FLAGS(ch), PRF_DISPAUTO); + send_to_char(ch, "Auto prompt %sabled.\r\n", PRF_FLAGGED(ch, PRF_DISPAUTO) ? "en" : "dis"); + return; + } + + if (!str_cmp(argument, "on") || !str_cmp(argument, "all")) + SET_BIT(PRF_FLAGS(ch), PRF_DISPHP | PRF_DISPMANA | PRF_DISPMOVE); + else if (!str_cmp(argument, "off") || !str_cmp(argument, "none")) + REMOVE_BIT(PRF_FLAGS(ch), PRF_DISPHP | PRF_DISPMANA | PRF_DISPMOVE); + else { + REMOVE_BIT(PRF_FLAGS(ch), PRF_DISPHP | PRF_DISPMANA | PRF_DISPMOVE); + + for (i = 0; i < strlen(argument); i++) { + switch (LOWER(argument[i])) { + case 'h': + SET_BIT(PRF_FLAGS(ch), PRF_DISPHP); + break; + case 'm': + SET_BIT(PRF_FLAGS(ch), PRF_DISPMANA); + break; + case 'v': + SET_BIT(PRF_FLAGS(ch), PRF_DISPMOVE); + break; + default: + send_to_char(ch, "Usage: prompt { { H | M | V } | all | auto | none }\r\n"); + return; + } + } + } + + send_to_char(ch, "%s", OK); +} + + + +ACMD(do_gen_write) +{ + FILE *fl; + char *tmp; + const char *filename; + struct stat fbuf; + time_t ct; + + switch (subcmd) { + case SCMD_BUG: + filename = BUG_FILE; + break; + case SCMD_TYPO: + filename = TYPO_FILE; + break; + case SCMD_IDEA: + filename = IDEA_FILE; + break; + default: + return; + } + + ct = time(0); + tmp = asctime(localtime(&ct)); + + if (IS_NPC(ch)) { + send_to_char(ch, "Monsters can't have ideas - Go away.\r\n"); + return; + } + + skip_spaces(&argument); + delete_doubledollar(argument); + + if (!*argument) { + send_to_char(ch, "That must be a mistake...\r\n"); + return; + } + mudlog(CMP, LVL_IMMORT, FALSE, "%s %s: %s", GET_NAME(ch), CMD_NAME, argument); + + if (stat(filename, &fbuf) < 0) { + perror("SYSERR: Can't stat() file"); + return; + } + if (fbuf.st_size >= max_filesize) { + send_to_char(ch, "Sorry, the file is full right now.. try again later.\r\n"); + return; + } + if (!(fl = fopen(filename, "a"))) { + perror("SYSERR: do_gen_write"); + send_to_char(ch, "Could not open the file. Sorry.\r\n"); + return; + } + fprintf(fl, "%-8s (%6.6s) [%5d] %s\n", GET_NAME(ch), (tmp + 4), + GET_ROOM_VNUM(IN_ROOM(ch)), argument); + fclose(fl); + send_to_char(ch, "Okay. Thanks!\r\n"); +} + + + +#define TOG_OFF 0 +#define TOG_ON 1 + +#define PRF_TOG_CHK(ch,flag) ((TOGGLE_BIT(PRF_FLAGS(ch), (flag))) & (flag)) + +ACMD(do_gen_tog) +{ + long /* bitvector_t */ result; + + const char *tog_messages[][2] = { + {"You are now safe from summoning by other players.\r\n", + "You may now be summoned by other players.\r\n"}, + {"Nohassle disabled.\r\n", + "Nohassle enabled.\r\n"}, + {"Brief mode off.\r\n", + "Brief mode on.\r\n"}, + {"Compact mode off.\r\n", + "Compact mode on.\r\n"}, + {"You can now hear tells.\r\n", + "You are now deaf to tells.\r\n"}, + {"You can now hear auctions.\r\n", + "You are now deaf to auctions.\r\n"}, + {"You can now hear shouts.\r\n", + "You are now deaf to shouts.\r\n"}, + {"You can now hear gossip.\r\n", + "You are now deaf to gossip.\r\n"}, + {"You can now hear the congratulation messages.\r\n", + "You are now deaf to the congratulation messages.\r\n"}, + {"You can now hear the Wiz-channel.\r\n", + "You are now deaf to the Wiz-channel.\r\n"}, + {"You are no longer part of the Quest.\r\n", + "Okay, you are part of the Quest!\r\n"}, + {"You will no longer see the room flags.\r\n", + "You will now see the room flags.\r\n"}, + {"You will now have your communication repeated.\r\n", + "You will no longer have your communication repeated.\r\n"}, + {"HolyLight mode off.\r\n", + "HolyLight mode on.\r\n"}, + {"Nameserver_is_slow changed to NO; IP addresses will now be resolved.\r\n", + "Nameserver_is_slow changed to YES; sitenames will no longer be resolved.\r\n"}, + {"Autoexits disabled.\r\n", + "Autoexits enabled.\r\n"}, + {"Will no longer track through doors.\r\n", + "Will now track through doors.\r\n"} + }; + + + if (IS_NPC(ch)) + return; + + switch (subcmd) { + case SCMD_NOSUMMON: + result = PRF_TOG_CHK(ch, PRF_SUMMONABLE); + break; + case SCMD_NOHASSLE: + result = PRF_TOG_CHK(ch, PRF_NOHASSLE); + break; + case SCMD_BRIEF: + result = PRF_TOG_CHK(ch, PRF_BRIEF); + break; + case SCMD_COMPACT: + result = PRF_TOG_CHK(ch, PRF_COMPACT); + break; + case SCMD_NOTELL: + result = PRF_TOG_CHK(ch, PRF_NOTELL); + break; + case SCMD_NOAUCTION: + result = PRF_TOG_CHK(ch, PRF_NOAUCT); + break; + case SCMD_DEAF: + result = PRF_TOG_CHK(ch, PRF_DEAF); + break; + case SCMD_NOGOSSIP: + result = PRF_TOG_CHK(ch, PRF_NOGOSS); + break; + case SCMD_NOGRATZ: + result = PRF_TOG_CHK(ch, PRF_NOGRATZ); + break; + case SCMD_NOWIZ: + result = PRF_TOG_CHK(ch, PRF_NOWIZ); + break; + case SCMD_QUEST: + result = PRF_TOG_CHK(ch, PRF_QUEST); + break; + case SCMD_ROOMFLAGS: + result = PRF_TOG_CHK(ch, PRF_ROOMFLAGS); + break; + case SCMD_NOREPEAT: + result = PRF_TOG_CHK(ch, PRF_NOREPEAT); + break; + case SCMD_HOLYLIGHT: + result = PRF_TOG_CHK(ch, PRF_HOLYLIGHT); + break; + case SCMD_SLOWNS: + result = (nameserver_is_slow = !nameserver_is_slow); + break; + case SCMD_AUTOEXIT: + result = PRF_TOG_CHK(ch, PRF_AUTOEXIT); + break; + case SCMD_TRACK: + result = (track_through_doors = !track_through_doors); + break; + default: + log("SYSERR: Unknown subcmd %d in do_gen_toggle.", subcmd); + return; + } + + if (result) + send_to_char(ch, "%s", tog_messages[subcmd][TOG_ON]); + else + send_to_char(ch, "%s", tog_messages[subcmd][TOG_OFF]); + + return; +} diff --git a/src/act.social.c b/src/act.social.c new file mode 100644 index 0000000..fd42124 --- /dev/null +++ b/src/act.social.c @@ -0,0 +1,300 @@ +/* ************************************************************************ +* File: act.social.c Part of CircleMUD * +* Usage: Functions to handle socials * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" + + +/* local globals */ +static int list_top = -1; + +/* local functions */ +char *fread_action(FILE *fl, int nr); +int find_action(int cmd); +ACMD(do_action); +ACMD(do_insult); +void boot_social_messages(void); +void free_social_messages(void); + + +struct social_messg { + int act_nr; + int hide; + int min_victim_position; /* Position of victim */ + + /* No argument was supplied */ + char *char_no_arg; + char *others_no_arg; + + /* An argument was there, and a victim was found */ + char *char_found; /* if NULL, read no further, ignore args */ + char *others_found; + char *vict_found; + + /* An argument was there, but no victim was found */ + char *not_found; + + /* The victim turned out to be the character */ + char *char_auto; + char *others_auto; +} *soc_mess_list; + + +int find_action(int cmd) +{ + int bot, top, mid; + + bot = 0; + top = list_top; + + if (top < 0) + return (-1); + + for (;;) { + mid = (bot + top) / 2; + + if (soc_mess_list[mid].act_nr == cmd) + return (mid); + if (bot >= top) + return (-1); + + if (soc_mess_list[mid].act_nr > cmd) + top = --mid; + else + bot = ++mid; + } +} + + + +ACMD(do_action) +{ + char buf[MAX_INPUT_LENGTH]; + int act_nr; + struct social_messg *action; + struct char_data *vict; + + if ((act_nr = find_action(cmd)) < 0) { + send_to_char(ch, "That action is not supported.\r\n"); + return; + } + action = &soc_mess_list[act_nr]; + + if (action->char_found && argument) + one_argument(argument, buf); + else + *buf = '\0'; + + if (!*buf) { + send_to_char(ch, "%s\r\n", action->char_no_arg); + act(action->others_no_arg, action->hide, ch, 0, 0, TO_ROOM); + return; + } + if (!(vict = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "%s\r\n", action->not_found); + else if (vict == ch) { + send_to_char(ch, "%s\r\n", action->char_auto); + act(action->others_auto, action->hide, ch, 0, 0, TO_ROOM); + } else { + if (GET_POS(vict) < action->min_victim_position) + act("$N is not in a proper position for that.", FALSE, ch, 0, vict, TO_CHAR | TO_SLEEP); + else { + act(action->char_found, 0, ch, 0, vict, TO_CHAR | TO_SLEEP); + act(action->others_found, action->hide, ch, 0, vict, TO_NOTVICT); + act(action->vict_found, action->hide, ch, 0, vict, TO_VICT); + } + } +} + + + +ACMD(do_insult) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *victim; + + one_argument(argument, arg); + + if (*arg) { + if (!(victim = get_char_vis(ch, arg, NULL, FIND_CHAR_ROOM))) + send_to_char(ch, "Can't hear you!\r\n"); + else { + if (victim != ch) { + send_to_char(ch, "You insult %s.\r\n", GET_NAME(victim)); + + switch (rand_number(0, 2)) { + case 0: + if (GET_SEX(ch) == SEX_MALE) { + if (GET_SEX(victim) == SEX_MALE) + act("$n accuses you of fighting like a woman!", FALSE, ch, 0, victim, TO_VICT); + else + act("$n says that women can't fight.", FALSE, ch, 0, victim, TO_VICT); + } else { /* Ch == Woman */ + if (GET_SEX(victim) == SEX_MALE) + act("$n accuses you of having the smallest... (brain?)", + FALSE, ch, 0, victim, TO_VICT); + else + act("$n tells you that you'd lose a beauty contest against a troll.", + FALSE, ch, 0, victim, TO_VICT); + } + break; + case 1: + act("$n calls your mother a bitch!", FALSE, ch, 0, victim, TO_VICT); + break; + default: + act("$n tells you to get lost!", FALSE, ch, 0, victim, TO_VICT); + break; + } /* end switch */ + + act("$n insults $N.", TRUE, ch, 0, victim, TO_NOTVICT); + } else { /* ch == victim */ + send_to_char(ch, "You feel insulted.\r\n"); + } + } + } else + send_to_char(ch, "I'm sure you don't want to insult *everybody*...\r\n"); +} + + +char *fread_action(FILE *fl, int nr) +{ + char buf[MAX_STRING_LENGTH]; + + fgets(buf, MAX_STRING_LENGTH, fl); + if (feof(fl)) { + log("SYSERR: fread_action: unexpected EOF near action #%d", nr); + exit(1); + } + if (*buf == '#') + return (NULL); + + buf[strlen(buf) - 1] = '\0'; + return (strdup(buf)); +} + + +void free_social_messages(void) +{ + int ac; + struct social_messg *soc; + + for (ac = 0; ac <= list_top; ac++) { + soc = &soc_mess_list[ac]; + + if (soc->char_no_arg) free(soc->char_no_arg); + if (soc->others_no_arg) free(soc->others_no_arg); + if (soc->char_found) free(soc->char_found); + if (soc->others_found) free(soc->others_found); + if (soc->vict_found) free(soc->vict_found); + if (soc->not_found) free(soc->not_found); + if (soc->char_auto) free(soc->char_auto); + if (soc->others_auto) free(soc->others_auto); + } + free(soc_mess_list); +} + + +void boot_social_messages(void) +{ + FILE *fl; + int nr, i, hide, min_pos, curr_soc = -1; + char next_soc[100]; + struct social_messg temp; + + /* open social file */ + if (!(fl = fopen(SOCMESS_FILE, "r"))) { + log("SYSERR: can't open socials file '%s': %s", SOCMESS_FILE, strerror(errno)); + exit(1); + } + /* count socials & allocate space */ + for (nr = 0; *cmd_info[nr].command != '\n'; nr++) + if (cmd_info[nr].command_pointer == do_action) + list_top++; + + CREATE(soc_mess_list, struct social_messg, list_top + 1); + + /* now read 'em */ + for (;;) { + fscanf(fl, " %s ", next_soc); + if (*next_soc == '$') + break; + if (fscanf(fl, " %d %d \n", &hide, &min_pos) != 2) { + log("SYSERR: format error in social file near social '%s'", next_soc); + exit(1); + } + if (++curr_soc > list_top) { + log("SYSERR: Ran out of slots in social array. (%d > %d)", curr_soc, list_top); + break; + } + + /* read the stuff */ + soc_mess_list[curr_soc].act_nr = nr = find_command(next_soc); + soc_mess_list[curr_soc].hide = hide; + soc_mess_list[curr_soc].min_victim_position = min_pos; + +#ifdef CIRCLE_ACORN + if (fgetc(fl) != '\n') + log("SYSERR: Acorn bug workaround failed."); +#endif + + soc_mess_list[curr_soc].char_no_arg = fread_action(fl, nr); + soc_mess_list[curr_soc].others_no_arg = fread_action(fl, nr); + soc_mess_list[curr_soc].char_found = fread_action(fl, nr); + + /* if no char_found, the rest is to be ignored */ + if (!soc_mess_list[curr_soc].char_found) + continue; + + soc_mess_list[curr_soc].others_found = fread_action(fl, nr); + soc_mess_list[curr_soc].vict_found = fread_action(fl, nr); + soc_mess_list[curr_soc].not_found = fread_action(fl, nr); + soc_mess_list[curr_soc].char_auto = fread_action(fl, nr); + soc_mess_list[curr_soc].others_auto = fread_action(fl, nr); + + /* If social not found, re-use this slot. 'curr_soc' will be reincremented. */ + if (nr < 0) { + log("SYSERR: Unknown social '%s' in social file.", next_soc); + memset(&soc_mess_list[curr_soc--], 0, sizeof(struct social_messg)); + continue; + } + + /* If the command we found isn't do_action, we didn't count it for the CREATE(). */ + if (cmd_info[nr].command_pointer != do_action) { + log("SYSERR: Social '%s' already assigned to a command.", next_soc); + memset(&soc_mess_list[curr_soc--], 0, sizeof(struct social_messg)); + } + } + + /* close file & set top */ + fclose(fl); + list_top = curr_soc; + + /* now, sort 'em */ + for (curr_soc = 0; curr_soc < list_top; curr_soc++) { + min_pos = curr_soc; + for (i = curr_soc + 1; i <= list_top; i++) + if (soc_mess_list[i].act_nr < soc_mess_list[min_pos].act_nr) + min_pos = i; + if (curr_soc != min_pos) { + temp = soc_mess_list[curr_soc]; + soc_mess_list[curr_soc] = soc_mess_list[min_pos]; + soc_mess_list[min_pos] = temp; + } + } +} diff --git a/src/act.wizard.c b/src/act.wizard.c new file mode 100644 index 0000000..01e5680 --- /dev/null +++ b/src/act.wizard.c @@ -0,0 +1,2588 @@ +/* ************************************************************************ +* File: act.wizard.c Part of CircleMUD * +* Usage: Player-level god commands and other goodies * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" +#include "house.h" +#include "screen.h" +#include "constants.h" + +/* external vars */ +extern FILE *player_fl; +extern struct attack_hit_type attack_hit_text[]; +extern char *class_abbrevs[]; +extern time_t boot_time; +extern int circle_shutdown, circle_reboot; +extern int circle_restrict; +extern int load_into_inventory; +extern int buf_switches, buf_largecount, buf_overflows; +extern int top_of_p_table; + +/* for chars */ +extern const char *pc_class_types[]; + +/* extern functions */ +int level_exp(int chclass, int level); +void show_shops(struct char_data *ch, char *value); +void hcontrol_list_houses(struct char_data *ch); +void do_start(struct char_data *ch); +void appear(struct char_data *ch); +void reset_zone(zone_rnum zone); +void roll_real_abils(struct char_data *ch); +int parse_class(char arg); +void run_autowiz(void); + +/* local functions */ +int perform_set(struct char_data *ch, struct char_data *vict, int mode, char *val_arg); +void perform_immort_invis(struct char_data *ch, int level); +ACMD(do_echo); +ACMD(do_send); +room_rnum find_target_room(struct char_data *ch, char *rawroomstr); +ACMD(do_at); +ACMD(do_goto); +ACMD(do_trans); +ACMD(do_teleport); +ACMD(do_vnum); +void do_stat_room(struct char_data *ch); +void do_stat_object(struct char_data *ch, struct obj_data *j); +void do_stat_character(struct char_data *ch, struct char_data *k); +ACMD(do_stat); +ACMD(do_shutdown); +void stop_snooping(struct char_data *ch); +ACMD(do_snoop); +ACMD(do_switch); +ACMD(do_return); +ACMD(do_load); +ACMD(do_vstat); +ACMD(do_purge); +ACMD(do_syslog); +ACMD(do_advance); +ACMD(do_restore); +void perform_immort_vis(struct char_data *ch); +ACMD(do_invis); +ACMD(do_gecho); +ACMD(do_poofset); +ACMD(do_dc); +ACMD(do_wizlock); +ACMD(do_date); +ACMD(do_last); +ACMD(do_force); +ACMD(do_wiznet); +ACMD(do_zreset); +ACMD(do_wizutil); +size_t print_zone_to_buf(char *bufptr, size_t left, zone_rnum zone); +ACMD(do_show); +ACMD(do_set); +void snoop_check(struct char_data *ch); + + +ACMD(do_echo) +{ + skip_spaces(&argument); + + if (!*argument) + send_to_char(ch, "Yes.. but what?\r\n"); + else { + char buf[MAX_INPUT_LENGTH + 4]; + + if (subcmd == SCMD_EMOTE) + snprintf(buf, sizeof(buf), "$n %s", argument); + else + strlcpy(buf, argument, sizeof(buf)); + + act(buf, FALSE, ch, 0, 0, TO_ROOM); + + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else + act(buf, FALSE, ch, 0, 0, TO_CHAR); + } +} + + +ACMD(do_send) +{ + char arg[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH]; + struct char_data *vict; + + half_chop(argument, arg, buf); + + if (!*arg) { + send_to_char(ch, "Send what to who?\r\n"); + return; + } + if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_WORLD))) { + send_to_char(ch, "%s", NOPERSON); + return; + } + send_to_char(vict, "%s\r\n", buf); + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "Sent.\r\n"); + else + send_to_char(ch, "You send '%s' to %s.\r\n", buf, GET_NAME(vict)); +} + + + +/* take a string, and return an rnum.. used for goto, at, etc. -je 4/6/93 */ +room_rnum find_target_room(struct char_data *ch, char *rawroomstr) +{ + room_rnum location = NOWHERE; + char roomstr[MAX_INPUT_LENGTH]; + + one_argument(rawroomstr, roomstr); + + if (!*roomstr) { + send_to_char(ch, "You must supply a room number or name.\r\n"); + return (NOWHERE); + } + + if (isdigit(*roomstr) && !strchr(roomstr, '.')) { + if ((location = real_room((room_vnum)atoi(roomstr))) == NOWHERE) { + send_to_char(ch, "No room exists with that number.\r\n"); + return (NOWHERE); + } + } else { + struct char_data *target_mob; + struct obj_data *target_obj; + char *mobobjstr = roomstr; + int num; + + num = get_number(&mobobjstr); + if ((target_mob = get_char_vis(ch, mobobjstr, &num, FIND_CHAR_WORLD)) != NULL) { + if ((location = IN_ROOM(target_mob)) == NOWHERE) { + send_to_char(ch, "That character is currently lost.\r\n"); + return (NOWHERE); + } + } else if ((target_obj = get_obj_vis(ch, mobobjstr, &num)) != NULL) { + if (IN_ROOM(target_obj) != NOWHERE) + location = IN_ROOM(target_obj); + else if (target_obj->carried_by && IN_ROOM(target_obj->carried_by) != NOWHERE) + location = IN_ROOM(target_obj->carried_by); + else if (target_obj->worn_by && IN_ROOM(target_obj->worn_by) != NOWHERE) + location = IN_ROOM(target_obj->worn_by); + + if (location == NOWHERE) { + send_to_char(ch, "That object is currently not in a room.\r\n"); + return (NOWHERE); + } + } + + if (location == NOWHERE) { + send_to_char(ch, "Nothing exists by that name.\r\n"); + return (NOWHERE); + } + } + + /* a location has been found -- if you're >= GRGOD, no restrictions. */ + if (GET_LEVEL(ch) >= LVL_GRGOD) + return (location); + + if (ROOM_FLAGGED(location, ROOM_GODROOM)) + send_to_char(ch, "You are not godly enough to use that room!\r\n"); + else if (ROOM_FLAGGED(location, ROOM_PRIVATE) && world[location].people && world[location].people->next_in_room) + send_to_char(ch, "There's a private conversation going on in that room.\r\n"); + else if (ROOM_FLAGGED(location, ROOM_HOUSE) && !House_can_enter(ch, GET_ROOM_VNUM(location))) + send_to_char(ch, "That's private property -- no trespassing!\r\n"); + else + return (location); + + return (NOWHERE); +} + + + +ACMD(do_at) +{ + char command[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH]; + room_rnum location, original_loc; + + half_chop(argument, buf, command); + if (!*buf) { + send_to_char(ch, "You must supply a room number or a name.\r\n"); + return; + } + + if (!*command) { + send_to_char(ch, "What do you want to do there?\r\n"); + return; + } + + if ((location = find_target_room(ch, buf)) == NOWHERE) + return; + + /* a location has been found. */ + original_loc = IN_ROOM(ch); + char_from_room(ch); + char_to_room(ch, location); + command_interpreter(ch, command); + + /* check if the char is still there */ + if (IN_ROOM(ch) == location) { + char_from_room(ch); + char_to_room(ch, original_loc); + } +} + + +ACMD(do_goto) +{ + char buf[MAX_STRING_LENGTH]; + room_rnum location; + + if ((location = find_target_room(ch, argument)) == NOWHERE) + return; + + snprintf(buf, sizeof(buf), "$n %s", POOFOUT(ch) ? POOFOUT(ch) : "disappears in a puff of smoke."); + act(buf, TRUE, ch, 0, 0, TO_ROOM); + + char_from_room(ch); + char_to_room(ch, location); + + snprintf(buf, sizeof(buf), "$n %s", POOFIN(ch) ? POOFIN(ch) : "appears with an ear-splitting bang."); + act(buf, TRUE, ch, 0, 0, TO_ROOM); + + look_at_room(ch, 0); +} + + + +ACMD(do_trans) +{ + char buf[MAX_INPUT_LENGTH]; + struct descriptor_data *i; + struct char_data *victim; + + one_argument(argument, buf); + if (!*buf) + send_to_char(ch, "Whom do you wish to transfer?\r\n"); + else if (str_cmp("all", buf)) { + if (!(victim = get_char_vis(ch, buf, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "%s", NOPERSON); + else if (victim == ch) + send_to_char(ch, "That doesn't make much sense, does it?\r\n"); + else { + if ((GET_LEVEL(ch) < GET_LEVEL(victim)) && !IS_NPC(victim)) { + send_to_char(ch, "Go transfer someone your own size.\r\n"); + return; + } + act("$n disappears in a mushroom cloud.", FALSE, victim, 0, 0, TO_ROOM); + char_from_room(victim); + char_to_room(victim, IN_ROOM(ch)); + act("$n arrives from a puff of smoke.", FALSE, victim, 0, 0, TO_ROOM); + act("$n has transferred you!", FALSE, ch, 0, victim, TO_VICT); + look_at_room(victim, 0); + } + } else { /* Trans All */ + if (GET_LEVEL(ch) < LVL_GRGOD) { + send_to_char(ch, "I think not.\r\n"); + return; + } + + for (i = descriptor_list; i; i = i->next) + if (STATE(i) == CON_PLAYING && i->character && i->character != ch) { + victim = i->character; + if (GET_LEVEL(victim) >= GET_LEVEL(ch)) + continue; + act("$n disappears in a mushroom cloud.", FALSE, victim, 0, 0, TO_ROOM); + char_from_room(victim); + char_to_room(victim, IN_ROOM(ch)); + act("$n arrives from a puff of smoke.", FALSE, victim, 0, 0, TO_ROOM); + act("$n has transferred you!", FALSE, ch, 0, victim, TO_VICT); + look_at_room(victim, 0); + } + send_to_char(ch, "%s", OK); + } +} + + + +ACMD(do_teleport) +{ + char buf[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH]; + struct char_data *victim; + room_rnum target; + + two_arguments(argument, buf, buf2); + + if (!*buf) + send_to_char(ch, "Whom do you wish to teleport?\r\n"); + else if (!(victim = get_char_vis(ch, buf, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "%s", NOPERSON); + else if (victim == ch) + send_to_char(ch, "Use 'goto' to teleport yourself.\r\n"); + else if (GET_LEVEL(victim) >= GET_LEVEL(ch)) + send_to_char(ch, "Maybe you shouldn't do that.\r\n"); + else if (!*buf2) + send_to_char(ch, "Where do you wish to send this person?\r\n"); + else if ((target = find_target_room(ch, buf2)) != NOWHERE) { + send_to_char(ch, "%s", OK); + act("$n disappears in a puff of smoke.", FALSE, victim, 0, 0, TO_ROOM); + char_from_room(victim); + char_to_room(victim, target); + act("$n arrives from a puff of smoke.", FALSE, victim, 0, 0, TO_ROOM); + act("$n has teleported you!", FALSE, ch, 0, (char *) victim, TO_VICT); + look_at_room(victim, 0); + } +} + + + +ACMD(do_vnum) +{ + char buf[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH]; + + half_chop(argument, buf, buf2); + + if (!*buf || !*buf2 || (!is_abbrev(buf, "mob") && !is_abbrev(buf, "obj"))) { + send_to_char(ch, "Usage: vnum { obj | mob } <name>\r\n"); + return; + } + if (is_abbrev(buf, "mob")) + if (!vnum_mobile(buf2, ch)) + send_to_char(ch, "No mobiles by that name.\r\n"); + + if (is_abbrev(buf, "obj")) + if (!vnum_object(buf2, ch)) + send_to_char(ch, "No objects by that name.\r\n"); +} + + + +void do_stat_room(struct char_data *ch) +{ + char buf2[MAX_STRING_LENGTH]; + struct extra_descr_data *desc; + struct room_data *rm = &world[IN_ROOM(ch)]; + int i, found, column; + struct obj_data *j; + struct char_data *k; + + send_to_char(ch, "Room name: %s%s%s\r\n", CCCYN(ch, C_NRM), rm->name, CCNRM(ch, C_NRM)); + + sprinttype(rm->sector_type, sector_types, buf2, sizeof(buf2)); + send_to_char(ch, "Zone: [%3d], VNum: [%s%5d%s], RNum: [%5d], Type: %s\r\n", + zone_table[rm->zone].number, CCGRN(ch, C_NRM), rm->number, + CCNRM(ch, C_NRM), IN_ROOM(ch), buf2); + + sprintbit(rm->room_flags, room_bits, buf2, sizeof(buf2)); + send_to_char(ch, "SpecProc: %s, Flags: %s\r\n", rm->func == NULL ? "None" : "Exists", buf2); + + send_to_char(ch, "Description:\r\n%s", rm->description ? rm->description : " None.\r\n"); + + if (rm->ex_description) { + send_to_char(ch, "Extra descs:%s", CCCYN(ch, C_NRM)); + for (desc = rm->ex_description; desc; desc = desc->next) + send_to_char(ch, " %s", desc->keyword); + send_to_char(ch, "%s\r\n", CCNRM(ch, C_NRM)); + } + + send_to_char(ch, "Chars present:%s", CCYEL(ch, C_NRM)); + column = 14; /* ^^^ strlen ^^^ */ + for (found = FALSE, k = rm->people; k; k = k->next_in_room) { + if (!CAN_SEE(ch, k)) + continue; + + column += send_to_char(ch, "%s %s(%s)", found++ ? "," : "", GET_NAME(k), + !IS_NPC(k) ? "PC" : (!IS_MOB(k) ? "NPC" : "MOB")); + if (column >= 62) { + send_to_char(ch, "%s\r\n", k->next_in_room ? "," : ""); + found = FALSE; + column = 0; + } + } + send_to_char(ch, "%s", CCNRM(ch, C_NRM)); + + if (rm->contents) { + send_to_char(ch, "Contents:%s", CCGRN(ch, C_NRM)); + column = 9; /* ^^^ strlen ^^^ */ + + for (found = 0, j = rm->contents; j; j = j->next_content) { + if (!CAN_SEE_OBJ(ch, j)) + continue; + + column += send_to_char(ch, "%s %s", found++ ? "," : "", j->short_description); + if (column >= 62) { + send_to_char(ch, "%s\r\n", j->next_content ? "," : ""); + found = FALSE; + column = 0; + } + } + send_to_char(ch, "%s", CCNRM(ch, C_NRM)); + } + + for (i = 0; i < NUM_OF_DIRS; i++) { + char buf1[128]; + + if (!rm->dir_option[i]) + continue; + + if (rm->dir_option[i]->to_room == NOWHERE) + snprintf(buf1, sizeof(buf1), " %sNONE%s", CCCYN(ch, C_NRM), CCNRM(ch, C_NRM)); + else + snprintf(buf1, sizeof(buf1), "%s%5d%s", CCCYN(ch, C_NRM), GET_ROOM_VNUM(rm->dir_option[i]->to_room), CCNRM(ch, C_NRM)); + + sprintbit(rm->dir_option[i]->exit_info, exit_bits, buf2, sizeof(buf2)); + + send_to_char(ch, "Exit %s%-5s%s: To: [%s], Key: [%5d], Keywrd: %s, Type: %s\r\n%s", + CCCYN(ch, C_NRM), dirs[i], CCNRM(ch, C_NRM), buf1, rm->dir_option[i]->key, + rm->dir_option[i]->keyword ? rm->dir_option[i]->keyword : "None", buf2, + rm->dir_option[i]->general_description ? rm->dir_option[i]->general_description : " No exit description.\r\n"); + } +} + + + +void do_stat_object(struct char_data *ch, struct obj_data *j) +{ + int i, found; + obj_vnum vnum; + struct obj_data *j2; + struct extra_descr_data *desc; + char buf[MAX_STRING_LENGTH]; + + vnum = GET_OBJ_VNUM(j); + send_to_char(ch, "Name: '%s%s%s', Aliases: %s\r\n", CCYEL(ch, C_NRM), + j->short_description ? j->short_description : "<None>", + CCNRM(ch, C_NRM), j->name); + + sprinttype(GET_OBJ_TYPE(j), item_types, buf, sizeof(buf)); + send_to_char(ch, "VNum: [%s%5d%s], RNum: [%5d], Type: %s, SpecProc: %s\r\n", + CCGRN(ch, C_NRM), vnum, CCNRM(ch, C_NRM), GET_OBJ_RNUM(j), buf, + GET_OBJ_SPEC(j) ? "Exists" : "None"); + + if (j->ex_description) { + send_to_char(ch, "Extra descs:%s", CCCYN(ch, C_NRM)); + for (desc = j->ex_description; desc; desc = desc->next) + send_to_char(ch, " %s", desc->keyword); + send_to_char(ch, "%s\r\n", CCNRM(ch, C_NRM)); + } + + sprintbit(GET_OBJ_WEAR(j), wear_bits, buf, sizeof(buf)); + send_to_char(ch, "Can be worn on: %s\r\n", buf); + + sprintbit(GET_OBJ_AFFECT(j), affected_bits, buf, sizeof(buf)); + send_to_char(ch, "Set char bits : %s\r\n", buf); + + sprintbit(GET_OBJ_EXTRA(j), extra_bits, buf, sizeof(buf)); + send_to_char(ch, "Extra flags : %s\r\n", buf); + + send_to_char(ch, "Weight: %d, Value: %d, Cost/day: %d, Timer: %d\r\n", + GET_OBJ_WEIGHT(j), GET_OBJ_COST(j), GET_OBJ_RENT(j), GET_OBJ_TIMER(j)); + + send_to_char(ch, "In room: %d (%s), ", GET_ROOM_VNUM(IN_ROOM(j)), + IN_ROOM(j) == NOWHERE ? "Nowhere" : world[IN_ROOM(j)].name); + + /* + * NOTE: In order to make it this far, we must already be able to see the + * character holding the object. Therefore, we do not need CAN_SEE(). + */ + send_to_char(ch, "In object: %s, ", j->in_obj ? j->in_obj->short_description : "None"); + send_to_char(ch, "Carried by: %s, ", j->carried_by ? GET_NAME(j->carried_by) : "Nobody"); + send_to_char(ch, "Worn by: %s\r\n", j->worn_by ? GET_NAME(j->worn_by) : "Nobody"); + + switch (GET_OBJ_TYPE(j)) { + case ITEM_LIGHT: + if (GET_OBJ_VAL(j, 2) == -1) + send_to_char(ch, "Hours left: Infinite\r\n"); + else + send_to_char(ch, "Hours left: [%d]\r\n", GET_OBJ_VAL(j, 2)); + break; + case ITEM_SCROLL: + case ITEM_POTION: + send_to_char(ch, "Spells: (Level %d) %s, %s, %s\r\n", GET_OBJ_VAL(j, 0), + skill_name(GET_OBJ_VAL(j, 1)), skill_name(GET_OBJ_VAL(j, 2)), + skill_name(GET_OBJ_VAL(j, 3))); + break; + case ITEM_WAND: + case ITEM_STAFF: + send_to_char(ch, "Spell: %s at level %d, %d (of %d) charges remaining\r\n", + skill_name(GET_OBJ_VAL(j, 3)), GET_OBJ_VAL(j, 0), + GET_OBJ_VAL(j, 2), GET_OBJ_VAL(j, 1)); + break; + case ITEM_WEAPON: + send_to_char(ch, "Todam: %dd%d, Message type: %d\r\n", + GET_OBJ_VAL(j, 1), GET_OBJ_VAL(j, 2), GET_OBJ_VAL(j, 3)); + break; + case ITEM_ARMOR: + send_to_char(ch, "AC-apply: [%d]\r\n", GET_OBJ_VAL(j, 0)); + break; + case ITEM_TRAP: + send_to_char(ch, "Spell: %d, - Hitpoints: %d\r\n", GET_OBJ_VAL(j, 0), GET_OBJ_VAL(j, 1)); + break; + case ITEM_CONTAINER: + sprintbit(GET_OBJ_VAL(j, 1), container_bits, buf, sizeof(buf)); + send_to_char(ch, "Weight capacity: %d, Lock Type: %s, Key Num: %d, Corpse: %s\r\n", + GET_OBJ_VAL(j, 0), buf, GET_OBJ_VAL(j, 2), + YESNO(GET_OBJ_VAL(j, 3))); + break; + case ITEM_DRINKCON: + case ITEM_FOUNTAIN: + sprinttype(GET_OBJ_VAL(j, 2), drinks, buf, sizeof(buf)); + send_to_char(ch, "Capacity: %d, Contains: %d, Poisoned: %s, Liquid: %s\r\n", + GET_OBJ_VAL(j, 0), GET_OBJ_VAL(j, 1), YESNO(GET_OBJ_VAL(j, 3)), buf); + break; + case ITEM_NOTE: + send_to_char(ch, "Tongue: %d\r\n", GET_OBJ_VAL(j, 0)); + break; + case ITEM_KEY: + /* Nothing */ + break; + case ITEM_FOOD: + send_to_char(ch, "Makes full: %d, Poisoned: %s\r\n", GET_OBJ_VAL(j, 0), YESNO(GET_OBJ_VAL(j, 3))); + break; + case ITEM_MONEY: + send_to_char(ch, "Coins: %d\r\n", GET_OBJ_VAL(j, 0)); + break; + default: + send_to_char(ch, "Values 0-3: [%d] [%d] [%d] [%d]\r\n", + GET_OBJ_VAL(j, 0), GET_OBJ_VAL(j, 1), + GET_OBJ_VAL(j, 2), GET_OBJ_VAL(j, 3)); + break; + } + + /* + * I deleted the "equipment status" code from here because it seemed + * more or less useless and just takes up valuable screen space. + */ + + if (j->contains) { + int column; + + send_to_char(ch, "\r\nContents:%s", CCGRN(ch, C_NRM)); + column = 9; /* ^^^ strlen ^^^ */ + + for (found = 0, j2 = j->contains; j2; j2 = j2->next_content) { + column += send_to_char(ch, "%s %s", found++ ? "," : "", j2->short_description); + if (column >= 62) { + send_to_char(ch, "%s\r\n", j2->next_content ? "," : ""); + found = FALSE; + column = 0; + } + } + send_to_char(ch, "%s", CCNRM(ch, C_NRM)); + } + + found = FALSE; + send_to_char(ch, "Affections:"); + for (i = 0; i < MAX_OBJ_AFFECT; i++) + if (j->affected[i].modifier) { + sprinttype(j->affected[i].location, apply_types, buf, sizeof(buf)); + send_to_char(ch, "%s %+d to %s", found++ ? "," : "", j->affected[i].modifier, buf); + } + if (!found) + send_to_char(ch, " None"); + + send_to_char(ch, "\r\n"); +} + + +void do_stat_character(struct char_data *ch, struct char_data *k) +{ + char buf[MAX_STRING_LENGTH]; + int i, i2, column, found = FALSE; + struct obj_data *j; + struct follow_type *fol; + struct affected_type *aff; + + sprinttype(GET_SEX(k), genders, buf, sizeof(buf)); + send_to_char(ch, "%s %s '%s' IDNum: [%5ld], In room [%5d]\r\n", + buf, (!IS_NPC(k) ? "PC" : (!IS_MOB(k) ? "NPC" : "MOB")), + GET_NAME(k), GET_IDNUM(k), GET_ROOM_VNUM(IN_ROOM(k))); + + if (IS_MOB(k)) + send_to_char(ch, "Alias: %s, VNum: [%5d], RNum: [%5d]\r\n", k->player.name, GET_MOB_VNUM(k), GET_MOB_RNUM(k)); + + send_to_char(ch, "Title: %s\r\n", k->player.title ? k->player.title : "<None>"); + + send_to_char(ch, "L-Des: %s", k->player.long_descr ? k->player.long_descr : "<None>\r\n"); + + sprinttype(k->player.chclass, IS_NPC(k) ? npc_class_types : pc_class_types, buf, sizeof(buf)); + send_to_char(ch, "%sClass: %s, Lev: [%s%2d%s], XP: [%s%7d%s], Align: [%4d]\r\n", + IS_NPC(k) ? "Monster " : "", buf, CCYEL(ch, C_NRM), GET_LEVEL(k), CCNRM(ch, C_NRM), + CCYEL(ch, C_NRM), GET_EXP(k), CCNRM(ch, C_NRM), GET_ALIGNMENT(k)); + + if (!IS_NPC(k)) { + char buf1[64], buf2[64]; + + strlcpy(buf1, asctime(localtime(&(k->player.time.birth))), sizeof(buf1)); + strlcpy(buf2, asctime(localtime(&(k->player.time.logon))), sizeof(buf2)); + buf1[10] = buf2[10] = '\0'; + + send_to_char(ch, "Created: [%s], Last Logon: [%s], Played [%dh %dm], Age [%d]\r\n", + buf1, buf2, k->player.time.played / 3600, + ((k->player.time.played % 3600) / 60), age(k)->year); + + send_to_char(ch, "Hometown: [%d], Speaks: [%d/%d/%d], (STL[%d]/per[%d]/NSTL[%d])\r\n", + k->player.hometown, GET_TALK(k, 0), GET_TALK(k, 1), GET_TALK(k, 2), + GET_PRACTICES(k), int_app[GET_INT(k)].learn, + wis_app[GET_WIS(k)].bonus); + } + send_to_char(ch, "Str: [%s%d/%d%s] Int: [%s%d%s] Wis: [%s%d%s] " + "Dex: [%s%d%s] Con: [%s%d%s] Cha: [%s%d%s]\r\n", + CCCYN(ch, C_NRM), GET_STR(k), GET_ADD(k), CCNRM(ch, C_NRM), + CCCYN(ch, C_NRM), GET_INT(k), CCNRM(ch, C_NRM), + CCCYN(ch, C_NRM), GET_WIS(k), CCNRM(ch, C_NRM), + CCCYN(ch, C_NRM), GET_DEX(k), CCNRM(ch, C_NRM), + CCCYN(ch, C_NRM), GET_CON(k), CCNRM(ch, C_NRM), + CCCYN(ch, C_NRM), GET_CHA(k), CCNRM(ch, C_NRM)); + + send_to_char(ch, "Hit p.:[%s%d/%d+%d%s] Mana p.:[%s%d/%d+%d%s] Move p.:[%s%d/%d+%d%s]\r\n", + CCGRN(ch, C_NRM), GET_HIT(k), GET_MAX_HIT(k), hit_gain(k), CCNRM(ch, C_NRM), + CCGRN(ch, C_NRM), GET_MANA(k), GET_MAX_MANA(k), mana_gain(k), CCNRM(ch, C_NRM), + CCGRN(ch, C_NRM), GET_MOVE(k), GET_MAX_MOVE(k), move_gain(k), CCNRM(ch, C_NRM)); + + send_to_char(ch, "Coins: [%9d], Bank: [%9d] (Total: %d)\r\n", + GET_GOLD(k), GET_BANK_GOLD(k), GET_GOLD(k) + GET_BANK_GOLD(k)); + + send_to_char(ch, "AC: [%d%+d/10], Hitroll: [%2d], Damroll: [%2d], Saving throws: [%d/%d/%d/%d/%d]\r\n", + GET_AC(k), dex_app[GET_DEX(k)].defensive, k->points.hitroll, + k->points.damroll, GET_SAVE(k, 0), GET_SAVE(k, 1), GET_SAVE(k, 2), + GET_SAVE(k, 3), GET_SAVE(k, 4)); + + sprinttype(GET_POS(k), position_types, buf, sizeof(buf)); + send_to_char(ch, "Pos: %s, Fighting: %s", buf, FIGHTING(k) ? GET_NAME(FIGHTING(k)) : "Nobody"); + + if (IS_NPC(k)) + send_to_char(ch, ", Attack type: %s", attack_hit_text[(int) k->mob_specials.attack_type].singular); + + if (k->desc) { + sprinttype(STATE(k->desc), connected_types, buf, sizeof(buf)); + send_to_char(ch, ", Connected: %s", buf); + } + + if (IS_NPC(k)) { + sprinttype(k->mob_specials.default_pos, position_types, buf, sizeof(buf)); + send_to_char(ch, ", Default position: %s\r\n", buf); + sprintbit(MOB_FLAGS(k), action_bits, buf, sizeof(buf)); + send_to_char(ch, "NPC flags: %s%s%s\r\n", CCCYN(ch, C_NRM), buf, CCNRM(ch, C_NRM)); + } else { + send_to_char(ch, ", Idle Timer (in tics) [%d]\r\n", k->char_specials.timer); + + sprintbit(PLR_FLAGS(k), player_bits, buf, sizeof(buf)); + send_to_char(ch, "PLR: %s%s%s\r\n", CCCYN(ch, C_NRM), buf, CCNRM(ch, C_NRM)); + + sprintbit(PRF_FLAGS(k), preference_bits, buf, sizeof(buf)); + send_to_char(ch, "PRF: %s%s%s\r\n", CCGRN(ch, C_NRM), buf, CCNRM(ch, C_NRM)); + } + + if (IS_MOB(k)) + send_to_char(ch, "Mob Spec-Proc: %s, NPC Bare Hand Dam: %dd%d\r\n", + (mob_index[GET_MOB_RNUM(k)].func ? "Exists" : "None"), + k->mob_specials.damnodice, k->mob_specials.damsizedice); + + for (i = 0, j = k->carrying; j; j = j->next_content, i++); + send_to_char(ch, "Carried: weight: %d, items: %d; Items in: inventory: %d, ", IS_CARRYING_W(k), IS_CARRYING_N(k), i); + + for (i = 0, i2 = 0; i < NUM_WEARS; i++) + if (GET_EQ(k, i)) + i2++; + send_to_char(ch, "eq: %d\r\n", i2); + + if (!IS_NPC(k)) + send_to_char(ch, "Hunger: %d, Thirst: %d, Drunk: %d\r\n", GET_COND(k, FULL), GET_COND(k, THIRST), GET_COND(k, DRUNK)); + + column = send_to_char(ch, "Master is: %s, Followers are:", k->master ? GET_NAME(k->master) : "<none>"); + if (!k->followers) + send_to_char(ch, " <none>\r\n"); + else { + for (fol = k->followers; fol; fol = fol->next) { + column += send_to_char(ch, "%s %s", found++ ? "," : "", PERS(fol->follower, ch)); + if (column >= 62) { + send_to_char(ch, "%s\r\n", fol->next ? "," : ""); + found = FALSE; + column = 0; + } + } + if (column != 0) + send_to_char(ch, "\r\n"); + } + + /* Showing the bitvector */ + sprintbit(AFF_FLAGS(k), affected_bits, buf, sizeof(buf)); + send_to_char(ch, "AFF: %s%s%s\r\n", CCYEL(ch, C_NRM), buf, CCNRM(ch, C_NRM)); + + /* Routine to show what spells a char is affected by */ + if (k->affected) { + for (aff = k->affected; aff; aff = aff->next) { + send_to_char(ch, "SPL: (%3dhr) %s%-21s%s ", aff->duration + 1, CCCYN(ch, C_NRM), skill_name(aff->type), CCNRM(ch, C_NRM)); + + if (aff->modifier) + send_to_char(ch, "%+d to %s", aff->modifier, apply_types[(int) aff->location]); + + if (aff->bitvector) { + if (aff->modifier) + send_to_char(ch, ", "); + + sprintbit(aff->bitvector, affected_bits, buf, sizeof(buf)); + send_to_char(ch, "sets %s", buf); + } + send_to_char(ch, "\r\n"); + } + } +} + + +ACMD(do_stat) +{ + char buf1[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH]; + struct char_data *victim; + struct obj_data *object; + struct char_file_u tmp_store; + + half_chop(argument, buf1, buf2); + + if (!*buf1) { + send_to_char(ch, "Stats on who or what?\r\n"); + return; + } else if (is_abbrev(buf1, "room")) { + do_stat_room(ch); + } else if (is_abbrev(buf1, "mob")) { + if (!*buf2) + send_to_char(ch, "Stats on which mobile?\r\n"); + else { + if ((victim = get_char_vis(ch, buf2, NULL, FIND_CHAR_WORLD)) != NULL) + do_stat_character(ch, victim); + else + send_to_char(ch, "No such mobile around.\r\n"); + } + } else if (is_abbrev(buf1, "player")) { + if (!*buf2) { + send_to_char(ch, "Stats on which player?\r\n"); + } else { + if ((victim = get_player_vis(ch, buf2, NULL, FIND_CHAR_WORLD)) != NULL) + do_stat_character(ch, victim); + else + send_to_char(ch, "No such player around.\r\n"); + } + } else if (is_abbrev(buf1, "file")) { + if (!*buf2) + send_to_char(ch, "Stats on which player?\r\n"); + else if ((victim = get_player_vis(ch, buf2, NULL, FIND_CHAR_WORLD)) != NULL) + do_stat_character(ch, victim); + else { + CREATE(victim, struct char_data, 1); + clear_char(victim); + if (load_char(buf2, &tmp_store) >= 0) { + store_to_char(&tmp_store, victim); + victim->player.time.logon = tmp_store.last_logon; + char_to_room(victim, 0); + if (GET_LEVEL(victim) > GET_LEVEL(ch)) + send_to_char(ch, "Sorry, you can't do that.\r\n"); + else + do_stat_character(ch, victim); + extract_char_final(victim); + } else { + send_to_char(ch, "There is no such player.\r\n"); + free(victim); + } + } + } else if (is_abbrev(buf1, "object")) { + if (!*buf2) + send_to_char(ch, "Stats on which object?\r\n"); + else { + if ((object = get_obj_vis(ch, buf2, NULL)) != NULL) + do_stat_object(ch, object); + else + send_to_char(ch, "No such object around.\r\n"); + } + } else { + char *name = buf1; + int number = get_number(&name); + + if ((object = get_obj_in_equip_vis(ch, name, &number, ch->equipment)) != NULL) + do_stat_object(ch, object); + else if ((object = get_obj_in_list_vis(ch, name, &number, ch->carrying)) != NULL) + do_stat_object(ch, object); + else if ((victim = get_char_vis(ch, name, &number, FIND_CHAR_ROOM)) != NULL) + do_stat_character(ch, victim); + else if ((object = get_obj_in_list_vis(ch, name, &number, world[IN_ROOM(ch)].contents)) != NULL) + do_stat_object(ch, object); + else if ((victim = get_char_vis(ch, name, &number, FIND_CHAR_WORLD)) != NULL) + do_stat_character(ch, victim); + else if ((object = get_obj_vis(ch, name, &number)) != NULL) + do_stat_object(ch, object); + else + send_to_char(ch, "Nothing around by that name.\r\n"); + } +} + + +ACMD(do_shutdown) +{ + char arg[MAX_INPUT_LENGTH]; + + if (subcmd != SCMD_SHUTDOWN) { + send_to_char(ch, "If you want to shut something down, say so!\r\n"); + return; + } + one_argument(argument, arg); + + if (!*arg) { + log("(GC) Shutdown by %s.", GET_NAME(ch)); + send_to_all("Shutting down.\r\n"); + circle_shutdown = 1; + } else if (!str_cmp(arg, "reboot")) { + log("(GC) Reboot by %s.", GET_NAME(ch)); + send_to_all("Rebooting.. come back in a minute or two.\r\n"); + touch(FASTBOOT_FILE); + circle_shutdown = circle_reboot = 1; + } else if (!str_cmp(arg, "die")) { + log("(GC) Shutdown by %s.", GET_NAME(ch)); + send_to_all("Shutting down for maintenance.\r\n"); + touch(KILLSCRIPT_FILE); + circle_shutdown = 1; + } else if (!str_cmp(arg, "pause")) { + log("(GC) Shutdown by %s.", GET_NAME(ch)); + send_to_all("Shutting down for maintenance.\r\n"); + touch(PAUSE_FILE); + circle_shutdown = 1; + } else + send_to_char(ch, "Unknown shutdown option.\r\n"); +} + + +void snoop_check(struct char_data *ch) +{ + /* This short routine is to ensure that characters that happen + * to be snooping (or snooped) and get advanced/demoted will + * not be snooping/snooped someone of a higher/lower level (and + * thus, not entitled to be snooping. + */ + if (!ch || !ch->desc) + return; + if (ch->desc->snooping && + (GET_LEVEL(ch->desc->snooping->character) >= GET_LEVEL(ch))) { + ch->desc->snooping->snoop_by = NULL; + ch->desc->snooping = NULL; + } + + if (ch->desc->snoop_by && + (GET_LEVEL(ch) >= GET_LEVEL(ch->desc->snoop_by->character))) { + ch->desc->snoop_by->snooping = NULL; + ch->desc->snoop_by = NULL; + } +} + +void stop_snooping(struct char_data *ch) +{ + if (!ch->desc->snooping) + send_to_char(ch, "You aren't snooping anyone.\r\n"); + else { + send_to_char(ch, "You stop snooping.\r\n"); + ch->desc->snooping->snoop_by = NULL; + ch->desc->snooping = NULL; + } +} + + +ACMD(do_snoop) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *victim, *tch; + + if (!ch->desc) + return; + + one_argument(argument, arg); + + if (!*arg) + stop_snooping(ch); + else if (!(victim = get_char_vis(ch, arg, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "No such person around.\r\n"); + else if (!victim->desc) + send_to_char(ch, "There's no link.. nothing to snoop.\r\n"); + else if (victim == ch) + stop_snooping(ch); + else if (victim->desc->snoop_by) + send_to_char(ch, "Busy already. \r\n"); + else if (victim->desc->snooping == ch->desc) + send_to_char(ch, "Don't be stupid.\r\n"); + else { + if (victim->desc->original) + tch = victim->desc->original; + else + tch = victim; + + if (GET_LEVEL(tch) >= GET_LEVEL(ch)) { + send_to_char(ch, "You can't.\r\n"); + return; + } + send_to_char(ch, "%s", OK); + + if (ch->desc->snooping) + ch->desc->snooping->snoop_by = NULL; + + ch->desc->snooping = victim->desc; + victim->desc->snoop_by = ch->desc; + } +} + + + +ACMD(do_switch) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *victim; + + one_argument(argument, arg); + + if (ch->desc->original) + send_to_char(ch, "You're already switched.\r\n"); + else if (!*arg) + send_to_char(ch, "Switch with who?\r\n"); + else if (!(victim = get_char_vis(ch, arg, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "No such character.\r\n"); + else if (ch == victim) + send_to_char(ch, "Hee hee... we are jolly funny today, eh?\r\n"); + else if (victim->desc) + send_to_char(ch, "You can't do that, the body is already in use!\r\n"); + else if ((GET_LEVEL(ch) < LVL_IMPL) && !IS_NPC(victim)) + send_to_char(ch, "You aren't holy enough to use a mortal's body.\r\n"); + else if (GET_LEVEL(ch) < LVL_GRGOD && ROOM_FLAGGED(IN_ROOM(victim), ROOM_GODROOM)) + send_to_char(ch, "You are not godly enough to use that room!\r\n"); + else if (GET_LEVEL(ch) < LVL_GRGOD && ROOM_FLAGGED(IN_ROOM(victim), ROOM_HOUSE) + && !House_can_enter(ch, GET_ROOM_VNUM(IN_ROOM(victim)))) + send_to_char(ch, "That's private property -- no trespassing!\r\n"); + else { + send_to_char(ch, "%s", OK); + + ch->desc->character = victim; + ch->desc->original = ch; + + victim->desc = ch->desc; + ch->desc = NULL; + } +} + + +ACMD(do_return) +{ + if (ch->desc && ch->desc->original) { + send_to_char(ch, "You return to your original body.\r\n"); + + /* + * If someone switched into your original body, disconnect them. + * - JE 2/22/95 + * + * Zmey: here we put someone switched in our body to disconnect state + * but we must also NULL his pointer to our character, otherwise + * close_socket() will damage our character's pointer to our descriptor + * (which is assigned below in this function). 12/17/99 + */ + if (ch->desc->original->desc) { + ch->desc->original->desc->character = NULL; + STATE(ch->desc->original->desc) = CON_DISCONNECT; + } + + /* Now our descriptor points to our original body. */ + ch->desc->character = ch->desc->original; + ch->desc->original = NULL; + + /* And our body's pointer to descriptor now points to our descriptor. */ + ch->desc->character->desc = ch->desc; + ch->desc = NULL; + } +} + + + +ACMD(do_load) +{ + char buf[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH]; + + two_arguments(argument, buf, buf2); + + if (!*buf || !*buf2 || !isdigit(*buf2)) { + send_to_char(ch, "Usage: load { obj | mob } <number>\r\n"); + return; + } + if (!is_number(buf2)) { + send_to_char(ch, "That is not a number.\r\n"); + return; + } + + if (is_abbrev(buf, "mob")) { + struct char_data *mob; + mob_rnum r_num; + + if ((r_num = real_mobile(atoi(buf2))) == NOBODY) { + send_to_char(ch, "There is no monster with that number.\r\n"); + return; + } + mob = read_mobile(r_num, REAL); + char_to_room(mob, IN_ROOM(ch)); + + act("$n makes a quaint, magical gesture with one hand.", TRUE, ch, + 0, 0, TO_ROOM); + act("$n has created $N!", FALSE, ch, 0, mob, TO_ROOM); + act("You create $N.", FALSE, ch, 0, mob, TO_CHAR); + } else if (is_abbrev(buf, "obj")) { + struct obj_data *obj; + obj_rnum r_num; + + if ((r_num = real_object(atoi(buf2))) == NOTHING) { + send_to_char(ch, "There is no object with that number.\r\n"); + return; + } + obj = read_object(r_num, REAL); + if (load_into_inventory) + obj_to_char(obj, ch); + else + obj_to_room(obj, IN_ROOM(ch)); + act("$n makes a strange magical gesture.", TRUE, ch, 0, 0, TO_ROOM); + act("$n has created $p!", FALSE, ch, obj, 0, TO_ROOM); + act("You create $p.", FALSE, ch, obj, 0, TO_CHAR); + } else + send_to_char(ch, "That'll have to be either 'obj' or 'mob'.\r\n"); +} + + + +ACMD(do_vstat) +{ + char buf[MAX_INPUT_LENGTH], buf2[MAX_INPUT_LENGTH]; + + two_arguments(argument, buf, buf2); + + if (!*buf || !*buf2 || !isdigit(*buf2)) { + send_to_char(ch, "Usage: vstat { obj | mob } <number>\r\n"); + return; + } + if (!is_number(buf2)) { + send_to_char(ch, "That's not a valid number.\r\n"); + return; + } + + if (is_abbrev(buf, "mob")) { + struct char_data *mob; + mob_rnum r_num; + + if ((r_num = real_mobile(atoi(buf2))) == NOBODY) { + send_to_char(ch, "There is no monster with that number.\r\n"); + return; + } + mob = read_mobile(r_num, REAL); + char_to_room(mob, 0); + do_stat_character(ch, mob); + extract_char(mob); + } else if (is_abbrev(buf, "obj")) { + struct obj_data *obj; + obj_rnum r_num; + + if ((r_num = real_object(atoi(buf2))) == NOTHING) { + send_to_char(ch, "There is no object with that number.\r\n"); + return; + } + obj = read_object(r_num, REAL); + do_stat_object(ch, obj); + extract_obj(obj); + } else + send_to_char(ch, "That'll have to be either 'obj' or 'mob'.\r\n"); +} + + + + +/* clean a room of all mobiles and objects */ +ACMD(do_purge) +{ + char buf[MAX_INPUT_LENGTH]; + struct char_data *vict; + struct obj_data *obj; + + one_argument(argument, buf); + + /* argument supplied. destroy single object or char */ + if (*buf) { + if ((vict = get_char_vis(ch, buf, NULL, FIND_CHAR_ROOM)) != NULL) { + if (!IS_NPC(vict) && (GET_LEVEL(ch) <= GET_LEVEL(vict))) { + send_to_char(ch, "Fuuuuuuuuu!\r\n"); + return; + } + act("$n disintegrates $N.", FALSE, ch, 0, vict, TO_NOTVICT); + + if (!IS_NPC(vict)) { + mudlog(BRF, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s has purged %s.", GET_NAME(ch), GET_NAME(vict)); + if (vict->desc) { + STATE(vict->desc) = CON_CLOSE; + vict->desc->character = NULL; + vict->desc = NULL; + } + } + extract_char(vict); + } else if ((obj = get_obj_in_list_vis(ch, buf, NULL, world[IN_ROOM(ch)].contents)) != NULL) { + act("$n destroys $p.", FALSE, ch, obj, 0, TO_ROOM); + extract_obj(obj); + } else { + send_to_char(ch, "Nothing here by that name.\r\n"); + return; + } + + send_to_char(ch, "%s", OK); + } else { /* no argument. clean out the room */ + int i; + + act("$n gestures... You are surrounded by scorching flames!", + FALSE, ch, 0, 0, TO_ROOM); + send_to_room(IN_ROOM(ch), "The world seems a little cleaner.\r\n"); + + for (vict = world[IN_ROOM(ch)].people; vict; vict = vict->next_in_room) { + if (!IS_NPC(vict)) + continue; + + /* Dump inventory. */ + while (vict->carrying) + extract_obj(vict->carrying); + + /* Dump equipment. */ + for (i = 0; i < NUM_WEARS; i++) + if (GET_EQ(vict, i)) + extract_obj(GET_EQ(vict, i)); + + /* Dump character. */ + extract_char(vict); + } + + /* Clear the ground. */ + while (world[IN_ROOM(ch)].contents) + extract_obj(world[IN_ROOM(ch)].contents); + } +} + + + +const char *logtypes[] = { + "off", "brief", "normal", "complete", "\n" +}; + +ACMD(do_syslog) +{ + char arg[MAX_INPUT_LENGTH]; + int tp; + + one_argument(argument, arg); + if (!*arg) { + send_to_char(ch, "Your syslog is currently %s.\r\n", + logtypes[(PRF_FLAGGED(ch, PRF_LOG1) ? 1 : 0) + (PRF_FLAGGED(ch, PRF_LOG2) ? 2 : 0)]); + return; + } + if (((tp = search_block(arg, logtypes, FALSE)) == -1)) { + send_to_char(ch, "Usage: syslog { Off | Brief | Normal | Complete }\r\n"); + return; + } + REMOVE_BIT(PRF_FLAGS(ch), PRF_LOG1 | PRF_LOG2); + SET_BIT(PRF_FLAGS(ch), (PRF_LOG1 * (tp & 1)) | (PRF_LOG2 * (tp & 2) >> 1)); + + send_to_char(ch, "Your syslog is now %s.\r\n", logtypes[tp]); +} + + + +ACMD(do_advance) +{ + struct char_data *victim; + char name[MAX_INPUT_LENGTH], level[MAX_INPUT_LENGTH]; + int newlevel, oldlevel; + + two_arguments(argument, name, level); + + if (*name) { + if (!(victim = get_char_vis(ch, name, NULL, FIND_CHAR_WORLD))) { + send_to_char(ch, "That player is not here.\r\n"); + return; + } + } else { + send_to_char(ch, "Advance who?\r\n"); + return; + } + + if (GET_LEVEL(ch) <= GET_LEVEL(victim)) { + send_to_char(ch, "Maybe that's not such a great idea.\r\n"); + return; + } + if (IS_NPC(victim)) { + send_to_char(ch, "NO! Not on NPC's.\r\n"); + return; + } + if (!*level || (newlevel = atoi(level)) <= 0) { + send_to_char(ch, "That's not a level!\r\n"); + return; + } + if (newlevel > LVL_IMPL) { + send_to_char(ch, "%d is the highest possible level.\r\n", LVL_IMPL); + return; + } + if (newlevel > GET_LEVEL(ch)) { + send_to_char(ch, "Yeah, right.\r\n"); + return; + } + if (newlevel == GET_LEVEL(victim)) { + send_to_char(ch, "They are already at that level.\r\n"); + return; + } + oldlevel = GET_LEVEL(victim); + if (newlevel < GET_LEVEL(victim)) { + do_start(victim); + GET_LEVEL(victim) = newlevel; + send_to_char(victim, "You are momentarily enveloped by darkness!\r\nYou feel somewhat diminished.\r\n"); + } else { + act("$n makes some strange gestures.\r\n" + "A strange feeling comes upon you,\r\n" + "Like a giant hand, light comes down\r\n" + "from above, grabbing your body, that\r\n" + "begins to pulse with colored lights\r\n" + "from inside.\r\n\r\n" + "Your head seems to be filled with demons\r\n" + "from another plane as your body dissolves\r\n" + "to the elements of time and space itself.\r\n" + "Suddenly a silent explosion of light\r\n" + "snaps you back to reality.\r\n\r\n" + "You feel slightly different.", FALSE, ch, 0, victim, TO_VICT); + } + + send_to_char(ch, "%s", OK); + + if (newlevel < oldlevel) + log("(GC) %s demoted %s from level %d to %d.", + GET_NAME(ch), GET_NAME(victim), oldlevel, newlevel); + else + log("(GC) %s has advanced %s to level %d (from %d)", + GET_NAME(ch), GET_NAME(victim), newlevel, oldlevel); + + if (oldlevel >= LVL_IMMORT && newlevel < LVL_IMMORT) { + /* If they are no longer an immortal, let's remove some of the + * nice immortal only flags, shall we? + */ + REMOVE_BIT(PRF_FLAGS(victim), PRF_LOG1 | PRF_LOG2); + REMOVE_BIT(PRF_FLAGS(victim), PRF_NOHASSLE | PRF_HOLYLIGHT); + run_autowiz(); + } + + gain_exp_regardless(victim, + level_exp(GET_CLASS(victim), newlevel) - GET_EXP(victim)); + save_char(victim); +} + +ACMD(do_restore) +{ + char buf[MAX_INPUT_LENGTH]; + struct char_data *vict; + int i; + + one_argument(argument, buf); + if (!*buf) + send_to_char(ch, "Whom do you wish to restore?\r\n"); + else if (!(vict = get_char_vis(ch, buf, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "%s", NOPERSON); + else if (!IS_NPC(vict) && ch != vict && GET_LEVEL(vict) >= GET_LEVEL(ch)) + send_to_char(ch, "They don't need your help.\r\n"); + else { + GET_HIT(vict) = GET_MAX_HIT(vict); + GET_MANA(vict) = GET_MAX_MANA(vict); + GET_MOVE(vict) = GET_MAX_MOVE(vict); + + if (!IS_NPC(vict) && GET_LEVEL(ch) >= LVL_GRGOD) { + if (GET_LEVEL(vict) >= LVL_IMMORT) + for (i = 1; i <= MAX_SKILLS; i++) + SET_SKILL(vict, i, 100); + + if (GET_LEVEL(vict) >= LVL_GRGOD) { + vict->real_abils.str_add = 100; + vict->real_abils.intel = 25; + vict->real_abils.wis = 25; + vict->real_abils.dex = 25; + vict->real_abils.str = 25; + vict->real_abils.con = 25; + vict->real_abils.cha = 25; + } + } + update_pos(vict); + affect_total(vict); + send_to_char(ch, "%s", OK); + act("You have been fully healed by $N!", FALSE, vict, 0, ch, TO_CHAR); + } +} + + +void perform_immort_vis(struct char_data *ch) +{ + if (GET_INVIS_LEV(ch) == 0 && !AFF_FLAGGED(ch, AFF_HIDE | AFF_INVISIBLE)) { + send_to_char(ch, "You are already fully visible.\r\n"); + return; + } + + GET_INVIS_LEV(ch) = 0; + appear(ch); + send_to_char(ch, "You are now fully visible.\r\n"); +} + + +void perform_immort_invis(struct char_data *ch, int level) +{ + struct char_data *tch; + + for (tch = world[IN_ROOM(ch)].people; tch; tch = tch->next_in_room) { + if (tch == ch) + continue; + if (GET_LEVEL(tch) >= GET_INVIS_LEV(ch) && GET_LEVEL(tch) < level) + act("You blink and suddenly realize that $n is gone.", FALSE, ch, 0, + tch, TO_VICT); + if (GET_LEVEL(tch) < GET_INVIS_LEV(ch) && GET_LEVEL(tch) >= level) + act("You suddenly realize that $n is standing beside you.", FALSE, ch, 0, + tch, TO_VICT); + } + + GET_INVIS_LEV(ch) = level; + send_to_char(ch, "Your invisibility level is %d.\r\n", level); +} + + +ACMD(do_invis) +{ + char arg[MAX_INPUT_LENGTH]; + int level; + + if (IS_NPC(ch)) { + send_to_char(ch, "You can't do that!\r\n"); + return; + } + + one_argument(argument, arg); + if (!*arg) { + if (GET_INVIS_LEV(ch) > 0) + perform_immort_vis(ch); + else + perform_immort_invis(ch, GET_LEVEL(ch)); + } else { + level = atoi(arg); + if (level > GET_LEVEL(ch)) + send_to_char(ch, "You can't go invisible above your own level.\r\n"); + else if (level < 1) + perform_immort_vis(ch); + else + perform_immort_invis(ch, level); + } +} + + +ACMD(do_gecho) +{ + struct descriptor_data *pt; + + skip_spaces(&argument); + delete_doubledollar(argument); + + if (!*argument) + send_to_char(ch, "That must be a mistake...\r\n"); + else { + for (pt = descriptor_list; pt; pt = pt->next) + if (STATE(pt) == CON_PLAYING && pt->character && pt->character != ch) + send_to_char(pt->character, "%s\r\n", argument); + + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); + else + send_to_char(ch, "%s\r\n", argument); + } +} + + +ACMD(do_poofset) +{ + char **msg; + + switch (subcmd) { + case SCMD_POOFIN: msg = &(POOFIN(ch)); break; + case SCMD_POOFOUT: msg = &(POOFOUT(ch)); break; + default: return; + } + + skip_spaces(&argument); + + if (*msg) + free(*msg); + + if (!*argument) + *msg = NULL; + else + *msg = strdup(argument); + + send_to_char(ch, "%s", OK); +} + + + +ACMD(do_dc) +{ + char arg[MAX_INPUT_LENGTH]; + struct descriptor_data *d; + int num_to_dc; + + one_argument(argument, arg); + if (!(num_to_dc = atoi(arg))) { + send_to_char(ch, "Usage: DC <user number> (type USERS for a list)\r\n"); + return; + } + for (d = descriptor_list; d && d->desc_num != num_to_dc; d = d->next); + + if (!d) { + send_to_char(ch, "No such connection.\r\n"); + return; + } + if (d->character && GET_LEVEL(d->character) >= GET_LEVEL(ch)) { + if (!CAN_SEE(ch, d->character)) + send_to_char(ch, "No such connection.\r\n"); + else + send_to_char(ch, "Umm.. maybe that's not such a good idea...\r\n"); + return; + } + + /* We used to just close the socket here using close_socket(), but + * various people pointed out this could cause a crash if you're + * closing the person below you on the descriptor list. Just setting + * to CON_CLOSE leaves things in a massively inconsistent state so I + * had to add this new flag to the descriptor. -je + * + * It is a much more logical extension for a CON_DISCONNECT to be used + * for in-game socket closes and CON_CLOSE for out of game closings. + * This will retain the stability of the close_me hack while being + * neater in appearance. -gg 12/1/97 + * + * For those unlucky souls who actually manage to get disconnected + * by two different immortals in the same 1/10th of a second, we have + * the below 'if' check. -gg 12/17/99 + */ + if (STATE(d) == CON_DISCONNECT || STATE(d) == CON_CLOSE) + send_to_char(ch, "They're already being disconnected.\r\n"); + else { + /* + * Remember that we can disconnect people not in the game and + * that rather confuses the code when it expected there to be + * a character context. + */ + if (STATE(d) == CON_PLAYING) + STATE(d) = CON_DISCONNECT; + else + STATE(d) = CON_CLOSE; + + send_to_char(ch, "Connection #%d closed.\r\n", num_to_dc); + log("(GC) Connection closed by %s.", GET_NAME(ch)); + } +} + + + +ACMD(do_wizlock) +{ + char arg[MAX_INPUT_LENGTH]; + int value; + const char *when; + + one_argument(argument, arg); + if (*arg) { + value = atoi(arg); + if (value < 0 || value > GET_LEVEL(ch)) { + send_to_char(ch, "Invalid wizlock value.\r\n"); + return; + } + circle_restrict = value; + when = "now"; + } else + when = "currently"; + + switch (circle_restrict) { + case 0: + send_to_char(ch, "The game is %s completely open.\r\n", when); + break; + case 1: + send_to_char(ch, "The game is %s closed to new players.\r\n", when); + break; + default: + send_to_char(ch, "Only level %d and above may enter the game %s.\r\n", circle_restrict, when); + break; + } +} + + +ACMD(do_date) +{ + char *tmstr; + time_t mytime; + int d, h, m; + + if (subcmd == SCMD_DATE) + mytime = time(0); + else + mytime = boot_time; + + tmstr = (char *) asctime(localtime(&mytime)); + *(tmstr + strlen(tmstr) - 1) = '\0'; + + if (subcmd == SCMD_DATE) + send_to_char(ch, "Current machine time: %s\r\n", tmstr); + else { + mytime = time(0) - boot_time; + d = mytime / 86400; + h = (mytime / 3600) % 24; + m = (mytime / 60) % 60; + + send_to_char(ch, "Up since %s: %d day%s, %d:%02d\r\n", tmstr, d, d == 1 ? "" : "s", h, m); + } +} + + + +ACMD(do_last) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_file_u chdata; + + one_argument(argument, arg); + if (!*arg) { + send_to_char(ch, "For whom do you wish to search?\r\n"); + return; + } + if (load_char(arg, &chdata) < 0) { + send_to_char(ch, "There is no such player.\r\n"); + return; + } + if ((chdata.level > GET_LEVEL(ch)) && (GET_LEVEL(ch) < LVL_IMPL)) { + send_to_char(ch, "You are not sufficiently godly for that!\r\n"); + return; + } + send_to_char(ch, "[%5ld] [%2d %s] %-12s : %-18s : %-20s\r\n", + chdata.char_specials_saved.idnum, chdata.level, + class_abbrevs[(int) chdata.chclass], chdata.name, chdata.host, + ctime(&chdata.last_logon)); +} + + +ACMD(do_force) +{ + struct descriptor_data *i, *next_desc; + struct char_data *vict, *next_force; + char arg[MAX_INPUT_LENGTH], to_force[MAX_INPUT_LENGTH], buf1[MAX_INPUT_LENGTH + 32]; + + half_chop(argument, arg, to_force); + + snprintf(buf1, sizeof(buf1), "$n has forced you to '%s'.", to_force); + + if (!*arg || !*to_force) + send_to_char(ch, "Whom do you wish to force do what?\r\n"); + else if ((GET_LEVEL(ch) < LVL_GRGOD) || (str_cmp("all", arg) && str_cmp("room", arg))) { + if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "%s", NOPERSON); + else if (!IS_NPC(vict) && GET_LEVEL(ch) <= GET_LEVEL(vict)) + send_to_char(ch, "No, no, no!\r\n"); + else { + send_to_char(ch, "%s", OK); + act(buf1, TRUE, ch, NULL, vict, TO_VICT); + mudlog(NRM, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s forced %s to %s", GET_NAME(ch), GET_NAME(vict), to_force); + command_interpreter(vict, to_force); + } + } else if (!str_cmp("room", arg)) { + send_to_char(ch, "%s", OK); + mudlog(NRM, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s forced room %d to %s", + GET_NAME(ch), GET_ROOM_VNUM(IN_ROOM(ch)), to_force); + + for (vict = world[IN_ROOM(ch)].people; vict; vict = next_force) { + next_force = vict->next_in_room; + if (!IS_NPC(vict) && GET_LEVEL(vict) >= GET_LEVEL(ch)) + continue; + act(buf1, TRUE, ch, NULL, vict, TO_VICT); + command_interpreter(vict, to_force); + } + } else { /* force all */ + send_to_char(ch, "%s", OK); + mudlog(NRM, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s forced all to %s", GET_NAME(ch), to_force); + + for (i = descriptor_list; i; i = next_desc) { + next_desc = i->next; + + if (STATE(i) != CON_PLAYING || !(vict = i->character) || (!IS_NPC(vict) && GET_LEVEL(vict) >= GET_LEVEL(ch))) + continue; + act(buf1, TRUE, ch, NULL, vict, TO_VICT); + command_interpreter(vict, to_force); + } + } +} + + + +ACMD(do_wiznet) +{ + char buf1[MAX_INPUT_LENGTH + MAX_NAME_LENGTH + 32], + buf2[MAX_INPUT_LENGTH + MAX_NAME_LENGTH + 32]; + struct descriptor_data *d; + char emote = FALSE; + char any = FALSE; + int level = LVL_IMMORT; + + skip_spaces(&argument); + delete_doubledollar(argument); + + if (!*argument) { + send_to_char(ch, "Usage: wiznet <text> | #<level> <text> | *<emotetext> |\r\n wiznet @<level> *<emotetext> | wiz @\r\n"); + return; + } + switch (*argument) { + case '*': + emote = TRUE; + case '#': + one_argument(argument + 1, buf1); + if (is_number(buf1)) { + half_chop(argument+1, buf1, argument); + level = MAX(atoi(buf1), LVL_IMMORT); + if (level > GET_LEVEL(ch)) { + send_to_char(ch, "You can't wizline above your own level.\r\n"); + return; + } + } else if (emote) + argument++; + break; + + case '@': + send_to_char(ch, "God channel status:\r\n"); + for (any = 0, d = descriptor_list; d; d = d->next) { + if (STATE(d) != CON_PLAYING || GET_LEVEL(d->character) < LVL_IMMORT) + continue; + if (!CAN_SEE(ch, d->character)) + continue; + + send_to_char(ch, " %-*s%s%s%s\r\n", MAX_NAME_LENGTH, GET_NAME(d->character), + PLR_FLAGGED(d->character, PLR_WRITING) ? " (Writing)" : "", + PLR_FLAGGED(d->character, PLR_MAILING) ? " (Writing mail)" : "", + PRF_FLAGGED(d->character, PRF_NOWIZ) ? " (Offline)" : ""); + } + return; + + case '\\': + ++argument; + break; + default: + break; + } + if (PRF_FLAGGED(ch, PRF_NOWIZ)) { + send_to_char(ch, "You are offline!\r\n"); + return; + } + skip_spaces(&argument); + + if (!*argument) { + send_to_char(ch, "Don't bother the gods like that!\r\n"); + return; + } + if (level > LVL_IMMORT) { + snprintf(buf1, sizeof(buf1), "%s: <%d> %s%s\r\n", GET_NAME(ch), level, emote ? "<--- " : "", argument); + snprintf(buf2, sizeof(buf1), "Someone: <%d> %s%s\r\n", level, emote ? "<--- " : "", argument); + } else { + snprintf(buf1, sizeof(buf1), "%s: %s%s\r\n", GET_NAME(ch), emote ? "<--- " : "", argument); + snprintf(buf2, sizeof(buf1), "Someone: %s%s\r\n", emote ? "<--- " : "", argument); + } + + for (d = descriptor_list; d; d = d->next) { + if ((STATE(d) == CON_PLAYING) && (GET_LEVEL(d->character) >= level) && + (!PRF_FLAGGED(d->character, PRF_NOWIZ)) && + (!PLR_FLAGGED(d->character, PLR_WRITING | PLR_MAILING)) + && (d != ch->desc || !(PRF_FLAGGED(d->character, PRF_NOREPEAT)))) { + send_to_char(d->character, "%s", CCCYN(d->character, C_NRM)); + if (CAN_SEE(d->character, ch)) + send_to_char(d->character, "%s", buf1); + else + send_to_char(d->character, "%s", buf2); + send_to_char(d->character, "%s", CCNRM(d->character, C_NRM)); + } + } + + if (PRF_FLAGGED(ch, PRF_NOREPEAT)) + send_to_char(ch, "%s", OK); +} + + + +ACMD(do_zreset) +{ + char arg[MAX_INPUT_LENGTH]; + zone_rnum i; + zone_vnum j; + + one_argument(argument, arg); + if (!*arg) { + send_to_char(ch, "You must specify a zone.\r\n"); + return; + } + if (*arg == '*') { + for (i = 0; i <= top_of_zone_table; i++) + reset_zone(i); + send_to_char(ch, "Reset world.\r\n"); + mudlog(NRM, MAX(LVL_GRGOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s reset entire world.", GET_NAME(ch)); + return; + } else if (*arg == '.') + i = world[IN_ROOM(ch)].zone; + else { + j = atoi(arg); + for (i = 0; i <= top_of_zone_table; i++) + if (zone_table[i].number == j) + break; + } + if (i <= top_of_zone_table) { + reset_zone(i); + send_to_char(ch, "Reset zone %d (#%d): %s.\r\n", i, zone_table[i].number, zone_table[i].name); + mudlog(NRM, MAX(LVL_GRGOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s reset zone %d (%s)", GET_NAME(ch), i, zone_table[i].name); + } else + send_to_char(ch, "Invalid zone number.\r\n"); +} + + +/* + * General fn for wizcommands of the sort: cmd <player> + */ +ACMD(do_wizutil) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *vict; + long result; + + one_argument(argument, arg); + + if (!*arg) + send_to_char(ch, "Yes, but for whom?!?\r\n"); + else if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_WORLD))) + send_to_char(ch, "There is no such player.\r\n"); + else if (IS_NPC(vict)) + send_to_char(ch, "You can't do that to a mob!\r\n"); + else if (GET_LEVEL(vict) > GET_LEVEL(ch)) + send_to_char(ch, "Hmmm...you'd better not.\r\n"); + else { + switch (subcmd) { + case SCMD_REROLL: + send_to_char(ch, "Rerolled...\r\n"); + roll_real_abils(vict); + log("(GC) %s has rerolled %s.", GET_NAME(ch), GET_NAME(vict)); + send_to_char(ch, "New stats: Str %d/%d, Int %d, Wis %d, Dex %d, Con %d, Cha %d\r\n", + GET_STR(vict), GET_ADD(vict), GET_INT(vict), GET_WIS(vict), + GET_DEX(vict), GET_CON(vict), GET_CHA(vict)); + break; + case SCMD_PARDON: + if (!PLR_FLAGGED(vict, PLR_THIEF | PLR_KILLER)) { + send_to_char(ch, "Your victim is not flagged.\r\n"); + return; + } + REMOVE_BIT(PLR_FLAGS(vict), PLR_THIEF | PLR_KILLER); + send_to_char(ch, "Pardoned.\r\n"); + send_to_char(vict, "You have been pardoned by the Gods!\r\n"); + mudlog(BRF, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s pardoned by %s", GET_NAME(vict), GET_NAME(ch)); + break; + case SCMD_NOTITLE: + result = PLR_TOG_CHK(vict, PLR_NOTITLE); + mudlog(NRM, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) Notitle %s for %s by %s.", + ONOFF(result), GET_NAME(vict), GET_NAME(ch)); + send_to_char(ch, "(GC) Notitle %s for %s by %s.\r\n", ONOFF(result), GET_NAME(vict), GET_NAME(ch)); + break; + case SCMD_SQUELCH: + result = PLR_TOG_CHK(vict, PLR_NOSHOUT); + mudlog(BRF, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) Squelch %s for %s by %s.", + ONOFF(result), GET_NAME(vict), GET_NAME(ch)); + send_to_char(ch, "(GC) Squelch %s for %s by %s.\r\n", ONOFF(result), GET_NAME(vict), GET_NAME(ch)); + break; + case SCMD_FREEZE: + if (ch == vict) { + send_to_char(ch, "Oh, yeah, THAT'S real smart...\r\n"); + return; + } + if (PLR_FLAGGED(vict, PLR_FROZEN)) { + send_to_char(ch, "Your victim is already pretty cold.\r\n"); + return; + } + SET_BIT(PLR_FLAGS(vict), PLR_FROZEN); + GET_FREEZE_LEV(vict) = GET_LEVEL(ch); + send_to_char(vict, "A bitter wind suddenly rises and drains every erg of heat from your body!\r\nYou feel frozen!\r\n"); + send_to_char(ch, "Frozen.\r\n"); + act("A sudden cold wind conjured from nowhere freezes $n!", FALSE, vict, 0, 0, TO_ROOM); + mudlog(BRF, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s frozen by %s.", GET_NAME(vict), GET_NAME(ch)); + break; + case SCMD_THAW: + if (!PLR_FLAGGED(vict, PLR_FROZEN)) { + send_to_char(ch, "Sorry, your victim is not morbidly encased in ice at the moment.\r\n"); + return; + } + if (GET_FREEZE_LEV(vict) > GET_LEVEL(ch)) { + send_to_char(ch, "Sorry, a level %d God froze %s... you can't unfreeze %s.\r\n", + GET_FREEZE_LEV(vict), GET_NAME(vict), HMHR(vict)); + return; + } + mudlog(BRF, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "(GC) %s un-frozen by %s.", GET_NAME(vict), GET_NAME(ch)); + REMOVE_BIT(PLR_FLAGS(vict), PLR_FROZEN); + send_to_char(vict, "A fireball suddenly explodes in front of you, melting the ice!\r\nYou feel thawed.\r\n"); + send_to_char(ch, "Thawed.\r\n"); + act("A sudden fireball conjured from nowhere thaws $n!", FALSE, vict, 0, 0, TO_ROOM); + break; + case SCMD_UNAFFECT: + if (vict->affected) { + while (vict->affected) + affect_remove(vict, vict->affected); + send_to_char(vict, "There is a brief flash of light!\r\nYou feel slightly different.\r\n"); + send_to_char(ch, "All spells removed.\r\n"); + } else { + send_to_char(ch, "Your victim does not have any affections!\r\n"); + return; + } + break; + default: + log("SYSERR: Unknown subcmd %d passed to do_wizutil (%s)", subcmd, __FILE__); + break; + } + save_char(vict); + } +} + + +/* single zone printing fn used by "show zone" so it's not repeated in the + code 3 times ... -je, 4/6/93 */ + +/* FIXME: overflow possible */ +size_t print_zone_to_buf(char *bufptr, size_t left, zone_rnum zone) +{ + return snprintf(bufptr, left, + "%3d %-30.30s Age: %3d; Reset: %3d (%1d); Range: %5d-%5d\r\n", + zone_table[zone].number, zone_table[zone].name, + zone_table[zone].age, zone_table[zone].lifespan, + zone_table[zone].reset_mode, + zone_table[zone].bot, zone_table[zone].top); +} + + +ACMD(do_show) +{ + struct char_file_u vbuf; + int i, j, k, l, con, nlen; /* i, j, k to specifics? */ + size_t len; + zone_rnum zrn; + zone_vnum zvn; + byte self = FALSE; + struct char_data *vict; + struct obj_data *obj; + struct descriptor_data *d; + char field[MAX_INPUT_LENGTH], value[MAX_INPUT_LENGTH], + arg[MAX_INPUT_LENGTH], buf[MAX_STRING_LENGTH]; + + struct show_struct { + const char *cmd; + const char level; + } fields[] = { + { "nothing", 0 }, /* 0 */ + { "zones", LVL_IMMORT }, /* 1 */ + { "player", LVL_GOD }, + { "rent", LVL_GOD }, + { "stats", LVL_IMMORT }, + { "errors", LVL_IMPL }, /* 5 */ + { "death", LVL_GOD }, + { "godrooms", LVL_GOD }, + { "shops", LVL_IMMORT }, + { "houses", LVL_GOD }, + { "snoop", LVL_GRGOD }, /* 10 */ + { "\n", 0 } + }; + + skip_spaces(&argument); + + if (!*argument) { + send_to_char(ch, "Show options:\r\n"); + for (j = 0, i = 1; fields[i].level; i++) + if (fields[i].level <= GET_LEVEL(ch)) + send_to_char(ch, "%-15s%s", fields[i].cmd, (!(++j % 5) ? "\r\n" : "")); + send_to_char(ch, "\r\n"); + return; + } + + strcpy(arg, two_arguments(argument, field, value)); /* strcpy: OK (argument <= MAX_INPUT_LENGTH == arg) */ + + for (l = 0; *(fields[l].cmd) != '\n'; l++) + if (!strncmp(field, fields[l].cmd, strlen(field))) + break; + + if (GET_LEVEL(ch) < fields[l].level) { + send_to_char(ch, "You are not godly enough for that!\r\n"); + return; + } + if (!strcmp(value, ".")) + self = TRUE; + buf[0] = '\0'; + + switch (l) { + /* show zone */ + case 1: + /* tightened up by JE 4/6/93 */ + if (self) + print_zone_to_buf(buf, sizeof(buf), world[IN_ROOM(ch)].zone); + else if (*value && is_number(value)) { + for (zvn = atoi(value), zrn = 0; zone_table[zrn].number != zvn && zrn <= top_of_zone_table; zrn++); + if (zrn <= top_of_zone_table) + print_zone_to_buf(buf, sizeof(buf), zrn); + else { + send_to_char(ch, "That is not a valid zone.\r\n"); + return; + } + } else + for (len = zrn = 0; zrn <= top_of_zone_table; zrn++) { + nlen = print_zone_to_buf(buf + len, sizeof(buf) - len, zrn); + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + len += nlen; + } + page_string(ch->desc, buf, TRUE); + break; + + /* show player */ + case 2: + if (!*value) { + send_to_char(ch, "A name would help.\r\n"); + return; + } + + if (load_char(value, &vbuf) < 0) { + send_to_char(ch, "There is no such player.\r\n"); + return; + } + + send_to_char(ch, "Player: %-12s (%s) [%2d %s]\r\n", vbuf.name, + genders[(int) vbuf.sex], vbuf.level, class_abbrevs[(int) vbuf.chclass]); + send_to_char(ch, "Au: %-8d Bal: %-8d Exp: %-8d Align: %-5d Lessons: %-3d\r\n", + vbuf.points.gold, vbuf.points.bank_gold, vbuf.points.exp, + vbuf.char_specials_saved.alignment, vbuf.player_specials_saved.spells_to_learn); + /* ctime() uses static buffer: do not combine. */ + send_to_char(ch, "Started: %-20.16s ", ctime(&vbuf.birth)); + send_to_char(ch, "Last: %-20.16s Played: %3dh %2dm\r\n", ctime(&vbuf.last_logon), vbuf.played / 3600, vbuf.played / 60 % 60); + break; + + /* show rent */ + case 3: + if (!*value) { + send_to_char(ch, "A name would help.\r\n"); + return; + } + Crash_listrent(ch, value); + break; + + /* show stats */ + case 4: + i = 0; + j = 0; + k = 0; + con = 0; + for (vict = character_list; vict; vict = vict->next) { + if (IS_NPC(vict)) + j++; + else if (CAN_SEE(ch, vict)) { + i++; + if (vict->desc) + con++; + } + } + for (obj = object_list; obj; obj = obj->next) + k++; + send_to_char(ch, + "Current stats:\r\n" + " %5d players in game %5d connected\r\n" + " %5d registered\r\n" + " %5d mobiles %5d prototypes\r\n" + " %5d objects %5d prototypes\r\n" + " %5d rooms %5d zones\r\n" + " %5d large bufs\r\n" + " %5d buf switches %5d overflows\r\n", + i, con, + top_of_p_table + 1, + j, top_of_mobt + 1, + k, top_of_objt + 1, + top_of_world + 1, top_of_zone_table + 1, + buf_largecount, + buf_switches, buf_overflows + ); + break; + + /* show errors */ + case 5: + len = strlcpy(buf, "Errant Rooms\r\n------------\r\n", sizeof(buf)); + for (i = 0, k = 0; i <= top_of_world; i++) + for (j = 0; j < NUM_OF_DIRS; j++) + if (world[i].dir_option[j] && world[i].dir_option[j]->to_room == 0) { + nlen = snprintf(buf + len, sizeof(buf) - len, "%2d: [%5d] %s\r\n", ++k, GET_ROOM_VNUM(i), world[i].name); + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + len += nlen; + } + page_string(ch->desc, buf, TRUE); + break; + + /* show death */ + case 6: + len = strlcpy(buf, "Death Traps\r\n-----------\r\n", sizeof(buf)); + for (i = 0, j = 0; i <= top_of_world; i++) + if (ROOM_FLAGGED(i, ROOM_DEATH)) { + nlen = snprintf(buf + len, sizeof(buf) - len, "%2d: [%5d] %s\r\n", ++j, GET_ROOM_VNUM(i), world[i].name); + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + len += nlen; + } + page_string(ch->desc, buf, TRUE); + break; + + /* show godrooms */ + case 7: + len = strlcpy(buf, "Godrooms\r\n--------------------------\r\n", sizeof(buf)); + for (i = 0, j = 0; i <= top_of_world; i++) + if (ROOM_FLAGGED(i, ROOM_GODROOM)) { + nlen = snprintf(buf + len, sizeof(buf) - len, "%2d: [%5d] %s\r\n", ++j, GET_ROOM_VNUM(i), world[i].name); + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + len += nlen; + } + page_string(ch->desc, buf, TRUE); + break; + + /* show shops */ + case 8: + show_shops(ch, value); + break; + + /* show houses */ + case 9: + hcontrol_list_houses(ch); + break; + + /* show snoop */ + case 10: + i = 0; + send_to_char(ch, "People currently snooping:\r\n--------------------------\r\n"); + for (d = descriptor_list; d; d = d->next) { + if (d->snooping == NULL || d->character == NULL) + continue; + if (STATE(d) != CON_PLAYING || GET_LEVEL(ch) < GET_LEVEL(d->character)) + continue; + if (!CAN_SEE(ch, d->character) || IN_ROOM(d->character) == NOWHERE) + continue; + i++; + send_to_char(ch, "%-10s - snooped by %s.\r\n", GET_NAME(d->snooping->character), GET_NAME(d->character)); + } + if (i == 0) + send_to_char(ch, "No one is currently snooping.\r\n"); + break; + + /* show what? */ + default: + send_to_char(ch, "Sorry, I don't understand that.\r\n"); + break; + } +} + + +/***************** The do_set function ***********************************/ + +#define PC 1 +#define NPC 2 +#define BOTH 3 + +#define MISC 0 +#define BINARY 1 +#define NUMBER 2 + +#define SET_OR_REMOVE(flagset, flags) { \ + if (on) SET_BIT(flagset, flags); \ + else if (off) REMOVE_BIT(flagset, flags); } + +#define RANGE(low, high) (value = MAX((low), MIN((high), (value)))) + + +/* The set options available */ + struct set_struct { + const char *cmd; + const char level; + const char pcnpc; + const char type; + } set_fields[] = { + { "brief", LVL_GOD, PC, BINARY }, /* 0 */ + { "invstart", LVL_GOD, PC, BINARY }, /* 1 */ + { "title", LVL_GOD, PC, MISC }, + { "nosummon", LVL_GRGOD, PC, BINARY }, + { "maxhit", LVL_GRGOD, BOTH, NUMBER }, + { "maxmana", LVL_GRGOD, BOTH, NUMBER }, /* 5 */ + { "maxmove", LVL_GRGOD, BOTH, NUMBER }, + { "hit", LVL_GRGOD, BOTH, NUMBER }, + { "mana", LVL_GRGOD, BOTH, NUMBER }, + { "move", LVL_GRGOD, BOTH, NUMBER }, + { "align", LVL_GOD, BOTH, NUMBER }, /* 10 */ + { "str", LVL_GRGOD, BOTH, NUMBER }, + { "stradd", LVL_GRGOD, BOTH, NUMBER }, + { "int", LVL_GRGOD, BOTH, NUMBER }, + { "wis", LVL_GRGOD, BOTH, NUMBER }, + { "dex", LVL_GRGOD, BOTH, NUMBER }, /* 15 */ + { "con", LVL_GRGOD, BOTH, NUMBER }, + { "cha", LVL_GRGOD, BOTH, NUMBER }, + { "ac", LVL_GRGOD, BOTH, NUMBER }, + { "gold", LVL_GOD, BOTH, NUMBER }, + { "bank", LVL_GOD, PC, NUMBER }, /* 20 */ + { "exp", LVL_GRGOD, BOTH, NUMBER }, + { "hitroll", LVL_GRGOD, BOTH, NUMBER }, + { "damroll", LVL_GRGOD, BOTH, NUMBER }, + { "invis", LVL_IMPL, PC, NUMBER }, + { "nohassle", LVL_GRGOD, PC, BINARY }, /* 25 */ + { "frozen", LVL_FREEZE, PC, BINARY }, + { "practices", LVL_GRGOD, PC, NUMBER }, + { "lessons", LVL_GRGOD, PC, NUMBER }, + { "drunk", LVL_GRGOD, BOTH, MISC }, + { "hunger", LVL_GRGOD, BOTH, MISC }, /* 30 */ + { "thirst", LVL_GRGOD, BOTH, MISC }, + { "killer", LVL_GOD, PC, BINARY }, + { "thief", LVL_GOD, PC, BINARY }, + { "level", LVL_IMPL, BOTH, NUMBER }, + { "room", LVL_IMPL, BOTH, NUMBER }, /* 35 */ + { "roomflag", LVL_GRGOD, PC, BINARY }, + { "siteok", LVL_GRGOD, PC, BINARY }, + { "deleted", LVL_IMPL, PC, BINARY }, + { "class", LVL_GRGOD, BOTH, MISC }, + { "nowizlist", LVL_GOD, PC, BINARY }, /* 40 */ + { "quest", LVL_GOD, PC, BINARY }, + { "loadroom", LVL_GRGOD, PC, MISC }, + { "color", LVL_GOD, PC, BINARY }, + { "idnum", LVL_IMPL, PC, NUMBER }, + { "passwd", LVL_IMPL, PC, MISC }, /* 45 */ + { "nodelete", LVL_GOD, PC, BINARY }, + { "sex", LVL_GRGOD, BOTH, MISC }, + { "age", LVL_GRGOD, BOTH, NUMBER }, + { "height", LVL_GOD, BOTH, NUMBER }, + { "weight", LVL_GOD, BOTH, NUMBER }, /* 50 */ + { "\n", 0, BOTH, MISC } + }; + + +int perform_set(struct char_data *ch, struct char_data *vict, int mode, + char *val_arg) +{ + int i, on = 0, off = 0, value = 0; + room_rnum rnum; + room_vnum rvnum; + + /* Check to make sure all the levels are correct */ + if (GET_LEVEL(ch) != LVL_IMPL) { + if (!IS_NPC(vict) && GET_LEVEL(ch) <= GET_LEVEL(vict) && vict != ch) { + send_to_char(ch, "Maybe that's not such a great idea...\r\n"); + return (0); + } + } + if (GET_LEVEL(ch) < set_fields[mode].level) { + send_to_char(ch, "You are not godly enough for that!\r\n"); + return (0); + } + + /* Make sure the PC/NPC is correct */ + if (IS_NPC(vict) && !(set_fields[mode].pcnpc & NPC)) { + send_to_char(ch, "You can't do that to a beast!\r\n"); + return (0); + } else if (!IS_NPC(vict) && !(set_fields[mode].pcnpc & PC)) { + send_to_char(ch, "That can only be done to a beast!\r\n"); + return (0); + } + + /* Find the value of the argument */ + if (set_fields[mode].type == BINARY) { + if (!strcmp(val_arg, "on") || !strcmp(val_arg, "yes")) + on = 1; + else if (!strcmp(val_arg, "off") || !strcmp(val_arg, "no")) + off = 1; + if (!(on || off)) { + send_to_char(ch, "Value must be 'on' or 'off'.\r\n"); + return (0); + } + send_to_char(ch, "%s %s for %s.\r\n", set_fields[mode].cmd, ONOFF(on), GET_NAME(vict)); + } else if (set_fields[mode].type == NUMBER) { + value = atoi(val_arg); + send_to_char(ch, "%s's %s set to %d.\r\n", GET_NAME(vict), set_fields[mode].cmd, value); + } else + send_to_char(ch, "%s", OK); + + switch (mode) { + case 0: + SET_OR_REMOVE(PRF_FLAGS(vict), PRF_BRIEF); + break; + case 1: + SET_OR_REMOVE(PLR_FLAGS(vict), PLR_INVSTART); + break; + case 2: + set_title(vict, val_arg); + send_to_char(ch, "%s's title is now: %s\r\n", GET_NAME(vict), GET_TITLE(vict)); + break; + case 3: + SET_OR_REMOVE(PRF_FLAGS(vict), PRF_SUMMONABLE); + send_to_char(ch, "Nosummon %s for %s.\r\n", ONOFF(!on), GET_NAME(vict)); + break; + case 4: + vict->points.max_hit = RANGE(1, 5000); + affect_total(vict); + break; + case 5: + vict->points.max_mana = RANGE(1, 5000); + affect_total(vict); + break; + case 6: + vict->points.max_move = RANGE(1, 5000); + affect_total(vict); + break; + case 7: + vict->points.hit = RANGE(-9, vict->points.max_hit); + affect_total(vict); + break; + case 8: + vict->points.mana = RANGE(0, vict->points.max_mana); + affect_total(vict); + break; + case 9: + vict->points.move = RANGE(0, vict->points.max_move); + affect_total(vict); + break; + case 10: + GET_ALIGNMENT(vict) = RANGE(-1000, 1000); + affect_total(vict); + break; + case 11: + if (IS_NPC(vict) || GET_LEVEL(vict) >= LVL_GRGOD) + RANGE(3, 25); + else + RANGE(3, 18); + vict->real_abils.str = value; + vict->real_abils.str_add = 0; + affect_total(vict); + break; + case 12: + vict->real_abils.str_add = RANGE(0, 100); + if (value > 0) + vict->real_abils.str = 18; + affect_total(vict); + break; + case 13: + if (IS_NPC(vict) || GET_LEVEL(vict) >= LVL_GRGOD) + RANGE(3, 25); + else + RANGE(3, 18); + vict->real_abils.intel = value; + affect_total(vict); + break; + case 14: + if (IS_NPC(vict) || GET_LEVEL(vict) >= LVL_GRGOD) + RANGE(3, 25); + else + RANGE(3, 18); + vict->real_abils.wis = value; + affect_total(vict); + break; + case 15: + if (IS_NPC(vict) || GET_LEVEL(vict) >= LVL_GRGOD) + RANGE(3, 25); + else + RANGE(3, 18); + vict->real_abils.dex = value; + affect_total(vict); + break; + case 16: + if (IS_NPC(vict) || GET_LEVEL(vict) >= LVL_GRGOD) + RANGE(3, 25); + else + RANGE(3, 18); + vict->real_abils.con = value; + affect_total(vict); + break; + case 17: + if (IS_NPC(vict) || GET_LEVEL(vict) >= LVL_GRGOD) + RANGE(3, 25); + else + RANGE(3, 18); + vict->real_abils.cha = value; + affect_total(vict); + break; + case 18: + vict->points.armor = RANGE(-100, 100); + affect_total(vict); + break; + case 19: + GET_GOLD(vict) = RANGE(0, 100000000); + break; + case 20: + GET_BANK_GOLD(vict) = RANGE(0, 100000000); + break; + case 21: + vict->points.exp = RANGE(0, 50000000); + break; + case 22: + vict->points.hitroll = RANGE(-20, 20); + affect_total(vict); + break; + case 23: + vict->points.damroll = RANGE(-20, 20); + affect_total(vict); + break; + case 24: + if (GET_LEVEL(ch) < LVL_IMPL && ch != vict) { + send_to_char(ch, "You aren't godly enough for that!\r\n"); + return (0); + } + GET_INVIS_LEV(vict) = RANGE(0, GET_LEVEL(vict)); + break; + case 25: + if (GET_LEVEL(ch) < LVL_IMPL && ch != vict) { + send_to_char(ch, "You aren't godly enough for that!\r\n"); + return (0); + } + SET_OR_REMOVE(PRF_FLAGS(vict), PRF_NOHASSLE); + break; + case 26: + if (ch == vict && on) { + send_to_char(ch, "Better not -- could be a long winter!\r\n"); + return (0); + } + SET_OR_REMOVE(PLR_FLAGS(vict), PLR_FROZEN); + break; + case 27: + case 28: + GET_PRACTICES(vict) = RANGE(0, 100); + break; + case 29: + case 30: + case 31: + if (!str_cmp(val_arg, "off")) { + GET_COND(vict, (mode - 29)) = -1; /* warning: magic number here */ + send_to_char(ch, "%s's %s now off.\r\n", GET_NAME(vict), set_fields[mode].cmd); + } else if (is_number(val_arg)) { + value = atoi(val_arg); + RANGE(0, 24); + GET_COND(vict, (mode - 29)) = value; /* and here too */ + send_to_char(ch, "%s's %s set to %d.\r\n", GET_NAME(vict), set_fields[mode].cmd, value); + } else { + send_to_char(ch, "Must be 'off' or a value from 0 to 24.\r\n"); + return (0); + } + break; + case 32: + SET_OR_REMOVE(PLR_FLAGS(vict), PLR_KILLER); + break; + case 33: + SET_OR_REMOVE(PLR_FLAGS(vict), PLR_THIEF); + break; + case 34: + if (value > GET_LEVEL(ch) || value > LVL_IMPL) { + send_to_char(ch, "You can't do that.\r\n"); + return (0); + } + RANGE(0, LVL_IMPL); + vict->player.level = value; + break; + case 35: + if ((rnum = real_room(value)) == NOWHERE) { + send_to_char(ch, "No room exists with that number.\r\n"); + return (0); + } + if (IN_ROOM(vict) != NOWHERE) /* Another Eric Green special. */ + char_from_room(vict); + char_to_room(vict, rnum); + break; + case 36: + SET_OR_REMOVE(PRF_FLAGS(vict), PRF_ROOMFLAGS); + break; + case 37: + SET_OR_REMOVE(PLR_FLAGS(vict), PLR_SITEOK); + break; + case 38: + SET_OR_REMOVE(PLR_FLAGS(vict), PLR_DELETED); + break; + case 39: + if ((i = parse_class(*val_arg)) == CLASS_UNDEFINED) { + send_to_char(ch, "That is not a class.\r\n"); + return (0); + } + GET_CLASS(vict) = i; + break; + case 40: + SET_OR_REMOVE(PLR_FLAGS(vict), PLR_NOWIZLIST); + break; + case 41: + SET_OR_REMOVE(PRF_FLAGS(vict), PRF_QUEST); + break; + case 42: + if (!str_cmp(val_arg, "off")) { + REMOVE_BIT(PLR_FLAGS(vict), PLR_LOADROOM); + } else if (is_number(val_arg)) { + rvnum = atoi(val_arg); + if (real_room(rvnum) != NOWHERE) { + SET_BIT(PLR_FLAGS(vict), PLR_LOADROOM); + GET_LOADROOM(vict) = rvnum; + send_to_char(ch, "%s will enter at room #%d.", GET_NAME(vict), GET_LOADROOM(vict)); + } else { + send_to_char(ch, "That room does not exist!\r\n"); + return (0); + } + } else { + send_to_char(ch, "Must be 'off' or a room's virtual number.\r\n"); + return (0); + } + break; + case 43: + SET_OR_REMOVE(PRF_FLAGS(vict), (PRF_COLOR_1 | PRF_COLOR_2)); + break; + case 44: + if (GET_IDNUM(ch) != 1 || !IS_NPC(vict)) + return (0); + GET_IDNUM(vict) = value; + break; + case 45: + if (GET_IDNUM(ch) > 1) { + send_to_char(ch, "Please don't use this command, yet.\r\n"); + return (0); + } + if (GET_LEVEL(vict) >= LVL_GRGOD) { + send_to_char(ch, "You cannot change that.\r\n"); + return (0); + } + strncpy(GET_PASSWD(vict), CRYPT(val_arg, GET_NAME(vict)), MAX_PWD_LENGTH); /* strncpy: OK (G_P:MAX_PWD_LENGTH) */ + *(GET_PASSWD(vict) + MAX_PWD_LENGTH) = '\0'; + send_to_char(ch, "Password changed to '%s'.\r\n", val_arg); + break; + case 46: + SET_OR_REMOVE(PLR_FLAGS(vict), PLR_NODELETE); + break; + case 47: + if ((i = search_block(val_arg, genders, FALSE)) < 0) { + send_to_char(ch, "Must be 'male', 'female', or 'neutral'.\r\n"); + return (0); + } + GET_SEX(vict) = i; + break; + case 48: /* set age */ + if (value < 2 || value > 200) { /* Arbitrary limits. */ + send_to_char(ch, "Ages 2 to 200 accepted.\r\n"); + return (0); + } + /* + * NOTE: May not display the exact age specified due to the integer + * division used elsewhere in the code. Seems to only happen for + * some values below the starting age (17) anyway. -gg 5/27/98 + */ + vict->player.time.birth = time(0) - ((value - 17) * SECS_PER_MUD_YEAR); + break; + + case 49: /* Blame/Thank Rick Glover. :) */ + GET_HEIGHT(vict) = value; + affect_total(vict); + break; + + case 50: + GET_WEIGHT(vict) = value; + affect_total(vict); + break; + + default: + send_to_char(ch, "Can't set that!\r\n"); + return (0); + } + + return (1); +} + + +ACMD(do_set) +{ + struct char_data *vict = NULL, *cbuf = NULL; + struct char_file_u tmp_store; + char field[MAX_INPUT_LENGTH], name[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH]; + int mode, len, player_i = 0, retval; + char is_file = 0, is_player = 0; + + half_chop(argument, name, buf); + + if (!strcmp(name, "file")) { + is_file = 1; + half_chop(buf, name, buf); + } else if (!str_cmp(name, "player")) { + is_player = 1; + half_chop(buf, name, buf); + } else if (!str_cmp(name, "mob")) + half_chop(buf, name, buf); + + half_chop(buf, field, buf); + + if (!*name || !*field) { + send_to_char(ch, "Usage: set <victim> <field> <value>\r\n"); + return; + } + + /* find the target */ + if (!is_file) { + if (is_player) { + if (!(vict = get_player_vis(ch, name, NULL, FIND_CHAR_WORLD))) { + send_to_char(ch, "There is no such player.\r\n"); + return; + } + } else { /* is_mob */ + if (!(vict = get_char_vis(ch, name, NULL, FIND_CHAR_WORLD))) { + send_to_char(ch, "There is no such creature.\r\n"); + return; + } + } + } else if (is_file) { + /* try to load the player off disk */ + CREATE(cbuf, struct char_data, 1); + clear_char(cbuf); + if ((player_i = load_char(name, &tmp_store)) > -1) { + store_to_char(&tmp_store, cbuf); + if (GET_LEVEL(cbuf) >= GET_LEVEL(ch)) { + free_char(cbuf); + send_to_char(ch, "Sorry, you can't do that.\r\n"); + return; + } + vict = cbuf; + } else { + free(cbuf); + send_to_char(ch, "There is no such player.\r\n"); + return; + } + } + + /* find the command in the list */ + len = strlen(field); + for (mode = 0; *(set_fields[mode].cmd) != '\n'; mode++) + if (!strncmp(field, set_fields[mode].cmd, len)) + break; + + /* perform the set */ + retval = perform_set(ch, vict, mode, buf); + + /* save the character if a change was made */ + if (retval) { + if (!is_file && !IS_NPC(vict)) + save_char(vict); + if (is_file) { + char_to_store(vict, &tmp_store); + fseek(player_fl, (player_i) * sizeof(struct char_file_u), SEEK_SET); + fwrite(&tmp_store, sizeof(struct char_file_u), 1, player_fl); + send_to_char(ch, "Saved in file.\r\n"); + } + } + + /* free the memory if we allocated it earlier */ + if (is_file) + free_char(cbuf); +} + diff --git a/src/alias.c b/src/alias.c new file mode 100644 index 0000000..3688e3a --- /dev/null +++ b/src/alias.c @@ -0,0 +1,128 @@ +/* *********************************************************************** +* File: alias.c A utility to CircleMUD * +* Usage: writing/reading player's aliases. * +* * +* Code done by Jeremy Hess and Chad Thompson * +* Modifed by George Greer for inclusion into CircleMUD bpl15. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +*********************************************************************** */ + +#include "conf.h" +#include "sysdep.h" +#include "structs.h" +#include "utils.h" +#include "interpreter.h" +#include "db.h" + +void write_aliases(struct char_data *ch); +void read_aliases(struct char_data *ch); +void delete_aliases(const char *charname); + +void write_aliases(struct char_data *ch) +{ + FILE *file; + char fn[MAX_STRING_LENGTH]; + struct alias_data *temp; + + get_filename(fn, sizeof(fn), ALIAS_FILE, GET_NAME(ch)); + remove(fn); + + if (GET_ALIASES(ch) == NULL) + return; + + if ((file = fopen(fn, "w")) == NULL) { + log("SYSERR: Couldn't save aliases for %s in '%s'.", GET_NAME(ch), fn); + perror("SYSERR: write_aliases"); + return; + } + + for (temp = GET_ALIASES(ch); temp; temp = temp->next) { + int aliaslen = strlen(temp->alias); + int repllen = strlen(temp->replacement) - 1; + + fprintf(file, "%d\n%s\n" /* Alias */ + "%d\n%s\n" /* Replacement */ + "%d\n", /* Type */ + aliaslen, temp->alias, + repllen, temp->replacement + 1, + temp->type); + } + + fclose(file); +} + +void read_aliases(struct char_data *ch) +{ + FILE *file; + char xbuf[MAX_STRING_LENGTH]; + struct alias_data *t2, *prev = NULL; + int length; + + get_filename(xbuf, sizeof(xbuf), ALIAS_FILE, GET_NAME(ch)); + + if ((file = fopen(xbuf, "r")) == NULL) { + if (errno != ENOENT) { + log("SYSERR: Couldn't open alias file '%s' for %s.", xbuf, GET_NAME(ch)); + perror("SYSERR: read_aliases"); + } + return; + } + + CREATE(GET_ALIASES(ch), struct alias_data, 1); + t2 = GET_ALIASES(ch); + + for (;;) { + /* Read the aliased command. */ + if (fscanf(file, "%d\n", &length) != 1) + goto read_alias_error; + + fgets(xbuf, length + 1, file); + t2->alias = strdup(xbuf); + + /* Build the replacement. */ + if (fscanf(file, "%d\n", &length) != 1) + goto read_alias_error; + + *xbuf = ' '; /* Doesn't need terminated, fgets() will. */ + fgets(xbuf + 1, length + 1, file); + t2->replacement = strdup(xbuf); + + /* Figure out the alias type. */ + if (fscanf(file, "%d\n", &length) != 1) + goto read_alias_error; + + t2->type = length; + + if (feof(file)) + break; + + CREATE(t2->next, struct alias_data, 1); + prev = t2; + t2 = t2->next; + }; + + fclose(file); + return; + +read_alias_error: + if (t2->alias) + free(t2->alias); + free(t2); + if (prev) + prev->next = NULL; + fclose(file); +} + +void delete_aliases(const char *charname) +{ + char filename[PATH_MAX]; + + if (!get_filename(filename, sizeof(filename), ALIAS_FILE, charname)) + return; + + if (remove(filename) < 0 && errno != ENOENT) + log("SYSERR: deleting alias file %s: %s", filename, strerror(errno)); +} + diff --git a/src/ban.c b/src/ban.c new file mode 100644 index 0000000..e0f5a58 --- /dev/null +++ b/src/ban.c @@ -0,0 +1,314 @@ +/* ************************************************************************ +* File: ban.c Part of CircleMUD * +* Usage: banning/unbanning/checking sites and player names * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" + +/* local globals */ +struct ban_list_element *ban_list = NULL; + +/* local functions */ +void load_banned(void); +int isbanned(char *hostname); +void _write_one_node(FILE *fp, struct ban_list_element *node); +void write_ban_list(void); +ACMD(do_ban); +ACMD(do_unban); +int Valid_Name(char *newname); +void Read_Invalid_List(void); +void Free_Invalid_List(void); + + +const char *ban_types[] = { + "no", + "new", + "select", + "all", + "ERROR" +}; + + +void load_banned(void) +{ + FILE *fl; + int i, date; + char site_name[BANNED_SITE_LENGTH + 1], ban_type[100]; + char name[MAX_NAME_LENGTH + 1]; + struct ban_list_element *next_node; + + ban_list = 0; + + if (!(fl = fopen(BAN_FILE, "r"))) { + if (errno != ENOENT) { + log("SYSERR: Unable to open banfile '%s': %s", BAN_FILE, strerror(errno)); + } else + log(" Ban file '%s' doesn't exist.", BAN_FILE); + return; + } + while (fscanf(fl, " %s %s %d %s ", ban_type, site_name, &date, name) == 4) { + CREATE(next_node, struct ban_list_element, 1); + strncpy(next_node->site, site_name, BANNED_SITE_LENGTH); /* strncpy: OK (n_n->site:BANNED_SITE_LENGTH+1) */ + next_node->site[BANNED_SITE_LENGTH] = '\0'; + strncpy(next_node->name, name, MAX_NAME_LENGTH); /* strncpy: OK (n_n->name:MAX_NAME_LENGTH+1) */ + next_node->name[MAX_NAME_LENGTH] = '\0'; + next_node->date = date; + + for (i = BAN_NOT; i <= BAN_ALL; i++) + if (!strcmp(ban_type, ban_types[i])) + next_node->type = i; + + next_node->next = ban_list; + ban_list = next_node; + } + + fclose(fl); +} + + +int isbanned(char *hostname) +{ + int i; + struct ban_list_element *banned_node; + char *nextchar; + + if (!hostname || !*hostname) + return (0); + + i = 0; + for (nextchar = hostname; *nextchar; nextchar++) + *nextchar = LOWER(*nextchar); + + for (banned_node = ban_list; banned_node; banned_node = banned_node->next) + if (strstr(hostname, banned_node->site)) /* if hostname is a substring */ + i = MAX(i, banned_node->type); + + return (i); +} + + +void _write_one_node(FILE *fp, struct ban_list_element *node) +{ + if (node) { + _write_one_node(fp, node->next); + fprintf(fp, "%s %s %ld %s\n", ban_types[node->type], + node->site, (long) node->date, node->name); + } +} + + + +void write_ban_list(void) +{ + FILE *fl; + + if (!(fl = fopen(BAN_FILE, "w"))) { + perror("SYSERR: Unable to open '" BAN_FILE "' for writing"); + return; + } + _write_one_node(fl, ban_list);/* recursively write from end to start */ + fclose(fl); + return; +} + + +#define BAN_LIST_FORMAT "%-25.25s %-8.8s %-10.10s %-16.16s\r\n" +ACMD(do_ban) +{ + char flag[MAX_INPUT_LENGTH], site[MAX_INPUT_LENGTH], *nextchar; + char timestr[16]; + int i; + struct ban_list_element *ban_node; + + if (!*argument) { + if (!ban_list) { + send_to_char(ch, "No sites are banned.\r\n"); + return; + } + send_to_char(ch, BAN_LIST_FORMAT, + "Banned Site Name", + "Ban Type", + "Banned On", + "Banned By"); + send_to_char(ch, BAN_LIST_FORMAT, + "---------------------------------", + "---------------------------------", + "---------------------------------", + "---------------------------------"); + + for (ban_node = ban_list; ban_node; ban_node = ban_node->next) { + if (ban_node->date) { + strlcpy(timestr, asctime(localtime(&(ban_node->date))), 10); + timestr[10] = '\0'; + } else + strcpy(timestr, "Unknown"); /* strcpy: OK (strlen("Unknown") < 16) */ + + send_to_char(ch, BAN_LIST_FORMAT, ban_node->site, ban_types[ban_node->type], timestr, ban_node->name); + } + return; + } + + two_arguments(argument, flag, site); + if (!*site || !*flag) { + send_to_char(ch, "Usage: ban {all | select | new} site_name\r\n"); + return; + } + if (!(!str_cmp(flag, "select") || !str_cmp(flag, "all") || !str_cmp(flag, "new"))) { + send_to_char(ch, "Flag must be ALL, SELECT, or NEW.\r\n"); + return; + } + for (ban_node = ban_list; ban_node; ban_node = ban_node->next) { + if (!str_cmp(ban_node->site, site)) { + send_to_char(ch, "That site has already been banned -- unban it to change the ban type.\r\n"); + return; + } + } + + CREATE(ban_node, struct ban_list_element, 1); + strncpy(ban_node->site, site, BANNED_SITE_LENGTH); /* strncpy: OK (b_n->site:BANNED_SITE_LENGTH+1) */ + for (nextchar = ban_node->site; *nextchar; nextchar++) + *nextchar = LOWER(*nextchar); + ban_node->site[BANNED_SITE_LENGTH] = '\0'; + strncpy(ban_node->name, GET_NAME(ch), MAX_NAME_LENGTH); /* strncpy: OK (b_n->size:MAX_NAME_LENGTH+1) */ + ban_node->name[MAX_NAME_LENGTH] = '\0'; + ban_node->date = time(0); + + for (i = BAN_NEW; i <= BAN_ALL; i++) + if (!str_cmp(flag, ban_types[i])) + ban_node->type = i; + + ban_node->next = ban_list; + ban_list = ban_node; + + mudlog(NRM, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "%s has banned %s for %s players.", + GET_NAME(ch), site, ban_types[ban_node->type]); + send_to_char(ch, "Site banned.\r\n"); + write_ban_list(); +} +#undef BAN_LIST_FORMAT + + +ACMD(do_unban) +{ + char site[MAX_INPUT_LENGTH]; + struct ban_list_element *ban_node, *temp; + int found = 0; + + one_argument(argument, site); + if (!*site) { + send_to_char(ch, "A site to unban might help.\r\n"); + return; + } + ban_node = ban_list; + while (ban_node && !found) { + if (!str_cmp(ban_node->site, site)) + found = 1; + else + ban_node = ban_node->next; + } + + if (!found) { + send_to_char(ch, "That site is not currently banned.\r\n"); + return; + } + REMOVE_FROM_LIST(ban_node, ban_list, next); + send_to_char(ch, "Site unbanned.\r\n"); + mudlog(NRM, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "%s removed the %s-player ban on %s.", + GET_NAME(ch), ban_types[ban_node->type], ban_node->site); + + free(ban_node); + write_ban_list(); +} + + +/************************************************************************** + * Code to check for invalid names (i.e., profanity, etc.) * + * Written by Sharon P. Goza * + **************************************************************************/ + +#define MAX_INVALID_NAMES 200 + +char *invalid_list[MAX_INVALID_NAMES]; +int num_invalid = 0; + +int Valid_Name(char *newname) +{ + int i; + struct descriptor_data *dt; + char tempname[MAX_INPUT_LENGTH]; + + /* + * Make sure someone isn't trying to create this same name. We want to + * do a 'str_cmp' so people can't do 'Bob' and 'BoB'. The creating login + * will not have a character name yet and other people sitting at the + * prompt won't have characters yet. + */ + for (dt = descriptor_list; dt; dt = dt->next) + if (dt->character && GET_NAME(dt->character) && !str_cmp(GET_NAME(dt->character), newname)) + return (STATE(dt) == CON_PLAYING); + + /* return valid if list doesn't exist */ + if (!invalid_list || num_invalid < 1) + return (1); + + /* change to lowercase */ + strlcpy(tempname, newname, sizeof(tempname)); + for (i = 0; tempname[i]; i++) + tempname[i] = LOWER(tempname[i]); + + /* Does the desired name contain a string in the invalid list? */ + for (i = 0; i < num_invalid; i++) + if (strstr(tempname, invalid_list[i])) + return (0); + + return (1); +} + + +/* What's with the wacky capitalization in here? */ +void Free_Invalid_List(void) +{ + int invl; + + for (invl = 0; invl < num_invalid; invl++) + free(invalid_list[invl]); + + num_invalid = 0; +} + + +void Read_Invalid_List(void) +{ + FILE *fp; + char temp[256]; + + if (!(fp = fopen(XNAME_FILE, "r"))) { + perror("SYSERR: Unable to open '" XNAME_FILE "' for reading"); + return; + } + + num_invalid = 0; + while (get_line(fp, temp) && num_invalid < MAX_INVALID_NAMES) + invalid_list[num_invalid++] = strdup(temp); + + if (num_invalid >= MAX_INVALID_NAMES) { + log("SYSERR: Too many invalid names; change MAX_INVALID_NAMES in ban.c"); + exit(1); + } + + fclose(fp); +} diff --git a/src/boards.c b/src/boards.c new file mode 100644 index 0000000..f474ac7 --- /dev/null +++ b/src/boards.c @@ -0,0 +1,551 @@ +/* ************************************************************************ +* File: boards.c Part of CircleMUD * +* Usage: handling of multiple bulletin boards * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + + +/* FEATURES & INSTALLATION INSTRUCTIONS *********************************** + +This board code has many improvements over the infamously buggy standard +Diku board code. Features include: + +- Arbitrary number of boards handled by one set of generalized routines. + Adding a new board is as easy as adding another entry to an array. +- Safe removal of messages while other messages are being written. +- Does not allow messages to be removed by someone of a level less than + the poster's level. + + +TO ADD A NEW BOARD, simply follow our easy 4-step program: + +1 - Create a new board object in the object files + +2 - Increase the NUM_OF_BOARDS constant in boards.h + +3 - Add a new line to the board_info array below. The fields, in order, are: + + Board's virtual number. + Min level one must be to look at this board or read messages on it. + Min level one must be to post a message to the board. + Min level one must be to remove other people's messages from this + board (but you can always remove your own message). + Filename of this board, in quotes. + Last field must always be 0. + +4 - In spec_assign.c, find the section which assigns the special procedure + gen_board to the other bulletin boards, and add your new one in a + similar fashion. + +*/ + + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "db.h" +#include "boards.h" +#include "interpreter.h" +#include "handler.h" + +/* Board appearance order. */ +#define NEWEST_AT_TOP FALSE + +/* +format: vnum, read lvl, write lvl, remove lvl, filename, 0 at end +Be sure to also change NUM_OF_BOARDS in board.h +*/ +struct board_info_type board_info[NUM_OF_BOARDS] = { + {3099, 0, 0, LVL_GOD, LIB_ETC "board.mort", 0}, + {3098, LVL_IMMORT, LVL_IMMORT, LVL_GRGOD, LIB_ETC "board.immort", 0}, + {3097, LVL_IMMORT, LVL_FREEZE, LVL_IMPL, LIB_ETC "board.freeze", 0}, + {3096, 0, 0, LVL_IMMORT, LIB_ETC "board.social", 0}, +}; + +/* local functions */ +SPECIAL(gen_board); +int find_slot(void); +int find_board(struct char_data *ch); +void init_boards(void); + +char *msg_storage[INDEX_SIZE]; +int msg_storage_taken[INDEX_SIZE]; +int num_of_msgs[NUM_OF_BOARDS]; +int ACMD_READ, ACMD_LOOK, ACMD_EXAMINE, ACMD_WRITE, ACMD_REMOVE; +struct board_msginfo msg_index[NUM_OF_BOARDS][MAX_BOARD_MESSAGES]; + + +int find_slot(void) +{ + int i; + + for (i = 0; i < INDEX_SIZE; i++) + if (!msg_storage_taken[i]) { + msg_storage_taken[i] = 1; + return (i); + } + return (-1); +} + + +/* search the room ch is standing in to find which board he's looking at */ +int find_board(struct char_data *ch) +{ + struct obj_data *obj; + int i; + + for (obj = world[IN_ROOM(ch)].contents; obj; obj = obj->next_content) + for (i = 0; i < NUM_OF_BOARDS; i++) + if (BOARD_RNUM(i) == GET_OBJ_RNUM(obj)) + return (i); + + if (GET_LEVEL(ch) >= LVL_IMMORT) + for (obj = ch->carrying; obj; obj = obj->next_content) + for (i = 0; i < NUM_OF_BOARDS; i++) + if (BOARD_RNUM(i) == GET_OBJ_RNUM(obj)) + return (i); + + return (-1); +} + + +void init_boards(void) +{ + int i, j, fatal_error = 0; + + for (i = 0; i < INDEX_SIZE; i++) { + msg_storage[i] = 0; + msg_storage_taken[i] = 0; + } + + for (i = 0; i < NUM_OF_BOARDS; i++) { + if ((BOARD_RNUM(i) = real_object(BOARD_VNUM(i))) == NOTHING) { + log("SYSERR: Fatal board error: board vnum %d does not exist!", + BOARD_VNUM(i)); + fatal_error = 1; + } + num_of_msgs[i] = 0; + for (j = 0; j < MAX_BOARD_MESSAGES; j++) { + memset((char *) &(msg_index[i][j]), 0, sizeof(struct board_msginfo)); + msg_index[i][j].slot_num = -1; + } + Board_load_board(i); + } + + ACMD_READ = find_command("read"); + ACMD_WRITE = find_command("write"); + ACMD_REMOVE = find_command("remove"); + ACMD_LOOK = find_command("look"); + ACMD_EXAMINE = find_command("examine"); + + if (fatal_error) + exit(1); +} + + +SPECIAL(gen_board) +{ + int board_type; + static int loaded = 0; + struct obj_data *board = (struct obj_data *)me; + + if (!loaded) { + init_boards(); + loaded = 1; + } + if (!ch->desc) + return (0); + + if (cmd != ACMD_WRITE && cmd != ACMD_LOOK && cmd != ACMD_EXAMINE && + cmd != ACMD_READ && cmd != ACMD_REMOVE) + return (0); + + if ((board_type = find_board(ch)) == -1) { + log("SYSERR: degenerate board! (what the hell...)"); + return (0); + } + if (cmd == ACMD_WRITE) + return (Board_write_message(board_type, ch, argument, board)); + else if (cmd == ACMD_LOOK || cmd == ACMD_EXAMINE) + return (Board_show_board(board_type, ch, argument, board)); + else if (cmd == ACMD_READ) + return (Board_display_msg(board_type, ch, argument, board)); + else if (cmd == ACMD_REMOVE) + return (Board_remove_msg(board_type, ch, argument, board)); + else + return (0); +} + + +int Board_write_message(int board_type, struct char_data *ch, char *arg, struct obj_data *board) +{ + char *tmstr; + time_t ct; + char buf[MAX_INPUT_LENGTH], buf2[MAX_NAME_LENGTH + 3]; + + if (GET_LEVEL(ch) < WRITE_LVL(board_type)) { + send_to_char(ch, "You are not holy enough to write on this board.\r\n"); + return (1); + } + if (num_of_msgs[board_type] >= MAX_BOARD_MESSAGES) { + send_to_char(ch, "The board is full.\r\n"); + return (1); + } + if ((NEW_MSG_INDEX(board_type).slot_num = find_slot()) == -1) { + send_to_char(ch, "The board is malfunctioning - sorry.\r\n"); + log("SYSERR: Board: failed to find empty slot on write."); + return (1); + } + /* skip blanks */ + skip_spaces(&arg); + delete_doubledollar(arg); + + /* JE 27 Oct 95 - Truncate headline at 80 chars if it's longer than that */ + arg[80] = '\0'; + + if (!*arg) { + send_to_char(ch, "We must have a headline!\r\n"); + return (1); + } + ct = time(0); + tmstr = (char *) asctime(localtime(&ct)); + *(tmstr + strlen(tmstr) - 1) = '\0'; + + snprintf(buf2, sizeof(buf2), "(%s)", GET_NAME(ch)); + snprintf(buf, sizeof(buf), "%6.10s %-12s :: %s", tmstr, buf2, arg); + NEW_MSG_INDEX(board_type).heading = strdup(buf); + NEW_MSG_INDEX(board_type).level = GET_LEVEL(ch); + + send_to_char(ch, "Write your message. Terminate with a @ on a new line.\r\n\r\n"); + act("$n starts to write a message.", TRUE, ch, 0, 0, TO_ROOM); + + string_write(ch->desc, &(msg_storage[NEW_MSG_INDEX(board_type).slot_num]), + MAX_MESSAGE_LENGTH, board_type + BOARD_MAGIC, NULL); + + num_of_msgs[board_type]++; + return (1); +} + + +int Board_show_board(int board_type, struct char_data *ch, char *arg, struct obj_data *board) +{ + int i; + char tmp[MAX_STRING_LENGTH], buf[MAX_STRING_LENGTH]; + + if (!ch->desc) + return (0); + + one_argument(arg, tmp); + + if (!*tmp || !isname(tmp, board->name)) + return (0); + + if (GET_LEVEL(ch) < READ_LVL(board_type)) { + send_to_char(ch, "You try but fail to understand the holy words.\r\n"); + return (1); + } + act("$n studies the board.", TRUE, ch, 0, 0, TO_ROOM); + + if (!num_of_msgs[board_type]) + send_to_char(ch, "This is a bulletin board. Usage: READ/REMOVE <messg #>, WRITE <header>.\r\nThe board is empty.\r\n"); + else { + size_t len = 0; + int nlen; + + len = snprintf(buf, sizeof(buf), + "This is a bulletin board. Usage: READ/REMOVE <messg #>, WRITE <header>.\r\n" + "You will need to look at the board to save your message.\r\n" + "There are %d messages on the board.\r\n", + num_of_msgs[board_type]); +#if NEWEST_AT_TOP + for (i = num_of_msgs[board_type] - 1; i >= 0; i--) { + if (!MSG_HEADING(board_type, i)) + goto fubar; + + nlen = snprintf(buf + len, sizeof(buf) - len, "%-2d : %s\r\n", num_of_msgs[board_type] - i, MSG_HEADING(board_type, i)); + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + len += nlen; + } +#else + for (i = 0; i < num_of_msgs[board_type]; i++) { + if (!MSG_HEADING(board_type, i)) + goto fubar; + + nlen = snprintf(buf + len, sizeof(buf) - len, "%-2d : %s\r\n", i + 1, MSG_HEADING(board_type, i)); + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + len += nlen; + } +#endif + page_string(ch->desc, buf, TRUE); + } + return (1); + +fubar: + log("SYSERR: Board %d is fubar'd.", board_type); + send_to_char(ch, "Sorry, the board isn't working.\r\n"); + return (1); +} + + +int Board_display_msg(int board_type, struct char_data *ch, char *arg, struct obj_data *board) +{ + char number[MAX_INPUT_LENGTH], buffer[MAX_STRING_LENGTH]; + int msg, ind; + + one_argument(arg, number); + if (!*number) + return (0); + if (isname(number, board->name)) /* so "read board" works */ + return (Board_show_board(board_type, ch, arg, board)); + if (!is_number(number)) /* read 2.mail, look 2.sword */ + return (0); + if (!(msg = atoi(number))) + return (0); + + if (GET_LEVEL(ch) < READ_LVL(board_type)) { + send_to_char(ch, "You try but fail to understand the holy words.\r\n"); + return (1); + } + if (!num_of_msgs[board_type]) { + send_to_char(ch, "The board is empty!\r\n"); + return (1); + } + if (msg < 1 || msg > num_of_msgs[board_type]) { + send_to_char(ch, "That message exists only in your imagination.\r\n"); + return (1); + } +#if NEWEST_AT_TOP + ind = num_of_msgs[board_type] - msg; +#else + ind = msg - 1; +#endif + if (MSG_SLOTNUM(board_type, ind) < 0 || + MSG_SLOTNUM(board_type, ind) >= INDEX_SIZE) { + send_to_char(ch, "Sorry, the board is not working.\r\n"); + log("SYSERR: Board is screwed up. (Room #%d)", GET_ROOM_VNUM(IN_ROOM(ch))); + return (1); + } + if (!(MSG_HEADING(board_type, ind))) { + send_to_char(ch, "That message appears to be screwed up.\r\n"); + return (1); + } + if (!(msg_storage[MSG_SLOTNUM(board_type, ind)])) { + send_to_char(ch, "That message seems to be empty.\r\n"); + return (1); + } + snprintf(buffer, sizeof(buffer), "Message %d : %s\r\n\r\n%s\r\n", msg, + MSG_HEADING(board_type, ind), + msg_storage[MSG_SLOTNUM(board_type, ind)]); + + page_string(ch->desc, buffer, TRUE); + + return (1); +} + + +int Board_remove_msg(int board_type, struct char_data *ch, char *arg, struct obj_data *board) +{ + int ind, msg, slot_num; + char number[MAX_INPUT_LENGTH], buf[MAX_INPUT_LENGTH]; + struct descriptor_data *d; + + one_argument(arg, number); + + if (!*number || !is_number(number)) + return (0); + if (!(msg = atoi(number))) + return (0); + + if (!num_of_msgs[board_type]) { + send_to_char(ch, "The board is empty!\r\n"); + return (1); + } + if (msg < 1 || msg > num_of_msgs[board_type]) { + send_to_char(ch, "That message exists only in your imagination.\r\n"); + return (1); + } +#if NEWEST_AT_TOP + ind = num_of_msgs[board_type] - msg; +#else + ind = msg - 1; +#endif + if (!MSG_HEADING(board_type, ind)) { + send_to_char(ch, "That message appears to be screwed up.\r\n"); + return (1); + } + snprintf(buf, sizeof(buf), "(%s)", GET_NAME(ch)); + if (GET_LEVEL(ch) < REMOVE_LVL(board_type) && + !(strstr(MSG_HEADING(board_type, ind), buf))) { + send_to_char(ch, "You are not holy enough to remove other people's messages.\r\n"); + return (1); + } + if (GET_LEVEL(ch) < MSG_LEVEL(board_type, ind)) { + send_to_char(ch, "You can't remove a message holier than yourself.\r\n"); + return (1); + } + slot_num = MSG_SLOTNUM(board_type, ind); + if (slot_num < 0 || slot_num >= INDEX_SIZE) { + send_to_char(ch, "That message is majorly screwed up.\r\n"); + log("SYSERR: The board is seriously screwed up. (Room #%d)", GET_ROOM_VNUM(IN_ROOM(ch))); + return (1); + } + for (d = descriptor_list; d; d = d->next) + if (STATE(d) == CON_PLAYING && d->str == &(msg_storage[slot_num])) { + send_to_char(ch, "At least wait until the author is finished before removing it!\r\n"); + return (1); + } + if (msg_storage[slot_num]) + free(msg_storage[slot_num]); + msg_storage[slot_num] = 0; + msg_storage_taken[slot_num] = 0; + if (MSG_HEADING(board_type, ind)) + free(MSG_HEADING(board_type, ind)); + + for (; ind < num_of_msgs[board_type] - 1; ind++) { + MSG_HEADING(board_type, ind) = MSG_HEADING(board_type, ind + 1); + MSG_SLOTNUM(board_type, ind) = MSG_SLOTNUM(board_type, ind + 1); + MSG_LEVEL(board_type, ind) = MSG_LEVEL(board_type, ind + 1); + } + MSG_HEADING(board_type, num_of_msgs[board_type] - 1) = NULL; + MSG_SLOTNUM(board_type, num_of_msgs[board_type] - 1) = 0; + MSG_LEVEL(board_type, num_of_msgs[board_type] - 1) = 0; + num_of_msgs[board_type]--; + + send_to_char(ch, "Message removed.\r\n"); + snprintf(buf, sizeof(buf), "$n just removed message %d.", msg); + act(buf, FALSE, ch, 0, 0, TO_ROOM); + Board_save_board(board_type); + + return (1); +} + + +void Board_save_board(int board_type) +{ + FILE *fl; + int i; + char *tmp1, *tmp2 = NULL; + + if (!num_of_msgs[board_type]) { + remove(FILENAME(board_type)); + return; + } + if (!(fl = fopen(FILENAME(board_type), "wb"))) { + perror("SYSERR: Error writing board"); + return; + } + fwrite(&(num_of_msgs[board_type]), sizeof(int), 1, fl); + + for (i = 0; i < num_of_msgs[board_type]; i++) { + if ((tmp1 = MSG_HEADING(board_type, i)) != NULL) + msg_index[board_type][i].heading_len = strlen(tmp1) + 1; + else + msg_index[board_type][i].heading_len = 0; + + if (MSG_SLOTNUM(board_type, i) < 0 || + MSG_SLOTNUM(board_type, i) >= INDEX_SIZE || + (!(tmp2 = msg_storage[MSG_SLOTNUM(board_type, i)]))) + msg_index[board_type][i].message_len = 0; + else + msg_index[board_type][i].message_len = strlen(tmp2) + 1; + + fwrite(&(msg_index[board_type][i]), sizeof(struct board_msginfo), 1, fl); + if (tmp1) + fwrite(tmp1, sizeof(char), msg_index[board_type][i].heading_len, fl); + if (tmp2) + fwrite(tmp2, sizeof(char), msg_index[board_type][i].message_len, fl); + } + + fclose(fl); +} + + +void Board_load_board(int board_type) +{ + FILE *fl; + int i, len1, len2; + char *tmp1, *tmp2; + + if (!(fl = fopen(FILENAME(board_type), "rb"))) { + if (errno != ENOENT) + perror("SYSERR: Error reading board"); + return; + } + fread(&(num_of_msgs[board_type]), sizeof(int), 1, fl); + if (num_of_msgs[board_type] < 1 || num_of_msgs[board_type] > MAX_BOARD_MESSAGES) { + log("SYSERR: Board file %d corrupt. Resetting.", board_type); + Board_reset_board(board_type); + return; + } + for (i = 0; i < num_of_msgs[board_type]; i++) { + fread(&(msg_index[board_type][i]), sizeof(struct board_msginfo), 1, fl); + if ((len1 = msg_index[board_type][i].heading_len) <= 0) { + log("SYSERR: Board file %d corrupt! Resetting.", board_type); + Board_reset_board(board_type); + return; + } + CREATE(tmp1, char, len1); + fread(tmp1, sizeof(char), len1, fl); + MSG_HEADING(board_type, i) = tmp1; + + if ((MSG_SLOTNUM(board_type, i) = find_slot()) == -1) { + log("SYSERR: Out of slots booting board %d! Resetting...", board_type); + Board_reset_board(board_type); + return; + } + if ((len2 = msg_index[board_type][i].message_len) > 0) { + CREATE(tmp2, char, len2); + fread(tmp2, sizeof(char), len2, fl); + msg_storage[MSG_SLOTNUM(board_type, i)] = tmp2; + } else + msg_storage[MSG_SLOTNUM(board_type, i)] = NULL; + } + + fclose(fl); +} + + +/* When shutting down, clear all boards. */ +void Board_clear_all(void) +{ + int i; + + for (i = 0; i < NUM_OF_BOARDS; i++) + Board_clear_board(i); +} + + +/* Clear the in-memory structures. */ +void Board_clear_board(int board_type) +{ + int i; + + for (i = 0; i < MAX_BOARD_MESSAGES; i++) { + if (MSG_HEADING(board_type, i)) + free(MSG_HEADING(board_type, i)); + if (msg_storage[MSG_SLOTNUM(board_type, i)]) + free(msg_storage[MSG_SLOTNUM(board_type, i)]); + msg_storage_taken[MSG_SLOTNUM(board_type, i)] = 0; + memset((char *)&(msg_index[board_type][i]),0,sizeof(struct board_msginfo)); + msg_index[board_type][i].slot_num = -1; + } + num_of_msgs[board_type] = 0; +} + + +/* Destroy the on-disk and in-memory board. */ +void Board_reset_board(int board_type) +{ + Board_clear_board(board_type); + remove(FILENAME(board_type)); +} diff --git a/src/boards.h b/src/boards.h new file mode 100644 index 0000000..a8ccdac --- /dev/null +++ b/src/boards.h @@ -0,0 +1,56 @@ +/* ************************************************************************ +* File: boards.h Part of CircleMUD * +* Usage: header file for bulletin boards * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define NUM_OF_BOARDS 4 /* change if needed! */ +#define MAX_BOARD_MESSAGES 60 /* arbitrary -- change if needed */ +#define MAX_MESSAGE_LENGTH 4096 /* arbitrary -- change if needed */ + +#define INDEX_SIZE ((NUM_OF_BOARDS*MAX_BOARD_MESSAGES) + 5) + +#define BOARD_MAGIC 1048575 /* arbitrary number - see modify.c */ + +struct board_msginfo { + int slot_num; /* pos of message in "master index" */ + char *heading; /* pointer to message's heading */ + int level; /* level of poster */ + int heading_len; /* size of header (for file write) */ + int message_len; /* size of message text (for file write) */ +}; + +struct board_info_type { + obj_vnum vnum; /* vnum of this board */ + int read_lvl; /* min level to read messages on this board */ + int write_lvl; /* min level to write messages on this board */ + int remove_lvl; /* min level to remove messages from this board */ + char filename[50]; /* file to save this board to */ + obj_rnum rnum; /* rnum of this board */ +}; + +#define BOARD_VNUM(i) (board_info[i].vnum) +#define READ_LVL(i) (board_info[i].read_lvl) +#define WRITE_LVL(i) (board_info[i].write_lvl) +#define REMOVE_LVL(i) (board_info[i].remove_lvl) +#define FILENAME(i) (board_info[i].filename) +#define BOARD_RNUM(i) (board_info[i].rnum) + +#define NEW_MSG_INDEX(i) (msg_index[i][num_of_msgs[i]]) +#define MSG_HEADING(i, j) (msg_index[i][j].heading) +#define MSG_SLOTNUM(i, j) (msg_index[i][j].slot_num) +#define MSG_LEVEL(i, j) (msg_index[i][j].level) + +int Board_display_msg(int board_type, struct char_data *ch, char *arg, struct obj_data *board); +int Board_show_board(int board_type, struct char_data *ch, char *arg, struct obj_data *board); +int Board_remove_msg(int board_type, struct char_data *ch, char *arg, struct obj_data *board); +int Board_write_message(int board_type, struct char_data *ch, char *arg, struct obj_data *board); +void Board_save_board(int board_type); +void Board_load_board(int board_type); +void Board_reset_board(int board_type); +void Board_clear_board(int board_type); +void Board_clear_all(void); diff --git a/src/bsd-snprintf.c b/src/bsd-snprintf.c new file mode 100644 index 0000000..8ec56a5 --- /dev/null +++ b/src/bsd-snprintf.c @@ -0,0 +1,788 @@ +/* + * This file taken from openbsd-compat of OpenSSH 3.1. It is only used + * if your operating system does not provide snprintf() or vsnprintf(). + * + * --- 8< --- OpenSSH LICENSE --- 8< --- + * Remaining components of the software are provided under a standard + * 2-term BSD licence with the following names as copyright holders: + * + * Markus Friedl + * Theo de Raadt + * Niels Provos + * Dug Song + * Aaron Campbell + * Damien Miller + * Kevin Steves + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR + * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES + * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. + * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, + * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT + * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, + * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY + * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT + * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF + * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + * --- 8< --- OpenSSH LICENSE --- 8< --- + */ + +/************************************************************** + * Original: + * Patrick Powell Tue Apr 11 09:48:21 PDT 1995 + * A bombproof version of doprnt (dopr) included. + * Sigh. This sort of thing is always nasty do deal with. Note that + * the version here does not include floating point... + * + * snprintf() is used instead of sprintf() as it does limit checks + * for string length. This covers a nasty loophole. + * + * The other functions are there to prevent NULL pointers from + * causing nast effects. + * + * More Recently: + * Brandon Long <blong@fiction.net> 9/15/96 for mutt 0.43 + * This was ugly. It is still ugly. I opted out of floating point + * numbers, but the formatter understands just about everything + * from the normal C string format, at least as far as I can tell from + * the Solaris 2.5 printf(3S) man page. + * + * Brandon Long <blong@fiction.net> 10/22/97 for mutt 0.87.1 + * Ok, added some minimal floating point support, which means this + * probably requires libm on most operating systems. Don't yet + * support the exponent (e,E) and sigfig (g,G). Also, fmtint() + * was pretty badly broken, it just wasn't being exercised in ways + * which showed it, so that's been fixed. Also, formated the code + * to mutt conventions, and removed dead code left over from the + * original. Also, there is now a builtin-test, just compile with: + * gcc -DTEST_SNPRINTF -o snprintf snprintf.c -lm + * and run snprintf for results. + * + * Thomas Roessler <roessler@guug.de> 01/27/98 for mutt 0.89i + * The PGP code was using unsigned hexadecimal formats. + * Unfortunately, unsigned formats simply didn't work. + * + * Michael Elkins <me@cs.hmc.edu> 03/05/98 for mutt 0.90.8 + * The original code assumed that both snprintf() and vsnprintf() were + * missing. Some systems only have snprintf() but not vsnprintf(), so + * the code is now broken down under HAVE_SNPRINTF and HAVE_VSNPRINTF. + * + * Ben Lindstrom <mouring@eviladmin.org> 09/27/00 for OpenSSH + * Welcome to the world of %lld and %qd support. With other + * long long support. This is needed for sftp-server to work + * right. + * + * Ben Lindstrom <mouring@eviladmin.org> 02/12/01 for OpenSSH + * Removed all hint of VARARGS stuff and banished it to the void, + * and did a bit of KNF style work to make things a bit more + * acceptable. Consider stealing from mutt or enlightenment. + **************************************************************/ + +#if 0 +#include "includes.h" + +RCSID("$Id: bsd-snprintf.c,v 1.1 2002/04/16 02:22:12 greerga Exp $"); +#else +# include "conf.h" +# include "sysdep.h" +# define MAX(a, b) ((a) < (b) ? (b) : (a)) +#endif + +#if defined(BROKEN_SNPRINTF) /* For those with broken snprintf() */ +# undef HAVE_SNPRINTF +# undef HAVE_VSNPRINTF +#endif + +#if !defined(HAVE_SNPRINTF) || !defined(HAVE_VSNPRINTF) + +static void +dopr(char *buffer, size_t maxlen, const char *format, va_list args); + +static void +fmtstr(char *buffer, size_t *currlen, size_t maxlen, char *value, int flags, + int min, int max); + +static void +fmtint(char *buffer, size_t *currlen, size_t maxlen, long value, int base, + int min, int max, int flags); + +static void +fmtfp(char *buffer, size_t *currlen, size_t maxlen, long double fvalue, + int min, int max, int flags); + +static void +dopr_outch(char *buffer, size_t *currlen, size_t maxlen, char c); + +/* + * dopr(): poor man's version of doprintf + */ + +/* format read states */ +#define DP_S_DEFAULT 0 +#define DP_S_FLAGS 1 +#define DP_S_MIN 2 +#define DP_S_DOT 3 +#define DP_S_MAX 4 +#define DP_S_MOD 5 +#define DP_S_CONV 6 +#define DP_S_DONE 7 + +/* format flags - Bits */ +#define DP_F_MINUS (1 << 0) +#define DP_F_PLUS (1 << 1) +#define DP_F_SPACE (1 << 2) +#define DP_F_NUM (1 << 3) +#define DP_F_ZERO (1 << 4) +#define DP_F_UP (1 << 5) +#define DP_F_UNSIGNED (1 << 6) + +/* Conversion Flags */ +#define DP_C_SHORT 1 +#define DP_C_LONG 2 +#define DP_C_LDOUBLE 3 +#define DP_C_LONG_LONG 4 + +#define char_to_int(p) (p - '0') +#define abs_val(p) (p < 0 ? -p : p) + + +static void +dopr(char *buffer, size_t maxlen, const char *format, va_list args) +{ + char *strvalue; + char ch; + long value; + long double fvalue; + int min = 0; + int max = -1; + int state = DP_S_DEFAULT; + int flags = 0; + int cflags = 0; + size_t currlen = 0; + + ch = *format++; + + while (state != DP_S_DONE) { + if ((ch == '\0') || (currlen >= maxlen)) + state = DP_S_DONE; + + switch(state) { + case DP_S_DEFAULT: + if (ch == '%') + state = DP_S_FLAGS; + else + dopr_outch(buffer, &currlen, maxlen, ch); + ch = *format++; + break; + case DP_S_FLAGS: + switch (ch) { + case '-': + flags |= DP_F_MINUS; + ch = *format++; + break; + case '+': + flags |= DP_F_PLUS; + ch = *format++; + break; + case ' ': + flags |= DP_F_SPACE; + ch = *format++; + break; + case '#': + flags |= DP_F_NUM; + ch = *format++; + break; + case '0': + flags |= DP_F_ZERO; + ch = *format++; + break; + default: + state = DP_S_MIN; + break; + } + break; + case DP_S_MIN: + if (isdigit((unsigned char)ch)) { + min = 10*min + char_to_int (ch); + ch = *format++; + } else if (ch == '*') { + min = va_arg (args, int); + ch = *format++; + state = DP_S_DOT; + } else + state = DP_S_DOT; + break; + case DP_S_DOT: + if (ch == '.') { + state = DP_S_MAX; + ch = *format++; + } else + state = DP_S_MOD; + break; + case DP_S_MAX: + if (isdigit((unsigned char)ch)) { + if (max < 0) + max = 0; + max = 10*max + char_to_int(ch); + ch = *format++; + } else if (ch == '*') { + max = va_arg (args, int); + ch = *format++; + state = DP_S_MOD; + } else + state = DP_S_MOD; + break; + case DP_S_MOD: + switch (ch) { + case 'h': + cflags = DP_C_SHORT; + ch = *format++; + break; + case 'l': + cflags = DP_C_LONG; + ch = *format++; + if (ch == 'l') { + cflags = DP_C_LONG_LONG; + ch = *format++; + } + break; + case 'q': + cflags = DP_C_LONG_LONG; + ch = *format++; + break; + case 'L': + cflags = DP_C_LDOUBLE; + ch = *format++; + break; + default: + break; + } + state = DP_S_CONV; + break; + case DP_S_CONV: + switch (ch) { + case 'd': + case 'i': + if (cflags == DP_C_SHORT) + value = va_arg(args, int); + else if (cflags == DP_C_LONG) + value = va_arg(args, long int); + else if (cflags == DP_C_LONG_LONG) + value = va_arg (args, long long); + else + value = va_arg (args, int); + fmtint(buffer, &currlen, maxlen, value, 10, min, max, flags); + break; + case 'o': + flags |= DP_F_UNSIGNED; + if (cflags == DP_C_SHORT) + value = va_arg(args, unsigned int); + else if (cflags == DP_C_LONG) + value = va_arg(args, unsigned long int); + else if (cflags == DP_C_LONG_LONG) + value = va_arg(args, unsigned long long); + else + value = va_arg(args, unsigned int); + fmtint(buffer, &currlen, maxlen, value, 8, min, max, flags); + break; + case 'u': + flags |= DP_F_UNSIGNED; + if (cflags == DP_C_SHORT) + value = va_arg(args, unsigned int); + else if (cflags == DP_C_LONG) + value = va_arg(args, unsigned long int); + else if (cflags == DP_C_LONG_LONG) + value = va_arg(args, unsigned long long); + else + value = va_arg(args, unsigned int); + fmtint (buffer, &currlen, maxlen, value, 10, min, max, flags); + break; + case 'X': + flags |= DP_F_UP; + case 'x': + flags |= DP_F_UNSIGNED; + if (cflags == DP_C_SHORT) + value = va_arg(args, unsigned int); + else if (cflags == DP_C_LONG) + value = va_arg(args, unsigned long int); + else if (cflags == DP_C_LONG_LONG) + value = va_arg(args, unsigned long long); + else + value = va_arg(args, unsigned int); + fmtint(buffer, &currlen, maxlen, value, 16, min, max, flags); + break; + case 'f': + if (cflags == DP_C_LDOUBLE) + fvalue = va_arg(args, long double); + else + fvalue = va_arg(args, double); + /* um, floating point? */ + fmtfp(buffer, &currlen, maxlen, fvalue, min, max, flags); + break; + case 'E': + flags |= DP_F_UP; + case 'e': + if (cflags == DP_C_LDOUBLE) + fvalue = va_arg(args, long double); + else + fvalue = va_arg(args, double); + break; + case 'G': + flags |= DP_F_UP; + case 'g': + if (cflags == DP_C_LDOUBLE) + fvalue = va_arg(args, long double); + else + fvalue = va_arg(args, double); + break; + case 'c': + dopr_outch(buffer, &currlen, maxlen, va_arg(args, int)); + break; + case 's': + strvalue = va_arg(args, char *); + if (max < 0) + max = maxlen; /* ie, no max */ + fmtstr(buffer, &currlen, maxlen, strvalue, flags, min, max); + break; + case 'p': + strvalue = va_arg(args, void *); + fmtint(buffer, &currlen, maxlen, (long) strvalue, 16, min, max, flags); + break; + case 'n': + if (cflags == DP_C_SHORT) { + short int *num; + num = va_arg(args, short int *); + *num = currlen; + } else if (cflags == DP_C_LONG) { + long int *num; + num = va_arg(args, long int *); + *num = currlen; + } else if (cflags == DP_C_LONG_LONG) { + long long *num; + num = va_arg(args, long long *); + *num = currlen; + } else { + int *num; + num = va_arg(args, int *); + *num = currlen; + } + break; + case '%': + dopr_outch(buffer, &currlen, maxlen, ch); + break; + case 'w': /* not supported yet, treat as next char */ + ch = *format++; + break; + default: /* Unknown, skip */ + break; + } + ch = *format++; + state = DP_S_DEFAULT; + flags = cflags = min = 0; + max = -1; + break; + case DP_S_DONE: + break; + default: /* hmm? */ + break; /* some picky compilers need this */ + } + } + if (currlen < maxlen - 1) + buffer[currlen] = '\0'; + else + buffer[maxlen - 1] = '\0'; +} + +static void +fmtstr(char *buffer, size_t *currlen, size_t maxlen, + char *value, int flags, int min, int max) +{ + int padlen, strln; /* amount to pad */ + int cnt = 0; + + if (value == 0) + value = "<NULL>"; + + for (strln = 0; value[strln]; ++strln); /* strlen */ + padlen = min - strln; + if (padlen < 0) + padlen = 0; + if (flags & DP_F_MINUS) + padlen = -padlen; /* Left Justify */ + + while ((padlen > 0) && (cnt < max)) { + dopr_outch(buffer, currlen, maxlen, ' '); + --padlen; + ++cnt; + } + while (*value && (cnt < max)) { + dopr_outch(buffer, currlen, maxlen, *value++); + ++cnt; + } + while ((padlen < 0) && (cnt < max)) { + dopr_outch(buffer, currlen, maxlen, ' '); + ++padlen; + ++cnt; + } +} + +/* Have to handle DP_F_NUM (ie 0x and 0 alternates) */ + +static void +fmtint(char *buffer, size_t *currlen, size_t maxlen, + long value, int base, int min, int max, int flags) +{ + unsigned long uvalue; + char convert[20]; + int signvalue = 0; + int place = 0; + int spadlen = 0; /* amount to space pad */ + int zpadlen = 0; /* amount to zero pad */ + int caps = 0; + + if (max < 0) + max = 0; + + uvalue = value; + + if (!(flags & DP_F_UNSIGNED)) { + if (value < 0) { + signvalue = '-'; + uvalue = -value; + } else if (flags & DP_F_PLUS) /* Do a sign (+/i) */ + signvalue = '+'; + else if (flags & DP_F_SPACE) + signvalue = ' '; + } + + if (flags & DP_F_UP) + caps = 1; /* Should characters be upper case? */ + + do { + convert[place++] = + (caps? "0123456789ABCDEF":"0123456789abcdef") + [uvalue % (unsigned)base]; + uvalue = (uvalue / (unsigned)base ); + } while (uvalue && (place < 20)); + if (place == 20) + place--; + convert[place] = 0; + + zpadlen = max - place; + spadlen = min - MAX (max, place) - (signvalue ? 1 : 0); + if (zpadlen < 0) + zpadlen = 0; + if (spadlen < 0) + spadlen = 0; + if (flags & DP_F_ZERO) { + zpadlen = MAX(zpadlen, spadlen); + spadlen = 0; + } + if (flags & DP_F_MINUS) + spadlen = -spadlen; /* Left Justifty */ + + + /* Spaces */ + while (spadlen > 0) { + dopr_outch(buffer, currlen, maxlen, ' '); + --spadlen; + } + + /* Sign */ + if (signvalue) + dopr_outch(buffer, currlen, maxlen, signvalue); + + /* Zeros */ + if (zpadlen > 0) { + while (zpadlen > 0) { + dopr_outch(buffer, currlen, maxlen, '0'); + --zpadlen; + } + } + + /* Digits */ + while (place > 0) + dopr_outch(buffer, currlen, maxlen, convert[--place]); + + /* Left Justified spaces */ + while (spadlen < 0) { + dopr_outch (buffer, currlen, maxlen, ' '); + ++spadlen; + } +} + +static long double +pow10(int exp) +{ + long double result = 1; + + while (exp) { + result *= 10; + exp--; + } + + return result; +} + +static long +round(long double value) +{ + long intpart = value; + + value -= intpart; + if (value >= 0.5) + intpart++; + + return intpart; +} + +static void +fmtfp(char *buffer, size_t *currlen, size_t maxlen, long double fvalue, + int min, int max, int flags) +{ + char iconvert[20]; + char fconvert[20]; + int signvalue = 0; + int iplace = 0; + int fplace = 0; + int padlen = 0; /* amount to pad */ + int zpadlen = 0; + int caps = 0; + long intpart; + long fracpart; + long double ufvalue; + + /* + * AIX manpage says the default is 0, but Solaris says the default + * is 6, and sprintf on AIX defaults to 6 + */ + if (max < 0) + max = 6; + + ufvalue = abs_val(fvalue); + + if (fvalue < 0) + signvalue = '-'; + else if (flags & DP_F_PLUS) /* Do a sign (+/i) */ + signvalue = '+'; + else if (flags & DP_F_SPACE) + signvalue = ' '; + + intpart = ufvalue; + + /* + * Sorry, we only support 9 digits past the decimal because of our + * conversion method + */ + if (max > 9) + max = 9; + + /* We "cheat" by converting the fractional part to integer by + * multiplying by a factor of 10 + */ + fracpart = round((pow10 (max)) * (ufvalue - intpart)); + + if (fracpart >= pow10 (max)) { + intpart++; + fracpart -= pow10 (max); + } + + /* Convert integer part */ + do { + iconvert[iplace++] = + (caps? "0123456789ABCDEF":"0123456789abcdef")[intpart % 10]; + intpart = (intpart / 10); + } while(intpart && (iplace < 20)); + if (iplace == 20) + iplace--; + iconvert[iplace] = 0; + + /* Convert fractional part */ + do { + fconvert[fplace++] = + (caps? "0123456789ABCDEF":"0123456789abcdef")[fracpart % 10]; + fracpart = (fracpart / 10); + } while(fracpart && (fplace < 20)); + if (fplace == 20) + fplace--; + fconvert[fplace] = 0; + + /* -1 for decimal point, another -1 if we are printing a sign */ + padlen = min - iplace - max - 1 - ((signvalue) ? 1 : 0); + zpadlen = max - fplace; + if (zpadlen < 0) + zpadlen = 0; + if (padlen < 0) + padlen = 0; + if (flags & DP_F_MINUS) + padlen = -padlen; /* Left Justifty */ + + if ((flags & DP_F_ZERO) && (padlen > 0)) { + if (signvalue) { + dopr_outch(buffer, currlen, maxlen, signvalue); + --padlen; + signvalue = 0; + } + while (padlen > 0) { + dopr_outch(buffer, currlen, maxlen, '0'); + --padlen; + } + } + while (padlen > 0) { + dopr_outch(buffer, currlen, maxlen, ' '); + --padlen; + } + if (signvalue) + dopr_outch(buffer, currlen, maxlen, signvalue); + + while (iplace > 0) + dopr_outch(buffer, currlen, maxlen, iconvert[--iplace]); + + /* + * Decimal point. This should probably use locale to find the correct + * char to print out. + */ + dopr_outch(buffer, currlen, maxlen, '.'); + + while (fplace > 0) + dopr_outch(buffer, currlen, maxlen, fconvert[--fplace]); + + while (zpadlen > 0) { + dopr_outch(buffer, currlen, maxlen, '0'); + --zpadlen; + } + + while (padlen < 0) { + dopr_outch(buffer, currlen, maxlen, ' '); + ++padlen; + } +} + +static void +dopr_outch(char *buffer, size_t *currlen, size_t maxlen, char c) +{ + if (*currlen < maxlen) + buffer[(*currlen)++] = c; +} +#endif /* !defined(HAVE_SNPRINTF) || !defined(HAVE_VSNPRINTF) */ + +#ifndef HAVE_VSNPRINTF +int +vsnprintf(char *str, size_t count, const char *fmt, va_list args) +{ + str[0] = 0; + dopr(str, count, fmt, args); + + return(strlen(str)); +} +#endif /* !HAVE_VSNPRINTF */ + +#ifndef HAVE_SNPRINTF +int +snprintf(char *str,size_t count,const char *fmt,...) +{ + va_list ap; + + va_start(ap, fmt); + (void) vsnprintf(str, count, fmt, ap); + va_end(ap); + + return(strlen(str)); +} + +#ifdef TEST_SNPRINTF +int +main(void) +{ +#define LONG_STRING 1024 + char buf1[LONG_STRING]; + char buf2[LONG_STRING]; + char *fp_fmt[] = { + "%-1.5f", + "%1.5f", + "%123.9f", + "%10.5f", + "% 10.5f", + "%+22.9f", + "%+4.9f", + "%01.3f", + "%4f", + "%3.1f", + "%3.2f", + NULL + }; + double fp_nums[] = { + -1.5, + 134.21, + 91340.2, + 341.1234, + 0203.9, + 0.96, + 0.996, + 0.9996, + 1.996, + 4.136, + 0 + }; + char *int_fmt[] = { + "%-1.5d", + "%1.5d", + "%123.9d", + "%5.5d", + "%10.5d", + "% 10.5d", + "%+22.33d", + "%01.3d", + "%4d", + "%lld", + "%qd", + NULL + }; + long long int_nums[] = { -1, 134, 91340, 341, 0203, 0, 9999999 }; + int x, y; + int fail = 0; + int num = 0; + + printf("Testing snprintf format codes against system sprintf...\n"); + + for (x = 0; fp_fmt[x] != NULL ; x++) { + for (y = 0; fp_nums[y] != 0 ; y++) { + snprintf(buf1, sizeof (buf1), fp_fmt[x], fp_nums[y]); + sprintf (buf2, fp_fmt[x], fp_nums[y]); + if (strcmp (buf1, buf2)) { + printf("snprintf doesn't match Format: %s\n\t" + "snprintf = %s\n\tsprintf = %s\n", + fp_fmt[x], buf1, buf2); + fail++; + } + num++; + } + } + for (x = 0; int_fmt[x] != NULL ; x++) { + for (y = 0; int_nums[y] != 0 ; y++) { + snprintf(buf1, sizeof (buf1), int_fmt[x], int_nums[y]); + sprintf(buf2, int_fmt[x], int_nums[y]); + if (strcmp (buf1, buf2)) { + printf("snprintf doesn't match Format: %s\n\t" + "snprintf = %s\n\tsprintf = %s\n", + int_fmt[x], buf1, buf2); + fail++; + } + num++; + } + } + printf("%d tests failed out of %d.\n", fail, num); + return(0); +} +#endif /* SNPRINTF_TEST */ + +#endif /* !HAVE_SNPRINTF */ diff --git a/src/bsd-snprintf.h b/src/bsd-snprintf.h new file mode 100644 index 0000000..4d6aba5 --- /dev/null +++ b/src/bsd-snprintf.h @@ -0,0 +1,58 @@ +/* + * This file taken from openbsd-compat of OpenSSH 3.1: + * + * --- 8< --- OpenSSH LICENSE --- 8< --- + * Remaining components of the software are provided under a standard + * 2-term BSD licence with the following names as copyright holders: + * + * Markus Friedl + * Theo de Raadt + * Niels Provos + * Dug Song + * Aaron Campbell + * Damien Miller + * Kevin Steves + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR + * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES + * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. + * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, + * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT + * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, + * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY + * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT + * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF + * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + * --- 8< --- OpenSSH LICENSE --- 8< --- + */ + +/* $Id: bsd-snprintf.h,v 1.1 2002/04/16 02:22:12 greerga Exp $ */ + +#ifndef _BSD_SNPRINTF_H +#define _BSD_SNPRINTF_H + +#if 0 +#include "config.h" + +#include <sys/types.h> /* For size_t */ +#endif + +#ifndef HAVE_SNPRINTF +int snprintf(char *str, size_t count, const char *fmt, ...); +#endif /* !HAVE_SNPRINTF */ + +#ifndef HAVE_VSNPRINTF +int vsnprintf(char *str, size_t count, const char *fmt, va_list args); +#endif /* !HAVE_SNPRINTF */ + + +#endif /* _BSD_SNPRINTF_H */ diff --git a/src/build_circlemud.com b/src/build_circlemud.com new file mode 100644 index 0000000..245bdf6 --- /dev/null +++ b/src/build_circlemud.com @@ -0,0 +1,518 @@ +$! +$! BUILD_CIRCLEMUD.COM +$! Written By: Robert Alan Byer +$! byer@mail.ourservers.net +$! +$! This script checks the file names and then compiles and links CircleMUD for +$! OpenVMS using DEC C and the DEC C TCP/IP socket routines. +$! +$! The script accepts the following parameters. +$! +$! P1 ALL Build Everything. +$! CIRCLE Just Build [-.BIN]CIRCLE.EXE. +$! UTILS Just Build The CircleMUD Utilities. +$! +$! P2 DEBUG Build With Debugger Information. +$! NODEBUG Build Withoug Debugger Information. +$! +$! The default is "ALL" and "NODEBUG". +$! +$! Check To Make Sure We Have Valid Command Line Parameters. +$! +$ GOSUB CHECK_OPTIONS +$! +$! Check To See If We Are On An AXP Machine. +$! +$ IF (F$GETSYI("CPU").LT.128) +$ THEN +$! +$! We Are On A VAX Machine So Tell The User. +$! +$ WRITE SYS$OUTPUT "Compiling On A VAX Machine." +$! +$! Else, We Are On An AXP Machine. +$! +$ ELSE +$! +$! We Are On A AXP Machine So Tell The User. +$! +$ WRITE SYS$OUTPUT "Compiling On A AXP Machine." +$! +$! End Of The Machine Check. +$! +$ ENDIF +$! +$! Check The CONF.H File. +$! +$ GOSUB CHECK_CONF_FILE +$! +$! Check Filenames. +$! +$ GOSUB CHECK_FILE_NAMES +$! +$! Check To See What We Are To Do. +$! +$ IF (BUILDALL.EQS."TRUE") +$ THEN +$! +$! Since Nothing Special Was Specified, Build Everything. +$! +$ GOSUB BUILD_CIRCLE +$ GOSUB BUILD_UTILS +$! +$! Else... +$! +$ ELSE +$! +$! Build Just What The User Wants Us To Build. +$! +$ GOSUB BUILD_'BUILDALL' +$! +$! Time To End The Build Check. +$! +$ ENDIF +$! +$! Time To EXIT. +$! +$ EXIT +$! +$! Build [-.BIN]CIRCLE.EXE +$! +$ BUILD_CIRCLE: +$! +$! Tell The User What We Are Doing. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "Compiling [-.BIN]CIRCLE.EXE" +$ WRITE SYS$OUTPUT "" +$! +$! Define The CIRCLE.EXE Files That Are Necessary. +$! +$ CIRCLE_FILES = "ACT_COMM,ACT_INFORMATIVE,ACT_ITEM,ACT_MOVEMENT," + - + "ACT_OFFENSIVE,ACT_OTHER,ACT_SOCIAL,ACT_WIZARD," + - + "ALIAS,BAN,BOARDS,CASTLE,CLASS,COMM,CONFIG," + - + "CONSTANTS,DB,FIGHT,GRAPH,HANDLER,HOUSE," + - + "INTERPRETER,LIMITS,MAGIC,MAIL,MOBACT,MODIFY," + - + "OBJSAVE,OLC,RANDOM,SHOP,SPEC_ASSIGN," + - + "SPEC_PROCS,SPELLS,SPELL_PARSER,UTILS,WEATHER" +$! +$! Define A File Counter And Set It To "0". +$! +$ CIRCLE_FILE_COUNTER = 0 +$! +$! Top Of The File Loop. +$! +$ NEXT_CIRCLE_FILE: +$! +$! O.K, Extract The File Name From The File List. +$! +$ CIRCLE_FILE_NAME = F$ELEMENT(CIRCLE_FILE_COUNTER,",",CIRCLE_FILES) +$! +$! Check To See If We Are At The End Of The File List. +$! +$ IF (CIRCLE_FILE_NAME.EQS.",") THEN GOTO CIRCLE_FILE_DONE +$! +$! Increment The Counter. +$! +$ CIRCLE_FILE_COUNTER = CIRCLE_FILE_COUNTER + 1 +$! +$! Create The Source File Name. +$! +$ CIRCLE_SOURCE_FILE = "SYS$DISK:[]" + CIRCLE_FILE_NAME + ".C" +$! +$! Create The Object File Name. +$! +$ CIRCLE_OBJECT_FILE = "SYS$DISK:[]" + CIRCLE_FILE_NAME + ".OBJ" +$! +$! Check To See If The File We Want To Compile Actually Exists. +$! +$ IF (F$SEARCH(CIRCLE_SOURCE_FILE).EQS."") +$ THEN +$! +$! Tell The User That The File Dosen't Exist. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "The File ",CIRCLE_SOURCE_FILE," Dosen't Exist." +$ WRITE SYS$OUTPUT "" +$! +$! Exit The Build. +$! +$ EXIT +$! +$! End The File Check. +$! +$ ENDIF +$! +$! Tell The User What We Are Compiling. +$! +$ WRITE SYS$OUTPUT " ",CIRCLE_SOURCE_FILE +$! +$! Compile The File. +$! +$ CC/PREFIX=ALL/'OPTIMIZE'/'DEBUGGER'/DEFINE=("DECC=1") - + /OBJECT='CIRCLE_OBJECT_FILE' 'CIRCLE_SOURCE_FILE' +$! +$! Go Back And Do It Again. +$! +$ GOTO NEXT_CIRCLE_FILE +$! +$! All Done Compiling. +$! +$ CIRCLE_FILE_DONE: +$! +$! Tell The User We Are Linking [-.BIN]CIRCLE.EXE +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "Linking [-.BIN]CIRCLE.EXE" +$ WRITE SYS$OUTPUT "" +$! +$! Link [-.BIN]CIRCLE.EXE +$! +$ LINK/'DEBUGGER'/'TRACEBACK'/EXE=[-.BIN]CIRCLE.EXE - + COMM.OBJ,ACT_COMM.OBJ,ACT_INFORMATIVE.OBJ,ACT_ITEM.OBJ, - + ACT_MOVEMENT.OBJ,ACT_OFFENSIVE.OBJ,ACT_OTHER.OBJ, - + ACT_SOCIAL.OBJ,ACT_WIZARD.OBJ,ALIAS.OBJ,BAN.OBJ,BOARDS.OBJ, - + CASTLE.OBJ,CLASS.OBJ,CONFIG.OBJ,CONSTANTS.OBJ,DB.OBJ,FIGHT.OBJ, - + GRAPH.OBJ,HANDLER.OBJ,HOUSE.OBJ,INTERPRETER.OBJ,LIMITS.OBJ,MAGIC.OBJ, - + MAIL.OBJ,MOBACT.OBJ,MODIFY.OBJ,OBJSAVE.OBJ,OLC.OBJ,RANDOM.OBJ, - + SHOP.OBJ,SPEC_ASSIGN.OBJ,SPEC_PROCS.OBJ,SPELLS.OBJ,SPELL_PARSER.OBJ, - + UTILS.OBJ,WEATHER.OBJ +$! +$! That's It, Time To Return From Where We Came From. +$! +$ RETURN +$! +$! Build The CircleMUD Utilities. +$! +$ BUILD_UTILS: +$! +$! Tell The User What We Are Doing. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "Building CircleMUD Utilities." +$ WRITE SYS$OUTPUT "" +$! +$! Define The Source Files That Are Necessary. +$! +$ UTIL_FILES = "DELOBJS,LISTRENT,MUDPASSWD,PLAY2TO3,PURGEPLAY," + - + "SHOPCONV,SHOWPLAY,SPLIT,WLD2HTML" +$! +$! Define A File Counter And Set It To "0". +$! +$ UTIL_FILE_COUNTER = 0 +$! +$! Top Of The File Loop. +$! +$ NEXT_UTIL_FILE: +$! +$! O.K, Extract The File Name From The File List. +$! +$ UTIL_FILE_NAME = F$ELEMENT(UTIL_FILE_COUNTER,",",UTIL_FILES) +$! +$! Check To See If We Are At The End Of The File List. +$! +$ IF (UTIL_FILE_NAME.EQS.",") THEN GOTO UTIL_FILE_DONE +$! +$! Increment The Counter. +$! +$ UTIL_FILE_COUNTER = UTIL_FILE_COUNTER + 1 +$! +$! Create The Source File Name. +$! +$ UTIL_SOURCE_FILE = "SYS$DISK:[.UTIL]" + UTIL_FILE_NAME + ".C" +$! +$! Create The Object File Name. +$! +$ UTIL_OBJECT_FILE = "SYS$DISK:[.UTIL]" + UTIL_FILE_NAME + ".OBJ" +$! +$! Check To See If The File We Want To Compile Actually Exists. +$! +$ IF (F$SEARCH(UTIL_SOURCE_FILE).EQS."") +$ THEN +$! +$! Tell The User That The File Dosen't Exist. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "The File ",UTIL_SOURCE_FILE," Dosen't Exist." +$ WRITE SYS$OUTPUT "" +$! +$! Exit The Build. +$! +$ EXIT +$ ENDIF +$! +$! Tell The User What We Are Building. +$! +$ WRITE SYS$OUTPUT "Building SYS$DISK:[-.BIN]",UTIL_FILE_NAME,".EXE" +$! +$! Compile The File. +$! +$ CC/PREFIX=ALL/STANDARD=ANSI89/'OPTIMIZE'/'DEBUGGER'/DEFINE=("DECC=1") - + /INCLUDE=SYS$DISK:[]/OBJECT='UTIL_OBJECT_FILE' 'UTIL_SOURCE_FILE' +$! +$! Link The File. +$! +$ LINK/'DEBUGGER'/'TRACEBACK'/EXE=[-.BIN]'UTIL_FILE_NAME'.EXE - + 'UTIL_OBJECT_FILE' +$! +$! Go Back And Do It Again. +$! +$ GOTO NEXT_UTIL_FILE +$! +$! All Done Compiling. +$! +$ UTIL_FILE_DONE: +$! +$! That's It, Time To Return From Where We Came From. +$! +$ RETURN +$! +$! Check The User's Options. +$! +$ CHECK_OPTIONS: +$! +$! Check To See If We Are To "Just Build Everything". +$! +$ IF ((P1.EQS."").OR.(P1.EQS."ALL")) +$ THEN +$! +$! P1 Is "ALL", So Build Everything. +$! +$ BUILDALL = "TRUE" +$! +$! Else.... +$! +$ ELSE +$! +$! Check To See If P1 Has A Valid Arguement. +$! +$ IF (P1.EQS."CIRCLE").OR.(P1.EQS."UTILS") +$ THEN +$! +$! A Valid Arguement. +$! +$ BUILDALL = P1 +$! +$! Else... +$! +$ ELSE +$! +$! Tell The User We Don't Know What They Want. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "The Option ",P1," Is Invalid. The Valid Options Are:" +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT " ALL : Just Build Everything." +$ WRITE SYS$OUTPUT " CIRCLE : Just Build [-.BIN]CIRCLE.EXE." +$ WRITE SYS$OUTPUT " UTILS : Just Build The CircleMUD Utilities." +$ WRITE SYS$OUTPUT "" +$! +$! Time To EXIT. +$! +$ EXIT +$ ENDIF +$ ENDIF +$! +$! Check To See If We Are To Compile Without Debugger Information. +$! +$ IF ((P2.EQS."").OR.(P2.EQS."NODEBUG")) +$ THEN +$! +$! P2 Is Either Blank Or "NODEBUG" So Compile Without Debugger Information. +$! +$ DEBUGGER = "NODEBUG" +$ OPTIMIZE = "OPTIMIZE" +$ TRACEBACK = "NOTRACEBACK" +$! +$! Tell The User What They Selected. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "No Debugger Information Will Be Produced During Compile." +$ WRITE SYS$OUTPUT "Compiling With Compiler Optimization." +$ ELSE +$! +$! Check To See If We Are To Compile With Debugger Information. +$! +$ IF (P2.EQS."DEBUG") +$ THEN +$! +$! Compile With Debugger Information. +$! +$ DEBUGGER = "DEBUG" +$ OPTIMIZE = "NOOPTIMIZE" +$ TRACEBACK = "TRACEBACK" +$! +$! Tell The User What They Selected. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "Debugger Information Will Be Produced During Compile." +$ WRITE SYS$OUTPUT "Compiling Without Compiler Optimization." +$! +$! Else... +$! +$ ELSE +$! +$! Tell The User Entered An Invalid Option.. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "The Option ",P2," Is Invalid. The Valid Options Are:" +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT " DEBUG : Compile With The Debugger Information." +$ WRITE SYS$OUTPUT " NODEBUG : Compile Without The Debugger Information." +$ WRITE SYS$OUTPUT "" +$! +$! Time To EXIT. +$! +$ EXIT +$ ENDIF +$ ENDIF +$! +$! Time To Return To Where We Were. +$! +$ RETURN +$! +$! Subroutine To Check CONF.H File. +$! +$ CHECK_CONF_FILE: +$! +$! Tell The User We Are Checking CONF.H File. +$! +$ WRITE SYS$OUTPUT "Checking The CONF.H File." +$! +$! Check To See If The CONF.H File Exists. +$! +$ IF (F$SEARCH("SYS$DISK:[]CONF.H").EQS."") +$ THEN +$! +$! The File Dosen't Exist So Check To See If The CONF.H_VMS File Exists. +$! +$ IF (F$SEARCH("SYS$DISK:[]CONF.H_VMS").NES."") +$ THEN +$! +$! Copy CONF.H_VMS To CONF.H. +$! +$ COPY SYS$DISK:[]CONF.H_VMS SYS$DISK:[]CONF.H +$! +$! Else.... +$! +$ ELSE +$! +$! Check To See If The CONF_H.VMS File Exists. +$! +$ IF (F$SEARCH("SYS$DISK:[]CONF_H.VMS").NES."") +$ THEN +$! +$! Copy CONF_H.VMS To CONF.H. +$! +$ COPY SYS$DISK:[]CONF_H.VMS SYS$DISK:[]CONF.H +$! +$! Else... +$! +$ ELSE +$! +$! The CONF.H_VMS And The CONF_H.VMS File Dosen't Exist, So Tell The User. +$! +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "The file CONF.H_VMS or CONF_H.VMS dosen't exist. This file is" +$ WRITE SYS$OUTPUT "necessary to compile CircleMUD and is distributed" +$ WRITE SYS$OUTPUT "with the source code." +$ WRITE SYS$OUTPUT "" +$ WRITE SYS$OUTPUT "Since the CONF.H_VMS or CONF_H.VMS file is distributed with the" +$ WRITE SYS$OUTPUT "source files I recomend that you unpack the files" +$ WRITE SYS$OUTPUT "again or get a new source distribution." +$ WRITE SYS$OUTPUT "" +$! +$! Since We Can't Compile Without This File, Just EXIT. +$! +$ EXIT +$! +$! Time To End The CONF_H.VMS File Check. +$! +$ ENDIF +$! +$! Time To End The CONF.H_VMS File Check. +$! +$ ENDIF +$! +$! End The CONF.H Check. +$! +$ ENDIF +$! +$! Time To Return To Where We Were. +$! +$ RETURN +$! +$! Subroutine To Check File Names. +$! +$ CHECK_FILE_NAMES: +$! +$! Tell The User We Are Checking File Names. +$! +$ WRITE SYS$OUTPUT "Checking File Names." +$! +$! Define The File Names We Need To Check On. +$! +$ CHECK_FOR = "ACT.COMM_C,ACT.INFORMATIVE_C,ACT.ITEM_C,ACT.MOVEMENT_C," + - + "ACT.OFFENSIVE_C,ACT.OTHER_C,ACT.SOCIAL_C,ACT.WIZARD_C" +$! +$! Define What The File Names Need To Be. +$! +$ SHOULD_BE = "ACT_COMM.C,ACT_INFORMATIVE.C,ACT_ITEM.C,ACT_MOVEMENT.C," + - + "ACT_OFFENSIVE.C,ACT_OTHER.C,ACT_SOCIAL.C,ACT_WIZARD.C" +$! +$! Define A File Counter And Set It To "0". +$! +$ FILE_COUNTER = 0 +$! +$! Top Of The File Loop. +$! +$ CHECK_NEXT_FILE: +$! +$! O.K, Extract The File Name We Are Looking For From The List. +$! +$ LOOKING_FOR = F$ELEMENT(FILE_COUNTER,",",CHECK_FOR) +$! +$! Extract The File Name It SHOULD Be From The List. +$! +$ RENAME_TO = F$ELEMENT(FILE_COUNTER,",",SHOULD_BE) +$! +$! Check To See If We Are At The End Of The File List. +$! +$ IF (LOOKING_FOR.EQS.",") THEN GOTO CHECK_FILES_DONE +$! +$! Increment The Counter. +$! +$ FILE_COUNTER = FILE_COUNTER + 1 +$! +$! Check To See If The File We Are Checking For Exists. +$! +$ IF (F$SEARCH(LOOKING_FOR).EQS."") +$ THEN +$! +$! The File Dosen't Exist, Check For The Next File. +$! +$ GOTO CHECK_NEXT_FILE +$! +$! Else... +$! +$ ELSE +$! +$! The File Exists And Needs To Be Fixed. +$! +$ RENAME 'LOOKING_FOR' 'RENAME_TO' +$! +$! End The File Check. +$! +$ ENDIF +$! +$! Go Back And Do It Again. +$! +$ GOTO CHECK_NEXT_FILE +$! +$! All Done With Checking File Names. +$! +$ CHECK_FILES_DONE: +$! +$! Time To Return To Where We Were. +$! +$ RETURN diff --git a/src/castle.c b/src/castle.c new file mode 100644 index 0000000..1643c22 --- /dev/null +++ b/src/castle.c @@ -0,0 +1,925 @@ +/* ************************************************************************ +* File: castle.c Part of CircleMUD * +* Usage: Special procedures for King's Castle area * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Special procedures for Kings Castle by Pjotr (d90-pem@nada.kth.se) * +* Coded by Sapowox (d90-jkr@nada.kth.se) * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" + + +/* IMPORTANT! + The below defined number is the zone number of the Kings Castle. + Change it to apply to your chosen zone number. The default zone + number (On Alex and Alfa) is 80 (That is rooms and mobs have numbers + in the 8000 series... */ + +#define Z_KINGS_C 150 + + +/* external variables */ +extern struct time_info_data time_info; +extern int mini_mud; + +/* local functions */ +mob_vnum castle_virtual(mob_vnum offset); +room_rnum castle_real_room(room_vnum roomoffset); +struct char_data *find_npc_by_name(struct char_data *chAtChar, const char *pszName, int iLen); +int block_way(struct char_data *ch, int cmd, char *arg, room_vnum iIn_room, int iProhibited_direction); +void assign_kings_castle(void); +int member_of_staff(struct char_data *chChar); +int member_of_royal_guard(struct char_data *chChar); +struct char_data *find_guard(struct char_data *chAtChar); +struct char_data *get_victim(struct char_data *chAtChar); +int banzaii(struct char_data *ch); +int do_npc_rescue(struct char_data *ch_hero, struct char_data *ch_victim); +int is_trash(struct obj_data *i); +void fry_victim(struct char_data *ch); +int castle_cleaner(struct char_data *ch, int cmd, int gripe); +int castle_twin_proc(struct char_data *ch, int cmd, char *arg, int ctlnum, const char *twinname); +void castle_mob_spec(mob_vnum mobnum, SPECIAL(*specproc)); + + +/**********************************************************************\ +|* Special procedures for Kings Castle by Pjotr (d90-pem@nada.kth.se) *| +|* Coded by Sapowox (d90-jkr@nada.kth.se) *| +\**********************************************************************/ + +SPECIAL(CastleGuard); +SPECIAL(James); +SPECIAL(cleaning); +SPECIAL(DicknDavid); +SPECIAL(tim); +SPECIAL(tom); +SPECIAL(king_welmar); +SPECIAL(training_master); +SPECIAL(peter); +SPECIAL(jerry); +SPECIAL(guild); +ACMD(do_gen_door); +ACMD(do_follow); + +/* + * Assign castle special procedures. + * + * NOTE: The mobile number isn't fully specified. It's only an offset + * from the zone's base. + */ +void castle_mob_spec(mob_vnum mobnum, SPECIAL(*specproc)) +{ + mob_vnum vmv = castle_virtual(mobnum); + mob_rnum rmr = NOBODY; + + if (vmv != NOBODY) + rmr = real_mobile(vmv); + + if (rmr == NOBODY) { + if (!mini_mud) + log("SYSERR: assign_kings_castle(): can't find mob #%d.", vmv); + } else + mob_index[rmr].func = specproc; +} + + +mob_vnum castle_virtual(mob_vnum offset) +{ + zone_rnum zon; + + if ((zon = real_zone(Z_KINGS_C)) == NOWHERE) + return NOBODY; + + return zone_table[zon].bot + offset; +} + + +room_rnum castle_real_room(room_vnum roomoffset) +{ + zone_rnum zon; + + if ((zon = real_zone(Z_KINGS_C)) == NOWHERE) + return NOWHERE; + + return real_room(zone_table[zon].bot + roomoffset); +} + + +/* + * Routine: assign_kings_castle + * + * Used to assign function pointers to all mobiles in the Kings Castle. + * Called from spec_assign.c. + */ +void assign_kings_castle(void) +{ + castle_mob_spec(0, CastleGuard); /* Gwydion */ + /* Added the previous line -- Furry */ + castle_mob_spec(1, king_welmar); /* Our dear friend, the King */ + castle_mob_spec(3, CastleGuard); /* Jim */ + castle_mob_spec(4, CastleGuard); /* Brian */ + castle_mob_spec(5, CastleGuard); /* Mick */ + castle_mob_spec(6, CastleGuard); /* Matt */ + castle_mob_spec(7, CastleGuard); /* Jochem */ + castle_mob_spec(8, CastleGuard); /* Anne */ + castle_mob_spec(9, CastleGuard); /* Andrew */ + castle_mob_spec(10, CastleGuard); /* Bertram */ + castle_mob_spec(11, CastleGuard); /* Jeanette */ + castle_mob_spec(12, peter); /* Peter */ + castle_mob_spec(13, training_master); /* The training master */ + castle_mob_spec(16, James); /* James the Butler */ + castle_mob_spec(17, cleaning); /* Ze Cleaning Fomen */ + castle_mob_spec(20, tim); /* Tim, Tom's twin */ + castle_mob_spec(21, tom); /* Tom, Tim's twin */ + castle_mob_spec(24, DicknDavid); /* Dick, guard of the + * Treasury */ + castle_mob_spec(25, DicknDavid); /* David, Dicks brother */ + castle_mob_spec(26, jerry); /* Jerry, the Gambler */ + castle_mob_spec(27, CastleGuard); /* Michael */ + castle_mob_spec(28, CastleGuard); /* Hans */ + castle_mob_spec(29, CastleGuard); /* Boris */ +} + + +/* + * Routine: member_of_staff + * + * Used to see if a character is a member of the castle staff. + * Used mainly by BANZAI:ng NPC:s. + */ +int member_of_staff(struct char_data *chChar) +{ + int ch_num; + + if (!IS_NPC(chChar)) + return (FALSE); + + ch_num = GET_MOB_VNUM(chChar); + + if (ch_num == castle_virtual(1)) + return (TRUE); + + if (ch_num > castle_virtual(2) && ch_num < castle_virtual(15)) + return (TRUE); + + if (ch_num > castle_virtual(15) && ch_num < castle_virtual(18)) + return (TRUE); + + if (ch_num > castle_virtual(18) && ch_num < castle_virtual(30)) + return (TRUE); + + return (FALSE); +} + + +/* + * Function: member_of_royal_guard + * + * Returns TRUE if the character is a guard on duty, otherwise FALSE. + * Used by Peter the captain of the royal guard. + */ +int member_of_royal_guard(struct char_data *chChar) +{ + int ch_num; + + if (!chChar || !IS_NPC(chChar)) + return (FALSE); + + ch_num = GET_MOB_VNUM(chChar); + + if (ch_num == castle_virtual(3) || ch_num == castle_virtual(6)) + return (TRUE); + + if (ch_num > castle_virtual(7) && ch_num < castle_virtual(12)) + return (TRUE); + + if (ch_num > castle_virtual(23) && ch_num < castle_virtual(26)) + return (TRUE); + + return (FALSE); +} + + +/* + * Function: find_npc_by_name + * + * Returns a pointer to an npc by the given name. + * Used by Tim and Tom + */ +struct char_data *find_npc_by_name(struct char_data *chAtChar, + const char *pszName, int iLen) +{ + struct char_data *ch; + + for (ch = world[IN_ROOM(chAtChar)].people; ch; ch = ch->next_in_room) + if (IS_NPC(ch) && !strncmp(pszName, ch->player.short_descr, iLen)) + return (ch); + + return (NULL); +} + + +/* + * Function: find_guard + * + * Returns the pointer to a guard on duty. + * Used by Peter the Captain of the Royal Guard + */ +struct char_data *find_guard(struct char_data *chAtChar) +{ + struct char_data *ch; + + for (ch = world[IN_ROOM(chAtChar)].people; ch; ch = ch->next_in_room) + if (!FIGHTING(ch) && member_of_royal_guard(ch)) + return (ch); + + return (NULL); +} + + +/* + * Function: get_victim + * + * Returns a pointer to a randomly chosen character in the same room, + * fighting someone in the castle staff... + * Used by BANZAII-ing characters and King Welmar... + */ +struct char_data *get_victim(struct char_data *chAtChar) +{ + struct char_data *ch; + int iNum_bad_guys = 0, iVictim; + + for (ch = world[IN_ROOM(chAtChar)].people; ch; ch = ch->next_in_room) + if (FIGHTING(ch) && member_of_staff(FIGHTING(ch))) + iNum_bad_guys++; + + if (!iNum_bad_guys) + return (NULL); + + iVictim = rand_number(0, iNum_bad_guys); /* How nice, we give them a chance */ + if (!iVictim) + return (NULL); + + iNum_bad_guys = 0; + + for (ch = world[IN_ROOM(chAtChar)].people; ch; ch = ch->next_in_room) { + if (FIGHTING(ch) == NULL) + continue; + + if (!member_of_staff(FIGHTING(ch))) + continue; + + if (++iNum_bad_guys != iVictim) + continue; + + return (ch); + } + + return (NULL); +} + + +/* + * Function: banzaii + * + * Makes a character banzaii on attackers of the castle staff. + * Used by Guards, Tim, Tom, Dick, David, Peter, Master, King and Guards. + */ +int banzaii(struct char_data *ch) +{ + struct char_data *chOpponent; + + if (!AWAKE(ch) || GET_POS(ch) == POS_FIGHTING || !(chOpponent = get_victim(ch))) + return (FALSE); + + act("$n roars: 'Protect the Kingdom of Great King Welmar! BANZAIIII!!!'", + FALSE, ch, 0, 0, TO_ROOM); + hit(ch, chOpponent, TYPE_UNDEFINED); + return (TRUE); +} + + +/* + * Function: do_npc_rescue + * + * Makes ch_hero rescue ch_victim. + * Used by Tim and Tom + */ +int do_npc_rescue(struct char_data *ch_hero, struct char_data *ch_victim) +{ + struct char_data *ch_bad_guy; + + for (ch_bad_guy = world[IN_ROOM(ch_hero)].people; + ch_bad_guy && (FIGHTING(ch_bad_guy) != ch_victim); + ch_bad_guy = ch_bad_guy->next_in_room); + + /* NO WAY I'll rescue the one I'm fighting! */ + if (!ch_bad_guy || ch_bad_guy == ch_hero) + return (FALSE); + + act("You bravely rescue $N.\r\n", FALSE, ch_hero, 0, ch_victim, TO_CHAR); + act("You are rescued by $N, your loyal friend!\r\n", + FALSE, ch_victim, 0, ch_hero, TO_CHAR); + act("$n heroically rescues $N.", FALSE, ch_hero, 0, ch_victim, TO_NOTVICT); + + if (FIGHTING(ch_bad_guy)) + stop_fighting(ch_bad_guy); + if (FIGHTING(ch_hero)) + stop_fighting(ch_hero); + + set_fighting(ch_hero, ch_bad_guy); + set_fighting(ch_bad_guy, ch_hero); + return (TRUE); +} + + +/* + * Procedure to block a person trying to enter a room. + * Used by Tim/Tom at Kings bedroom and Dick/David at treasury. + */ +int block_way(struct char_data *ch, int cmd, char *arg, room_vnum iIn_room, + int iProhibited_direction) +{ + if (cmd != ++iProhibited_direction) + return (FALSE); + + if (ch->player.short_descr && !strncmp(ch->player.short_descr, "King Welmar", 11)) + return (FALSE); + + if (IN_ROOM(ch) != real_room(iIn_room)) + return (FALSE); + + if (!member_of_staff(ch)) + act("The guard roars at $n and pushes $m back.", FALSE, ch, 0, 0, TO_ROOM); + + send_to_char(ch, "The guard roars: 'Entrance is Prohibited!', and pushes you back.\r\n"); + return (TRUE); +} + + +/* + * Routine to check if an object is trash... + * Used by James the Butler and the Cleaning Lady. + */ +int is_trash(struct obj_data *i) +{ + if (!OBJWEAR_FLAGGED(i, ITEM_WEAR_TAKE)) + return (FALSE); + + if (GET_OBJ_TYPE(i) == ITEM_DRINKCON || GET_OBJ_COST(i) <= 10) + return (TRUE); + + return (FALSE); +} + + +/* + * Function: fry_victim + * + * Finds a suitabe victim, and cast some _NASTY_ spell on him. + * Used by King Welmar + */ +void fry_victim(struct char_data *ch) +{ + struct char_data *tch; + + if (ch->points.mana < 10) + return; + + /* Find someone suitable to fry ! */ + if (!(tch = get_victim(ch))) + return; + + switch (rand_number(0, 8)) { + case 1: + case 2: + case 3: + send_to_char(ch, "You raise your hand in a dramatical gesture.\r\n"); + act("$n raises $s hand in a dramatical gesture.", 1, ch, 0, 0, TO_ROOM); + cast_spell(ch, tch, 0, SPELL_COLOR_SPRAY); + break; + case 4: + case 5: + send_to_char(ch, "You concentrate and mumble to yourself.\r\n"); + act("$n concentrates, and mumbles to $mself.", 1, ch, 0, 0, TO_ROOM); + cast_spell(ch, tch, 0, SPELL_HARM); + break; + case 6: + case 7: + act("You look deeply into the eyes of $N.", 1, ch, 0, tch, TO_CHAR); + act("$n looks deeply into the eyes of $N.", 1, ch, 0, tch, TO_NOTVICT); + act("You see an ill-boding flame in the eye of $n.", 1, ch, 0, tch, TO_VICT); + cast_spell(ch, tch, 0, SPELL_FIREBALL); + break; + default: + if (!rand_number(0, 1)) + cast_spell(ch, ch, 0, SPELL_HEAL); + break; + } + + ch->points.mana -= 10; + + return; +} + + +/* + * Function: king_welmar + * + * Control the actions and movements of the King. + * Used by King Welmar. + */ +SPECIAL(king_welmar) +{ + char actbuf[MAX_INPUT_LENGTH]; + + const char *monolog[] = { + "$n proclaims 'Primus in regnis Geticis coronam'.", + "$n proclaims 'regiam gessi, subiique regis'.", + "$n proclaims 'munus et mores colui sereno'.", + "$n proclaims 'principe dignos'." + }; + + const char bedroom_path[] = "s33004o1c1S."; + const char throne_path[] = "W3o3cG52211rg."; + const char monolog_path[] = "ABCDPPPP."; + + static const char *path; + static int path_index; + static bool move = FALSE; + + if (!move) { + if (time_info.hours == 8 && IN_ROOM(ch) == castle_real_room(51)) { + move = TRUE; + path = throne_path; + path_index = 0; + } else if (time_info.hours == 21 && IN_ROOM(ch) == castle_real_room(17)) { + move = TRUE; + path = bedroom_path; + path_index = 0; + } else if (time_info.hours == 12 && IN_ROOM(ch) == castle_real_room(17)) { + move = TRUE; + path = monolog_path; + path_index = 0; + } + } + if (cmd || (GET_POS(ch) < POS_SLEEPING) || + (GET_POS(ch) == POS_SLEEPING && !move)) + return (FALSE); + + if (GET_POS(ch) == POS_FIGHTING) { + fry_victim(ch); + return (FALSE); + } else if (banzaii(ch)) + return (FALSE); + + if (!move) + return (FALSE); + + switch (path[path_index]) { + case '0': + case '1': + case '2': + case '3': + case '4': + case '5': + perform_move(ch, path[path_index] - '0', 1); + break; + + case 'A': + case 'B': + case 'C': + case 'D': + act(monolog[path[path_index] - 'A'], FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'P': + break; + + case 'W': + GET_POS(ch) = POS_STANDING; + act("$n awakens and stands up.", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'S': + GET_POS(ch) = POS_SLEEPING; + act("$n lies down on $s beautiful bed and instantly falls asleep.", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'r': + GET_POS(ch) = POS_SITTING; + act("$n sits down on $s great throne.", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 's': + GET_POS(ch) = POS_STANDING; + act("$n stands up.", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'G': + act("$n says 'Good morning, trusted friends.'", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'g': + act("$n says 'Good morning, dear subjects.'", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'o': + do_gen_door(ch, strcpy(actbuf, "door"), 0, SCMD_UNLOCK); /* strcpy: OK */ + do_gen_door(ch, strcpy(actbuf, "door"), 0, SCMD_OPEN); /* strcpy: OK */ + break; + + case 'c': + do_gen_door(ch, strcpy(actbuf, "door"), 0, SCMD_CLOSE); /* strcpy: OK */ + do_gen_door(ch, strcpy(actbuf, "door"), 0, SCMD_LOCK); /* strcpy: OK */ + break; + + case '.': + move = FALSE; + break; + } + + path_index++; + return (FALSE); +} + + +/* + * Function: training_master + * + * Acts actions to the training room, if his students are present. + * Also allowes warrior-class to practice. + * Used by the Training Master. + */ +SPECIAL(training_master) +{ + struct char_data *pupil1, *pupil2 = NULL, *tch; + + if (!AWAKE(ch) || (GET_POS(ch) == POS_FIGHTING)) + return (FALSE); + + if (cmd) + return (FALSE); + + if (banzaii(ch) || rand_number(0, 2)) + return (FALSE); + + if (!(pupil1 = find_npc_by_name(ch, "Brian", 5))) + return (FALSE); + + if (!(pupil2 = find_npc_by_name(ch, "Mick", 4))) + return (FALSE); + + if (FIGHTING(pupil1) || FIGHTING(pupil2)) + return (FALSE); + + if (rand_number(0, 1)) { + tch = pupil1; + pupil1 = pupil2; + pupil2 = tch; + } + + switch (rand_number(0, 7)) { + case 0: + act("$n hits $N on $s head with a powerful blow.", FALSE, pupil1, 0, pupil2, TO_NOTVICT); + act("You hit $N on $s head with a powerful blow.", FALSE, pupil1, 0, pupil2, TO_CHAR); + act("$n hits you on your head with a powerful blow.", FALSE, pupil1, 0, pupil2, TO_VICT); + break; + + case 1: + act("$n hits $N in $s chest with a thrust.", FALSE, pupil1, 0, pupil2, TO_NOTVICT); + act("You manage to thrust $N in the chest.", FALSE, pupil1, 0, pupil2, TO_CHAR); + act("$n manages to thrust you in your chest.", FALSE, pupil1, 0, pupil2, TO_VICT); + break; + + case 2: + send_to_char(ch, "You command your pupils to bow.\r\n"); + act("$n commands $s pupils to bow.", FALSE, ch, 0, 0, TO_ROOM); + act("$n bows before $N.", FALSE, pupil1, 0, pupil2, TO_NOTVICT); + act("$N bows before $n.", FALSE, pupil1, 0, pupil2, TO_NOTVICT); + act("You bow before $N, who returns your gesture.", FALSE, pupil1, 0, pupil2, TO_CHAR); + act("You bow before $n, who returns your gesture.", FALSE, pupil1, 0, pupil2, TO_VICT); + break; + + case 3: + act("$N yells at $n, as he fumbles and drops $s sword.", FALSE, pupil1, 0, ch, TO_NOTVICT); + act("$n quickly picks up $s weapon.", FALSE, pupil1, 0, 0, TO_ROOM); + act("$N yells at you, as you fumble, losing your weapon.", FALSE, pupil1, 0, ch, TO_CHAR); + send_to_char(pupil1, "You quickly pick up your weapon again.\r\n"); + act("You yell at $n, as he fumbles, losing $s weapon.", FALSE, pupil1, 0, ch, TO_VICT); + break; + + case 4: + act("$N tricks $n, and slashes him across the back.", FALSE, pupil1, 0, pupil2, TO_NOTVICT); + act("$N tricks you, and slashes you across your back.", FALSE, pupil1, 0, pupil2, TO_CHAR); + act("You trick $n, and quickly slash him across $s back.", FALSE, pupil1, 0, pupil2, TO_VICT); + break; + + case 5: + act("$n lunges a blow at $N but $N parries skillfully.", FALSE, pupil1, 0, pupil2, TO_NOTVICT); + act("You lunge a blow at $N but $E parries skillfully.", FALSE, pupil1, 0, pupil2, TO_CHAR); + act("$n lunges a blow at you, but you skillfully parry it.", FALSE, pupil1, 0, pupil2, TO_VICT); + break; + + case 6: + act("$n clumsily tries to kick $N, but misses.", FALSE, pupil1, 0, pupil2, TO_NOTVICT); + act("You clumsily miss $N with your poor excuse for a kick.", FALSE, pupil1, 0, pupil2, TO_CHAR); + act("$n fails an unusually clumsy attempt at kicking you.", FALSE, pupil1, 0, pupil2, TO_VICT); + break; + + default: + send_to_char(ch, "You show your pupils an advanced technique.\r\n"); + act("$n shows $s pupils an advanced technique.", FALSE, ch, 0, 0, TO_ROOM); + break; + } + + return (FALSE); +} + + +SPECIAL(tom) +{ + return castle_twin_proc(ch, cmd, argument, 48, "Tim"); +} + +SPECIAL(tim) +{ + return castle_twin_proc(ch, cmd, argument, 49, "Tom"); +} + +/* + * Common routine for the Castle Twins. + */ +int castle_twin_proc(struct char_data *ch, int cmd, char *arg, int ctlnum, const char *twinname) +{ + struct char_data *king, *twin; + + if (!AWAKE(ch)) + return (FALSE); + + if (cmd) + return block_way(ch, cmd, arg, castle_virtual(ctlnum), 1); + + if ((king = find_npc_by_name(ch, "King Welmar", 11)) != NULL) { + char actbuf[MAX_INPUT_LENGTH]; + + if (!ch->master) + do_follow(ch, strcpy(actbuf, "King Welmar"), 0, 0); /* strcpy: OK */ + if (FIGHTING(king)) + do_npc_rescue(ch, king); + } + + if ((twin = find_npc_by_name(ch, twinname, strlen(twinname))) != NULL) + if (FIGHTING(twin) && 2 * GET_HIT(twin) < GET_HIT(ch)) + do_npc_rescue(ch, twin); + + if (GET_POS(ch) != POS_FIGHTING) + banzaii(ch); + + return (FALSE); +} + + +/* + * Routine for James the Butler. + * Complains if he finds any trash... + * + * This doesn't make sure he _can_ carry it... + */ +SPECIAL(James) +{ + return castle_cleaner(ch, cmd, TRUE); +} + +/* + * Common code for James and the Cleaning Woman. + */ +int castle_cleaner(struct char_data *ch, int cmd, int gripe) +{ + struct obj_data *i; + + if (cmd || !AWAKE(ch) || GET_POS(ch) == POS_FIGHTING) + return (FALSE); + + for (i = world[IN_ROOM(ch)].contents; i; i = i->next_content) { + if (!is_trash(i)) + continue; + + if (gripe) { + act("$n says: 'My oh my! I ought to fire that lazy cleaning woman!'", + FALSE, ch, 0, 0, TO_ROOM); + act("$n picks up a piece of trash.", FALSE, ch, 0, 0, TO_ROOM); + } + obj_from_room(i); + obj_to_char(i, ch); + return (TRUE); + } + + return (FALSE); +} + + +/* + * Routine for the Cleaning Woman. + * Picks up any trash she finds... + */ +SPECIAL(cleaning) +{ + return castle_cleaner(ch, cmd, FALSE); +} + + +/* + * Routine: CastleGuard + * + * Standard routine for ordinary castle guards. + */ +SPECIAL(CastleGuard) +{ + if (cmd || !AWAKE(ch) || (GET_POS(ch) == POS_FIGHTING)) + return (FALSE); + + return (banzaii(ch)); +} + + +/* + * Routine: DicknDave + * + * Routine for the guards Dick and David. + */ +SPECIAL(DicknDavid) +{ + if (!AWAKE(ch)) + return (FALSE); + + if (!cmd && GET_POS(ch) != POS_FIGHTING) + banzaii(ch); + + return (block_way(ch, cmd, argument, castle_virtual(36), 1)); +} + + +/* + * Routine: peter + * Routine for Captain of the Guards. + */ +SPECIAL(peter) +{ + struct char_data *ch_guard = NULL; + + if (cmd || !AWAKE(ch) || GET_POS(ch) == POS_FIGHTING) + return (FALSE); + + if (banzaii(ch)) + return (FALSE); + + if (!(rand_number(0, 3)) && (ch_guard = find_guard(ch))) + switch (rand_number(0, 5)) { + case 0: + act("$N comes sharply into attention as $n inspects $M.", + FALSE, ch, 0, ch_guard, TO_NOTVICT); + act("$N comes sharply into attention as you inspect $M.", + FALSE, ch, 0, ch_guard, TO_CHAR); + act("You go sharply into attention as $n inspects you.", + FALSE, ch, 0, ch_guard, TO_VICT); + break; + case 1: + act("$N looks very small, as $n roars at $M.", + FALSE, ch, 0, ch_guard, TO_NOTVICT); + act("$N looks very small as you roar at $M.", + FALSE, ch, 0, ch_guard, TO_CHAR); + act("You feel very small as $N roars at you.", + FALSE, ch, 0, ch_guard, TO_VICT); + break; + case 2: + act("$n gives $N some Royal directions.", + FALSE, ch, 0, ch_guard, TO_NOTVICT); + act("You give $N some Royal directions.", + FALSE, ch, 0, ch_guard, TO_CHAR); + act("$n gives you some Royal directions.", + FALSE, ch, 0, ch_guard, TO_VICT); + break; + case 3: + act("$n looks at you.", FALSE, ch, 0, ch_guard, TO_VICT); + act("$n looks at $N.", FALSE, ch, 0, ch_guard, TO_NOTVICT); + act("$n growls: 'Those boots need polishing!'", + FALSE, ch, 0, ch_guard, TO_ROOM); + act("You growl at $N.", FALSE, ch, 0, ch_guard, TO_CHAR); + break; + case 4: + act("$n looks at you.", FALSE, ch, 0, ch_guard, TO_VICT); + act("$n looks at $N.", FALSE, ch, 0, ch_guard, TO_NOTVICT); + act("$n growls: 'Straighten that collar!'", + FALSE, ch, 0, ch_guard, TO_ROOM); + act("You growl at $N.", FALSE, ch, 0, ch_guard, TO_CHAR); + break; + default: + act("$n looks at you.", FALSE, ch, 0, ch_guard, TO_VICT); + act("$n looks at $N.", FALSE, ch, 0, ch_guard, TO_NOTVICT); + act("$n growls: 'That chain mail looks rusty! CLEAN IT !!!'", + FALSE, ch, 0, ch_guard, TO_ROOM); + act("You growl at $N.", FALSE, ch, 0, ch_guard, TO_CHAR); + break; + } + + return (FALSE); +} + + +/* + * Procedure for Jerry and Michael in x08 of King's Castle. + * Code by Sapowox modified by Pjotr.(Original code from Master) + */ +SPECIAL(jerry) +{ + struct char_data *gambler1, *gambler2 = NULL, *tch; + + if (!AWAKE(ch) || (GET_POS(ch) == POS_FIGHTING)) + return (FALSE); + + if (cmd) + return (FALSE); + + if (banzaii(ch) || rand_number(0, 2)) + return (FALSE); + + if (!(gambler1 = ch)) + return (FALSE); + + if (!(gambler2 = find_npc_by_name(ch, "Michael", 7))) + return (FALSE); + + if (FIGHTING(gambler1) || FIGHTING(gambler2)) + return (FALSE); + + if (rand_number(0, 1)) { + tch = gambler1; + gambler1 = gambler2; + gambler2 = tch; + } + + switch (rand_number(0, 5)) { + case 0: + act("$n rolls the dice and cheers loudly at the result.", + FALSE, gambler1, 0, gambler2, TO_NOTVICT); + act("You roll the dice and cheer. GREAT!", + FALSE, gambler1, 0, gambler2, TO_CHAR); + act("$n cheers loudly as $e rolls the dice.", + FALSE, gambler1, 0, gambler2, TO_VICT); + break; + case 1: + act("$n curses the Goddess of Luck roundly as he sees $N's roll.", + FALSE, gambler1, 0, gambler2, TO_NOTVICT); + act("You curse the Goddess of Luck as $N rolls.", + FALSE, gambler1, 0, gambler2, TO_CHAR); + act("$n swears angrily. You are in luck!", + FALSE, gambler1, 0, gambler2, TO_VICT); + break; + case 2: + act("$n sighs loudly and gives $N some gold.", + FALSE, gambler1, 0, gambler2, TO_NOTVICT); + act("You sigh loudly at the pain of having to give $N some gold.", + FALSE, gambler1, 0, gambler2, TO_CHAR); + act("$n sighs loudly as $e gives you your rightful win.", + FALSE, gambler1, 0, gambler2, TO_VICT); + break; + case 3: + act("$n smiles remorsefully as $N's roll tops $s.", + FALSE, gambler1, 0, gambler2, TO_NOTVICT); + act("You smile sadly as you see that $N beats you. Again.", + FALSE, gambler1, 0, gambler2, TO_CHAR); + act("$n smiles remorsefully as your roll tops $s.", + FALSE, gambler1, 0, gambler2, TO_VICT); + break; + case 4: + act("$n excitedly follows the dice with $s eyes.", + FALSE, gambler1, 0, gambler2, TO_NOTVICT); + act("You excitedly follow the dice with your eyes.", + FALSE, gambler1, 0, gambler2, TO_CHAR); + act("$n excitedly follows the dice with $s eyes.", + FALSE, gambler1, 0, gambler2, TO_VICT); + break; + default: + act("$n says 'Well, my luck has to change soon', as he shakes the dice.", + FALSE, gambler1, 0, gambler2, TO_NOTVICT); + act("You say 'Well, my luck has to change soon' and shake the dice.", + FALSE, gambler1, 0, gambler2, TO_CHAR); + act("$n says 'Well, my luck has to change soon', as he shakes the dice.", + FALSE, gambler1, 0, gambler2, TO_VICT); + break; + } + return (FALSE); +} diff --git a/src/class.c b/src/class.c new file mode 100644 index 0000000..2c97693 --- /dev/null +++ b/src/class.c @@ -0,0 +1,2183 @@ +/* ************************************************************************ +* File: class.c Part of CircleMUD * +* Usage: Source file for class-specific code * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/* + * This file attempts to concentrate most of the code which must be changed + * in order for new classes to be added. If you're adding a new class, + * you should go through this entire file from beginning to end and add + * the appropriate new special cases for your new class. + */ + + + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "db.h" +#include "utils.h" +#include "spells.h" +#include "interpreter.h" +#include "constants.h" + +extern int siteok_everyone; + +/* local functions */ +void snoop_check(struct char_data *ch); +int parse_class(char arg); +bitvector_t find_class_bitvector(const char *arg); +byte saving_throws(int class_num, int type, int level); +int thaco(int class_num, int level); +void roll_real_abils(struct char_data *ch); +void do_start(struct char_data *ch); +int backstab_mult(int level); +int invalid_class(struct char_data *ch, struct obj_data *obj); +int level_exp(int chclass, int level); +const char *title_male(int chclass, int level); +const char *title_female(int chclass, int level); + +/* Names first */ + +const char *class_abbrevs[] = { + "Mu", + "Cl", + "Th", + "Wa", + "\n" +}; + + +const char *pc_class_types[] = { + "Magic User", + "Cleric", + "Thief", + "Warrior", + "\n" +}; + + +/* The menu for choosing a class in interpreter.c: */ +const char *class_menu = +"\r\n" +"Select a class:\r\n" +" [C]leric\r\n" +" [T]hief\r\n" +" [W]arrior\r\n" +" [M]agic-user\r\n"; + + + +/* + * The code to interpret a class letter -- used in interpreter.c when a + * new character is selecting a class and by 'set class' in act.wizard.c. + */ + +int parse_class(char arg) +{ + arg = LOWER(arg); + + switch (arg) { + case 'm': return CLASS_MAGIC_USER; + case 'c': return CLASS_CLERIC; + case 'w': return CLASS_WARRIOR; + case 't': return CLASS_THIEF; + default: return CLASS_UNDEFINED; + } +} + +/* + * bitvectors (i.e., powers of two) for each class, mainly for use in + * do_who and do_users. Add new classes at the end so that all classes + * use sequential powers of two (1 << 0, 1 << 1, 1 << 2, 1 << 3, 1 << 4, + * 1 << 5, etc.) up to the limit of your bitvector_t, typically 0-31. + */ +bitvector_t find_class_bitvector(const char *arg) +{ + size_t rpos, ret = 0; + + for (rpos = 0; rpos < strlen(arg); rpos++) + ret |= (1 << parse_class(arg[rpos])); + + return (ret); +} + + +/* + * These are definitions which control the guildmasters for each class. + * + * The first field (top line) controls the highest percentage skill level + * a character of the class is allowed to attain in any skill. (After + * this level, attempts to practice will say "You are already learned in + * this area." + * + * The second line controls the maximum percent gain in learnedness a + * character is allowed per practice -- in other words, if the random + * die throw comes out higher than this number, the gain will only be + * this number instead. + * + * The third line controls the minimu percent gain in learnedness a + * character is allowed per practice -- in other words, if the random + * die throw comes out below this number, the gain will be set up to + * this number. + * + * The fourth line simply sets whether the character knows 'spells' + * or 'skills'. This does not affect anything except the message given + * to the character when trying to practice (i.e. "You know of the + * following spells" vs. "You know of the following skills" + */ + +#define SPELL 0 +#define SKILL 1 + +/* #define LEARNED_LEVEL 0 % known which is considered "learned" */ +/* #define MAX_PER_PRAC 1 max percent gain in skill per practice */ +/* #define MIN_PER_PRAC 2 min percent gain in skill per practice */ +/* #define PRAC_TYPE 3 should it say 'spell' or 'skill'? */ + +int prac_params[4][NUM_CLASSES] = { + /* MAG CLE THE WAR */ + { 95, 95, 85, 80 }, /* learned level */ + { 100, 100, 12, 12 }, /* max per practice */ + { 25, 25, 0, 0 }, /* min per practice */ + { SPELL, SPELL, SKILL, SKILL }, /* prac name */ +}; + + +/* + * ...And the appropriate rooms for each guildmaster/guildguard; controls + * which types of people the various guildguards let through. i.e., the + * first line shows that from room 3017, only MAGIC_USERS are allowed + * to go south. + * + * Don't forget to visit spec_assign.c if you create any new mobiles that + * should be a guild master or guard so they can act appropriately. If you + * "recycle" the existing mobs that are used in other guilds for your new + * guild, then you don't have to change that file, only here. + */ +struct guild_info_type guild_info[] = { + +/* Midgaard */ + { CLASS_MAGIC_USER, 3017, SCMD_SOUTH }, + { CLASS_CLERIC, 3004, SCMD_NORTH }, + { CLASS_THIEF, 3027, SCMD_EAST }, + { CLASS_WARRIOR, 3021, SCMD_EAST }, + +/* Brass Dragon */ + { -999 /* all */ , 5065, SCMD_WEST }, + +/* this must go last -- add new guards above! */ + { -1, NOWHERE, -1} +}; + + + +/* + * Saving throws for: + * MCTW + * PARA, ROD, PETRI, BREATH, SPELL + * Levels 0-40 + * + * Do not forget to change extern declaration in magic.c if you add to this. + */ + +byte saving_throws(int class_num, int type, int level) +{ + switch (class_num) { + case CLASS_MAGIC_USER: + switch (type) { + case SAVING_PARA: /* Paralyzation */ + switch (level) { + case 0: return 90; + case 1: return 70; + case 2: return 69; + case 3: return 68; + case 4: return 67; + case 5: return 66; + case 6: return 65; + case 7: return 63; + case 8: return 61; + case 9: return 60; + case 10: return 59; + case 11: return 57; + case 12: return 55; + case 13: return 54; + case 14: return 53; + case 15: return 53; + case 16: return 52; + case 17: return 51; + case 18: return 50; + case 19: return 48; + case 20: return 46; + case 21: return 45; + case 22: return 44; + case 23: return 42; + case 24: return 40; + case 25: return 38; + case 26: return 36; + case 27: return 34; + case 28: return 32; + case 29: return 30; + case 30: return 28; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for mage paralyzation saving throw."); + break; + } + case SAVING_ROD: /* Rods */ + switch (level) { + case 0: return 90; + case 1: return 55; + case 2: return 53; + case 3: return 51; + case 4: return 49; + case 5: return 47; + case 6: return 45; + case 7: return 43; + case 8: return 41; + case 9: return 40; + case 10: return 39; + case 11: return 37; + case 12: return 35; + case 13: return 33; + case 14: return 31; + case 15: return 30; + case 16: return 29; + case 17: return 27; + case 18: return 25; + case 19: return 23; + case 20: return 21; + case 21: return 20; + case 22: return 19; + case 23: return 17; + case 24: return 15; + case 25: return 14; + case 26: return 13; + case 27: return 12; + case 28: return 11; + case 29: return 10; + case 30: return 9; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for mage rod saving throw."); + break; + } + case SAVING_PETRI: /* Petrification */ + switch (level) { + case 0: return 90; + case 1: return 65; + case 2: return 63; + case 3: return 61; + case 4: return 59; + case 5: return 57; + case 6: return 55; + case 7: return 53; + case 8: return 51; + case 9: return 50; + case 10: return 49; + case 11: return 47; + case 12: return 45; + case 13: return 43; + case 14: return 41; + case 15: return 40; + case 16: return 39; + case 17: return 37; + case 18: return 35; + case 19: return 33; + case 20: return 31; + case 21: return 30; + case 22: return 29; + case 23: return 27; + case 24: return 25; + case 25: return 23; + case 26: return 21; + case 27: return 19; + case 28: return 17; + case 29: return 15; + case 30: return 13; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for mage petrification saving throw."); + break; + } + case SAVING_BREATH: /* Breath weapons */ + switch (level) { + case 0: return 90; + case 1: return 75; + case 2: return 73; + case 3: return 71; + case 4: return 69; + case 5: return 67; + case 6: return 65; + case 7: return 63; + case 8: return 61; + case 9: return 60; + case 10: return 59; + case 11: return 57; + case 12: return 55; + case 13: return 53; + case 14: return 51; + case 15: return 50; + case 16: return 49; + case 17: return 47; + case 18: return 45; + case 19: return 43; + case 20: return 41; + case 21: return 40; + case 22: return 39; + case 23: return 37; + case 24: return 35; + case 25: return 33; + case 26: return 31; + case 27: return 29; + case 28: return 27; + case 29: return 25; + case 30: return 23; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for mage breath saving throw."); + break; + } + case SAVING_SPELL: /* Generic spells */ + switch (level) { + case 0: return 90; + case 1: return 60; + case 2: return 58; + case 3: return 56; + case 4: return 54; + case 5: return 52; + case 6: return 50; + case 7: return 48; + case 8: return 46; + case 9: return 45; + case 10: return 44; + case 11: return 42; + case 12: return 40; + case 13: return 38; + case 14: return 36; + case 15: return 35; + case 16: return 34; + case 17: return 32; + case 18: return 30; + case 19: return 28; + case 20: return 26; + case 21: return 25; + case 22: return 24; + case 23: return 22; + case 24: return 20; + case 25: return 18; + case 26: return 16; + case 27: return 14; + case 28: return 12; + case 29: return 10; + case 30: return 8; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for mage spell saving throw."); + break; + } + default: + log("SYSERR: Invalid saving throw type."); + break; + } + break; + case CLASS_CLERIC: + switch (type) { + case SAVING_PARA: /* Paralyzation */ + switch (level) { + case 0: return 90; + case 1: return 60; + case 2: return 59; + case 3: return 48; + case 4: return 46; + case 5: return 45; + case 6: return 43; + case 7: return 40; + case 8: return 37; + case 9: return 35; + case 10: return 34; + case 11: return 33; + case 12: return 31; + case 13: return 30; + case 14: return 29; + case 15: return 27; + case 16: return 26; + case 17: return 25; + case 18: return 24; + case 19: return 23; + case 20: return 22; + case 21: return 21; + case 22: return 20; + case 23: return 18; + case 24: return 15; + case 25: return 14; + case 26: return 12; + case 27: return 10; + case 28: return 9; + case 29: return 8; + case 30: return 7; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for cleric paralyzation saving throw."); + break; + } + case SAVING_ROD: /* Rods */ + switch (level) { + case 0: return 90; + case 1: return 70; + case 2: return 69; + case 3: return 68; + case 4: return 66; + case 5: return 65; + case 6: return 63; + case 7: return 60; + case 8: return 57; + case 9: return 55; + case 10: return 54; + case 11: return 53; + case 12: return 51; + case 13: return 50; + case 14: return 49; + case 15: return 47; + case 16: return 46; + case 17: return 45; + case 18: return 44; + case 19: return 43; + case 20: return 42; + case 21: return 41; + case 22: return 40; + case 23: return 38; + case 24: return 35; + case 25: return 34; + case 26: return 32; + case 27: return 30; + case 28: return 29; + case 29: return 28; + case 30: return 27; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for cleric rod saving throw."); + break; + } + case SAVING_PETRI: /* Petrification */ + switch (level) { + case 0: return 90; + case 1: return 65; + case 2: return 64; + case 3: return 63; + case 4: return 61; + case 5: return 60; + case 6: return 58; + case 7: return 55; + case 8: return 53; + case 9: return 50; + case 10: return 49; + case 11: return 48; + case 12: return 46; + case 13: return 45; + case 14: return 44; + case 15: return 43; + case 16: return 41; + case 17: return 40; + case 18: return 39; + case 19: return 38; + case 20: return 37; + case 21: return 36; + case 22: return 35; + case 23: return 33; + case 24: return 31; + case 25: return 29; + case 26: return 27; + case 27: return 25; + case 28: return 24; + case 29: return 23; + case 30: return 22; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for cleric petrification saving throw."); + break; + } + case SAVING_BREATH: /* Breath weapons */ + switch (level) { + case 0: return 90; + case 1: return 80; + case 2: return 79; + case 3: return 78; + case 4: return 76; + case 5: return 75; + case 6: return 73; + case 7: return 70; + case 8: return 67; + case 9: return 65; + case 10: return 64; + case 11: return 63; + case 12: return 61; + case 13: return 60; + case 14: return 59; + case 15: return 57; + case 16: return 56; + case 17: return 55; + case 18: return 54; + case 19: return 53; + case 20: return 52; + case 21: return 51; + case 22: return 50; + case 23: return 48; + case 24: return 45; + case 25: return 44; + case 26: return 42; + case 27: return 40; + case 28: return 39; + case 29: return 38; + case 30: return 37; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for cleric breath saving throw."); + break; + } + case SAVING_SPELL: /* Generic spells */ + switch (level) { + case 0: return 90; + case 1: return 75; + case 2: return 74; + case 3: return 73; + case 4: return 71; + case 5: return 70; + case 6: return 68; + case 7: return 65; + case 8: return 63; + case 9: return 60; + case 10: return 59; + case 11: return 58; + case 12: return 56; + case 13: return 55; + case 14: return 54; + case 15: return 53; + case 16: return 51; + case 17: return 50; + case 18: return 49; + case 19: return 48; + case 20: return 47; + case 21: return 46; + case 22: return 45; + case 23: return 43; + case 24: return 41; + case 25: return 39; + case 26: return 37; + case 27: return 35; + case 28: return 34; + case 29: return 33; + case 30: return 32; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for cleric spell saving throw."); + break; + } + default: + log("SYSERR: Invalid saving throw type."); + break; + } + break; + case CLASS_THIEF: + switch (type) { + case SAVING_PARA: /* Paralyzation */ + switch (level) { + case 0: return 90; + case 1: return 65; + case 2: return 64; + case 3: return 63; + case 4: return 62; + case 5: return 61; + case 6: return 60; + case 7: return 59; + case 8: return 58; + case 9: return 57; + case 10: return 56; + case 11: return 55; + case 12: return 54; + case 13: return 53; + case 14: return 52; + case 15: return 51; + case 16: return 50; + case 17: return 49; + case 18: return 48; + case 19: return 47; + case 20: return 46; + case 21: return 45; + case 22: return 44; + case 23: return 43; + case 24: return 42; + case 25: return 41; + case 26: return 40; + case 27: return 39; + case 28: return 38; + case 29: return 37; + case 30: return 36; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for thief paralyzation saving throw."); + break; + } + case SAVING_ROD: /* Rods */ + switch (level) { + case 0: return 90; + case 1: return 70; + case 2: return 68; + case 3: return 66; + case 4: return 64; + case 5: return 62; + case 6: return 60; + case 7: return 58; + case 8: return 56; + case 9: return 54; + case 10: return 52; + case 11: return 50; + case 12: return 48; + case 13: return 46; + case 14: return 44; + case 15: return 42; + case 16: return 40; + case 17: return 38; + case 18: return 36; + case 19: return 34; + case 20: return 32; + case 21: return 30; + case 22: return 28; + case 23: return 26; + case 24: return 24; + case 25: return 22; + case 26: return 20; + case 27: return 18; + case 28: return 16; + case 29: return 14; + case 30: return 13; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for thief rod saving throw."); + break; + } + case SAVING_PETRI: /* Petrification */ + switch (level) { + case 0: return 90; + case 1: return 60; + case 2: return 59; + case 3: return 58; + case 4: return 58; + case 5: return 56; + case 6: return 55; + case 7: return 54; + case 8: return 53; + case 9: return 52; + case 10: return 51; + case 11: return 50; + case 12: return 49; + case 13: return 48; + case 14: return 47; + case 15: return 46; + case 16: return 45; + case 17: return 44; + case 18: return 43; + case 19: return 42; + case 20: return 41; + case 21: return 40; + case 22: return 39; + case 23: return 38; + case 24: return 37; + case 25: return 36; + case 26: return 35; + case 27: return 34; + case 28: return 33; + case 29: return 32; + case 30: return 31; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for thief petrification saving throw."); + break; + } + case SAVING_BREATH: /* Breath weapons */ + switch (level) { + case 0: return 90; + case 1: return 80; + case 2: return 79; + case 3: return 78; + case 4: return 77; + case 5: return 76; + case 6: return 75; + case 7: return 74; + case 8: return 73; + case 9: return 72; + case 10: return 71; + case 11: return 70; + case 12: return 69; + case 13: return 68; + case 14: return 67; + case 15: return 66; + case 16: return 65; + case 17: return 64; + case 18: return 63; + case 19: return 62; + case 20: return 61; + case 21: return 60; + case 22: return 59; + case 23: return 58; + case 24: return 57; + case 25: return 56; + case 26: return 55; + case 27: return 54; + case 28: return 53; + case 29: return 52; + case 30: return 51; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for thief breath saving throw."); + break; + } + case SAVING_SPELL: /* Generic spells */ + switch (level) { + case 0: return 90; + case 1: return 75; + case 2: return 73; + case 3: return 71; + case 4: return 69; + case 5: return 67; + case 6: return 65; + case 7: return 63; + case 8: return 61; + case 9: return 59; + case 10: return 57; + case 11: return 55; + case 12: return 53; + case 13: return 51; + case 14: return 49; + case 15: return 47; + case 16: return 45; + case 17: return 43; + case 18: return 41; + case 19: return 39; + case 20: return 37; + case 21: return 35; + case 22: return 33; + case 23: return 31; + case 24: return 29; + case 25: return 27; + case 26: return 25; + case 27: return 23; + case 28: return 21; + case 29: return 19; + case 30: return 17; + case 31: return 0; + case 32: return 0; + case 33: return 0; + case 34: return 0; + case 35: return 0; + case 36: return 0; + case 37: return 0; + case 38: return 0; + case 39: return 0; + case 40: return 0; + default: + log("SYSERR: Missing level for thief spell saving throw."); + break; + } + default: + log("SYSERR: Invalid saving throw type."); + break; + } + break; + case CLASS_WARRIOR: + switch (type) { + case SAVING_PARA: /* Paralyzation */ + switch (level) { + case 0: return 90; + case 1: return 70; + case 2: return 68; + case 3: return 67; + case 4: return 65; + case 5: return 62; + case 6: return 58; + case 7: return 55; + case 8: return 53; + case 9: return 52; + case 10: return 50; + case 11: return 47; + case 12: return 43; + case 13: return 40; + case 14: return 38; + case 15: return 37; + case 16: return 35; + case 17: return 32; + case 18: return 28; + case 19: return 25; + case 20: return 24; + case 21: return 23; + case 22: return 22; + case 23: return 20; + case 24: return 19; + case 25: return 17; + case 26: return 16; + case 27: return 15; + case 28: return 14; + case 29: return 13; + case 30: return 12; + case 31: return 11; + case 32: return 10; + case 33: return 9; + case 34: return 8; + case 35: return 7; + case 36: return 6; + case 37: return 5; + case 38: return 4; + case 39: return 3; + case 40: return 2; + case 41: return 1; /* Some mobiles. */ + case 42: return 0; + case 43: return 0; + case 44: return 0; + case 45: return 0; + case 46: return 0; + case 47: return 0; + case 48: return 0; + case 49: return 0; + case 50: return 0; + default: + log("SYSERR: Missing level for warrior paralyzation saving throw."); + break; + } + case SAVING_ROD: /* Rods */ + switch (level) { + case 0: return 90; + case 1: return 80; + case 2: return 78; + case 3: return 77; + case 4: return 75; + case 5: return 72; + case 6: return 68; + case 7: return 65; + case 8: return 63; + case 9: return 62; + case 10: return 60; + case 11: return 57; + case 12: return 53; + case 13: return 50; + case 14: return 48; + case 15: return 47; + case 16: return 45; + case 17: return 42; + case 18: return 38; + case 19: return 35; + case 20: return 34; + case 21: return 33; + case 22: return 32; + case 23: return 30; + case 24: return 29; + case 25: return 27; + case 26: return 26; + case 27: return 25; + case 28: return 24; + case 29: return 23; + case 30: return 22; + case 31: return 20; + case 32: return 18; + case 33: return 16; + case 34: return 14; + case 35: return 12; + case 36: return 10; + case 37: return 8; + case 38: return 6; + case 39: return 5; + case 40: return 4; + case 41: return 3; + case 42: return 2; + case 43: return 1; + case 44: return 0; + case 45: return 0; + case 46: return 0; + case 47: return 0; + case 48: return 0; + case 49: return 0; + case 50: return 0; + default: + log("SYSERR: Missing level for warrior rod saving throw."); + break; + } + case SAVING_PETRI: /* Petrification */ + switch (level) { + case 0: return 90; + case 1: return 75; + case 2: return 73; + case 3: return 72; + case 4: return 70; + case 5: return 67; + case 6: return 63; + case 7: return 60; + case 8: return 58; + case 9: return 57; + case 10: return 55; + case 11: return 52; + case 12: return 48; + case 13: return 45; + case 14: return 43; + case 15: return 42; + case 16: return 40; + case 17: return 37; + case 18: return 33; + case 19: return 30; + case 20: return 29; + case 21: return 28; + case 22: return 26; + case 23: return 25; + case 24: return 24; + case 25: return 23; + case 26: return 21; + case 27: return 20; + case 28: return 19; + case 29: return 18; + case 30: return 17; + case 31: return 16; + case 32: return 15; + case 33: return 14; + case 34: return 13; + case 35: return 12; + case 36: return 11; + case 37: return 10; + case 38: return 9; + case 39: return 8; + case 40: return 7; + case 41: return 6; + case 42: return 5; + case 43: return 4; + case 44: return 3; + case 45: return 2; + case 46: return 1; + case 47: return 0; + case 48: return 0; + case 49: return 0; + case 50: return 0; + default: + log("SYSERR: Missing level for warrior petrification saving throw."); + break; + } + case SAVING_BREATH: /* Breath weapons */ + switch (level) { + case 0: return 90; + case 1: return 85; + case 2: return 83; + case 3: return 82; + case 4: return 80; + case 5: return 75; + case 6: return 70; + case 7: return 65; + case 8: return 63; + case 9: return 62; + case 10: return 60; + case 11: return 55; + case 12: return 50; + case 13: return 45; + case 14: return 43; + case 15: return 42; + case 16: return 40; + case 17: return 37; + case 18: return 33; + case 19: return 30; + case 20: return 29; + case 21: return 28; + case 22: return 26; + case 23: return 25; + case 24: return 24; + case 25: return 23; + case 26: return 21; + case 27: return 20; + case 28: return 19; + case 29: return 18; + case 30: return 17; + case 31: return 16; + case 32: return 15; + case 33: return 14; + case 34: return 13; + case 35: return 12; + case 36: return 11; + case 37: return 10; + case 38: return 9; + case 39: return 8; + case 40: return 7; + case 41: return 6; + case 42: return 5; + case 43: return 4; + case 44: return 3; + case 45: return 2; + case 46: return 1; + case 47: return 0; + case 48: return 0; + case 49: return 0; + case 50: return 0; + default: + log("SYSERR: Missing level for warrior breath saving throw."); + break; + } + case SAVING_SPELL: /* Generic spells */ + switch (level) { + case 0: return 90; + case 1: return 85; + case 2: return 83; + case 3: return 82; + case 4: return 80; + case 5: return 77; + case 6: return 73; + case 7: return 70; + case 8: return 68; + case 9: return 67; + case 10: return 65; + case 11: return 62; + case 12: return 58; + case 13: return 55; + case 14: return 53; + case 15: return 52; + case 16: return 50; + case 17: return 47; + case 18: return 43; + case 19: return 40; + case 20: return 39; + case 21: return 38; + case 22: return 36; + case 23: return 35; + case 24: return 34; + case 25: return 33; + case 26: return 31; + case 27: return 30; + case 28: return 29; + case 29: return 28; + case 30: return 27; + case 31: return 25; + case 32: return 23; + case 33: return 21; + case 34: return 19; + case 35: return 17; + case 36: return 15; + case 37: return 13; + case 38: return 11; + case 39: return 9; + case 40: return 7; + case 41: return 6; + case 42: return 5; + case 43: return 4; + case 44: return 3; + case 45: return 2; + case 46: return 1; + case 47: return 0; + case 48: return 0; + case 49: return 0; + case 50: return 0; + default: + log("SYSERR: Missing level for warrior spell saving throw."); + break; + } + default: + log("SYSERR: Invalid saving throw type."); + break; + } + default: + log("SYSERR: Invalid class saving throw."); + break; + } + + /* Should not get here unless something is wrong. */ + return 100; +} + +/* THAC0 for classes and levels. (To Hit Armor Class 0) */ +int thaco(int class_num, int level) +{ + switch (class_num) { + case CLASS_MAGIC_USER: + switch (level) { + case 0: return 100; + case 1: return 20; + case 2: return 20; + case 3: return 20; + case 4: return 19; + case 5: return 19; + case 6: return 19; + case 7: return 18; + case 8: return 18; + case 9: return 18; + case 10: return 17; + case 11: return 17; + case 12: return 17; + case 13: return 16; + case 14: return 16; + case 15: return 16; + case 16: return 15; + case 17: return 15; + case 18: return 15; + case 19: return 14; + case 20: return 14; + case 21: return 14; + case 22: return 13; + case 23: return 13; + case 24: return 13; + case 25: return 12; + case 26: return 12; + case 27: return 12; + case 28: return 11; + case 29: return 11; + case 30: return 11; + case 31: return 10; + case 32: return 10; + case 33: return 10; + case 34: return 9; + default: + log("SYSERR: Missing level for mage thac0."); + } + case CLASS_CLERIC: + switch (level) { + case 0: return 100; + case 1: return 20; + case 2: return 20; + case 3: return 20; + case 4: return 18; + case 5: return 18; + case 6: return 18; + case 7: return 16; + case 8: return 16; + case 9: return 16; + case 10: return 14; + case 11: return 14; + case 12: return 14; + case 13: return 12; + case 14: return 12; + case 15: return 12; + case 16: return 10; + case 17: return 10; + case 18: return 10; + case 19: return 8; + case 20: return 8; + case 21: return 8; + case 22: return 6; + case 23: return 6; + case 24: return 6; + case 25: return 4; + case 26: return 4; + case 27: return 4; + case 28: return 2; + case 29: return 2; + case 30: return 2; + case 31: return 1; + case 32: return 1; + case 33: return 1; + case 34: return 1; + default: + log("SYSERR: Missing level for cleric thac0."); + } + case CLASS_THIEF: + switch (level) { + case 0: return 100; + case 1: return 20; + case 2: return 20; + case 3: return 19; + case 4: return 19; + case 5: return 18; + case 6: return 18; + case 7: return 17; + case 8: return 17; + case 9: return 16; + case 10: return 16; + case 11: return 15; + case 12: return 15; + case 13: return 14; + case 14: return 14; + case 15: return 13; + case 16: return 13; + case 17: return 12; + case 18: return 12; + case 19: return 11; + case 20: return 11; + case 21: return 10; + case 22: return 10; + case 23: return 9; + case 24: return 9; + case 25: return 8; + case 26: return 8; + case 27: return 7; + case 28: return 7; + case 29: return 6; + case 30: return 6; + case 31: return 5; + case 32: return 5; + case 33: return 4; + case 34: return 4; + default: + log("SYSERR: Missing level for thief thac0."); + } + case CLASS_WARRIOR: + switch (level) { + case 0: return 100; + case 1: return 20; + case 2: return 19; + case 3: return 18; + case 4: return 17; + case 5: return 16; + case 6: return 15; + case 7: return 14; + case 8: return 14; + case 9: return 13; + case 10: return 12; + case 11: return 11; + case 12: return 10; + case 13: return 9; + case 14: return 8; + case 15: return 7; + case 16: return 6; + case 17: return 5; + case 18: return 4; + case 19: return 3; + case 20: return 2; + case 21: return 1; + case 22: return 1; + case 23: return 1; + case 24: return 1; + case 25: return 1; + case 26: return 1; + case 27: return 1; + case 28: return 1; + case 29: return 1; + case 30: return 1; + case 31: return 1; + case 32: return 1; + case 33: return 1; + case 34: return 1; + default: + log("SYSERR: Missing level for warrior thac0."); + } + default: + log("SYSERR: Unknown class in thac0 chart."); + } + + /* Will not get there unless something is wrong. */ + return 100; +} + + +/* + * Roll the 6 stats for a character... each stat is made of the sum of + * the best 3 out of 4 rolls of a 6-sided die. Each class then decides + * which priority will be given for the best to worst stats. + */ +void roll_real_abils(struct char_data *ch) +{ + int i, j, k, temp; + ubyte table[6]; + ubyte rolls[4]; + + for (i = 0; i < 6; i++) + table[i] = 0; + + for (i = 0; i < 6; i++) { + + for (j = 0; j < 4; j++) + rolls[j] = rand_number(1, 6); + + temp = rolls[0] + rolls[1] + rolls[2] + rolls[3] - + MIN(rolls[0], MIN(rolls[1], MIN(rolls[2], rolls[3]))); + + for (k = 0; k < 6; k++) + if (table[k] < temp) { + temp ^= table[k]; + table[k] ^= temp; + temp ^= table[k]; + } + } + + ch->real_abils.str_add = 0; + + switch (GET_CLASS(ch)) { + case CLASS_MAGIC_USER: + ch->real_abils.intel = table[0]; + ch->real_abils.wis = table[1]; + ch->real_abils.dex = table[2]; + ch->real_abils.str = table[3]; + ch->real_abils.con = table[4]; + ch->real_abils.cha = table[5]; + break; + case CLASS_CLERIC: + ch->real_abils.wis = table[0]; + ch->real_abils.intel = table[1]; + ch->real_abils.str = table[2]; + ch->real_abils.dex = table[3]; + ch->real_abils.con = table[4]; + ch->real_abils.cha = table[5]; + break; + case CLASS_THIEF: + ch->real_abils.dex = table[0]; + ch->real_abils.str = table[1]; + ch->real_abils.con = table[2]; + ch->real_abils.intel = table[3]; + ch->real_abils.wis = table[4]; + ch->real_abils.cha = table[5]; + break; + case CLASS_WARRIOR: + ch->real_abils.str = table[0]; + ch->real_abils.dex = table[1]; + ch->real_abils.con = table[2]; + ch->real_abils.wis = table[3]; + ch->real_abils.intel = table[4]; + ch->real_abils.cha = table[5]; + if (ch->real_abils.str == 18) + ch->real_abils.str_add = rand_number(0, 100); + break; + } + ch->aff_abils = ch->real_abils; +} + + +/* Some initializations for characters, including initial skills */ +void do_start(struct char_data *ch) +{ + GET_LEVEL(ch) = 1; + GET_EXP(ch) = 1; + + set_title(ch, NULL); + roll_real_abils(ch); + + GET_MAX_HIT(ch) = 10; + GET_MAX_MANA(ch) = 100; + GET_MAX_MOVE(ch) = 82; + + switch (GET_CLASS(ch)) { + + case CLASS_MAGIC_USER: + break; + + case CLASS_CLERIC: + break; + + case CLASS_THIEF: + SET_SKILL(ch, SKILL_SNEAK, 10); + SET_SKILL(ch, SKILL_HIDE, 5); + SET_SKILL(ch, SKILL_STEAL, 15); + SET_SKILL(ch, SKILL_BACKSTAB, 10); + SET_SKILL(ch, SKILL_PICK_LOCK, 10); + SET_SKILL(ch, SKILL_TRACK, 10); + break; + + case CLASS_WARRIOR: + break; + } + + advance_level(ch); + mudlog(BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s advanced to level %d", GET_NAME(ch), GET_LEVEL(ch)); + + GET_HIT(ch) = GET_MAX_HIT(ch); + GET_MANA(ch) = GET_MAX_MANA(ch); + GET_MOVE(ch) = GET_MAX_MOVE(ch); + + GET_COND(ch, THIRST) = 24; + GET_COND(ch, FULL) = 24; + GET_COND(ch, DRUNK) = 0; + + if (siteok_everyone) + SET_BIT(PLR_FLAGS(ch), PLR_SITEOK); +} + + + +/* + * This function controls the change to maxmove, maxmana, and maxhp for + * each class every time they gain a level. + */ +void advance_level(struct char_data *ch) +{ + int add_hp, add_mana = 0, add_move = 0, i; + + add_hp = con_app[GET_CON(ch)].hitp; + + switch (GET_CLASS(ch)) { + + case CLASS_MAGIC_USER: + add_hp += rand_number(3, 8); + add_mana = rand_number(GET_LEVEL(ch), (int)(1.5 * GET_LEVEL(ch))); + add_mana = MIN(add_mana, 10); + add_move = rand_number(0, 2); + break; + + case CLASS_CLERIC: + add_hp += rand_number(5, 10); + add_mana = rand_number(GET_LEVEL(ch), (int)(1.5 * GET_LEVEL(ch))); + add_mana = MIN(add_mana, 10); + add_move = rand_number(0, 2); + break; + + case CLASS_THIEF: + add_hp += rand_number(7, 13); + add_mana = 0; + add_move = rand_number(1, 3); + break; + + case CLASS_WARRIOR: + add_hp += rand_number(10, 15); + add_mana = 0; + add_move = rand_number(1, 3); + break; + } + + ch->points.max_hit += MAX(1, add_hp); + ch->points.max_move += MAX(1, add_move); + + if (GET_LEVEL(ch) > 1) + ch->points.max_mana += add_mana; + + if (IS_MAGIC_USER(ch) || IS_CLERIC(ch)) + GET_PRACTICES(ch) += MAX(2, wis_app[GET_WIS(ch)].bonus); + else + GET_PRACTICES(ch) += MIN(2, MAX(1, wis_app[GET_WIS(ch)].bonus)); + + if (GET_LEVEL(ch) >= LVL_IMMORT) { + for (i = 0; i < 3; i++) + GET_COND(ch, i) = (char) -1; + SET_BIT(PRF_FLAGS(ch), PRF_HOLYLIGHT); + } + + snoop_check(ch); + save_char(ch); +} + + +/* + * This simply calculates the backstab multiplier based on a character's + * level. This used to be an array, but was changed to be a function so + * that it would be easier to add more levels to your MUD. This doesn't + * really create a big performance hit because it's not used very often. + */ +int backstab_mult(int level) +{ + if (level <= 0) + return 1; /* level 0 */ + else if (level <= 7) + return 2; /* level 1 - 7 */ + else if (level <= 13) + return 3; /* level 8 - 13 */ + else if (level <= 20) + return 4; /* level 14 - 20 */ + else if (level <= 28) + return 5; /* level 21 - 28 */ + else if (level < LVL_IMMORT) + return 6; /* all remaining mortal levels */ + else + return 20; /* immortals */ +} + + +/* + * invalid_class is used by handler.c to determine if a piece of equipment is + * usable by a particular class, based on the ITEM_ANTI_{class} bitvectors. + */ +int invalid_class(struct char_data *ch, struct obj_data *obj) +{ + if (OBJ_FLAGGED(obj, ITEM_ANTI_MAGIC_USER) && IS_MAGIC_USER(ch)) + return TRUE; + + if (OBJ_FLAGGED(obj, ITEM_ANTI_CLERIC) && IS_CLERIC(ch)) + return TRUE; + + if (OBJ_FLAGGED(obj, ITEM_ANTI_WARRIOR) && IS_WARRIOR(ch)) + return TRUE; + + if (OBJ_FLAGGED(obj, ITEM_ANTI_THIEF) && IS_THIEF(ch)) + return TRUE; + + return FALSE; +} + + +/* + * SPELLS AND SKILLS. This area defines which spells are assigned to + * which classes, and the minimum level the character must be to use + * the spell or skill. + */ +void init_spell_levels(void) +{ + /* MAGES */ + spell_level(SPELL_MAGIC_MISSILE, CLASS_MAGIC_USER, 1); + spell_level(SPELL_DETECT_INVIS, CLASS_MAGIC_USER, 2); + spell_level(SPELL_DETECT_MAGIC, CLASS_MAGIC_USER, 2); + spell_level(SPELL_CHILL_TOUCH, CLASS_MAGIC_USER, 3); + spell_level(SPELL_INFRAVISION, CLASS_MAGIC_USER, 3); + spell_level(SPELL_INVISIBLE, CLASS_MAGIC_USER, 4); + spell_level(SPELL_ARMOR, CLASS_MAGIC_USER, 4); + spell_level(SPELL_BURNING_HANDS, CLASS_MAGIC_USER, 5); + spell_level(SPELL_LOCATE_OBJECT, CLASS_MAGIC_USER, 6); + spell_level(SPELL_STRENGTH, CLASS_MAGIC_USER, 6); + spell_level(SPELL_SHOCKING_GRASP, CLASS_MAGIC_USER, 7); + spell_level(SPELL_SLEEP, CLASS_MAGIC_USER, 8); + spell_level(SPELL_LIGHTNING_BOLT, CLASS_MAGIC_USER, 9); + spell_level(SPELL_BLINDNESS, CLASS_MAGIC_USER, 9); + spell_level(SPELL_DETECT_POISON, CLASS_MAGIC_USER, 10); + spell_level(SPELL_COLOR_SPRAY, CLASS_MAGIC_USER, 11); + spell_level(SPELL_ENERGY_DRAIN, CLASS_MAGIC_USER, 13); + spell_level(SPELL_CURSE, CLASS_MAGIC_USER, 14); + spell_level(SPELL_POISON, CLASS_MAGIC_USER, 14); + spell_level(SPELL_FIREBALL, CLASS_MAGIC_USER, 15); + spell_level(SPELL_CHARM, CLASS_MAGIC_USER, 16); + spell_level(SPELL_ENCHANT_WEAPON, CLASS_MAGIC_USER, 26); + spell_level(SPELL_CLONE, CLASS_MAGIC_USER, 30); + + /* CLERICS */ + spell_level(SPELL_CURE_LIGHT, CLASS_CLERIC, 1); + spell_level(SPELL_ARMOR, CLASS_CLERIC, 1); + spell_level(SPELL_CREATE_FOOD, CLASS_CLERIC, 2); + spell_level(SPELL_CREATE_WATER, CLASS_CLERIC, 2); + spell_level(SPELL_DETECT_POISON, CLASS_CLERIC, 3); + spell_level(SPELL_DETECT_ALIGN, CLASS_CLERIC, 4); + spell_level(SPELL_CURE_BLIND, CLASS_CLERIC, 4); + spell_level(SPELL_BLESS, CLASS_CLERIC, 5); + spell_level(SPELL_DETECT_INVIS, CLASS_CLERIC, 6); + spell_level(SPELL_BLINDNESS, CLASS_CLERIC, 6); + spell_level(SPELL_INFRAVISION, CLASS_CLERIC, 7); + spell_level(SPELL_PROT_FROM_EVIL, CLASS_CLERIC, 8); + spell_level(SPELL_POISON, CLASS_CLERIC, 8); + spell_level(SPELL_GROUP_ARMOR, CLASS_CLERIC, 9); + spell_level(SPELL_CURE_CRITIC, CLASS_CLERIC, 9); + spell_level(SPELL_SUMMON, CLASS_CLERIC, 10); + spell_level(SPELL_REMOVE_POISON, CLASS_CLERIC, 10); + spell_level(SPELL_WORD_OF_RECALL, CLASS_CLERIC, 12); + spell_level(SPELL_EARTHQUAKE, CLASS_CLERIC, 12); + spell_level(SPELL_DISPEL_EVIL, CLASS_CLERIC, 14); + spell_level(SPELL_DISPEL_GOOD, CLASS_CLERIC, 14); + spell_level(SPELL_SANCTUARY, CLASS_CLERIC, 15); + spell_level(SPELL_CALL_LIGHTNING, CLASS_CLERIC, 15); + spell_level(SPELL_HEAL, CLASS_CLERIC, 16); + spell_level(SPELL_CONTROL_WEATHER, CLASS_CLERIC, 17); + spell_level(SPELL_SENSE_LIFE, CLASS_CLERIC, 18); + spell_level(SPELL_HARM, CLASS_CLERIC, 19); + spell_level(SPELL_GROUP_HEAL, CLASS_CLERIC, 22); + spell_level(SPELL_REMOVE_CURSE, CLASS_CLERIC, 26); + + /* THIEVES */ + spell_level(SKILL_SNEAK, CLASS_THIEF, 1); + spell_level(SKILL_PICK_LOCK, CLASS_THIEF, 2); + spell_level(SKILL_BACKSTAB, CLASS_THIEF, 3); + spell_level(SKILL_STEAL, CLASS_THIEF, 4); + spell_level(SKILL_HIDE, CLASS_THIEF, 5); + spell_level(SKILL_TRACK, CLASS_THIEF, 6); + + /* WARRIORS */ + spell_level(SKILL_KICK, CLASS_WARRIOR, 1); + spell_level(SKILL_RESCUE, CLASS_WARRIOR, 3); + spell_level(SKILL_TRACK, CLASS_WARRIOR, 9); + spell_level(SKILL_BASH, CLASS_WARRIOR, 12); +} + + +/* + * This is the exp given to implementors -- it must always be greater + * than the exp required for immortality, plus at least 20,000 or so. + */ +#define EXP_MAX 10000000 + +/* Function to return the exp required for each class/level */ +int level_exp(int chclass, int level) +{ + if (level > LVL_IMPL || level < 0) { + log("SYSERR: Requesting exp for invalid level %d!", level); + return 0; + } + + /* + * Gods have exp close to EXP_MAX. This statement should never have to + * changed, regardless of how many mortal or immortal levels exist. + */ + if (level > LVL_IMMORT) { + return EXP_MAX - ((LVL_IMPL - level) * 1000); + } + + /* Exp required for normal mortals is below */ + + switch (chclass) { + + case CLASS_MAGIC_USER: + switch (level) { + case 0: return 0; + case 1: return 1; + case 2: return 2500; + case 3: return 5000; + case 4: return 10000; + case 5: return 20000; + case 6: return 40000; + case 7: return 60000; + case 8: return 90000; + case 9: return 135000; + case 10: return 250000; + case 11: return 375000; + case 12: return 750000; + case 13: return 1125000; + case 14: return 1500000; + case 15: return 1875000; + case 16: return 2250000; + case 17: return 2625000; + case 18: return 3000000; + case 19: return 3375000; + case 20: return 3750000; + case 21: return 4000000; + case 22: return 4300000; + case 23: return 4600000; + case 24: return 4900000; + case 25: return 5200000; + case 26: return 5500000; + case 27: return 5950000; + case 28: return 6400000; + case 29: return 6850000; + case 30: return 7400000; + /* add new levels here */ + case LVL_IMMORT: return 8000000; + } + break; + + case CLASS_CLERIC: + switch (level) { + case 0: return 0; + case 1: return 1; + case 2: return 1500; + case 3: return 3000; + case 4: return 6000; + case 5: return 13000; + case 6: return 27500; + case 7: return 55000; + case 8: return 110000; + case 9: return 225000; + case 10: return 450000; + case 11: return 675000; + case 12: return 900000; + case 13: return 1125000; + case 14: return 1350000; + case 15: return 1575000; + case 16: return 1800000; + case 17: return 2100000; + case 18: return 2400000; + case 19: return 2700000; + case 20: return 3000000; + case 21: return 3250000; + case 22: return 3500000; + case 23: return 3800000; + case 24: return 4100000; + case 25: return 4400000; + case 26: return 4800000; + case 27: return 5200000; + case 28: return 5600000; + case 29: return 6000000; + case 30: return 6400000; + /* add new levels here */ + case LVL_IMMORT: return 7000000; + } + break; + + case CLASS_THIEF: + switch (level) { + case 0: return 0; + case 1: return 1; + case 2: return 1250; + case 3: return 2500; + case 4: return 5000; + case 5: return 10000; + case 6: return 20000; + case 7: return 40000; + case 8: return 70000; + case 9: return 110000; + case 10: return 160000; + case 11: return 220000; + case 12: return 440000; + case 13: return 660000; + case 14: return 880000; + case 15: return 1100000; + case 16: return 1500000; + case 17: return 2000000; + case 18: return 2500000; + case 19: return 3000000; + case 20: return 3500000; + case 21: return 3650000; + case 22: return 3800000; + case 23: return 4100000; + case 24: return 4400000; + case 25: return 4700000; + case 26: return 5100000; + case 27: return 5500000; + case 28: return 5900000; + case 29: return 6300000; + case 30: return 6650000; + /* add new levels here */ + case LVL_IMMORT: return 7000000; + } + break; + + case CLASS_WARRIOR: + switch (level) { + case 0: return 0; + case 1: return 1; + case 2: return 2000; + case 3: return 4000; + case 4: return 8000; + case 5: return 16000; + case 6: return 32000; + case 7: return 64000; + case 8: return 125000; + case 9: return 250000; + case 10: return 500000; + case 11: return 750000; + case 12: return 1000000; + case 13: return 1250000; + case 14: return 1500000; + case 15: return 1850000; + case 16: return 2200000; + case 17: return 2550000; + case 18: return 2900000; + case 19: return 3250000; + case 20: return 3600000; + case 21: return 3900000; + case 22: return 4200000; + case 23: return 4500000; + case 24: return 4800000; + case 25: return 5150000; + case 26: return 5500000; + case 27: return 5950000; + case 28: return 6400000; + case 29: return 6850000; + case 30: return 7400000; + /* add new levels here */ + case LVL_IMMORT: return 8000000; + } + break; + } + + /* + * This statement should never be reached if the exp tables in this function + * are set up properly. If you see exp of 123456 then the tables above are + * incomplete -- so, complete them! + */ + log("SYSERR: XP tables not set up correctly in class.c!"); + return 123456; +} + + +/* + * Default titles of male characters. + */ +const char *title_male(int chclass, int level) +{ + if (level <= 0 || level > LVL_IMPL) + return "the Man"; + if (level == LVL_IMPL) + return "the Implementor"; + + switch (chclass) { + + case CLASS_MAGIC_USER: + switch (level) { + case 1: return "the Apprentice of Magic"; + case 2: return "the Spell Student"; + case 3: return "the Scholar of Magic"; + case 4: return "the Delver in Spells"; + case 5: return "the Medium of Magic"; + case 6: return "the Scribe of Magic"; + case 7: return "the Seer"; + case 8: return "the Sage"; + case 9: return "the Illusionist"; + case 10: return "the Abjurer"; + case 11: return "the Invoker"; + case 12: return "the Enchanter"; + case 13: return "the Conjurer"; + case 14: return "the Magician"; + case 15: return "the Creator"; + case 16: return "the Savant"; + case 17: return "the Magus"; + case 18: return "the Wizard"; + case 19: return "the Warlock"; + case 20: return "the Sorcerer"; + case 21: return "the Necromancer"; + case 22: return "the Thaumaturge"; + case 23: return "the Student of the Occult"; + case 24: return "the Disciple of the Uncanny"; + case 25: return "the Minor Elemental"; + case 26: return "the Greater Elemental"; + case 27: return "the Crafter of Magics"; + case 28: return "the Shaman"; + case 29: return "the Keeper of Talismans"; + case 30: return "the Archmage"; + case LVL_IMMORT: return "the Immortal Warlock"; + case LVL_GOD: return "the Avatar of Magic"; + case LVL_GRGOD: return "the God of Magic"; + default: return "the Mage"; + } + break; + + case CLASS_CLERIC: + switch (level) { + case 1: return "the Believer"; + case 2: return "the Attendant"; + case 3: return "the Acolyte"; + case 4: return "the Novice"; + case 5: return "the Missionary"; + case 6: return "the Adept"; + case 7: return "the Deacon"; + case 8: return "the Vicar"; + case 9: return "the Priest"; + case 10: return "the Minister"; + case 11: return "the Canon"; + case 12: return "the Levite"; + case 13: return "the Curate"; + case 14: return "the Monk"; + case 15: return "the Healer"; + case 16: return "the Chaplain"; + case 17: return "the Expositor"; + case 18: return "the Bishop"; + case 19: return "the Arch Bishop"; + case 20: return "the Patriarch"; + /* no one ever thought up these titles 21-30 */ + case LVL_IMMORT: return "the Immortal Cardinal"; + case LVL_GOD: return "the Inquisitor"; + case LVL_GRGOD: return "the God of good and evil"; + default: return "the Cleric"; + } + break; + + case CLASS_THIEF: + switch (level) { + case 1: return "the Pilferer"; + case 2: return "the Footpad"; + case 3: return "the Filcher"; + case 4: return "the Pick-Pocket"; + case 5: return "the Sneak"; + case 6: return "the Pincher"; + case 7: return "the Cut-Purse"; + case 8: return "the Snatcher"; + case 9: return "the Sharper"; + case 10: return "the Rogue"; + case 11: return "the Robber"; + case 12: return "the Magsman"; + case 13: return "the Highwayman"; + case 14: return "the Burglar"; + case 15: return "the Thief"; + case 16: return "the Knifer"; + case 17: return "the Quick-Blade"; + case 18: return "the Killer"; + case 19: return "the Brigand"; + case 20: return "the Cut-Throat"; + /* no one ever thought up these titles 21-30 */ + case LVL_IMMORT: return "the Immortal Assasin"; + case LVL_GOD: return "the Demi God of thieves"; + case LVL_GRGOD: return "the God of thieves and tradesmen"; + default: return "the Thief"; + } + break; + + case CLASS_WARRIOR: + switch(level) { + case 1: return "the Swordpupil"; + case 2: return "the Recruit"; + case 3: return "the Sentry"; + case 4: return "the Fighter"; + case 5: return "the Soldier"; + case 6: return "the Warrior"; + case 7: return "the Veteran"; + case 8: return "the Swordsman"; + case 9: return "the Fencer"; + case 10: return "the Combatant"; + case 11: return "the Hero"; + case 12: return "the Myrmidon"; + case 13: return "the Swashbuckler"; + case 14: return "the Mercenary"; + case 15: return "the Swordmaster"; + case 16: return "the Lieutenant"; + case 17: return "the Champion"; + case 18: return "the Dragoon"; + case 19: return "the Cavalier"; + case 20: return "the Knight"; + /* no one ever thought up these titles 21-30 */ + case LVL_IMMORT: return "the Immortal Warlord"; + case LVL_GOD: return "the Extirpator"; + case LVL_GRGOD: return "the God of war"; + default: return "the Warrior"; + } + break; + } + + /* Default title for classes which do not have titles defined */ + return "the Classless"; +} + + +/* + * Default titles of female characters. + */ +const char *title_female(int chclass, int level) +{ + if (level <= 0 || level > LVL_IMPL) + return "the Woman"; + if (level == LVL_IMPL) + return "the Implementress"; + + switch (chclass) { + + case CLASS_MAGIC_USER: + switch (level) { + case 1: return "the Apprentice of Magic"; + case 2: return "the Spell Student"; + case 3: return "the Scholar of Magic"; + case 4: return "the Delveress in Spells"; + case 5: return "the Medium of Magic"; + case 6: return "the Scribess of Magic"; + case 7: return "the Seeress"; + case 8: return "the Sage"; + case 9: return "the Illusionist"; + case 10: return "the Abjuress"; + case 11: return "the Invoker"; + case 12: return "the Enchantress"; + case 13: return "the Conjuress"; + case 14: return "the Witch"; + case 15: return "the Creator"; + case 16: return "the Savant"; + case 17: return "the Craftess"; + case 18: return "the Wizard"; + case 19: return "the War Witch"; + case 20: return "the Sorceress"; + case 21: return "the Necromancress"; + case 22: return "the Thaumaturgess"; + case 23: return "the Student of the Occult"; + case 24: return "the Disciple of the Uncanny"; + case 25: return "the Minor Elementress"; + case 26: return "the Greater Elementress"; + case 27: return "the Crafter of Magics"; + case 28: return "Shaman"; + case 29: return "the Keeper of Talismans"; + case 30: return "Archwitch"; + case LVL_IMMORT: return "the Immortal Enchantress"; + case LVL_GOD: return "the Empress of Magic"; + case LVL_GRGOD: return "the Goddess of Magic"; + default: return "the Witch"; + } + break; + + case CLASS_CLERIC: + switch (level) { + case 1: return "the Believer"; + case 2: return "the Attendant"; + case 3: return "the Acolyte"; + case 4: return "the Novice"; + case 5: return "the Missionary"; + case 6: return "the Adept"; + case 7: return "the Deaconess"; + case 8: return "the Vicaress"; + case 9: return "the Priestess"; + case 10: return "the Lady Minister"; + case 11: return "the Canon"; + case 12: return "the Levitess"; + case 13: return "the Curess"; + case 14: return "the Nunne"; + case 15: return "the Healess"; + case 16: return "the Chaplain"; + case 17: return "the Expositress"; + case 18: return "the Bishop"; + case 19: return "the Arch Lady of the Church"; + case 20: return "the Matriarch"; + /* no one ever thought up these titles 21-30 */ + case LVL_IMMORT: return "the Immortal Priestess"; + case LVL_GOD: return "the Inquisitress"; + case LVL_GRGOD: return "the Goddess of good and evil"; + default: return "the Cleric"; + } + break; + + case CLASS_THIEF: + switch (level) { + case 1: return "the Pilferess"; + case 2: return "the Footpad"; + case 3: return "the Filcheress"; + case 4: return "the Pick-Pocket"; + case 5: return "the Sneak"; + case 6: return "the Pincheress"; + case 7: return "the Cut-Purse"; + case 8: return "the Snatcheress"; + case 9: return "the Sharpress"; + case 10: return "the Rogue"; + case 11: return "the Robber"; + case 12: return "the Magswoman"; + case 13: return "the Highwaywoman"; + case 14: return "the Burglaress"; + case 15: return "the Thief"; + case 16: return "the Knifer"; + case 17: return "the Quick-Blade"; + case 18: return "the Murderess"; + case 19: return "the Brigand"; + case 20: return "the Cut-Throat"; + /* no one ever thought up these titles 21-30 */ + case LVL_IMMORT: return "the Immortal Assasin"; + case LVL_GOD: return "the Demi Goddess of thieves"; + case LVL_GRGOD: return "the Goddess of thieves and tradesmen"; + default: return "the Thief"; + } + break; + + case CLASS_WARRIOR: + switch(level) { + case 1: return "the Swordpupil"; + case 2: return "the Recruit"; + case 3: return "the Sentress"; + case 4: return "the Fighter"; + case 5: return "the Soldier"; + case 6: return "the Warrior"; + case 7: return "the Veteran"; + case 8: return "the Swordswoman"; + case 9: return "the Fenceress"; + case 10: return "the Combatess"; + case 11: return "the Heroine"; + case 12: return "the Myrmidon"; + case 13: return "the Swashbuckleress"; + case 14: return "the Mercenaress"; + case 15: return "the Swordmistress"; + case 16: return "the Lieutenant"; + case 17: return "the Lady Champion"; + case 18: return "the Lady Dragoon"; + case 19: return "the Cavalier"; + case 20: return "the Lady Knight"; + /* no one ever thought up these titles 21-30 */ + case LVL_IMMORT: return "the Immortal Lady of War"; + case LVL_GOD: return "the Queen of Destruction"; + case LVL_GRGOD: return "the Goddess of war"; + default: return "the Warrior"; + } + break; + } + + /* Default title for classes which do not have titles defined */ + return "the Classless"; +} + diff --git a/src/comm.c b/src/comm.c new file mode 100644 index 0000000..85f28c2 --- /dev/null +++ b/src/comm.c @@ -0,0 +1,2520 @@ +/* ************************************************************************ +* File: comm.c Part of CircleMUD * +* Usage: Communication, socket handling, main(), central game loop * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define __COMM_C__ + +#include "conf.h" +#include "sysdep.h" + +#if CIRCLE_GNU_LIBC_MEMORY_TRACK +# include <mcheck.h> +#endif + +#ifdef CIRCLE_MACINTOSH /* Includes for the Macintosh */ +# define SIGPIPE 13 +# define SIGALRM 14 + /* GUSI headers */ +# include <sys/ioctl.h> + /* Codewarrior dependant */ +# include <SIOUX.h> +# include <console.h> +#endif + +#ifdef CIRCLE_WINDOWS /* Includes for Win32 */ +# ifdef __BORLANDC__ +# include <dir.h> +# else /* MSVC */ +# include <direct.h> +# endif +# include <mmsystem.h> +#endif /* CIRCLE_WINDOWS */ + +#ifdef CIRCLE_AMIGA /* Includes for the Amiga */ +# include <sys/ioctl.h> +# include <clib/socket_protos.h> +#endif /* CIRCLE_AMIGA */ + +#ifdef CIRCLE_ACORN /* Includes for the Acorn (RiscOS) */ +# include <socklib.h> +# include <inetlib.h> +# include <sys/ioctl.h> +#endif + +/* + * Note, most includes for all platforms are in sysdep.h. The list of + * files that is included is controlled by conf.h for that platform. + */ + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "house.h" + +#ifdef HAVE_ARPA_TELNET_H +#include <arpa/telnet.h> +#else +#include "telnet.h" +#endif + +#ifndef INVALID_SOCKET +#define INVALID_SOCKET (-1) +#endif + +/* externs */ +extern struct ban_list_element *ban_list; +extern int num_invalid; +extern char *GREETINGS; +extern const char *circlemud_version; +extern int circle_restrict; +extern int mini_mud; +extern int no_rent_check; +extern FILE *player_fl; +extern ush_int DFLT_PORT; +extern const char *DFLT_DIR; +extern const char *DFLT_IP; +extern const char *LOGNAME; +extern int max_playing; +extern int nameserver_is_slow; /* see config.c */ +extern int auto_save; /* see config.c */ +extern int autosave_time; /* see config.c */ +extern int *cmd_sort_info; + +extern struct time_info_data time_info; /* In db.c */ +extern char *help; + +/* local globals */ +struct descriptor_data *descriptor_list = NULL; /* master desc list */ +struct txt_block *bufpool = 0; /* pool of large output buffers */ +int buf_largecount = 0; /* # of large buffers which exist */ +int buf_overflows = 0; /* # of overflows of output */ +int buf_switches = 0; /* # of switches from small to large buf */ +int circle_shutdown = 0; /* clean shutdown */ +int circle_reboot = 0; /* reboot the game after a shutdown */ +int no_specials = 0; /* Suppress ass. of special routines */ +int max_players = 0; /* max descriptors available */ +int tics = 0; /* for extern checkpointing */ +int scheck = 0; /* for syntax checking mode */ +struct timeval null_time; /* zero-valued time structure */ +byte reread_wizlist; /* signal: SIGUSR1 */ +byte emergency_unban; /* signal: SIGUSR2 */ +FILE *logfile = NULL; /* Where to send the log messages. */ +const char *text_overflow = "**OVERFLOW**\r\n"; + +/* functions in this file */ +RETSIGTYPE reread_wizlists(int sig); +RETSIGTYPE unrestrict_game(int sig); +RETSIGTYPE reap(int sig); +RETSIGTYPE checkpointing(int sig); +RETSIGTYPE hupsig(int sig); +ssize_t perform_socket_read(socket_t desc, char *read_point,size_t space_left); +ssize_t perform_socket_write(socket_t desc, const char *txt,size_t length); +void echo_off(struct descriptor_data *d); +void echo_on(struct descriptor_data *d); +void circle_sleep(struct timeval *timeout); +int get_from_q(struct txt_q *queue, char *dest, int *aliased); +void init_game(ush_int port); +void signal_setup(void); +void game_loop(socket_t mother_desc); +socket_t init_socket(ush_int port); +int new_descriptor(socket_t s); +int get_max_players(void); +int process_output(struct descriptor_data *t); +int process_input(struct descriptor_data *t); +void timediff(struct timeval *diff, struct timeval *a, struct timeval *b); +void timeadd(struct timeval *sum, struct timeval *a, struct timeval *b); +void flush_queues(struct descriptor_data *d); +void nonblock(socket_t s); +int perform_subst(struct descriptor_data *t, char *orig, char *subst); +void record_usage(void); +char *make_prompt(struct descriptor_data *point); +void check_idle_passwords(void); +void heartbeat(int pulse); +struct in_addr *get_bind_addr(void); +int parse_ip(const char *addr, struct in_addr *inaddr); +int set_sendbuf(socket_t s); +void setup_log(const char *filename, int fd); +int open_logfile(const char *filename, FILE *stderr_fp); +#if defined(POSIX) +sigfunc *my_signal(int signo, sigfunc *func); +#endif + +/* extern fcnts */ +void reboot_wizlists(void); +void boot_world(void); +void affect_update(void); /* In magic.c */ +void mobile_activity(void); +void perform_violence(void); +void show_string(struct descriptor_data *d, char *input); +int isbanned(char *hostname); +void weather_and_time(int mode); +int perform_alias(struct descriptor_data *d, char *orig, size_t maxlen); +void clear_free_list(void); +void free_messages(void); +void Board_clear_all(void); +void free_social_messages(void); +void Free_Invalid_List(void); + +#ifdef __CXREF__ +#undef FD_ZERO +#undef FD_SET +#undef FD_ISSET +#undef FD_CLR +#define FD_ZERO(x) +#define FD_SET(x, y) 0 +#define FD_ISSET(x, y) 0 +#define FD_CLR(x, y) +#endif + + +/*********************************************************************** +* main game loop and related stuff * +***********************************************************************/ + +#if defined(CIRCLE_WINDOWS) || defined(CIRCLE_MACINTOSH) + +/* + * Windows doesn't have gettimeofday, so we'll simulate it. + * The Mac doesn't have gettimeofday either. + * Borland C++ warns: "Undefined structure 'timezone'" + */ +void gettimeofday(struct timeval *t, struct timezone *dummy) +{ +#if defined(CIRCLE_WINDOWS) + DWORD millisec = GetTickCount(); +#elif defined(CIRCLE_MACINTOSH) + unsigned long int millisec; + millisec = (int)((float)TickCount() * 1000.0 / 60.0); +#endif + + t->tv_sec = (int) (millisec / 1000); + t->tv_usec = (millisec % 1000) * 1000; +} + +#endif /* CIRCLE_WINDOWS || CIRCLE_MACINTOSH */ + + +int main(int argc, char **argv) +{ + ush_int port; + int pos = 1; + const char *dir; + +#if CIRCLE_GNU_LIBC_MEMORY_TRACK + mtrace(); /* This must come before any use of malloc(). */ +#endif + +#ifdef CIRCLE_MACINTOSH + /* + * ccommand() calls the command line/io redirection dialog box from + * Codewarriors's SIOUX library + */ + argc = ccommand(&argv); + /* Initialize the GUSI library calls. */ + GUSIDefaultSetup(); +#endif + + port = DFLT_PORT; + dir = DFLT_DIR; + + while ((pos < argc) && (*(argv[pos]) == '-')) { + switch (*(argv[pos] + 1)) { + case 'o': + if (*(argv[pos] + 2)) + LOGNAME = argv[pos] + 2; + else if (++pos < argc) + LOGNAME = argv[pos]; + else { + puts("SYSERR: File name to log to expected after option -o."); + exit(1); + } + break; + case 'd': + if (*(argv[pos] + 2)) + dir = argv[pos] + 2; + else if (++pos < argc) + dir = argv[pos]; + else { + puts("SYSERR: Directory arg expected after option -d."); + exit(1); + } + break; + case 'm': + mini_mud = 1; + no_rent_check = 1; + puts("Running in minimized mode & with no rent check."); + break; + case 'c': + scheck = 1; + puts("Syntax check mode enabled."); + break; + case 'q': + no_rent_check = 1; + puts("Quick boot mode -- rent check supressed."); + break; + case 'r': + circle_restrict = 1; + puts("Restricting game -- no new players allowed."); + break; + case 's': + no_specials = 1; + puts("Suppressing assignment of special routines."); + break; + case 'h': + /* From: Anil Mahajan <amahajan@proxicom.com> */ + printf("Usage: %s [-c] [-m] [-q] [-r] [-s] [-d pathname] [port #]\n" + " -c Enable syntax check mode.\n" + " -d <directory> Specify library directory (defaults to 'lib').\n" + " -h Print this command line argument help.\n" + " -m Start in mini-MUD mode.\n" + " -o <file> Write log to <file> instead of stderr.\n" + " -q Quick boot (doesn't scan rent for object limits)\n" + " -r Restrict MUD -- no new players allowed.\n" + " -s Suppress special procedure assignments.\n", + argv[0] + ); + exit(0); + default: + printf("SYSERR: Unknown option -%c in argument string.\n", *(argv[pos] + 1)); + break; + } + pos++; + } + + if (pos < argc) { + if (!isdigit(*argv[pos])) { + printf("Usage: %s [-c] [-m] [-q] [-r] [-s] [-d pathname] [port #]\n", argv[0]); + exit(1); + } else if ((port = atoi(argv[pos])) <= 1024) { + printf("SYSERR: Illegal port number %d.\n", port); + exit(1); + } + } + + /* All arguments have been parsed, try to open log file. */ + setup_log(LOGNAME, STDERR_FILENO); + + /* + * Moved here to distinguish command line options and to show up + * in the log if stderr is redirected to a file. + */ + log("%s", circlemud_version); + + if (chdir(dir) < 0) { + perror("SYSERR: Fatal error changing to data directory"); + exit(1); + } + log("Using %s as data directory.", dir); + + if (scheck) + boot_world(); + else { + log("Running game on port %d.", port); + init_game(port); + } + + log("Clearing game world."); + destroy_db(); + + if (!scheck) { + log("Clearing other memory."); + free_player_index(); /* db.c */ + free_messages(); /* fight.c */ + clear_free_list(); /* mail.c */ + free_text_files(); /* db.c */ + Board_clear_all(); /* boards.c */ + free(cmd_sort_info); /* act.informative.c */ + free_social_messages(); /* act.social.c */ + free_help(); /* db.c */ + Free_Invalid_List(); /* ban.c */ + } + + log("Done."); + return (0); +} + + + +/* Init sockets, run game, and cleanup sockets */ +void init_game(ush_int port) +{ + socket_t mother_desc; + + /* We don't want to restart if we crash before we get up. */ + touch(KILLSCRIPT_FILE); + + circle_srandom(time(0)); + + log("Finding player limit."); + max_players = get_max_players(); + + log("Opening mother connection."); + mother_desc = init_socket(port); + + boot_db(); + +#if defined(CIRCLE_UNIX) || defined(CIRCLE_MACINTOSH) + log("Signal trapping."); + signal_setup(); +#endif + + /* If we made it this far, we will be able to restart without problem. */ + remove(KILLSCRIPT_FILE); + + log("Entering game loop."); + + game_loop(mother_desc); + + Crash_save_all(); + + log("Closing all sockets."); + while (descriptor_list) + close_socket(descriptor_list); + + CLOSE_SOCKET(mother_desc); + fclose(player_fl); + + log("Saving current MUD time."); + save_mud_time(&time_info); + + if (circle_reboot) { + log("Rebooting."); + exit(52); /* what's so great about HHGTTG, anyhow? */ + } + log("Normal termination of game."); +} + + + +/* + * init_socket sets up the mother descriptor - creates the socket, sets + * its options up, binds it, and listens. + */ +socket_t init_socket(ush_int port) +{ + socket_t s; + struct sockaddr_in sa; + int opt; + +#ifdef CIRCLE_WINDOWS + { + WORD wVersionRequested; + WSADATA wsaData; + + wVersionRequested = MAKEWORD(1, 1); + + if (WSAStartup(wVersionRequested, &wsaData) != 0) { + log("SYSERR: WinSock not available!"); + exit(1); + } + + /* + * 4 = stdin, stdout, stderr, mother_desc. Windows might + * keep sockets and files separate, in which case this isn't + * necessary, but we will err on the side of caution. + */ + if ((wsaData.iMaxSockets - 4) < max_players) { + max_players = wsaData.iMaxSockets - 4; + } + log("Max players set to %d", max_players); + + if ((s = socket(PF_INET, SOCK_STREAM, 0)) == INVALID_SOCKET) { + log("SYSERR: Error opening network connection: Winsock error #%d", + WSAGetLastError()); + exit(1); + } + } +#else + /* + * Should the first argument to socket() be AF_INET or PF_INET? I don't + * know, take your pick. PF_INET seems to be more widely adopted, and + * Comer (_Internetworking with TCP/IP_) even makes a point to say that + * people erroneously use AF_INET with socket() when they should be using + * PF_INET. However, the man pages of some systems indicate that AF_INET + * is correct; some such as ConvexOS even say that you can use either one. + * All implementations I've seen define AF_INET and PF_INET to be the same + * number anyway, so the point is (hopefully) moot. + */ + + if ((s = socket(PF_INET, SOCK_STREAM, 0)) < 0) { + perror("SYSERR: Error creating socket"); + exit(1); + } +#endif /* CIRCLE_WINDOWS */ + +#if defined(SO_REUSEADDR) && !defined(CIRCLE_MACINTOSH) + opt = 1; + if (setsockopt(s, SOL_SOCKET, SO_REUSEADDR, (char *) &opt, sizeof(opt)) < 0){ + perror("SYSERR: setsockopt REUSEADDR"); + exit(1); + } +#endif + + set_sendbuf(s); + +/* + * The GUSI sockets library is derived from BSD, so it defines + * SO_LINGER, even though setsockopt() is unimplimented. + * (from Dean Takemori <dean@UHHEPH.PHYS.HAWAII.EDU>) + */ +#if defined(SO_LINGER) && !defined(CIRCLE_MACINTOSH) + { + struct linger ld; + + ld.l_onoff = 0; + ld.l_linger = 0; + if (setsockopt(s, SOL_SOCKET, SO_LINGER, (char *) &ld, sizeof(ld)) < 0) + perror("SYSERR: setsockopt SO_LINGER"); /* Not fatal I suppose. */ + } +#endif + + /* Clear the structure */ + memset((char *)&sa, 0, sizeof(sa)); + + sa.sin_family = AF_INET; + sa.sin_port = htons(port); + sa.sin_addr = *(get_bind_addr()); + + if (bind(s, (struct sockaddr *) &sa, sizeof(sa)) < 0) { + perror("SYSERR: bind"); + CLOSE_SOCKET(s); + exit(1); + } + nonblock(s); + listen(s, 5); + return (s); +} + + +int get_max_players(void) +{ +#ifndef CIRCLE_UNIX + return (max_playing); +#else + + int max_descs = 0; + const char *method; + +/* + * First, we'll try using getrlimit/setrlimit. This will probably work + * on most systems. HAS_RLIMIT is defined in sysdep.h. + */ +#ifdef HAS_RLIMIT + { + struct rlimit limit; + + /* find the limit of file descs */ + method = "rlimit"; + if (getrlimit(RLIMIT_NOFILE, &limit) < 0) { + perror("SYSERR: calling getrlimit"); + exit(1); + } + + /* set the current to the maximum */ + limit.rlim_cur = limit.rlim_max; + if (setrlimit(RLIMIT_NOFILE, &limit) < 0) { + perror("SYSERR: calling setrlimit"); + exit(1); + } +#ifdef RLIM_INFINITY + if (limit.rlim_max == RLIM_INFINITY) + max_descs = max_playing + NUM_RESERVED_DESCS; + else + max_descs = MIN(max_playing + NUM_RESERVED_DESCS, limit.rlim_max); +#else + max_descs = MIN(max_playing + NUM_RESERVED_DESCS, limit.rlim_max); +#endif + } + +#elif defined (OPEN_MAX) || defined(FOPEN_MAX) +#if !defined(OPEN_MAX) +#define OPEN_MAX FOPEN_MAX +#endif + method = "OPEN_MAX"; + max_descs = OPEN_MAX; /* Uh oh.. rlimit didn't work, but we have + * OPEN_MAX */ +#elif defined (_SC_OPEN_MAX) + /* + * Okay, you don't have getrlimit() and you don't have OPEN_MAX. Time to + * try the POSIX sysconf() function. (See Stevens' _Advanced Programming + * in the UNIX Environment_). + */ + method = "POSIX sysconf"; + errno = 0; + if ((max_descs = sysconf(_SC_OPEN_MAX)) < 0) { + if (errno == 0) + max_descs = max_playing + NUM_RESERVED_DESCS; + else { + perror("SYSERR: Error calling sysconf"); + exit(1); + } + } +#else + /* if everything has failed, we'll just take a guess */ + method = "random guess"; + max_descs = max_playing + NUM_RESERVED_DESCS; +#endif + + /* now calculate max _players_ based on max descs */ + max_descs = MIN(max_playing, max_descs - NUM_RESERVED_DESCS); + + if (max_descs <= 0) { + log("SYSERR: Non-positive max player limit! (Set at %d using %s).", + max_descs, method); + exit(1); + } + log(" Setting player limit to %d using %s.", max_descs, method); + return (max_descs); +#endif /* CIRCLE_UNIX */ +} + + + +/* + * game_loop contains the main loop which drives the entire MUD. It + * cycles once every 0.10 seconds and is responsible for accepting new + * new connections, polling existing connections for input, dequeueing + * output and sending it out to players, and calling "heartbeat" functions + * such as mobile_activity(). + */ +void game_loop(socket_t mother_desc) +{ + fd_set input_set, output_set, exc_set, null_set; + struct timeval last_time, opt_time, process_time, temp_time; + struct timeval before_sleep, now, timeout; + char comm[MAX_INPUT_LENGTH]; + struct descriptor_data *d, *next_d; + int pulse = 0, missed_pulses, maxdesc, aliased; + + /* initialize various time values */ + null_time.tv_sec = 0; + null_time.tv_usec = 0; + opt_time.tv_usec = OPT_USEC; + opt_time.tv_sec = 0; + FD_ZERO(&null_set); + + gettimeofday(&last_time, (struct timezone *) 0); + + /* The Main Loop. The Big Cheese. The Top Dog. The Head Honcho. The.. */ + while (!circle_shutdown) { + + /* Sleep if we don't have any connections */ + if (descriptor_list == NULL) { + log("No connections. Going to sleep."); + FD_ZERO(&input_set); + FD_SET(mother_desc, &input_set); + if (select(mother_desc + 1, &input_set, (fd_set *) 0, (fd_set *) 0, NULL) < 0) { + if (errno == EINTR) + log("Waking up to process signal."); + else + perror("SYSERR: Select coma"); + } else + log("New connection. Waking up."); + gettimeofday(&last_time, (struct timezone *) 0); + } + /* Set up the input, output, and exception sets for select(). */ + FD_ZERO(&input_set); + FD_ZERO(&output_set); + FD_ZERO(&exc_set); + FD_SET(mother_desc, &input_set); + + maxdesc = mother_desc; + for (d = descriptor_list; d; d = d->next) { +#ifndef CIRCLE_WINDOWS + if (d->descriptor > maxdesc) + maxdesc = d->descriptor; +#endif + FD_SET(d->descriptor, &input_set); + FD_SET(d->descriptor, &output_set); + FD_SET(d->descriptor, &exc_set); + } + + /* + * At this point, we have completed all input, output and heartbeat + * activity from the previous iteration, so we have to put ourselves + * to sleep until the next 0.1 second tick. The first step is to + * calculate how long we took processing the previous iteration. + */ + + gettimeofday(&before_sleep, (struct timezone *) 0); /* current time */ + timediff(&process_time, &before_sleep, &last_time); + + /* + * If we were asleep for more than one pass, count missed pulses and sleep + * until we're resynchronized with the next upcoming pulse. + */ + if (process_time.tv_sec == 0 && process_time.tv_usec < OPT_USEC) { + missed_pulses = 0; + } else { + missed_pulses = process_time.tv_sec * PASSES_PER_SEC; + missed_pulses += process_time.tv_usec / OPT_USEC; + process_time.tv_sec = 0; + process_time.tv_usec = process_time.tv_usec % OPT_USEC; + } + + /* Calculate the time we should wake up */ + timediff(&temp_time, &opt_time, &process_time); + timeadd(&last_time, &before_sleep, &temp_time); + + /* Now keep sleeping until that time has come */ + gettimeofday(&now, (struct timezone *) 0); + timediff(&timeout, &last_time, &now); + + /* Go to sleep */ + do { + circle_sleep(&timeout); + gettimeofday(&now, (struct timezone *) 0); + timediff(&timeout, &last_time, &now); + } while (timeout.tv_usec || timeout.tv_sec); + + /* Poll (without blocking) for new input, output, and exceptions */ + if (select(maxdesc + 1, &input_set, &output_set, &exc_set, &null_time) < 0) { + perror("SYSERR: Select poll"); + return; + } + /* If there are new connections waiting, accept them. */ + if (FD_ISSET(mother_desc, &input_set)) + new_descriptor(mother_desc); + + /* Kick out the freaky folks in the exception set and marked for close */ + for (d = descriptor_list; d; d = next_d) { + next_d = d->next; + if (FD_ISSET(d->descriptor, &exc_set)) { + FD_CLR(d->descriptor, &input_set); + FD_CLR(d->descriptor, &output_set); + close_socket(d); + } + } + + /* Process descriptors with input pending */ + for (d = descriptor_list; d; d = next_d) { + next_d = d->next; + if (FD_ISSET(d->descriptor, &input_set)) + if (process_input(d) < 0) + close_socket(d); + } + + /* Process commands we just read from process_input */ + for (d = descriptor_list; d; d = next_d) { + next_d = d->next; + + /* + * Not combined to retain --(d->wait) behavior. -gg 2/20/98 + * If no wait state, no subtraction. If there is a wait + * state then 1 is subtracted. Therefore we don't go less + * than 0 ever and don't require an 'if' bracket. -gg 2/27/99 + */ + if (d->character) { + GET_WAIT_STATE(d->character) -= (GET_WAIT_STATE(d->character) > 0); + + if (GET_WAIT_STATE(d->character)) + continue; + } + + if (!get_from_q(&d->input, comm, &aliased)) + continue; + + if (d->character) { + /* Reset the idle timer & pull char back from void if necessary */ + d->character->char_specials.timer = 0; + if (STATE(d) == CON_PLAYING && GET_WAS_IN(d->character) != NOWHERE) { + if (IN_ROOM(d->character) != NOWHERE) + char_from_room(d->character); + char_to_room(d->character, GET_WAS_IN(d->character)); + GET_WAS_IN(d->character) = NOWHERE; + act("$n has returned.", TRUE, d->character, 0, 0, TO_ROOM); + } + GET_WAIT_STATE(d->character) = 1; + } + d->has_prompt = FALSE; + + if (d->str) /* Writing boards, mail, etc. */ + string_add(d, comm); + else if (d->showstr_count) /* Reading something w/ pager */ + show_string(d, comm); + else if (STATE(d) != CON_PLAYING) /* In menus, etc. */ + nanny(d, comm); + else { /* else: we're playing normally. */ + if (aliased) /* To prevent recursive aliases. */ + d->has_prompt = TRUE; /* To get newline before next cmd output. */ + else if (perform_alias(d, comm, sizeof(comm))) /* Run it through aliasing system */ + get_from_q(&d->input, comm, &aliased); + command_interpreter(d->character, comm); /* Send it to interpreter */ + } + } + + /* Send queued output out to the operating system (ultimately to user). */ + for (d = descriptor_list; d; d = next_d) { + next_d = d->next; + if (*(d->output) && FD_ISSET(d->descriptor, &output_set)) { + /* Output for this player is ready. */ + + process_output(d); + if (d->bufptr == 0) /* All output sent. */ + d->has_prompt = TRUE; + } + } + + /* Print prompts for other descriptors who had no other output */ + for (d = descriptor_list; d; d = d->next) { + if (!d->has_prompt && d->bufptr == 0) { + write_to_descriptor(d->descriptor, make_prompt(d)); + d->has_prompt = TRUE; + } + } + + /* Kick out folks in the CON_CLOSE or CON_DISCONNECT state */ + for (d = descriptor_list; d; d = next_d) { + next_d = d->next; + if (STATE(d) == CON_CLOSE || STATE(d) == CON_DISCONNECT) + close_socket(d); + } + + /* + * Now, we execute as many pulses as necessary--just one if we haven't + * missed any pulses, or make up for lost time if we missed a few + * pulses by sleeping for too long. + */ + missed_pulses++; + + if (missed_pulses <= 0) { + log("SYSERR: **BAD** MISSED_PULSES NONPOSITIVE (%d), TIME GOING BACKWARDS!!", missed_pulses); + missed_pulses = 1; + } + + /* If we missed more than 30 seconds worth of pulses, just do 30 secs */ + if (missed_pulses > 30 RL_SEC) { + log("SYSERR: Missed %d seconds worth of pulses.", missed_pulses / PASSES_PER_SEC); + missed_pulses = 30 RL_SEC; + } + + /* Now execute the heartbeat functions */ + while (missed_pulses--) + heartbeat(++pulse); + + /* Check for any signals we may have received. */ + if (reread_wizlist) { + reread_wizlist = FALSE; + mudlog(CMP, LVL_IMMORT, TRUE, "Signal received - rereading wizlists."); + reboot_wizlists(); + } + if (emergency_unban) { + emergency_unban = FALSE; + mudlog(BRF, LVL_IMMORT, TRUE, "Received SIGUSR2 - completely unrestricting game (emergent)"); + ban_list = NULL; + circle_restrict = 0; + num_invalid = 0; + } + + /* Roll pulse over after 10 hours */ + if (pulse >= (10 * 60 * 60 * PASSES_PER_SEC)) + pulse = 0; + +#ifdef CIRCLE_UNIX + /* Update tics for deadlock protection (UNIX only) */ + tics++; +#endif + } +} + + +void heartbeat(int pulse) +{ + static int mins_since_crashsave = 0; + + if (!(pulse % PULSE_ZONE)) + zone_update(); + + if (!(pulse % PULSE_IDLEPWD)) /* 15 seconds */ + check_idle_passwords(); + + if (!(pulse % PULSE_MOBILE)) + mobile_activity(); + + if (!(pulse % PULSE_VIOLENCE)) + perform_violence(); + + if (!(pulse % (SECS_PER_MUD_HOUR * PASSES_PER_SEC))) { + weather_and_time(1); + affect_update(); + point_update(); + fflush(player_fl); + } + + if (auto_save && !(pulse % PULSE_AUTOSAVE)) { /* 1 minute */ + if (++mins_since_crashsave >= autosave_time) { + mins_since_crashsave = 0; + Crash_save_all(); + House_save_all(); + } + } + + if (!(pulse % PULSE_USAGE)) + record_usage(); + + if (!(pulse % PULSE_TIMESAVE)) + save_mud_time(&time_info); + + /* Every pulse! Don't want them to stink the place up... */ + extract_pending_chars(); +} + + +/* ****************************************************************** +* general utility stuff (for local use) * +****************************************************************** */ + +/* + * new code to calculate time differences, which works on systems + * for which tv_usec is unsigned (and thus comparisons for something + * being < 0 fail). Based on code submitted by ss@sirocco.cup.hp.com. + */ + +/* + * code to return the time difference between a and b (a-b). + * always returns a nonnegative value (floors at 0). + */ +void timediff(struct timeval *rslt, struct timeval *a, struct timeval *b) +{ + if (a->tv_sec < b->tv_sec) + *rslt = null_time; + else if (a->tv_sec == b->tv_sec) { + if (a->tv_usec < b->tv_usec) + *rslt = null_time; + else { + rslt->tv_sec = 0; + rslt->tv_usec = a->tv_usec - b->tv_usec; + } + } else { /* a->tv_sec > b->tv_sec */ + rslt->tv_sec = a->tv_sec - b->tv_sec; + if (a->tv_usec < b->tv_usec) { + rslt->tv_usec = a->tv_usec + 1000000 - b->tv_usec; + rslt->tv_sec--; + } else + rslt->tv_usec = a->tv_usec - b->tv_usec; + } +} + +/* + * Add 2 time values. + * + * Patch sent by "d. hall" <dhall@OOI.NET> to fix 'static' usage. + */ +void timeadd(struct timeval *rslt, struct timeval *a, struct timeval *b) +{ + rslt->tv_sec = a->tv_sec + b->tv_sec; + rslt->tv_usec = a->tv_usec + b->tv_usec; + + while (rslt->tv_usec >= 1000000) { + rslt->tv_usec -= 1000000; + rslt->tv_sec++; + } +} + + +void record_usage(void) +{ + int sockets_connected = 0, sockets_playing = 0; + struct descriptor_data *d; + + for (d = descriptor_list; d; d = d->next) { + sockets_connected++; + if (STATE(d) == CON_PLAYING) + sockets_playing++; + } + + log("nusage: %-3d sockets connected, %-3d sockets playing", + sockets_connected, sockets_playing); + +#ifdef RUSAGE /* Not RUSAGE_SELF because it doesn't guarantee prototype. */ + { + struct rusage ru; + + getrusage(RUSAGE_SELF, &ru); + log("rusage: user time: %ld sec, system time: %ld sec, max res size: %ld", + ru.ru_utime.tv_sec, ru.ru_stime.tv_sec, ru.ru_maxrss); + } +#endif + +} + + + +/* + * Turn off echoing (specific to telnet client) + */ +void echo_off(struct descriptor_data *d) +{ + char off_string[] = + { + (char) IAC, + (char) WILL, + (char) TELOPT_ECHO, + (char) 0, + }; + + write_to_output(d, "%s", off_string); +} + + +/* + * Turn on echoing (specific to telnet client) + */ +void echo_on(struct descriptor_data *d) +{ + char on_string[] = + { + (char) IAC, + (char) WONT, + (char) TELOPT_ECHO, + (char) 0 + }; + + write_to_output(d, "%s", on_string); +} + + +char *make_prompt(struct descriptor_data *d) +{ + static char prompt[MAX_PROMPT_LENGTH]; + + /* Note, prompt is truncated at MAX_PROMPT_LENGTH chars (structs.h) */ + + if (d->str) + strcpy(prompt, "] "); /* strcpy: OK (for 'MAX_PROMPT_LENGTH >= 3') */ + else if (d->showstr_count) { + snprintf(prompt, sizeof(prompt), + "\r\n[ Return to continue, (q)uit, (r)efresh, (b)ack, or page number (%d/%d) ]", + d->showstr_page, d->showstr_count); + } else if (STATE(d) == CON_PLAYING && !IS_NPC(d->character)) { + int count; + size_t len = 0; + + *prompt = '\0'; + + if (GET_INVIS_LEV(d->character) && len < sizeof(prompt)) { + count = snprintf(prompt + len, sizeof(prompt) - len, "i%d ", GET_INVIS_LEV(d->character)); + if (count >= 0) + len += count; + } + + if (PRF_FLAGGED(d->character, PRF_DISPHP) && len < sizeof(prompt)) { + count = snprintf(prompt + len, sizeof(prompt) - len, "%dH ", GET_HIT(d->character)); + if (count >= 0) + len += count; + } + + if (PRF_FLAGGED(d->character, PRF_DISPMANA) && len < sizeof(prompt)) { + count = snprintf(prompt + len, sizeof(prompt) - len, "%dM ", GET_MANA(d->character)); + if (count >= 0) + len += count; + } + + if (PRF_FLAGGED(d->character, PRF_DISPMOVE) && len < sizeof(prompt)) { + count = snprintf(prompt + len, sizeof(prompt) - len, "%dV ", GET_MOVE(d->character)); + if (count >= 0) + len += count; + } + + if (len < sizeof(prompt)) + strncat(prompt, "> ", sizeof(prompt) - len - 1); /* strncat: OK */ + } else if (STATE(d) == CON_PLAYING && IS_NPC(d->character)) + snprintf(prompt, sizeof(prompt), "%s> ", GET_NAME(d->character)); + else + *prompt = '\0'; + + return (prompt); +} + + +/* + * NOTE: 'txt' must be at most MAX_INPUT_LENGTH big. + */ +void write_to_q(const char *txt, struct txt_q *queue, int aliased) +{ + struct txt_block *newt; + + CREATE(newt, struct txt_block, 1); + newt->text = strdup(txt); + newt->aliased = aliased; + + /* queue empty? */ + if (!queue->head) { + newt->next = NULL; + queue->head = queue->tail = newt; + } else { + queue->tail->next = newt; + queue->tail = newt; + newt->next = NULL; + } +} + + +/* + * NOTE: 'dest' must be at least MAX_INPUT_LENGTH big. + */ +int get_from_q(struct txt_q *queue, char *dest, int *aliased) +{ + struct txt_block *tmp; + + /* queue empty? */ + if (!queue->head) + return (0); + + strcpy(dest, queue->head->text); /* strcpy: OK (mutual MAX_INPUT_LENGTH) */ + *aliased = queue->head->aliased; + + tmp = queue->head; + queue->head = queue->head->next; + free(tmp->text); + free(tmp); + + return (1); +} + + +/* Empty the queues before closing connection */ +void flush_queues(struct descriptor_data *d) +{ + if (d->large_outbuf) { + d->large_outbuf->next = bufpool; + bufpool = d->large_outbuf; + } + while (d->input.head) { + struct txt_block *tmp = d->input.head; + d->input.head = d->input.head->next; + free(tmp->text); + free(tmp); + } +} + + +/* Add a new string to a player's output queue. For outside use. */ +size_t write_to_output(struct descriptor_data *t, const char *txt, ...) +{ + va_list args; + size_t left; + + va_start(args, txt); + left = vwrite_to_output(t, txt, args); + va_end(args); + + return left; +} + + +/* Add a new string to a player's output queue. */ +size_t vwrite_to_output(struct descriptor_data *t, const char *format, va_list args) +{ + static char txt[MAX_STRING_LENGTH]; + size_t wantsize; + int size; + + /* if we're in the overflow state already, ignore this new output */ + if (t->bufspace == 0) + return (0); + + wantsize = size = vsnprintf(txt, sizeof(txt), format, args); + /* If exceeding the size of the buffer, truncate it for the overflow message */ + if (size < 0 || wantsize >= sizeof(txt)) { + size = sizeof(txt) - 1; + strcpy(txt + size - strlen(text_overflow), text_overflow); /* strcpy: OK */ + } + + /* + * If the text is too big to fit into even a large buffer, truncate + * the new text to make it fit. (This will switch to the overflow + * state automatically because t->bufspace will end up 0.) + */ + if (size + t->bufptr + 1 > LARGE_BUFSIZE) { + size = LARGE_BUFSIZE - t->bufptr - 1; + txt[size] = '\0'; + buf_overflows++; + } + + /* + * If we have enough space, just write to buffer and that's it! If the + * text just barely fits, then it's switched to a large buffer instead. + */ + if (t->bufspace > size) { + strcpy(t->output + t->bufptr, txt); /* strcpy: OK (size checked above) */ + t->bufspace -= size; + t->bufptr += size; + return (t->bufspace); + } + + buf_switches++; + + /* if the pool has a buffer in it, grab it */ + if (bufpool != NULL) { + t->large_outbuf = bufpool; + bufpool = bufpool->next; + } else { /* else create a new one */ + CREATE(t->large_outbuf, struct txt_block, 1); + CREATE(t->large_outbuf->text, char, LARGE_BUFSIZE); + buf_largecount++; + } + + strcpy(t->large_outbuf->text, t->output); /* strcpy: OK (size checked previously) */ + t->output = t->large_outbuf->text; /* make big buffer primary */ + strcat(t->output, txt); /* strcat: OK (size checked) */ + + /* set the pointer for the next write */ + t->bufptr = strlen(t->output); + + /* calculate how much space is left in the buffer */ + t->bufspace = LARGE_BUFSIZE - 1 - t->bufptr; + + return (t->bufspace); +} + + + +/* ****************************************************************** +* socket handling * +****************************************************************** */ + + +/* + * get_bind_addr: Return a struct in_addr that should be used in our + * call to bind(). If the user has specified a desired binding + * address, we try to bind to it; otherwise, we bind to INADDR_ANY. + * Note that inet_aton() is preferred over inet_addr() so we use it if + * we can. If neither is available, we always bind to INADDR_ANY. + */ + +struct in_addr *get_bind_addr() +{ + static struct in_addr bind_addr; + + /* Clear the structure */ + memset((char *) &bind_addr, 0, sizeof(bind_addr)); + + /* If DLFT_IP is unspecified, use INADDR_ANY */ + if (DFLT_IP == NULL) { + bind_addr.s_addr = htonl(INADDR_ANY); + } else { + /* If the parsing fails, use INADDR_ANY */ + if (!parse_ip(DFLT_IP, &bind_addr)) { + log("SYSERR: DFLT_IP of %s appears to be an invalid IP address",DFLT_IP); + bind_addr.s_addr = htonl(INADDR_ANY); + } + } + + /* Put the address that we've finally decided on into the logs */ + if (bind_addr.s_addr == htonl(INADDR_ANY)) + log("Binding to all IP interfaces on this host."); + else + log("Binding only to IP address %s", inet_ntoa(bind_addr)); + + return (&bind_addr); +} + +#ifdef HAVE_INET_ATON + +/* + * inet_aton's interface is the same as parse_ip's: 0 on failure, non-0 if + * successful + */ +int parse_ip(const char *addr, struct in_addr *inaddr) +{ + return (inet_aton(addr, inaddr)); +} + +#elif HAVE_INET_ADDR + +/* inet_addr has a different interface, so we emulate inet_aton's */ +int parse_ip(const char *addr, struct in_addr *inaddr) +{ + long ip; + + if ((ip = inet_addr(addr)) == -1) { + return (0); + } else { + inaddr->s_addr = (unsigned long) ip; + return (1); + } +} + +#else + +/* If you have neither function - sorry, you can't do specific binding. */ +int parse_ip(const char *addr, struct in_addr *inaddr) +{ + log("SYSERR: warning: you're trying to set DFLT_IP but your system has no " + "functions to parse IP addresses (how bizarre!)"); + return (0); +} + +#endif /* INET_ATON and INET_ADDR */ + + + +/* Sets the kernel's send buffer size for the descriptor */ +int set_sendbuf(socket_t s) +{ +#if defined(SO_SNDBUF) && !defined(CIRCLE_MACINTOSH) + int opt = MAX_SOCK_BUF; + + if (setsockopt(s, SOL_SOCKET, SO_SNDBUF, (char *) &opt, sizeof(opt)) < 0) { + perror("SYSERR: setsockopt SNDBUF"); + return (-1); + } + +#if 0 + if (setsockopt(s, SOL_SOCKET, SO_RCVBUF, (char *) &opt, sizeof(opt)) < 0) { + perror("SYSERR: setsockopt RCVBUF"); + return (-1); + } +#endif + +#endif + + return (0); +} + +int new_descriptor(socket_t s) +{ + socket_t desc; + int sockets_connected = 0; + socklen_t i; + static int last_desc = 0; /* last descriptor number */ + struct descriptor_data *newd; + struct sockaddr_in peer; + struct hostent *from; + + /* accept the new connection */ + i = sizeof(peer); + if ((desc = accept(s, (struct sockaddr *) &peer, &i)) == INVALID_SOCKET) { + perror("SYSERR: accept"); + return (-1); + } + /* keep it from blocking */ + nonblock(desc); + + /* set the send buffer size */ + if (set_sendbuf(desc) < 0) { + CLOSE_SOCKET(desc); + return (0); + } + + /* make sure we have room for it */ + for (newd = descriptor_list; newd; newd = newd->next) + sockets_connected++; + + if (sockets_connected >= max_players) { + write_to_descriptor(desc, "Sorry, CircleMUD is full right now... please try again later!\r\n"); + CLOSE_SOCKET(desc); + return (0); + } + /* create a new descriptor */ + CREATE(newd, struct descriptor_data, 1); + + /* find the sitename */ + if (nameserver_is_slow || !(from = gethostbyaddr((char *) &peer.sin_addr, + sizeof(peer.sin_addr), AF_INET))) { + + /* resolution failed */ + if (!nameserver_is_slow) + perror("SYSERR: gethostbyaddr"); + + /* find the numeric site address */ + strncpy(newd->host, (char *)inet_ntoa(peer.sin_addr), HOST_LENGTH); /* strncpy: OK (n->host:HOST_LENGTH+1) */ + *(newd->host + HOST_LENGTH) = '\0'; + } else { + strncpy(newd->host, from->h_name, HOST_LENGTH); /* strncpy: OK (n->host:HOST_LENGTH+1) */ + *(newd->host + HOST_LENGTH) = '\0'; + } + + /* determine if the site is banned */ + if (isbanned(newd->host) == BAN_ALL) { + CLOSE_SOCKET(desc); + mudlog(CMP, LVL_GOD, TRUE, "Connection attempt denied from [%s]", newd->host); + free(newd); + return (0); + } +#if 0 + /* + * Log new connections - probably unnecessary, but you may want it. + * Note that your immortals may wonder if they see a connection from + * your site, but you are wizinvis upon login. + */ + mudlog(CMP, LVL_GOD, FALSE, "New connection from [%s]", newd->host); +#endif + + /* initialize descriptor data */ + newd->descriptor = desc; + newd->idle_tics = 0; + newd->output = newd->small_outbuf; + newd->bufspace = SMALL_BUFSIZE - 1; + newd->login_time = time(0); + *newd->output = '\0'; + newd->bufptr = 0; + newd->has_prompt = 1; /* prompt is part of greetings */ + STATE(newd) = CON_GET_NAME; + + /* + * This isn't exactly optimal but allows us to make a design choice. + * Do we embed the history in descriptor_data or keep it dynamically + * allocated and allow a user defined history size? + */ + CREATE(newd->history, char *, HISTORY_SIZE); + + if (++last_desc == 1000) + last_desc = 1; + newd->desc_num = last_desc; + + /* prepend to list */ + newd->next = descriptor_list; + descriptor_list = newd; + + write_to_output(newd, "%s", GREETINGS); + + return (0); +} + + +/* + * Send all of the output that we've accumulated for a player out to + * the player's descriptor. + * + * 32 byte GARBAGE_SPACE in MAX_SOCK_BUF used for: + * 2 bytes: prepended \r\n + * 14 bytes: overflow message + * 2 bytes: extra \r\n for non-comapct + * 14 bytes: unused + */ +int process_output(struct descriptor_data *t) +{ + char i[MAX_SOCK_BUF], *osb = i + 2; + int result; + + /* we may need this \r\n for later -- see below */ + strcpy(i, "\r\n"); /* strcpy: OK (for 'MAX_SOCK_BUF >= 3') */ + + /* now, append the 'real' output */ + strcpy(osb, t->output); /* strcpy: OK (t->output:LARGE_BUFSIZE < osb:MAX_SOCK_BUF-2) */ + + /* if we're in the overflow state, notify the user */ + if (t->bufspace == 0) + strcat(osb, "**OVERFLOW**\r\n"); /* strcpy: OK (osb:MAX_SOCK_BUF-2 reserves space) */ + + /* add the extra CRLF if the person isn't in compact mode */ + if (STATE(t) == CON_PLAYING && t->character && !IS_NPC(t->character) && !PRF_FLAGGED(t->character, PRF_COMPACT)) + strcat(osb, "\r\n"); /* strcpy: OK (osb:MAX_SOCK_BUF-2 reserves space) */ + + /* add a prompt */ + strcat(i, make_prompt(t)); /* strcpy: OK (i:MAX_SOCK_BUF reserves space) */ + + /* + * now, send the output. If this is an 'interruption', use the prepended + * CRLF, otherwise send the straight output sans CRLF. + */ + if (t->has_prompt) { + t->has_prompt = FALSE; + result = write_to_descriptor(t->descriptor, i); + if (result >= 2) + result -= 2; + } else + result = write_to_descriptor(t->descriptor, osb); + + if (result < 0) { /* Oops, fatal error. Bye! */ + close_socket(t); + return (-1); + } else if (result == 0) /* Socket buffer full. Try later. */ + return (0); + + /* Handle snooping: prepend "% " and send to snooper. */ + if (t->snoop_by) + write_to_output(t->snoop_by, "%% %*s%%%%", result, t->output); + + /* The common case: all saved output was handed off to the kernel buffer. */ + if (result >= t->bufptr) { + /* + * if we were using a large buffer, put the large buffer on the buffer pool + * and switch back to the small one + */ + if (t->large_outbuf) { + t->large_outbuf->next = bufpool; + bufpool = t->large_outbuf; + t->large_outbuf = NULL; + t->output = t->small_outbuf; + } + /* reset total bufspace back to that of a small buffer */ + t->bufspace = SMALL_BUFSIZE - 1; + t->bufptr = 0; + *(t->output) = '\0'; + + /* + * If the overflow message or prompt were partially written, try to save + * them. There will be enough space for them if this is true. 'result' + * is effectively unsigned here anyway. + */ + if ((unsigned int)result < strlen(osb)) { + size_t savetextlen = strlen(osb + result); + + strcat(t->output, osb + result); + t->bufptr -= savetextlen; + t->bufspace += savetextlen; + } + + } else { + /* Not all data in buffer sent. result < output buffersize. */ + + strcpy(t->output, t->output + result); /* strcpy: OK (overlap) */ + t->bufptr -= result; + t->bufspace += result; + } + + return (result); +} + + +/* + * perform_socket_write: takes a descriptor, a pointer to text, and a + * text length, and tries once to send that text to the OS. This is + * where we stuff all the platform-dependent stuff that used to be + * ugly #ifdef's in write_to_descriptor(). + * + * This function must return: + * + * -1 If a fatal error was encountered in writing to the descriptor. + * 0 If a transient failure was encountered (e.g. socket buffer full). + * >0 To indicate the number of bytes successfully written, possibly + * fewer than the number the caller requested be written. + * + * Right now there are two versions of this function: one for Windows, + * and one for all other platforms. + */ + +#if defined(CIRCLE_WINDOWS) + +ssize_t perform_socket_write(socket_t desc, const char *txt, size_t length) +{ + ssize_t result; + + result = send(desc, txt, length, 0); + + if (result > 0) { + /* Write was sucessful */ + return (result); + } + + if (result == 0) { + /* This should never happen! */ + log("SYSERR: Huh?? write() returned 0??? Please report this!"); + return (-1); + } + + /* result < 0: An error was encountered. */ + + /* Transient error? */ + if (WSAGetLastError() == WSAEWOULDBLOCK || WSAGetLastError() == WSAEINTR) + return (0); + + /* Must be a fatal error. */ + return (-1); +} + +#else + +#if defined(CIRCLE_ACORN) +#define write socketwrite +#endif + +/* perform_socket_write for all Non-Windows platforms */ +ssize_t perform_socket_write(socket_t desc, const char *txt, size_t length) +{ + ssize_t result; + + result = write(desc, txt, length); + + if (result > 0) { + /* Write was successful. */ + return (result); + } + + if (result == 0) { + /* This should never happen! */ + log("SYSERR: Huh?? write() returned 0??? Please report this!"); + return (-1); + } + + /* + * result < 0, so an error was encountered - is it transient? + * Unfortunately, different systems use different constants to + * indicate this. + */ + +#ifdef EAGAIN /* POSIX */ + if (errno == EAGAIN) + return (0); +#endif + +#ifdef EWOULDBLOCK /* BSD */ + if (errno == EWOULDBLOCK) + return (0); +#endif + +#ifdef EDEADLK /* Macintosh */ + if (errno == EDEADLK) + return (0); +#endif + + /* Looks like the error was fatal. Too bad. */ + return (-1); +} + +#endif /* CIRCLE_WINDOWS */ + + +/* + * write_to_descriptor takes a descriptor, and text to write to the + * descriptor. It keeps calling the system-level write() until all + * the text has been delivered to the OS, or until an error is + * encountered. + * + * Returns: + * >=0 If all is well and good. + * -1 If an error was encountered, so that the player should be cut off. + */ +int write_to_descriptor(socket_t desc, const char *txt) +{ + ssize_t bytes_written; + size_t total = strlen(txt), write_total = 0; + + while (total > 0) { + bytes_written = perform_socket_write(desc, txt, total); + + if (bytes_written < 0) { + /* Fatal error. Disconnect the player. */ + perror("SYSERR: Write to socket"); + return (-1); + } else if (bytes_written == 0) { + /* Temporary failure -- socket buffer full. */ + return (write_total); + } else { + txt += bytes_written; + total -= bytes_written; + write_total += bytes_written; + } + } + + return (write_total); +} + + +/* + * Same information about perform_socket_write applies here. I like + * standards, there are so many of them. -gg 6/30/98 + */ +ssize_t perform_socket_read(socket_t desc, char *read_point, size_t space_left) +{ + ssize_t ret; + +#if defined(CIRCLE_ACORN) + ret = recv(desc, read_point, space_left, MSG_DONTWAIT); +#elif defined(CIRCLE_WINDOWS) + ret = recv(desc, read_point, space_left, 0); +#else + ret = read(desc, read_point, space_left); +#endif + + /* Read was successful. */ + if (ret > 0) + return (ret); + + /* read() returned 0, meaning we got an EOF. */ + if (ret == 0) { + log("WARNING: EOF on socket read (connection broken by peer)"); + return (-1); + } + + /* + * read returned a value < 0: there was an error + */ + +#if defined(CIRCLE_WINDOWS) /* Windows */ + if (WSAGetLastError() == WSAEWOULDBLOCK || WSAGetLastError() == WSAEINTR) + return (0); +#else + +#ifdef EINTR /* Interrupted system call - various platforms */ + if (errno == EINTR) + return (0); +#endif + +#ifdef EAGAIN /* POSIX */ + if (errno == EAGAIN) + return (0); +#endif + +#ifdef EWOULDBLOCK /* BSD */ + if (errno == EWOULDBLOCK) + return (0); +#endif /* EWOULDBLOCK */ + +#ifdef EDEADLK /* Macintosh */ + if (errno == EDEADLK) + return (0); +#endif + +#ifdef ECONNRESET + if (errno == ECONNRESET) + return (-1); +#endif + +#endif /* CIRCLE_WINDOWS */ + + /* + * We don't know what happened, cut them off. This qualifies for + * a SYSERR because we have no idea what happened at this point. + */ + perror("SYSERR: perform_socket_read: about to lose connection"); + return (-1); +} + +/* + * ASSUMPTION: There will be no newlines in the raw input buffer when this + * function is called. We must maintain that before returning. + * + * Ever wonder why 'tmp' had '+8' on it? The crusty old code could write + * MAX_INPUT_LENGTH+1 bytes to 'tmp' if there was a '$' as the final + * character in the input buffer. This would also cause 'space_left' to + * drop to -1, which wasn't very happy in an unsigned variable. Argh. + * So to fix the above, 'tmp' lost the '+8' since it doesn't need it + * and the code has been changed to reserve space by accepting one less + * character. (Do you really need 256 characters on a line?) + * -gg 1/21/2000 + */ +int process_input(struct descriptor_data *t) +{ + int buf_length, failed_subst; + ssize_t bytes_read; + size_t space_left; + char *ptr, *read_point, *write_point, *nl_pos = NULL; + char tmp[MAX_INPUT_LENGTH]; + + /* first, find the point where we left off reading data */ + buf_length = strlen(t->inbuf); + read_point = t->inbuf + buf_length; + space_left = MAX_RAW_INPUT_LENGTH - buf_length - 1; + + do { + if (space_left <= 0) { + log("WARNING: process_input: about to close connection: input overflow"); + return (-1); + } + + bytes_read = perform_socket_read(t->descriptor, read_point, space_left); + + if (bytes_read < 0) /* Error, disconnect them. */ + return (-1); + else if (bytes_read == 0) /* Just blocking, no problems. */ + return (0); + + /* at this point, we know we got some data from the read */ + + *(read_point + bytes_read) = '\0'; /* terminate the string */ + + /* search for a newline in the data we just read */ + for (ptr = read_point; *ptr && !nl_pos; ptr++) + if (ISNEWL(*ptr)) + nl_pos = ptr; + + read_point += bytes_read; + space_left -= bytes_read; + +/* + * on some systems such as AIX, POSIX-standard nonblocking I/O is broken, + * causing the MUD to hang when it encounters input not terminated by a + * newline. This was causing hangs at the Password: prompt, for example. + * I attempt to compensate by always returning after the _first_ read, instead + * of looping forever until a read returns -1. This simulates non-blocking + * I/O because the result is we never call read unless we know from select() + * that data is ready (process_input is only called if select indicates that + * this descriptor is in the read set). JE 2/23/95. + */ +#if !defined(POSIX_NONBLOCK_BROKEN) + } while (nl_pos == NULL); +#else + } while (0); + + if (nl_pos == NULL) + return (0); +#endif /* POSIX_NONBLOCK_BROKEN */ + + /* + * okay, at this point we have at least one newline in the string; now we + * can copy the formatted data to a new array for further processing. + */ + + read_point = t->inbuf; + + while (nl_pos != NULL) { + write_point = tmp; + space_left = MAX_INPUT_LENGTH - 1; + + /* The '> 1' reserves room for a '$ => $$' expansion. */ + for (ptr = read_point; (space_left > 1) && (ptr < nl_pos); ptr++) { + if (*ptr == '\b' || *ptr == 127) { /* handle backspacing or delete key */ + if (write_point > tmp) { + if (*(--write_point) == '$') { + write_point--; + space_left += 2; + } else + space_left++; + } + } else if (isascii(*ptr) && isprint(*ptr)) { + if ((*(write_point++) = *ptr) == '$') { /* copy one character */ + *(write_point++) = '$'; /* if it's a $, double it */ + space_left -= 2; + } else + space_left--; + } + } + + *write_point = '\0'; + + if ((space_left <= 0) && (ptr < nl_pos)) { + char buffer[MAX_INPUT_LENGTH + 64]; + + snprintf(buffer, sizeof(buffer), "Line too long. Truncated to:\r\n%s\r\n", tmp); + if (write_to_descriptor(t->descriptor, buffer) < 0) + return (-1); + } + if (t->snoop_by) + write_to_output(t->snoop_by, "%% %s\r\n", tmp); + failed_subst = 0; + + if (*tmp == '!' && !(*(tmp + 1))) /* Redo last command. */ + strcpy(tmp, t->last_input); /* strcpy: OK (by mutual MAX_INPUT_LENGTH) */ + else if (*tmp == '!' && *(tmp + 1)) { + char *commandln = (tmp + 1); + int starting_pos = t->history_pos, + cnt = (t->history_pos == 0 ? HISTORY_SIZE - 1 : t->history_pos - 1); + + skip_spaces(&commandln); + for (; cnt != starting_pos; cnt--) { + if (t->history[cnt] && is_abbrev(commandln, t->history[cnt])) { + strcpy(tmp, t->history[cnt]); /* strcpy: OK (by mutual MAX_INPUT_LENGTH) */ + strcpy(t->last_input, tmp); /* strcpy: OK (by mutual MAX_INPUT_LENGTH) */ + write_to_output(t, "%s\r\n", tmp); + break; + } + if (cnt == 0) /* At top, loop to bottom. */ + cnt = HISTORY_SIZE; + } + } else if (*tmp == '^') { + if (!(failed_subst = perform_subst(t, t->last_input, tmp))) + strcpy(t->last_input, tmp); /* strcpy: OK (by mutual MAX_INPUT_LENGTH) */ + } else { + strcpy(t->last_input, tmp); /* strcpy: OK (by mutual MAX_INPUT_LENGTH) */ + if (t->history[t->history_pos]) + free(t->history[t->history_pos]); /* Clear the old line. */ + t->history[t->history_pos] = strdup(tmp); /* Save the new. */ + if (++t->history_pos >= HISTORY_SIZE) /* Wrap to top. */ + t->history_pos = 0; + } + + if (!failed_subst) + write_to_q(tmp, &t->input, 0); + + /* find the end of this line */ + while (ISNEWL(*nl_pos)) + nl_pos++; + + /* see if there's another newline in the input buffer */ + read_point = ptr = nl_pos; + for (nl_pos = NULL; *ptr && !nl_pos; ptr++) + if (ISNEWL(*ptr)) + nl_pos = ptr; + } + + /* now move the rest of the buffer up to the beginning for the next pass */ + write_point = t->inbuf; + while (*read_point) + *(write_point++) = *(read_point++); + *write_point = '\0'; + + return (1); +} + + + +/* perform substitution for the '^..^' csh-esque syntax orig is the + * orig string, i.e. the one being modified. subst contains the + * substition string, i.e. "^telm^tell" + */ +int perform_subst(struct descriptor_data *t, char *orig, char *subst) +{ + char newsub[MAX_INPUT_LENGTH + 5]; + + char *first, *second, *strpos; + + /* + * first is the position of the beginning of the first string (the one + * to be replaced + */ + first = subst + 1; + + /* now find the second '^' */ + if (!(second = strchr(first, '^'))) { + write_to_output(t, "Invalid substitution.\r\n"); + return (1); + } + /* terminate "first" at the position of the '^' and make 'second' point + * to the beginning of the second string */ + *(second++) = '\0'; + + /* now, see if the contents of the first string appear in the original */ + if (!(strpos = strstr(orig, first))) { + write_to_output(t, "Invalid substitution.\r\n"); + return (1); + } + /* now, we construct the new string for output. */ + + /* first, everything in the original, up to the string to be replaced */ + strncpy(newsub, orig, strpos - orig); /* strncpy: OK (newsub:MAX_INPUT_LENGTH+5 > orig:MAX_INPUT_LENGTH) */ + newsub[strpos - orig] = '\0'; + + /* now, the replacement string */ + strncat(newsub, second, MAX_INPUT_LENGTH - strlen(newsub) - 1); /* strncpy: OK */ + + /* now, if there's anything left in the original after the string to + * replaced, copy that too. */ + if (((strpos - orig) + strlen(first)) < strlen(orig)) + strncat(newsub, strpos + strlen(first), MAX_INPUT_LENGTH - strlen(newsub) - 1); /* strncpy: OK */ + + /* terminate the string in case of an overflow from strncat */ + newsub[MAX_INPUT_LENGTH - 1] = '\0'; + strcpy(subst, newsub); /* strcpy: OK (by mutual MAX_INPUT_LENGTH) */ + + return (0); +} + + + +void close_socket(struct descriptor_data *d) +{ + struct descriptor_data *temp; + + REMOVE_FROM_LIST(d, descriptor_list, next); + CLOSE_SOCKET(d->descriptor); + flush_queues(d); + + /* Forget snooping */ + if (d->snooping) + d->snooping->snoop_by = NULL; + + if (d->snoop_by) { + write_to_output(d->snoop_by, "Your victim is no longer among us.\r\n"); + d->snoop_by->snooping = NULL; + } + + if (d->character) { + /* If we're switched, this resets the mobile taken. */ + d->character->desc = NULL; + + /* Plug memory leak, from Eric Green. */ + if (!IS_NPC(d->character) && PLR_FLAGGED(d->character, PLR_MAILING) && d->str) { + if (*(d->str)) + free(*(d->str)); + free(d->str); + } + + if (STATE(d) == CON_PLAYING || STATE(d) == CON_DISCONNECT) { + struct char_data *link_challenged = d->original ? d->original : d->character; + + /* We are guaranteed to have a person. */ + act("$n has lost $s link.", TRUE, link_challenged, 0, 0, TO_ROOM); + save_char(link_challenged); + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(link_challenged)), TRUE, "Closing link to: %s.", GET_NAME(link_challenged)); + } else { + mudlog(CMP, LVL_IMMORT, TRUE, "Losing player: %s.", GET_NAME(d->character) ? GET_NAME(d->character) : "<null>"); + free_char(d->character); + } + } else + mudlog(CMP, LVL_IMMORT, TRUE, "Losing descriptor without char."); + + /* JE 2/22/95 -- part of my unending quest to make switch stable */ + if (d->original && d->original->desc) + d->original->desc = NULL; + + /* Clear the command history. */ + if (d->history) { + int cnt; + for (cnt = 0; cnt < HISTORY_SIZE; cnt++) + if (d->history[cnt]) + free(d->history[cnt]); + free(d->history); + } + + if (d->showstr_head) + free(d->showstr_head); + if (d->showstr_count) + free(d->showstr_vector); + + free(d); +} + + + +void check_idle_passwords(void) +{ + struct descriptor_data *d, *next_d; + + for (d = descriptor_list; d; d = next_d) { + next_d = d->next; + if (STATE(d) != CON_PASSWORD && STATE(d) != CON_GET_NAME) + continue; + if (!d->idle_tics) { + d->idle_tics++; + continue; + } else { + echo_on(d); + write_to_output(d, "\r\nTimed out... goodbye.\r\n"); + STATE(d) = CON_CLOSE; + } + } +} + + + +/* + * I tried to universally convert Circle over to POSIX compliance, but + * alas, some systems are still straggling behind and don't have all the + * appropriate defines. In particular, NeXT 2.x defines O_NDELAY but not + * O_NONBLOCK. Krusty old NeXT machines! (Thanks to Michael Jones for + * this and various other NeXT fixes.) + */ + +#if defined(CIRCLE_WINDOWS) + +void nonblock(socket_t s) +{ + unsigned long val = 1; + ioctlsocket(s, FIONBIO, &val); +} + +#elif defined(CIRCLE_AMIGA) + +void nonblock(socket_t s) +{ + long val = 1; + IoctlSocket(s, FIONBIO, &val); +} + +#elif defined(CIRCLE_ACORN) + +void nonblock(socket_t s) +{ + int val = 1; + socket_ioctl(s, FIONBIO, &val); +} + +#elif defined(CIRCLE_VMS) + +void nonblock(socket_t s) +{ + int val = 1; + + if (ioctl(s, FIONBIO, &val) < 0) { + perror("SYSERR: Fatal error executing nonblock (comm.c)"); + exit(1); + } +} + +#elif defined(CIRCLE_UNIX) || defined(CIRCLE_OS2) || defined(CIRCLE_MACINTOSH) + +#ifndef O_NONBLOCK +#define O_NONBLOCK O_NDELAY +#endif + +void nonblock(socket_t s) +{ + int flags; + + flags = fcntl(s, F_GETFL, 0); + flags |= O_NONBLOCK; + if (fcntl(s, F_SETFL, flags) < 0) { + perror("SYSERR: Fatal error executing nonblock (comm.c)"); + exit(1); + } +} + +#endif /* CIRCLE_UNIX || CIRCLE_OS2 || CIRCLE_MACINTOSH */ + + +/* ****************************************************************** +* signal-handling functions (formerly signals.c). UNIX only. * +****************************************************************** */ + +#if defined(CIRCLE_UNIX) || defined(CIRCLE_MACINTOSH) + +RETSIGTYPE reread_wizlists(int sig) +{ + reread_wizlist = TRUE; +} + + +RETSIGTYPE unrestrict_game(int sig) +{ + emergency_unban = TRUE; +} + +#ifdef CIRCLE_UNIX + +/* clean up our zombie kids to avoid defunct processes */ +RETSIGTYPE reap(int sig) +{ + while (waitpid(-1, NULL, WNOHANG) > 0); + + my_signal(SIGCHLD, reap); +} + +/* Dying anyway... */ +RETSIGTYPE checkpointing(int sig) +{ + if (!tics) { + log("SYSERR: CHECKPOINT shutdown: tics not updated. (Infinite loop suspected)"); + abort(); + } else + tics = 0; +} + + +/* Dying anyway... */ +RETSIGTYPE hupsig(int sig) +{ + log("SYSERR: Received SIGHUP, SIGINT, or SIGTERM. Shutting down..."); + exit(1); /* perhaps something more elegant should + * substituted */ +} + +#endif /* CIRCLE_UNIX */ + +/* + * This is an implementation of signal() using sigaction() for portability. + * (sigaction() is POSIX; signal() is not.) Taken from Stevens' _Advanced + * Programming in the UNIX Environment_. We are specifying that all system + * calls _not_ be automatically restarted for uniformity, because BSD systems + * do not restart select(), even if SA_RESTART is used. + * + * Note that NeXT 2.x is not POSIX and does not have sigaction; therefore, + * I just define it to be the old signal. If your system doesn't have + * sigaction either, you can use the same fix. + * + * SunOS Release 4.0.2 (sun386) needs this too, according to Tim Aldric. + */ + +#ifndef POSIX +#define my_signal(signo, func) signal(signo, func) +#else +sigfunc *my_signal(int signo, sigfunc *func) +{ + struct sigaction sact, oact; + + sact.sa_handler = func; + sigemptyset(&sact.sa_mask); + sact.sa_flags = 0; +#ifdef SA_INTERRUPT + sact.sa_flags |= SA_INTERRUPT; /* SunOS */ +#endif + + if (sigaction(signo, &sact, &oact) < 0) + return (SIG_ERR); + + return (oact.sa_handler); +} +#endif /* POSIX */ + + +void signal_setup(void) +{ +#ifndef CIRCLE_MACINTOSH + struct itimerval itime; + struct timeval interval; + + /* user signal 1: reread wizlists. Used by autowiz system. */ + my_signal(SIGUSR1, reread_wizlists); + + /* + * user signal 2: unrestrict game. Used for emergencies if you lock + * yourself out of the MUD somehow. (Duh...) + */ + my_signal(SIGUSR2, unrestrict_game); + + /* + * set up the deadlock-protection so that the MUD aborts itself if it gets + * caught in an infinite loop for more than 3 minutes. + */ + interval.tv_sec = 180; + interval.tv_usec = 0; + itime.it_interval = interval; + itime.it_value = interval; + setitimer(ITIMER_VIRTUAL, &itime, NULL); + my_signal(SIGVTALRM, checkpointing); + + /* just to be on the safe side: */ + my_signal(SIGHUP, hupsig); + my_signal(SIGCHLD, reap); +#endif /* CIRCLE_MACINTOSH */ + my_signal(SIGINT, hupsig); + my_signal(SIGTERM, hupsig); + my_signal(SIGPIPE, SIG_IGN); + my_signal(SIGALRM, SIG_IGN); +} + +#endif /* CIRCLE_UNIX || CIRCLE_MACINTOSH */ + +/* **************************************************************** +* Public routines for system-to-player-communication * +**************************************************************** */ + +size_t send_to_char(struct char_data *ch, const char *messg, ...) +{ + if (ch->desc && messg && *messg) { + size_t left; + va_list args; + + va_start(args, messg); + left = vwrite_to_output(ch->desc, messg, args); + va_end(args); + return left; + } + return 0; +} + + +void send_to_all(const char *messg, ...) +{ + struct descriptor_data *i; + va_list args; + + if (messg == NULL) + return; + + for (i = descriptor_list; i; i = i->next) { + if (STATE(i) != CON_PLAYING) + continue; + + va_start(args, messg); + vwrite_to_output(i, messg, args); + va_end(args); + } +} + + +void send_to_outdoor(const char *messg, ...) +{ + struct descriptor_data *i; + + if (!messg || !*messg) + return; + + for (i = descriptor_list; i; i = i->next) { + va_list args; + + if (STATE(i) != CON_PLAYING || i->character == NULL) + continue; + if (!AWAKE(i->character) || !OUTSIDE(i->character)) + continue; + + va_start(args, messg); + vwrite_to_output(i, messg, args); + va_end(args); + } +} + + + +void send_to_room(room_rnum room, const char *messg, ...) +{ + struct char_data *i; + va_list args; + + if (messg == NULL) + return; + + for (i = world[room].people; i; i = i->next_in_room) { + if (!i->desc) + continue; + + va_start(args, messg); + vwrite_to_output(i->desc, messg, args); + va_end(args); + } +} + + + +const char *ACTNULL = "<NULL>"; + +#define CHECK_NULL(pointer, expression) \ + if ((pointer) == NULL) i = ACTNULL; else i = (expression); + + +/* higher-level communication: the act() function */ +void perform_act(const char *orig, struct char_data *ch, struct obj_data *obj, + const void *vict_obj, const struct char_data *to) +{ + const char *i = NULL; + char lbuf[MAX_STRING_LENGTH], *buf, *j; + bool uppercasenext = FALSE; + + buf = lbuf; + + for (;;) { + if (*orig == '$') { + switch (*(++orig)) { + case 'n': + i = PERS(ch, to); + break; + case 'N': + CHECK_NULL(vict_obj, PERS((const struct char_data *) vict_obj, to)); + break; + case 'm': + i = HMHR(ch); + break; + case 'M': + CHECK_NULL(vict_obj, HMHR((const struct char_data *) vict_obj)); + break; + case 's': + i = HSHR(ch); + break; + case 'S': + CHECK_NULL(vict_obj, HSHR((const struct char_data *) vict_obj)); + break; + case 'e': + i = HSSH(ch); + break; + case 'E': + CHECK_NULL(vict_obj, HSSH((const struct char_data *) vict_obj)); + break; + case 'o': + CHECK_NULL(obj, OBJN(obj, to)); + break; + case 'O': + CHECK_NULL(vict_obj, OBJN((const struct obj_data *) vict_obj, to)); + break; + case 'p': + CHECK_NULL(obj, OBJS(obj, to)); + break; + case 'P': + CHECK_NULL(vict_obj, OBJS((const struct obj_data *) vict_obj, to)); + break; + case 'a': + CHECK_NULL(obj, SANA(obj)); + break; + case 'A': + CHECK_NULL(vict_obj, SANA((const struct obj_data *) vict_obj)); + break; + case 'T': + CHECK_NULL(vict_obj, (const char *) vict_obj); + break; + case 'F': + CHECK_NULL(vict_obj, fname((const char *) vict_obj)); + break; + /* uppercase previous word */ + case 'u': + for (j=buf; j > lbuf && !isspace((int) *(j-1)); j--); + if (j != buf) + *j = UPPER(*j); + i = ""; + break; + /* uppercase next word */ + case 'U': + uppercasenext = TRUE; + i = ""; + break; + case '$': + i = "$"; + break; + default: + log("SYSERR: Illegal $-code to act(): %c", *orig); + log("SYSERR: %s", orig); + i = ""; + break; + } + while ((*buf = *(i++))) + { + if (uppercasenext && !isspace((int) *buf)) + { + *buf = UPPER(*buf); + uppercasenext = FALSE; + } + buf++; + } + orig++; + } else if (!(*(buf++) = *(orig++))) { + break; + } else if (uppercasenext && !isspace((int) *(buf-1))) { + *(buf-1) = UPPER(*(buf-1)); + uppercasenext = FALSE; + } + } + + *(--buf) = '\r'; + *(++buf) = '\n'; + *(++buf) = '\0'; + + write_to_output(to->desc, "%s", CAP(lbuf)); +} + + +#define SENDOK(ch) ((ch)->desc && (to_sleeping || AWAKE(ch)) && \ + (IS_NPC(ch) || !PLR_FLAGGED((ch), PLR_WRITING))) + +void act(const char *str, int hide_invisible, struct char_data *ch, + struct obj_data *obj, const void *vict_obj, int type) +{ + const struct char_data *to; + int to_sleeping; + + if (!str || !*str) + return; + + /* + * Warning: the following TO_SLEEP code is a hack. + * + * I wanted to be able to tell act to deliver a message regardless of sleep + * without adding an additional argument. TO_SLEEP is 128 (a single bit + * high up). It's ONLY legal to combine TO_SLEEP with one other TO_x + * command. It's not legal to combine TO_x's with each other otherwise. + * TO_SLEEP only works because its value "happens to be" a single bit; + * do not change it to something else. In short, it is a hack. + */ + + /* check if TO_SLEEP is there, and remove it if it is. */ + if ((to_sleeping = (type & TO_SLEEP))) + type &= ~TO_SLEEP; + + if (type == TO_CHAR) { + if (ch && SENDOK(ch)) + perform_act(str, ch, obj, vict_obj, ch); + return; + } + + if (type == TO_VICT) { + if ((to = (const struct char_data *) vict_obj) != NULL && SENDOK(to)) + perform_act(str, ch, obj, vict_obj, to); + return; + } + /* ASSUMPTION: at this point we know type must be TO_NOTVICT or TO_ROOM */ + + if (ch && IN_ROOM(ch) != NOWHERE) + to = world[IN_ROOM(ch)].people; + else if (obj && IN_ROOM(obj) != NOWHERE) + to = world[IN_ROOM(obj)].people; + else { + log("SYSERR: no valid target to act()!"); + return; + } + + for (; to; to = to->next_in_room) { + if (!SENDOK(to) || (to == ch)) + continue; + if (hide_invisible && ch && !CAN_SEE(to, ch)) + continue; + if (type != TO_ROOM && to == vict_obj) + continue; + perform_act(str, ch, obj, vict_obj, to); + } +} + + +/* Prefer the file over the descriptor. */ +void setup_log(const char *filename, int fd) +{ + FILE *s_fp; + +#if defined(__MWERKS__) || defined(__GNUC__) + s_fp = stderr; +#else + if ((s_fp = fdopen(STDERR_FILENO, "w")) == NULL) { + puts("SYSERR: Error opening stderr, trying stdout."); + + if ((s_fp = fdopen(STDOUT_FILENO, "w")) == NULL) { + puts("SYSERR: Error opening stdout, trying a file."); + + /* If we don't have a file, try a default. */ + if (filename == NULL || *filename == '\0') + filename = "log/syslog"; + } + } +#endif + + if (filename == NULL || *filename == '\0') { + /* No filename, set us up with the descriptor we just opened. */ + logfile = s_fp; + puts("Using file descriptor for logging."); + return; + } + + /* We honor the default filename first. */ + if (open_logfile(filename, s_fp)) + return; + + /* Well, that failed but we want it logged to a file so try a default. */ + if (open_logfile("log/syslog", s_fp)) + return; + + /* Ok, one last shot at a file. */ + if (open_logfile("syslog", s_fp)) + return; + + /* Erp, that didn't work either, just die. */ + puts("SYSERR: Couldn't open anything to log to, giving up."); + exit(1); +} + +int open_logfile(const char *filename, FILE *stderr_fp) +{ + if (stderr_fp) /* freopen() the descriptor. */ + logfile = freopen(filename, "w", stderr_fp); + else + logfile = fopen(filename, "w"); + + if (logfile) { + printf("Using log file '%s'%s.\n", + filename, stderr_fp ? " with redirection" : ""); + return (TRUE); + } + + printf("SYSERR: Error opening file '%s': %s\n", filename, strerror(errno)); + return (FALSE); +} + +/* + * This may not be pretty but it keeps game_loop() neater than if it was inline. + */ +#if defined(CIRCLE_WINDOWS) + +void circle_sleep(struct timeval *timeout) +{ + Sleep(timeout->tv_sec * 1000 + timeout->tv_usec / 1000); +} + +#else + +void circle_sleep(struct timeval *timeout) +{ + if (select(0, (fd_set *) 0, (fd_set *) 0, (fd_set *) 0, timeout) < 0) { + if (errno != EINTR) { + perror("SYSERR: Select sleep"); + exit(1); + } + } +} + +#endif /* CIRCLE_WINDOWS */ diff --git a/src/comm.h b/src/comm.h new file mode 100644 index 0000000..107bae6 --- /dev/null +++ b/src/comm.h @@ -0,0 +1,45 @@ +/* ************************************************************************ +* File: comm.h Part of CircleMUD * +* Usage: header file: prototypes of public communication functions * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define NUM_RESERVED_DESCS 8 + +/* comm.c */ +size_t send_to_char(struct char_data *ch, const char *messg, ...) __attribute__ ((format (printf, 2, 3))); +void send_to_all(const char *messg, ...) __attribute__ ((format (printf, 1, 2))); +void send_to_room(room_rnum room, const char *messg, ...) __attribute__ ((format (printf, 2, 3))); +void send_to_outdoor(const char *messg, ...) __attribute__ ((format (printf, 1, 2))); +void close_socket(struct descriptor_data *d); + +void perform_act(const char *orig, struct char_data *ch, + struct obj_data *obj, const void *vict_obj, const struct char_data *to); + +void act(const char *str, int hide_invisible, struct char_data *ch, + struct obj_data *obj, const void *vict_obj, int type); + +#define TO_ROOM 1 +#define TO_VICT 2 +#define TO_NOTVICT 3 +#define TO_CHAR 4 +#define TO_SLEEP 128 /* to char, even if sleeping */ + +/* I/O functions */ +void write_to_q(const char *txt, struct txt_q *queue, int aliased); +int write_to_descriptor(socket_t desc, const char *txt); +size_t write_to_output(struct descriptor_data *d, const char *txt, ...) __attribute__ ((format (printf, 2, 3))); +size_t vwrite_to_output(struct descriptor_data *d, const char *format, va_list args); +void string_add(struct descriptor_data *d, char *str); +void string_write(struct descriptor_data *d, char **txt, size_t len, long mailto, void *data); + +#define PAGE_LENGTH 22 +#define PAGE_WIDTH 80 +void page_string(struct descriptor_data *d, char *str, int keep_internal); + +typedef RETSIGTYPE sigfunc(int); + diff --git a/src/conf.h.amiga b/src/conf.h.amiga new file mode 100644 index 0000000..97cdd46 --- /dev/null +++ b/src/conf.h.amiga @@ -0,0 +1,104 @@ +/* CircleMUD for Amiga conf.h file - manually created (N. Franceschi 26 Jul 1996) + +/* src/conf.h.in. Generated automatically from configure.in by autoheader. */ + +#undef CIRCLE_WINDOWS + +#define AMIGA 1 + +/* Define to empty if the keyword does not work. */ +/* #undef const */ + +/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */ +/* #undef HAVE_SYS_WAIT_H */ + +/* Define to `int' if <sys/types.h> doesn't define. */ +/*#define pid_t int*/ + +/* Define as the return type of signal handlers (int or void). */ +#define RETSIGTYPE void + +/* Define to `unsigned' if <sys/types.h> doesn't define. */ +/* #undef size_t */ + +/* Define if you have 'struct in_addr' */ +#define HAVE_STRUCT_IN_ADDR 1 + +/* Define if your crypt isn't safe with only 10 characters. */ +#undef HAVE_UNSAFE_CRYPT + +/* Define to `int' if <sys/socket.h> doesn't define. */ +#define socklen_t int + +/* Define if you have the ANSI C header files. */ +#define STDC_HEADERS 1 + +/* Define if you can safely include both <sys/time.h> and <time.h>. */ +#define TIME_WITH_SYS_TIME 1 + +/* Define if you have the crypt function. */ +#undef CIRCLE_CRYPT + +/* Define if you have the random function. */ +#undef HAVE_RANDOM + +/* Define if you have the <arpa/telnet.h> header file. */ +#define HAVE_ARPA_TELNET_H 1 + +/* Define if you have the <assert.h> header file. */ +#define HAVE_ASSERT_H 1 + +/* Define if you have the <crypt.h> header file. */ +#undef HAVE_CRYPT_H + +/* Define if you have the <errno.h> header file. */ +#define HAVE_ERRNO_H 1 + +/* Define if you have the <fcntl.h> header file. */ +#define HAVE_FCNTL_H 1 + +/* Define if you have the <limits.h> header file. */ +#define HAVE_LIMITS_H 1 + +/* Define if you have the <memory.h> header file. */ +#define HAVE_MEMORY_H 1 + +/* Define if you have the <net/errno.h> header file. */ +/* #undef HAVE_NET_ERRNO_H */ + +/* Define if you have the <string.h> header file. */ +#define HAVE_STRING_H 1 + +/* Define if you have the <sys/fcntl.h> header file. */ +#define HAVE_SYS_FCNTL_H 1 + +/* Define if you have the <sys/select.h> header file. */ +/* #undef HAVE_SYS_SELECT_H */ + +/* Define if you have the <sys/time.h> header file. */ +#define HAVE_SYS_TIME_H 1 + +/* Define if you have the <sys/types.h> header file. */ +#define HAVE_SYS_TYPES_H 1 + +/* Define if you have the <unistd.h> header file. */ +#define HAVE_UNISTD_H 1 + +/* Define if you have the crypt library (-lcrypt). */ +/* #undef HAVE_LIBCRYPT */ + +/* Define if you have the malloc library (-lmalloc). */ +/* #undef HAVE_LIBMALLOC */ + +/* Define if you have the nsl library (-lnsl). */ +/* #undef HAVE_LIBNSL */ + +/* Define if you have the socket library (-lsocket). */ +/* #undef HAVE_LIBSOCKET */ + +/* Define if your compiler does not prototype remove(). */ +/* #undef NEED_REMOVE_PROTO */ + +/* Define if your compiler does not prototype strerror(). */ +/* #undef NEED_STRERROR_PROTO */ + diff --git a/src/conf.h.arc b/src/conf.h.arc new file mode 100644 index 0000000..3fa14cd --- /dev/null +++ b/src/conf.h.arc @@ -0,0 +1,78 @@ +/* CircleMUD for ACORN conf.h file - manually created (G. Duncan 13 June 98) + +#define CIRCLE_ACORN + +/* Define to empty if the keyword does not work. */ +/*#define const*/ + +/* Define to `int' if <sys/types.h> doesn't define. */ +/*#define pid_t int*/ + +/* Define as the return type of signal handlers (int or void). */ +#define RETSIGTYPE void + +/* Define to `unsigned' if <sys/types.h> doesn't define. */ +/*#define size_t*/ + +/* Define if you have 'struct in_addr' */ +#define HAVE_STRUCT_IN_ADDR 1 + +/* Define if your crypt isn't safe with only 10 characters. */ +#undef HAVE_UNSAFE_CRYPT + +/* Define to `int' if <sys/socket.h> doesn't define. */ +#define socklen_t int + +/* Define if you have the <string.h> header file. */ +#define HAVE_STRING_H + +/* Define if you have the <strings.h> header file. */ +#define HAVE_STRINGS_H + +#define HAVE_MEMORY_H + +/* Define if you have the ANSI C header files. */ +#define STDC_HEADERS + +/* Define if you have the <sys/types.h> header file. */ +#define HAVE_SYS_TYPES_H +#define HAVE_UNISTD_H + +/* Define if you have the <limits.h> header file. */ +#define HAVE_LIMITS_H + +/* Define if you have the <errno.h> header file. */ +#define HAVE_ERRNO_H +#define HAVE_SYS_ERRNO_H + +/* Define if you can safely include both <sys/time.h> and <time.h>. */ +#define TIME_WITH_SYS_TIME +#define HAVE_SYS_TIME_H + +/* Define if you have the <assert.h> header file. */ +#define HAVE_ASSERT_H + +/* Define if you have the <fcntl.h> header file. */ +#define HAVE_FCNTL_H +/*#define HAVE_SYS_FCNTL_H*/ + +/* Define if you have the <sys/socket.h> header file. */ +#define HAVE_SYS_SOCKET_H +#define HAVE_SYS_RESOURCE_H + +/* Define if you have <sys/wait.h> that is POSIX. compatible. */ +#define HAVE_SYS_WAIT_H +#define HAVE_NETINET_IN_H +#define HAVE_NETDB_H +#define HAVE_SIGNAL_H +#define HAVE_SYS_UIO_H +#define HAVE_SYS_STAT_H + +#define NEED_GETTIMEOFDAY_PROTO + +/* Define if your compiler does not prototype remove(). */ +/* #undef NEED_REMOVE_PROTO */ + +/* Define if your compiler does not prototype strerror(). */ +/* #undef NEED_STRERROR_PROTO */ + diff --git a/src/conf.h.in b/src/conf.h.in new file mode 100644 index 0000000..dac209f --- /dev/null +++ b/src/conf.h.in @@ -0,0 +1,332 @@ +/* src/conf.h.in. Generated automatically from configure.in by autoheader. */ + +/* Define to empty if the keyword does not work. */ +#undef const + +/* Define if you don't have vprintf but do have _doprnt. */ +#undef HAVE_DOPRNT + +/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */ +#undef HAVE_SYS_WAIT_H + +/* Define if you have the vprintf function. */ +#undef HAVE_VPRINTF + +/* Define to `int' if <sys/types.h> doesn't define. */ +#undef pid_t + +/* Define as the return type of signal handlers (int or void). */ +#undef RETSIGTYPE + +/* Define to `unsigned' if <sys/types.h> doesn't define. */ +#undef size_t + +/* Define if you have the ANSI C header files. */ +#undef STDC_HEADERS + +/* Define if you can safely include both <sys/time.h> and <time.h>. */ +#undef TIME_WITH_SYS_TIME + +/* Define if we're compiling CircleMUD under any type of UNIX system. */ +#undef CIRCLE_UNIX + +/* Define if the system is capable of using crypt() to encrypt. */ +#undef CIRCLE_CRYPT + +/* Define if we don't have proper support for the system's crypt(). */ +#undef HAVE_UNSAFE_CRYPT + +/* Define is the system has struct in_addr. */ +#undef HAVE_STRUCT_IN_ADDR + +/* Define to `int' if <sys/socket.h> doesn't define. */ +#undef socklen_t + +/* Define to `int' if <sys/types.h> doesn't define. */ +#undef ssize_t + +/* Define if you have the gettimeofday function. */ +#undef HAVE_GETTIMEOFDAY + +/* Define if you have the inet_addr function. */ +#undef HAVE_INET_ADDR + +/* Define if you have the inet_aton function. */ +#undef HAVE_INET_ATON + +/* Define if you have the select function. */ +#undef HAVE_SELECT + +/* Define if you have the snprintf function. */ +#undef HAVE_SNPRINTF + +/* Define if you have the strcasecmp function. */ +#undef HAVE_STRCASECMP + +/* Define if you have the strdup function. */ +#undef HAVE_STRDUP + +/* Define if you have the strerror function. */ +#undef HAVE_STRERROR + +/* Define if you have the stricmp function. */ +#undef HAVE_STRICMP + +/* Define if you have the strlcpy function. */ +#undef HAVE_STRLCPY + +/* Define if you have the strncasecmp function. */ +#undef HAVE_STRNCASECMP + +/* Define if you have the strnicmp function. */ +#undef HAVE_STRNICMP + +/* Define if you have the strstr function. */ +#undef HAVE_STRSTR + +/* Define if you have the vsnprintf function. */ +#undef HAVE_VSNPRINTF + +/* Define if you have the <arpa/inet.h> header file. */ +#undef HAVE_ARPA_INET_H + +/* Define if you have the <arpa/telnet.h> header file. */ +#undef HAVE_ARPA_TELNET_H + +/* Define if you have the <assert.h> header file. */ +#undef HAVE_ASSERT_H + +/* Define if you have the <crypt.h> header file. */ +#undef HAVE_CRYPT_H + +/* Define if you have the <errno.h> header file. */ +#undef HAVE_ERRNO_H + +/* Define if you have the <fcntl.h> header file. */ +#undef HAVE_FCNTL_H + +/* Define if you have the <limits.h> header file. */ +#undef HAVE_LIMITS_H + +/* Define if you have the <mcheck.h> header file. */ +#undef HAVE_MCHECK_H + +/* Define if you have the <memory.h> header file. */ +#undef HAVE_MEMORY_H + +/* Define if you have the <net/errno.h> header file. */ +#undef HAVE_NET_ERRNO_H + +/* Define if you have the <netdb.h> header file. */ +#undef HAVE_NETDB_H + +/* Define if you have the <netinet/in.h> header file. */ +#undef HAVE_NETINET_IN_H + +/* Define if you have the <signal.h> header file. */ +#undef HAVE_SIGNAL_H + +/* Define if you have the <string.h> header file. */ +#undef HAVE_STRING_H + +/* Define if you have the <strings.h> header file. */ +#undef HAVE_STRINGS_H + +/* Define if you have the <sys/fcntl.h> header file. */ +#undef HAVE_SYS_FCNTL_H + +/* Define if you have the <sys/resource.h> header file. */ +#undef HAVE_SYS_RESOURCE_H + +/* Define if you have the <sys/select.h> header file. */ +#undef HAVE_SYS_SELECT_H + +/* Define if you have the <sys/socket.h> header file. */ +#undef HAVE_SYS_SOCKET_H + +/* Define if you have the <sys/stat.h> header file. */ +#undef HAVE_SYS_STAT_H + +/* Define if you have the <sys/time.h> header file. */ +#undef HAVE_SYS_TIME_H + +/* Define if you have the <sys/types.h> header file. */ +#undef HAVE_SYS_TYPES_H + +/* Define if you have the <sys/uio.h> header file. */ +#undef HAVE_SYS_UIO_H + +/* Define if you have the <unistd.h> header file. */ +#undef HAVE_UNISTD_H + +/* Define if you have the malloc library (-lmalloc). */ +#undef HAVE_LIBMALLOC + +/* Check for a prototype to accept. */ +#undef NEED_ACCEPT_PROTO + +/* Check for a prototype to atoi. */ +#undef NEED_ATOI_PROTO + +/* Check for a prototype to atol. */ +#undef NEED_ATOL_PROTO + +/* Check for a prototype to bind. */ +#undef NEED_BIND_PROTO + +/* Check for a prototype to bzero. */ +#undef NEED_BZERO_PROTO + +/* Check for a prototype to chdir. */ +#undef NEED_CHDIR_PROTO + +/* Check for a prototype to close. */ +#undef NEED_CLOSE_PROTO + +/* Check for a prototype to crypt. */ +#undef NEED_CRYPT_PROTO + +/* Check for a prototype to fclose. */ +#undef NEED_FCLOSE_PROTO + +/* Check for a prototype to fcntl. */ +#undef NEED_FCNTL_PROTO + +/* Check for a prototype to fflush. */ +#undef NEED_FFLUSH_PROTO + +/* Check for a prototype to fprintf. */ +#undef NEED_FPRINTF_PROTO + +/* Check for a prototype to fputc. */ +#undef NEED_FPUTC_PROTO + +/* Check for a prototype to fputs. */ +#undef NEED_FPUTS_PROTO + +/* Check for a prototype to fread. */ +#undef NEED_FREAD_PROTO + +/* Check for a prototype to fscanf. */ +#undef NEED_FSCANF_PROTO + +/* Check for a prototype to fseek. */ +#undef NEED_FSEEK_PROTO + +/* Check for a prototype to fwrite. */ +#undef NEED_FWRITE_PROTO + +/* Check for a prototype to getpeername. */ +#undef NEED_GETPEERNAME_PROTO + +/* Check for a prototype to getpid. */ +#undef NEED_GETPID_PROTO + +/* Check for a prototype to getrlimit. */ +#undef NEED_GETRLIMIT_PROTO + +/* Check for a prototype to getsockname. */ +#undef NEED_GETSOCKNAME_PROTO + +/* Check for a prototype to gettimeofday. */ +#undef NEED_GETTIMEOFDAY_PROTO + +/* Check for a prototype to htonl. */ +#undef NEED_HTONL_PROTO + +/* Check for a prototype to htons. */ +#undef NEED_HTONS_PROTO + +/* Check for a prototype to inet_addr. */ +#undef NEED_INET_ADDR_PROTO + +/* Check for a prototype to inet_aton. */ +#undef NEED_INET_ATON_PROTO + +/* Check for a prototype to inet_ntoa. */ +#undef NEED_INET_NTOA_PROTO + +/* Check for a prototype to listen. */ +#undef NEED_LISTEN_PROTO + +/* Check for a prototype to ntohl. */ +#undef NEED_NTOHL_PROTO + +/* Check for a prototype to perror. */ +#undef NEED_PERROR_PROTO + +/* Check for a prototype to printf. */ +#undef NEED_PRINTF_PROTO + +/* Check for a prototype to qsort. */ +#undef NEED_QSORT_PROTO + +/* Check for a prototype to read. */ +#undef NEED_READ_PROTO + +/* Check for a prototype to remove. */ +#undef NEED_REMOVE_PROTO + +/* Check for a prototype to rewind. */ +#undef NEED_REWIND_PROTO + +/* Check for a prototype to select. */ +#undef NEED_SELECT_PROTO + +/* Check for a prototype to setitimer. */ +#undef NEED_SETITIMER_PROTO + +/* Check for a prototype to setrlimit. */ +#undef NEED_SETRLIMIT_PROTO + +/* Check for a prototype to setsockopt. */ +#undef NEED_SETSOCKOPT_PROTO + +/* Check for a prototype to snprintf. */ +#undef NEED_SNPRINTF_PROTO + +/* Check for a prototype to socket. */ +#undef NEED_SOCKET_PROTO + +/* Check for a prototype to sprintf. */ +#undef NEED_SPRINTF_PROTO + +/* Check for a prototype to sscanf. */ +#undef NEED_SSCANF_PROTO + +/* Check for a prototype to strcasecmp. */ +#undef NEED_STRCASECMP_PROTO + +/* Check for a prototype to strdup. */ +#undef NEED_STRDUP_PROTO + +/* Check for a prototype to strerror. */ +#undef NEED_STRERROR_PROTO + +/* Check for a prototype to stricmp. */ +#undef NEED_STRICMP_PROTO + +/* Check for a prototype to strlcpy. */ +#undef NEED_STRLCPY_PROTO + +/* Check for a prototype to strncasecmp. */ +#undef NEED_STRNCASECMP_PROTO + +/* Check for a prototype to strnicmp. */ +#undef NEED_STRNICMP_PROTO + +/* Check for a prototype to system. */ +#undef NEED_SYSTEM_PROTO + +/* Check for a prototype to time. */ +#undef NEED_TIME_PROTO + +/* Check for a prototype to unlink. */ +#undef NEED_UNLINK_PROTO + +/* Check for a prototype to vsnprintf. */ +#undef NEED_VSNPRINTF_PROTO + +/* Check for a prototype to write. */ +#undef NEED_WRITE_PROTO + diff --git a/src/conf.h.mac b/src/conf.h.mac new file mode 100644 index 0000000..def3973 --- /dev/null +++ b/src/conf.h.mac @@ -0,0 +1,255 @@ +/* src/conf.h.in. Generated automatically from configure.in by autoheader. */ + +#define CIRCLE_MACINTOSH 1 + +#define HAVE_SYS_ERRNO_H 1 + +/* Define to empty if the keyword does not work. */ +/* #undef const */ + +/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */ +#undef HAVE_SYS_WAIT_H + +/* Define to `int' if <sys/types.h> doesn't define. */ +/* #undef pid_t */ + +/* Define as the return type of signal handlers (int or void). */ +#define RETSIGTYPE void + +/* Define to `unsigned' if <sys/types.h> doesn't define. */ +/* #undef size_t */ + +/* Define to `int' if <sys/socket.h> doesn't define. */ +#define socklen_t int + +/* Define if you have the ANSI C header files. */ +#define STDC_HEADERS 1 + +/* Define if you can safely include both <sys/time.h> and <time.h>. */ +#define TIME_WITH_SYS_TIME + +/* Define if we're compiling CircleMUD under any type of UNIX system */ +#undef CIRCLE_UNIX + +/* Define if the system is capable of using crypt() to encrypt */ +#undef CIRCLE_CRYPT + +/* Define to `int' if <sys/types.h> doesn't define. */ +#undef ssize_t + +/* Define if you have the <arpa/telnet.h> header file. */ +#undef HAVE_ARPA_TELNET_H + +/* Define if you have the <assert.h> header file. */ +#define HAVE_ASSERT_H 1 + +/* Define if you have the <crypt.h> header file. */ +#undef HAVE_CRYPT_H + +/* Define if you have the <errno.h> header file. */ +#undef HAVE_ERRNO_H + +/* Define if you have the <fcntl.h> header file. */ +#define HAVE_FCNTL_H 1 + +/* Define if you have the <limits.h> header file. */ +#define HAVE_LIMITS_H 1 + +/* Define if you have the <memory.h> header file. */ +#define HAVE_MEMORY_H 1 + +/* Define if you have the <net/errno.h> header file. */ +#undef HAVE_NET_ERRNO_H + +/* Define if you have the <netdb.h> header file. */ +#define HAVE_NETDB_H 1 + +/* Define if you have the <netinet/in.h> header file. */ +#define HAVE_NETINET_IN_H 1 + +/* Define if you have the <signal.h> header file. */ +#define HAVE_SIGNAL_H 1 + +/* Define if you have the <string.h> header file. */ +#define HAVE_STRING_H 1 + +/* Define if you have the <strings.h> header file. */ +#define HAVE_STRINGS_H 1 + +/* Define if you have the <sys/fcntl.h> header file. */ +#define HAVE_SYS_FCNTL_H 1 + +/* Define if you have the <sys/resource.h> header file. */ +#undef HAVE_SYS_RESOURCE_H + +/* Define if you have the <sys/select.h> header file. */ +#undef HAVE_SYS_SELECT_H + +/* Define if you have the <sys/socket.h> header file. */ +#define HAVE_SYS_SOCKET_H 1 + +/* Define if you have the <sys/stat.h> header file. */ +#define HAVE_SYS_STAT_H 1 + +/* Define if you have the <sys/time.h> header file. */ +#define HAVE_SYS_TIME_H 1 + +/* Define if you have the <sys/types.h> header file. */ +#define HAVE_SYS_TYPES_H 1 + +/* Define if you have the <sys/uio.h> header file. */ +#undef HAVE_SYS_UIO_H + +/* Define if you have the <unistd.h> header file. */ +#define HAVE_UNISTD_H 1 + +/* Define if you have the malloc library (-lmalloc). */ +#undef HAVE_LIBMALLOC + +/* Define if your compiler does not prototype accept(). */ +#undef NEED_ACCEPT_PROTO + +/* Define if your compiler does not prototype atoi(). */ +#undef NEED_ATOI_PROTO + +/* Define if your compiler does not prototype atol(). */ +#undef NEED_ATOL_PROTO + +/* Define if your compiler does not prototype bind(). */ +#undef NEED_BIND_PROTO + +/* Define if your compiler does not prototype bzero(). */ +#undef NEED_BZERO_PROTO + +/* Define if your compiler does not prototype chdir(). */ +#undef NEED_CHDIR_PROTO + +/* Define if your compiler does not prototype close(). */ +#undef NEED_CLOSE_PROTO + +/* Define if your compiler does not prototype crypt(). */ +#undef NEED_CRYPT_PROTO + +/* Define if your compiler does not prototype fclose(). */ +#undef NEED_FCLOSE_PROTO + +/* Define if your compiler does not prototype fcntl(). */ +#undef NEED_FCNTL_PROTO + +/* Define if your compiler does not prototype fflush(). */ +#undef NEED_FFLUSH_PROTO + +/* Define if your compiler does not prototype fprintf(). */ +#undef NEED_FPRINTF_PROTO + +/* Define if your compiler does not prototype fputc(). */ +#undef NEED_FPUTC_PROTO + +/* Define if your compiler does not prototype fputs(). */ +#undef NEED_FPUTS_PROTO + +/* Define if your compiler does not prototype fread(). */ +#undef NEED_FREAD_PROTO + +/* Define if your compiler does not prototype fscanf(). */ +#undef NEED_FSCANF_PROTO + +/* Define if your compiler does not prototype fseek(). */ +#undef NEED_FSEEK_PROTO + +/* Define if your compiler does not prototype fwrite(). */ +#undef NEED_FWRITE_PROTO + +/* Define if your compiler does not prototype getpeername(). */ +#undef NEED_GETPEERNAME_PROTO + +/* Define if your compiler does not prototype getpid(). */ +#undef NEED_GETPID_PROTO + +/* Define if your compiler does not prototype getrlimit(). */ +#undef NEED_GETRLIMIT_PROTO + +/* Define if your compiler does not prototype getsockname(). */ +#undef NEED_GETSOCKNAME_PROTO + +/* Define if your compiler does not prototype gettimeofday(). */ +#undef NEED_GETTIMEOFDAY_PROTO + +/* Define if your compiler does not prototype htonl(). */ +#undef NEED_HTONL_PROTO + +/* Define if your compiler does not prototype htons(). */ +#undef NEED_HTONS_PROTO + +/* Define if your compiler does not prototype listen(). */ +#undef NEED_LISTEN_PROTO + +/* Define if your compiler does not prototype ntohl(). */ +#undef NEED_NTOHL_PROTO + +/* Define if your compiler does not prototype perror(). */ +#undef NEED_PERROR_PROTO + +/* Define if your compiler does not prototype printf(). */ +#undef NEED_PRINTF_PROTO + +/* Define if your compiler does not prototype qsort(). */ +#undef NEED_QSORT_PROTO + +/* Define if your compiler does not prototype read(). */ +#undef NEED_READ_PROTO + +/* Define if your compiler does not prototype rewind(). */ +#undef NEED_REWIND_PROTO + +/* Define if your compiler does not prototype select(). */ +#undef NEED_SELECT_PROTO + +/* Define if your compiler does not prototype setitimer(). */ +#undef NEED_SETITIMER_PROTO + +/* Define if your compiler does not prototype setrlimit(). */ +#undef NEED_SETRLIMIT_PROTO + +/* Define if your compiler does not prototype setsockopt(). */ +#undef NEED_SETSOCKOPT_PROTO + +/* Define if your compiler does not prototype socket(). */ +#undef NEED_SOCKET_PROTO + +/* Define if your compiler does not prototype sprintf(). */ +#undef NEED_SPRINTF_PROTO + +/* Define if your compiler does not prototype sscanf(). */ +#undef NEED_SSCANF_PROTO + +/* Define if your compiler does not prototype system(). */ +#undef NEED_SYSTEM_PROTO + +/* Define if your compiler does not prototype time(). */ +#undef NEED_TIME_PROTO + +/* Define if your compiler does not prototype unlink(). */ +#undef NEED_UNLINK_PROTO + +/* Define if your compiler does not prototype write(). */ +#undef NEED_WRITE_PROTO + +/* Define is your compiler does not prototype fdopen(). */ +#define NEED_FDOPEN_PROTO 1 + +/* Define is your compiler does not prototype inet_ntoa(). */ +#define NEED_INET_NTOA_PROTO 1 + +/* Define if your compiler does not prototype remove(). */ +/* #undef NEED_REMOVE_PROTO */ + +/* Define if your compiler does not prototype strerror(). */ +/* #undef NEED_STRERROR_PROTO */ + +/* Define if you have 'struct in_addr' */ +#define HAVE_STRUCT_IN_ADDR 1 + +/* Define if your crypt isn't safe with only 10 characters. */ +#undef HAVE_UNSAFE_CRYPT + diff --git a/src/conf.h.os2 b/src/conf.h.os2 new file mode 100644 index 0000000..ccf7611 --- /dev/null +++ b/src/conf.h.os2 @@ -0,0 +1,104 @@ +/* src/conf.h.os2. Manually written by David Carver. */ + +/* Define if we are compiling under OS2 */ +#define CIRCLE_OS2 + +/* Define if we're compiling CircleMUD under any type of UNIX system */ +/* #undef CIRCLE_UNIX */ + +/* Define to empty if the keyword does not work. */ +#undef const + +/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */ +#define HAVE_SYS_WAIT_H + +/* Define to `int' if <sys/types.h> doesn't define. */ +#undef pid_t + +/* Define as the return type of signal handlers (int or void). */ +#define RETSIGTYPE + +/* Define to `unsigned' if <sys/types.h> doesn't define. */ +#undef size_t + +/* Define to `int' if <sys/socket.h> doesn't define. */ +#define socklen_t int + +/* Define if you have the ANSI C header files. */ +#define STDC_HEADERS + +/* Define if you can safely include both <sys/time.h> and <time.h>. */ +#define TIME_WITH_SYS_TIME + +/* Define if you have the crypt function. */ +#undef CIRCLE_CRYPT + +/* Define if you have the random function. (-lbsd) */ +#define HAVE_RANDOM 1 + +/* Define if you have the <arpa/telnet.h> header file. */ +#define HAVE_ARPA_TELNET_H + +/* Define if you have the <assert.h> header file. */ +#define HAVE_ASSERT_H + +/* Define if you have the <crypt.h> header file. */ +#undef HAVE_CRYPT_H + +/* Define if you have the <errno.h> header file. */ +#define HAVE_ERRNO_H + +/* Define if you have the <fcntl.h> header file. */ +#define HAVE_FCNTL_H + +/* Define if you have the <limits.h> header file. */ +#define HAVE_LIMITS_H + +/* Define if you have the <memory.h> header file. */ +#define HAVE_MEMORY_H + +/* Define if you have the <net/errno.h> header file. */ +#undef HAVE_NET_ERRNO_H + +/* Define if you have the <string.h> header file. */ +#define HAVE_STRING_H + +/* Define if you have the <sys/fcntl.h> header file. */ +#define HAVE_SYS_FCNTL_H + +/* Define if you have the <sys/select.h> header file. */ +#define HAVE_SYS_SELECT_H + +/* Define if you have the <sys/time.h> header file. */ +#define HAVE_SYS_TIME_H + +/* Define if you have the <sys/types.h> header file. */ +#define HAVE_SYS_TYPES_H 1 + +/* Define if you have the <unistd.h> header file. */ +#define HAVE_UNISTD_H + +/* Define if you have the crypt library (-lcrypt). */ +#undef HAVE_LIBCRYPT + +/* Define if you have the malloc library (-lmalloc). */ +#undef HAVE_LIBMALLOC + +/* Define if you have the nsl library (-lnsl). */ +#undef HAVE_LIBNSL + +/* Define if you have the socket library (-lsocket). */ +#define HAVE_LIBSOCKET + +/* Define if your compiler does not prototype remove(). */ +/* #undef NEED_REMOVE_PROTO */ + +/* Define if your compiler does not prototype strerror(). */ +/* #undef NEED_STRERROR_PROTO */ + +/* Define if you have 'struct in_addr' */ +#define HAVE_STRUCT_IN_ADDR 1 + +/* Define if your crypt isn't safe with only 10 characters. */ +#undef HAVE_UNSAFE_CRYPT + diff --git a/src/conf.h.vms b/src/conf.h.vms new file mode 100644 index 0000000..40a8f02 --- /dev/null +++ b/src/conf.h.vms @@ -0,0 +1,295 @@ +/* src/conf.h.in. Generated automatically from cnf/configure.in by autoheader. */ + +/* Define to empty if the keyword does not work. */ +/* #undef const */ + +/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */ +#ifdef DECC +# define HAVE_SYS_WAIT_H 1 +#endif + +/* Define to `int' if <sys/types.h> doesn't define. */ +/* #undef pid_t */ + +/* Define as the return type of signal handlers (int or void). */ +#define RETSIGTYPE void + +/* Define to `unsigned' if <sys/types.h> doesn't define. */ +/* #undef size_t */ + +/* Define if you have the ANSI C header files. */ +#define STDC_HEADERS 1 + +/* Define to `unsigned int' if <sys/socket.h> doesn't define. */ +#define socklen_t unsigned int + +/* Define if you can safely include both <sys/time.h> and <time.h>. */ +#ifdef __GNUC__ +# define TIME_WITH_SYS_TIME 1 +#endif + +/* Define if you have 'struct in_addr' */ +#define HAVE_STRUCT_IN_ADDR 1 + +/* Define if we're compiling CircleMUD under any type of UNIX system */ +/* #undef CIRCLE_UNIX */ + +/* Define if we're compiling CircleMUD under OpenVMS. */ +#define CIRCLE_VMS 1 +#define VMS 1 +#define __VMS 1 + +/* Define if the system is capable of using crypt() to encrypt */ +/* #undef CIRCLE_CRYPT*/ + +/* Define if your crypt isn't safe with only 10 characters. */ +/* #undef HAVE_UNSAFE_CRYPT */ + +/* Define to `int' if <sys/types.h> doesn't define. */ +#ifdef __GNUC__ +# define ssize_t int +#endif + +/* Define if you have the inet_addr function. */ +/* #undef HAVE_INET_ADDR */ + +/* Define if you have the inet_aton function. */ +/* #undef HAVE_INET_ATON */ + +/* Define if you have the <arpa/inet.h> header file. */ +#ifdef DECC +# define HAVE_ARPA_INET_H 1 +#endif + +/* Define if you have the <arpa/telnet.h> header file. */ +/* #undef HAVE_ARPA_TELNET_H */ + +/* Define if you have the <assert.h> header file. */ +#define HAVE_ASSERT_H 1 + +/* Define if you have the <crypt.h> header file. */ +/* #undef HAVE_CRYPT_H */ + +/* Define if you have the <errno.h> header file. */ +#define HAVE_ERRNO_H 1 + +/* Define if you have the <fcntl.h> header file. */ +#ifdef DECC +# define HAVE_FCNTL_H 1 +#endif + +/* Define if you have the <limits.h> header file. */ +#define HAVE_LIMITS_H 1 + +/* Define if you have the <memory.h> header file. */ +#define HAVE_MEMORY_H 1 + +/* Define if you have the <net/errno.h> header file. */ +/* #undef HAVE_NET_ERRNO_H */ + +/* Define if you have the <netdb.h> header file. */ +#ifdef DECC +# define HAVE_NETDB_H 1 +#endif + +/* Define if you have the <netinet/in.h> header file. */ +#ifdef DECC +# define HAVE_NETINET_IN_H 1 +#endif + +/* Define if you have the <signal.h> header file. */ +#define HAVE_SIGNAL_H 1 + +/* Define if you have the <string.h> header file. */ +#define HAVE_STRING_H 1 + +/* Define if you have the <strings.h> header file. */ +#define HAVE_STRINGS_H 1 + +/* Define if you have the <sys/fcntl.h> header file. */ +/* #undef HAVE_SYS_FCNTL_H */ + +/* Define if you have the <sys/resource.h> header file. */ +#ifdef DECC +# define HAVE_SYS_RESOURCE_H 1 +#endif + +/* Define if you have the <sys/select.h> header file. */ +/* #undef HAVE_SYS_SELECT_H */ + +/* Define if you have the <sys/socket.h> header file. */ +#ifdef DECC +# define HAVE_SYS_SOCKET_H 1 +#endif + +/* Define if you have the <sys/stat.h> header file. */ +#define HAVE_SYS_STAT_H 1 + +/* Define if you have the <sys/time.h> header file. */ +#ifdef __GNUC__ +# define HAVE_SYS_TIME_H 1 +#endif + +/* Define if you have the <sys/types.h> header file. */ +#ifdef DECC +# define HAVE_SYS_TYPES_H 1 +#endif + +/* Define if you have the <sys/uio.h> header file. */ +#ifdef DECC +# define HAVE_SYS_UIO_H 1 +#endif + +/* Define if you have the <unistd.h> header file. */ +#ifdef __GNUC__ +# define HAVE_UNISTD_H 1 +#endif + +/* Define if you have the malloc library (-lmalloc). */ +/* #undef HAVE_LIBMALLOC */ + +/* Define if your compiler does not prototype accept(). */ +/* #undef NEED_ACCEPT_PROTO */ + +/* Define if your compiler does not prototype atoi(). */ +/* #undef NEED_ATOI_PROTO */ + +/* Define if your compiler does not prototype atol(). */ +/* #undef NEED_ATOL_PROTO */ + +/* Define if your compiler does not prototype bind(). */ +/* #undef NEED_BIND_PROTO */ + +/* Define if your compiler does not prototype bzero(). */ +/* #undef NEED_BZERO_PROTO */ + +/* Define if your compiler does not prototype chdir(). */ +/* #undef NEED_CHDIR_PROTO */ + +/* Define if your compiler does not prototype close(). */ +/* #undef NEED_CLOSE_PROTO */ + +/* Define if your compiler does not prototype crypt(). */ +/* #undef NEED_CRYPT_PROTO */ + +/* Define if your compiler does not prototype fclose(). */ +/* #undef NEED_FCLOSE_PROTO */ + +/* Define if your compiler does not prototype fcntl(). */ +/* #undef NEED_FCNTL_PROTO */ + +/* Define if your compiler does not prototype fflush(). */ +/* #undef NEED_FFLUSH_PROTO */ + +/* Define if your compiler does not prototype fprintf(). */ +/* #undef NEED_FPRINTF_PROTO */ + +/* Define if your compiler does not prototype fputc(). */ +/* #undef NEED_FPUTC_PROTO */ + +/* Define if your compiler does not prototype fputs(). */ +/* #undef NEED_FPUTS_PROTO */ + +/* Define if your compiler does not prototype fread(). */ +/* #undef NEED_FREAD_PROTO */ + +/* Define if your compiler does not prototype fscanf(). */ +/* #undef NEED_FSCANF_PROTO */ + +/* Define if your compiler does not prototype fseek(). */ +/* #undef NEED_FSEEK_PROTO */ + +/* Define if your compiler does not prototype fwrite(). */ +/* #undef NEED_FWRITE_PROTO */ + +/* Define if your compiler does not prototype getpeername(). */ +/* #undef NEED_GETPEERNAME_PROTO */ + +/* Define if your compiler does not prototype getpid(). */ +/* #undef NEED_GETPID_PROTO */ + +/* Define if your compiler does not prototype getrlimit(). */ +/* #undef NEED_GETRLIMIT_PROTO */ + +/* Define if your compiler does not prototype getsockname(). */ +/* #undef NEED_GETSOCKNAME_PROTO */ + +/* Define if your compiler does not prototype gettimeofday(). */ +#ifdef DECC +# define NEED_GETTIMEOFDAY_PROTO 1 +#endif + +/* Define if your compiler does not prototype htonl(). */ +/* #undef NEED_HTONL_PROTO */ + +/* Define if your compiler does not prototype htons(). */ +/* #undef NEED_HTONS_PROTO */ + +/* Define if your compiler does not prototype inet_addr(). */ +/* #undef NEED_INET_ADDR_PROTO */ + +/* Define if your compiler does not prototype inet_aton(). */ +/* #undef NEED_INET_ATON_PROTO */ + +/* Define if your compiler does not prototype inet_ntoa(). */ +/* #undef NEED_INET_NTOA_PROTO */ + +/* Define if your compiler does not prototype listen(). */ +/* #undef NEED_LISTEN_PROTO */ + +/* Define if your compiler does not prototype ntohl(). */ +/* #undef NEED_NTOHL_PROTO */ + +/* Define if your compiler does not prototype perror(). */ +/* #undef NEED_PERROR_PROTO */ + +/* Define if your compiler does not prototype printf(). */ +/* #undef NEED_PRINTF_PROTO */ + +/* Define if your compiler does not prototype qsort(). */ +/* #undef NEED_QSORT_PROTO */ + +/* Define if your compiler does not prototype read(). */ +/* #undef NEED_READ_PROTO */ + +/* Define if your compiler does not prototype remove(). */ +/* #undef NEED_REMOVE_PROTO */ + +/* Define if your compiler does not prototype rewind(). */ +/* #undef NEED_REWIND_PROTO */ + +/* Define if your compiler does not prototype select(). */ +/* #undef NEED_SELECT_PROTO */ + +/* Define if your compiler does not prototype setitimer(). */ +/* #undef NEED_SETITIMER_PROTO */ + +/* Define if your compiler does not prototype setrlimit(). */ +/* #undef NEED_SETRLIMIT_PROTO */ + +/* Define if your compiler does not prototype setsockopt(). */ +/* #undef NEED_SETSOCKOPT_PROTO */ + +/* Define if your compiler does not prototype socket(). */ +/* #undef NEED_SOCKET_PROTO */ + +/* Define if your compiler does not prototype sprintf(). */ +/* #undef NEED_SPRINTF_PROTO */ + +/* Define if your compiler does not prototype sscanf(). */ +/* #undef NEED_SSCANF_PROTO */ + +/* Define if your compiler does not prototype strerror(). */ +/* #undef NEED_STRERROR_PROTO */ + +/* Define if your compiler does not prototype system(). */ +/* #undef NEED_SYSTEM_PROTO */ + +/* Define if your compiler does not prototype time(). */ +/* #undef NEED_TIME_PROTO */ + +/* Define if your compiler does not prototype unlink(). */ +/* #undef NEED_UNLINK_PROTO */ + +/* Define if your compiler does not prototype write(). */ +/* #undef NEED_WRITE_PROTO */ diff --git a/src/conf.h.win b/src/conf.h.win new file mode 100644 index 0000000..822d26c --- /dev/null +++ b/src/conf.h.win @@ -0,0 +1,336 @@ +/* + * conf.h.win -- conf.h file for Windows 95/NT compilation; any compiler + * Created by Jeremy Elson, 1 July 1998 + */ + +#define CIRCLE_WINDOWS + +/* Define to empty if the keyword does not work. */ +#undef const + +/* Define if you don't have vprintf but do have _doprnt. */ +#undef HAVE_DOPRNT + +/* Define if you have <sys/wait.h> that is POSIX.1 compatible. */ +#undef HAVE_SYS_WAIT_H + +/* Define if you have the vprintf function. */ +#define HAVE_VPRINTF 1 + +/* Define to `int' if <sys/types.h> doesn't define. */ +#define pid_t int + +/* Define as the return type of signal handlers (int or void). */ +#define RETSIGTYPE void + +/* Define to `unsigned' if <sys/types.h> doesn't define. */ +#undef size_t + +/* Define if you have the ANSI C header files. */ +#define STDC_HEADERS 1 + +/* Define if you can safely include both <sys/time.h> and <time.h>. */ +#undef TIME_WITH_SYS_TIME + +/* Define if we're compiling CircleMUD under any type of UNIX system. */ +#undef CIRCLE_UNIX + +/* Define if the system is capable of using crypt() to encrypt. */ +#undef CIRCLE_CRYPT + +/* Define if we don't have proper support for the system's crypt(). */ +#undef HAVE_UNSAFE_CRYPT + +/* Define is the system has struct in_addr. */ +#define HAVE_STRUCT_IN_ADDR 1 + +/* Define to `int' if <sys/socket.h> doesn't define. */ +#define socklen_t int + +/* Define to `int' if <sys/types.h> doesn't define. */ +#define ssize_t int + +/* Define if you have the gettimeofday function. */ +#undef HAVE_GETTIMEOFDAY + +/* Define if you have the inet_addr function. */ +#define HAVE_INET_ADDR 1 + +/* Define if you have the inet_aton function. */ +#undef HAVE_INET_ATON + +/* Define if you have the select function. */ +#define HAVE_SELECT 1 + +/* Define if you have the snprintf function. */ +#define HAVE_SNPRINTF 1 + +/* Define if you have the strcasecmp function. */ +#undef HAVE_STRCASECMP + +/* Define if you have the strdup function. */ +#define HAVE_STRDUP 1 + +/* Define if you have the strerror function. */ +#undef HAVE_STRERROR + +/* Define if you have the stricmp function. */ +#define HAVE_STRICMP 1 + +/* Define if you have the strlcpy function. */ +#undef HAVE_STRLCPY + +/* Define if you have the strncasecmp function. */ +#undef HAVE_STRNCASECMP + +/* Define if you have the strnicmp function. */ +#define HAVE_STRNICMP 1 + +/* Define if you have the strstr function. */ +#define HAVE_STRSTR 1 + +/* Define if you have the vsnprintf function. */ +#define HAVE_VSNPRINTF 1 + +/* Define if you have the <arpa/inet.h> header file. */ +#undef HAVE_ARPA_INET_H + +/* Define if you have the <arpa/telnet.h> header file. */ +#undef HAVE_ARPA_TELNET_H + +/* Define if you have the <assert.h> header file. */ +#define HAVE_ASSERT_H 1 + +/* Define if you have the <crypt.h> header file. */ +#undef HAVE_CRYPT_H + +/* Define if you have the <errno.h> header file. */ +#define HAVE_ERRNO_H 1 + +/* Define if you have the <fcntl.h> header file. */ +#define HAVE_FCNTL_H 1 + +/* Define if you have the <limits.h> header file. */ +#define HAVE_LIMITS_H 1 + +/* Define if you have the <mcheck.h> header file. */ +#undef HAVE_MCHECK_H + +/* Define if you have the <memory.h> header file. */ +#undef HAVE_MEMORY_H + +/* Define if you have the <net/errno.h> header file. */ +#undef HAVE_NET_ERRNO_H + +/* Define if you have the <netdb.h> header file. */ +#undef HAVE_NETDB_H + +/* Define if you have the <netinet/in.h> header file. */ +#undef HAVE_NETINET_IN_H + +/* Define if you have the <signal.h> header file. */ +#undef HAVE_SIGNAL_H + +/* Define if you have the <string.h> header file. */ +#define HAVE_STRING_H 1 + +/* Define if you have the <strings.h> header file. */ +#undef HAVE_STRINGS_H + +/* Define if you have the <sys/fcntl.h> header file. */ +#undef HAVE_SYS_FCNTL_H + +/* Define if you have the <sys/resource.h> header file. */ +#undef HAVE_SYS_RESOURCE_H + +/* Define if you have the <sys/select.h> header file. */ +#undef HAVE_SYS_SELECT_H + +/* Define if you have the <sys/socket.h> header file. */ +#undef HAVE_SYS_SOCKET_H + +/* Define if you have the <sys/stat.h> header file. */ +#define HAVE_SYS_STAT_H 1 + +/* Define if you have the <sys/time.h> header file. */ +#undef HAVE_SYS_TIME_H + +/* Define if you have the <sys/types.h> header file. */ +#define HAVE_SYS_TYPES_H 1 + +/* Define if you have the <sys/uio.h> header file. */ +#undef HAVE_SYS_UIO_H + +/* Define if you have the <unistd.h> header file. */ +#undef HAVE_UNISTD_H + +/* Define if you have the malloc library (-lmalloc). */ +#undef HAVE_LIBMALLOC + +/* Check for a prototype to accept. */ +#undef NEED_ACCEPT_PROTO + +/* Check for a prototype to atoi. */ +#undef NEED_ATOI_PROTO + +/* Check for a prototype to atol. */ +#undef NEED_ATOL_PROTO + +/* Check for a prototype to bind. */ +#undef NEED_BIND_PROTO + +/* Check for a prototype to bzero. */ +#undef NEED_BZERO_PROTO + +/* Check for a prototype to chdir. */ +#undef NEED_CHDIR_PROTO + +/* Check for a prototype to close. */ +#undef NEED_CLOSE_PROTO + +/* Check for a prototype to crypt. */ +#undef NEED_CRYPT_PROTO + +/* Check for a prototype to fclose. */ +#undef NEED_FCLOSE_PROTO + +/* Check for a prototype to fcntl. */ +#undef NEED_FCNTL_PROTO + +/* Check for a prototype to fflush. */ +#undef NEED_FFLUSH_PROTO + +/* Check for a prototype to fprintf. */ +#undef NEED_FPRINTF_PROTO + +/* Check for a prototype to fputc. */ +#undef NEED_FPUTC_PROTO + +/* Check for a prototype to fputs. */ +#undef NEED_FPUTS_PROTO + +/* Check for a prototype to fread. */ +#undef NEED_FREAD_PROTO + +/* Check for a prototype to fscanf. */ +#undef NEED_FSCANF_PROTO + +/* Check for a prototype to fseek. */ +#undef NEED_FSEEK_PROTO + +/* Check for a prototype to fwrite. */ +#undef NEED_FWRITE_PROTO + +/* Check for a prototype to getpeername. */ +#undef NEED_GETPEERNAME_PROTO + +/* Check for a prototype to getpid. */ +#undef NEED_GETPID_PROTO + +/* Check for a prototype to getrlimit. */ +#undef NEED_GETRLIMIT_PROTO + +/* Check for a prototype to getsockname. */ +#undef NEED_GETSOCKNAME_PROTO + +/* Check for a prototype to gettimeofday. */ +#undef NEED_GETTIMEOFDAY_PROTO + +/* Check for a prototype to htonl. */ +#undef NEED_HTONL_PROTO + +/* Check for a prototype to htons. */ +#undef NEED_HTONS_PROTO + +/* Check for a prototype to inet_addr. */ +#undef NEED_INET_ADDR_PROTO + +/* Check for a prototype to inet_aton. */ +#undef NEED_INET_ATON_PROTO + +/* Check for a prototype to inet_ntoa. */ +#undef NEED_INET_NTOA_PROTO + +/* Check for a prototype to listen. */ +#undef NEED_LISTEN_PROTO + +/* Check for a prototype to ntohl. */ +#undef NEED_NTOHL_PROTO + +/* Check for a prototype to perror. */ +#undef NEED_PERROR_PROTO + +/* Check for a prototype to printf. */ +#undef NEED_PRINTF_PROTO + +/* Check for a prototype to qsort. */ +#undef NEED_QSORT_PROTO + +/* Check for a prototype to read. */ +#undef NEED_READ_PROTO + +/* Check for a prototype to remove. */ +#undef NEED_REMOVE_PROTO + +/* Check for a prototype to rewind. */ +#undef NEED_REWIND_PROTO + +/* Check for a prototype to select. */ +#undef NEED_SELECT_PROTO + +/* Check for a prototype to setitimer. */ +#undef NEED_SETITIMER_PROTO + +/* Check for a prototype to setrlimit. */ +#undef NEED_SETRLIMIT_PROTO + +/* Check for a prototype to setsockopt. */ +#undef NEED_SETSOCKOPT_PROTO + +/* Check for a prototype to snprintf. */ +#undef NEED_SNPRINTF_PROTO + +/* Check for a prototype to socket. */ +#undef NEED_SOCKET_PROTO + +/* Check for a prototype to sprintf. */ +#undef NEED_SPRINTF_PROTO + +/* Check for a prototype to sscanf. */ +#undef NEED_SSCANF_PROTO + +/* Check for a prototype to strcasecmp. */ +#undef NEED_STRCASECMP_PROTO + +/* Check for a prototype to strdup. */ +#undef NEED_STRDUP_PROTO + +/* Check for a prototype to strerror. */ +#undef NEED_STRERROR_PROTO + +/* Check for a prototype to stricmp. */ +#undef NEED_STRICMP_PROTO + +/* Check for a prototype to strlcpy. */ +#define NEED_STRLCPY_PROTO 1 + +/* Check for a prototype to strncasecmp. */ +#undef NEED_STRNCASECMP_PROTO + +/* Check for a prototype to strnicmp. */ +#undef NEED_STRNICMP_PROTO + +/* Check for a prototype to system. */ +#undef NEED_SYSTEM_PROTO + +/* Check for a prototype to time. */ +#undef NEED_TIME_PROTO + +/* Check for a prototype to unlink. */ +#undef NEED_UNLINK_PROTO + +/* Check for a prototype to vsnprintf. */ +#undef NEED_VSNPRINTF_PROTO + +/* Check for a prototype to write. */ +#undef NEED_WRITE_PROTO diff --git a/src/config.c b/src/config.c new file mode 100644 index 0000000..f060abf --- /dev/null +++ b/src/config.c @@ -0,0 +1,309 @@ +/* ************************************************************************ +* File: config.c Part of CircleMUD * +* Usage: Configuration of various aspects of CircleMUD operation * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define __CONFIG_C__ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "interpreter.h" /* alias_data definition for structs.h */ + +#define TRUE 1 +#define YES 1 +#define FALSE 0 +#define NO 0 + +/* + * Below are several constants which you can change to alter certain aspects + * of the way CircleMUD acts. Since this is a .c file, all you have to do + * to change one of the constants (assuming you keep your object files around) + * is change the constant in this file and type 'make'. Make will recompile + * this file and relink; you don't have to wait for the whole thing to + * recompile as you do if you change a header file. + * + * I realize that it would be slightly more efficient to have lots of + * #defines strewn about, so that, for example, the autowiz code isn't + * compiled at all if you don't want to use autowiz. However, the actual + * code for the various options is quite small, as is the computational time + * in checking the option you've selected at run-time, so I've decided the + * convenience of having all your options in this one file outweighs the + * efficency of doing it the other way. + * + */ + +/****************************************************************************/ +/****************************************************************************/ + + +/* GAME PLAY OPTIONS */ + +/* + * pk_allowed sets the tone of the entire game. If pk_allowed is set to + * NO, then players will not be allowed to kill, summon, charm, or sleep + * other players, as well as a variety of other "asshole player" protections. + * However, if you decide you want to have an all-out knock-down drag-out + * PK Mud, just set pk_allowed to YES - and anything goes. + */ +int pk_allowed = NO; + +/* is playerthieving allowed? */ +int pt_allowed = NO; + +/* minimum level a player must be to shout/holler/gossip/auction */ +int level_can_shout = 1; + +/* number of movement points it costs to holler */ +int holler_move_cost = 20; + +/* how many people can get into a tunnel? The default is two, but there + * is also an alternate message in the case of one person being allowed. + */ +int tunnel_size = 2; + +/* exp change limits */ +int max_exp_gain = 100000; /* max gainable per kill */ +int max_exp_loss = 500000; /* max losable per death */ + +/* number of tics (usually 75 seconds) before PC/NPC corpses decompose */ +int max_npc_corpse_time = 5; +int max_pc_corpse_time = 10; + +/* How many ticks before a player is sent to the void or idle-rented. */ +int idle_void = 8; +int idle_rent_time = 48; + +/* This level and up is immune to idling, LVL_IMPL+1 will disable it. */ +int idle_max_level = LVL_GOD; + +/* should items in death traps automatically be junked? */ +int dts_are_dumps = YES; + +/* + * Whether you want items that immortals load to appear on the ground or not. + * It is most likely best to set this to 'YES' so that something else doesn't + * grab the item before the immortal does, but that also means people will be + * able to carry around things like boards. That's not necessarily a bad + * thing, but this will be left at a default of 'NO' for historic reasons. + */ +int load_into_inventory = NO; + +/* "okay" etc. */ +const char *OK = "Okay.\r\n"; +const char *NOPERSON = "No-one by that name here.\r\n"; +const char *NOEFFECT = "Nothing seems to happen.\r\n"; + +/* + * You can define or not define TRACK_THOUGH_DOORS, depending on whether + * or not you want track to find paths which lead through closed or + * hidden doors. A setting of 'NO' means to not go through the doors + * while 'YES' will pass through doors to find the target. + */ +int track_through_doors = YES; + +/* + * If you want mortals to level up to immortal once they have enough + * experience, then set this to 0. This is the stock behaviour for + * CircleMUD because it was the stock DikuMud behaviour. Subtracting + * this from LVL_IMMORT gives the top level that people can advance to + * in gain_exp() in limits.c + * For example, to stop people from advancing to LVL_IMMORT, simply set + * immort_level_ok to 1. + */ +int immort_level_ok = 0; + + +/****************************************************************************/ +/****************************************************************************/ + + +/* RENT/CRASHSAVE OPTIONS */ + +/* + * Should the MUD allow you to 'rent' for free? (i.e. if you just quit, + * your objects are saved at no cost, as in Merc-type MUDs.) + */ +int free_rent = YES; + +/* maximum number of items players are allowed to rent */ +int max_obj_save = 30; + +/* receptionist's surcharge on top of item costs */ +int min_rent_cost = 100; + +/* + * Should the game automatically save people? (i.e., save player data + * every 4 kills (on average), and Crash-save as defined below. This + * option has an added meaning past bpl13. If auto_save is YES, then + * the 'save' command will be disabled to prevent item duplication via + * game crashes. + */ +int auto_save = YES; + +/* + * if auto_save (above) is yes, how often (in minutes) should the MUD + * Crash-save people's objects? Also, this number indicates how often + * the MUD will Crash-save players' houses. + */ +int autosave_time = 5; + +/* Lifetime of crashfiles and forced-rent (idlesave) files in days */ +int crash_file_timeout = 10; + +/* Lifetime of normal rent files in days */ +int rent_file_timeout = 30; + + +/****************************************************************************/ +/****************************************************************************/ + + +/* ROOM NUMBERS */ + +/* virtual number of room that mortals should enter at */ +room_vnum mortal_start_room = 3001; + +/* virtual number of room that immorts should enter at by default */ +room_vnum immort_start_room = 1204; + +/* virtual number of room that frozen players should enter at */ +room_vnum frozen_start_room = 1202; + +/* + * virtual numbers of donation rooms. note: you must change code in + * do_drop of act.item.c if you change the number of non-NOWHERE + * donation rooms. + */ +room_vnum donation_room_1 = 3063; +room_vnum donation_room_2 = NOWHERE; /* unused - room for expansion */ +room_vnum donation_room_3 = NOWHERE; /* unused - room for expansion */ + + +/****************************************************************************/ +/****************************************************************************/ + + +/* GAME OPERATION OPTIONS */ + +/* + * This is the default port on which the game should run if no port is + * given on the command-line. NOTE WELL: If you're using the + * 'autorun' script, the port number there will override this setting. + * Change the PORT= line in autorun instead of (or in addition to) + * changing this. + */ +ush_int DFLT_PORT = 4000; + +/* + * IP address to which the MUD should bind. This is only useful if + * you're running Circle on a host that host more than one IP interface, + * and you only want to bind to *one* of them instead of all of them. + * Setting this to NULL (the default) causes Circle to bind to all + * interfaces on the host. Otherwise, specify a numeric IP address in + * dotted quad format, and Circle will only bind to that IP address. (Of + * course, that IP address must be one of your host's interfaces, or it + * won't work.) + */ +const char *DFLT_IP = NULL; /* bind to all interfaces */ +/* const char *DFLT_IP = "192.168.1.1"; -- bind only to one interface */ + +/* default directory to use as data directory */ +const char *DFLT_DIR = "lib"; + +/* + * What file to log messages to (ex: "log/syslog"). Setting this to NULL + * means you want to log to stderr, which was the default in earlier + * versions of Circle. If you specify a file, you don't get messages to + * the screen. (Hint: Try 'tail -f' if you have a UNIX machine.) + */ +const char *LOGNAME = NULL; +/* const char *LOGNAME = "log/syslog"; -- useful for Windows users */ + +/* maximum number of players allowed before game starts to turn people away */ +int max_playing = 300; + +/* maximum size of bug, typo and idea files in bytes (to prevent bombing) */ +int max_filesize = 50000; + +/* maximum number of password attempts before disconnection */ +int max_bad_pws = 3; + +/* + * Rationale for enabling this, as explained by naved@bird.taponline.com. + * + * Usually, when you select ban a site, it is because one or two people are + * causing troubles while there are still many people from that site who you + * want to still log on. Right now if I want to add a new select ban, I need + * to first add the ban, then SITEOK all the players from that site except for + * the one or two who I don't want logging on. Wouldn't it be more convenient + * to just have to remove the SITEOK flags from those people I want to ban + * rather than what is currently done? + */ +int siteok_everyone = TRUE; + +/* + * Some nameservers are very slow and cause the game to lag terribly every + * time someone logs in. The lag is caused by the gethostbyaddr() function + * which is responsible for resolving numeric IP addresses to alphabetic names. + * Sometimes, nameservers can be so slow that the incredible lag caused by + * gethostbyaddr() isn't worth the luxury of having names instead of numbers + * for players' sitenames. + * + * If your nameserver is fast, set the variable below to NO. If your + * nameserver is slow, of it you would simply prefer to have numbers + * instead of names for some other reason, set the variable to YES. + * + * You can experiment with the setting of nameserver_is_slow on-line using + * the SLOWNS command from within the MUD. + */ + +int nameserver_is_slow = NO; + + +const char *MENU = +"\r\n" +"Welcome to CircleMUD!\r\n" +"0) Exit from CircleMUD.\r\n" +"1) Enter the game.\r\n" +"2) Enter description.\r\n" +"3) Read the background story.\r\n" +"4) Change password.\r\n" +"5) Delete this character.\r\n" +"\r\n" +" Make your choice: "; + + + +const char *WELC_MESSG = +"\r\n" +"Welcome to the land of CircleMUD! May your visit here be... Interesting." +"\r\n\r\n"; + +const char *START_MESSG = +"Welcome. This is your new CircleMUD character! You can now earn gold,\r\n" +"gain experience, find weapons and equipment, and much more -- while\r\n" +"meeting people from around the world!\r\n"; + +/****************************************************************************/ +/****************************************************************************/ + + +/* AUTOWIZ OPTIONS */ + +/* + * Should the game automatically create a new wizlist/immlist every time + * someone immorts, or is promoted to a higher (or lower) god level? + * NOTE: this only works under UNIX systems. + */ +int use_autowiz = YES; + +/* If yes, what is the lowest level which should be on the wizlist? (All + immort levels below the level you specify will go on the immlist instead.) */ +int min_wizlist_lev = LVL_GOD; diff --git a/src/constants.c b/src/constants.c new file mode 100644 index 0000000..4bf4571 --- /dev/null +++ b/src/constants.c @@ -0,0 +1,790 @@ +/* ************************************************************************ +* File: constants.c Part of CircleMUD * +* Usage: Numeric and string contants used by the MUD * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "interpreter.h" /* alias_data */ + +cpp_extern const char *circlemud_version = + "CircleMUD, version 3.1"; + +/* strings corresponding to ordinals/bitvectors in structs.h ***********/ + + +/* (Note: strings for class definitions in class.c instead of here) */ + + +/* cardinal directions */ +const char *dirs[] = +{ + "north", + "east", + "south", + "west", + "up", + "down", + "\n" +}; + + +/* ROOM_x */ +const char *room_bits[] = { + "DARK", + "DEATH", + "NO_MOB", + "INDOORS", + "PEACEFUL", + "SOUNDPROOF", + "NO_TRACK", + "NO_MAGIC", + "TUNNEL", + "PRIVATE", + "GODROOM", + "HOUSE", + "HCRSH", + "ATRIUM", + "OLC", + "*", /* BFS MARK */ + "\n" +}; + + +/* EX_x */ +const char *exit_bits[] = { + "DOOR", + "CLOSED", + "LOCKED", + "PICKPROOF", + "\n" +}; + + +/* SECT_ */ +const char *sector_types[] = { + "Inside", + "City", + "Field", + "Forest", + "Hills", + "Mountains", + "Water (Swim)", + "Water (No Swim)", + "In Flight", + "Underwater", + "\n" +}; + + +/* + * SEX_x + * Not used in sprinttype() so no \n. + */ +const char *genders[] = +{ + "neutral", + "male", + "female", + "\n" +}; + + +/* POS_x */ +const char *position_types[] = { + "Dead", + "Mortally wounded", + "Incapacitated", + "Stunned", + "Sleeping", + "Resting", + "Sitting", + "Fighting", + "Standing", + "\n" +}; + + +/* PLR_x */ +const char *player_bits[] = { + "KILLER", + "THIEF", + "FROZEN", + "DONTSET", + "WRITING", + "MAILING", + "CSH", + "SITEOK", + "NOSHOUT", + "NOTITLE", + "DELETED", + "LOADRM", + "NO_WIZL", + "NO_DEL", + "INVST", + "CRYO", + "DEAD", /* You should never see this. */ + "\n" +}; + + +/* MOB_x */ +const char *action_bits[] = { + "SPEC", + "SENTINEL", + "SCAVENGER", + "ISNPC", + "AWARE", + "AGGR", + "STAY-ZONE", + "WIMPY", + "AGGR_EVIL", + "AGGR_GOOD", + "AGGR_NEUTRAL", + "MEMORY", + "HELPER", + "NO_CHARM", + "NO_SUMMN", + "NO_SLEEP", + "NO_BASH", + "NO_BLIND", + "DEAD", /* You should never see this. */ + "\n" +}; + + +/* PRF_x */ +const char *preference_bits[] = { + "BRIEF", + "COMPACT", + "DEAF", + "NO_TELL", + "D_HP", + "D_MANA", + "D_MOVE", + "AUTOEX", + "NO_HASS", + "QUEST", + "SUMN", + "NO_REP", + "LIGHT", + "C1", + "C2", + "NO_WIZ", + "L1", + "L2", + "NO_AUC", + "NO_GOS", + "NO_GTZ", + "RMFLG", + "\n" +}; + + +/* AFF_x */ +const char *affected_bits[] = +{ + "BLIND", + "INVIS", + "DET-ALIGN", + "DET-INVIS", + "DET-MAGIC", + "SENSE-LIFE", + "WATWALK", + "SANCT", + "GROUP", + "CURSE", + "INFRA", + "POISON", + "PROT-EVIL", + "PROT-GOOD", + "SLEEP", + "NO_TRACK", + "UNUSED", + "UNUSED", + "SNEAK", + "HIDE", + "UNUSED", + "CHARM", + "\n" +}; + + +/* CON_x */ +const char *connected_types[] = { + "Playing", + "Disconnecting", + "Get name", + "Confirm name", + "Get password", + "Get new PW", + "Confirm new PW", + "Select sex", + "Select class", + "Reading MOTD", + "Main Menu", + "Get descript.", + "Changing PW 1", + "Changing PW 2", + "Changing PW 3", + "Self-Delete 1", + "Self-Delete 2", + "Disconnecting", + "\n" +}; + + +/* + * WEAR_x - for eq list + * Not use in sprinttype() so no \n. + */ +const char *wear_where[] = { + "<used as light> ", + "<worn on finger> ", + "<worn on finger> ", + "<worn around neck> ", + "<worn around neck> ", + "<worn on body> ", + "<worn on head> ", + "<worn on legs> ", + "<worn on feet> ", + "<worn on hands> ", + "<worn on arms> ", + "<worn as shield> ", + "<worn about body> ", + "<worn about waist> ", + "<worn around wrist> ", + "<worn around wrist> ", + "<wielded> ", + "<held> " +}; + + +/* WEAR_x - for stat */ +const char *equipment_types[] = { + "Used as light", + "Worn on right finger", + "Worn on left finger", + "First worn around Neck", + "Second worn around Neck", + "Worn on body", + "Worn on head", + "Worn on legs", + "Worn on feet", + "Worn on hands", + "Worn on arms", + "Worn as shield", + "Worn about body", + "Worn around waist", + "Worn around right wrist", + "Worn around left wrist", + "Wielded", + "Held", + "\n" +}; + + +/* ITEM_x (ordinal object types) */ +const char *item_types[] = { + "UNDEFINED", + "LIGHT", + "SCROLL", + "WAND", + "STAFF", + "WEAPON", + "FIRE WEAPON", + "MISSILE", + "TREASURE", + "ARMOR", + "POTION", + "WORN", + "OTHER", + "TRASH", + "TRAP", + "CONTAINER", + "NOTE", + "LIQ CONTAINER", + "KEY", + "FOOD", + "MONEY", + "PEN", + "BOAT", + "FOUNTAIN", + "\n" +}; + + +/* ITEM_WEAR_ (wear bitvector) */ +const char *wear_bits[] = { + "TAKE", + "FINGER", + "NECK", + "BODY", + "HEAD", + "LEGS", + "FEET", + "HANDS", + "ARMS", + "SHIELD", + "ABOUT", + "WAIST", + "WRIST", + "WIELD", + "HOLD", + "\n" +}; + + +/* ITEM_x (extra bits) */ +const char *extra_bits[] = { + "GLOW", + "HUM", + "NO_RENT", + "NO_DONATE", + "NO_INVIS", + "INVISIBLE", + "MAGIC", + "NO_DROP", + "BLESS", + "ANTI_GOOD", + "ANTI_EVIL", + "ANTI_NEUTRAL", + "ANTI_MAGE", + "ANTI_CLERIC", + "ANTI_THIEF", + "ANTI_WARRIOR", + "NO_SELL", + "\n" +}; + + +/* APPLY_x */ +const char *apply_types[] = { + "NONE", + "STR", + "DEX", + "INT", + "WIS", + "CON", + "CHA", + "CLASS", + "LEVEL", + "AGE", + "CHAR_WEIGHT", + "CHAR_HEIGHT", + "MAXMANA", + "MAXHIT", + "MAXMOVE", + "GOLD", + "EXP", + "ARMOR", + "HITROLL", + "DAMROLL", + "SAVING_PARA", + "SAVING_ROD", + "SAVING_PETRI", + "SAVING_BREATH", + "SAVING_SPELL", + "\n" +}; + + +/* CONT_x */ +const char *container_bits[] = { + "CLOSEABLE", + "PICKPROOF", + "CLOSED", + "LOCKED", + "\n", +}; + + +/* LIQ_x */ +const char *drinks[] = +{ + "water", + "beer", + "wine", + "ale", + "dark ale", + "whisky", + "lemonade", + "firebreather", + "local speciality", + "slime mold juice", + "milk", + "tea", + "coffee", + "blood", + "salt water", + "clear water", + "\n" +}; + + +/* other constants for liquids ******************************************/ + + +/* one-word alias for each drink */ +const char *drinknames[] = +{ + "water", + "beer", + "wine", + "ale", + "ale", + "whisky", + "lemonade", + "firebreather", + "local", + "juice", + "milk", + "tea", + "coffee", + "blood", + "salt", + "water", + "\n" +}; + + +/* effect of drinks on hunger, thirst, and drunkenness -- see values.doc */ +int drink_aff[][3] = { + {0, 1, 10}, + {3, 2, 5}, + {5, 2, 5}, + {2, 2, 5}, + {1, 2, 5}, + {6, 1, 4}, + {0, 1, 8}, + {10, 0, 0}, + {3, 3, 3}, + {0, 4, -8}, + {0, 3, 6}, + {0, 1, 6}, + {0, 1, 6}, + {0, 2, -1}, + {0, 1, -2}, + {0, 0, 13} +}; + + +/* color of the various drinks */ +const char *color_liquid[] = +{ + "clear", + "brown", + "clear", + "brown", + "dark", + "golden", + "red", + "green", + "clear", + "light green", + "white", + "brown", + "black", + "red", + "clear", + "crystal clear", + "\n" +}; + + +/* + * level of fullness for drink containers + * Not used in sprinttype() so no \n. + */ +const char *fullness[] = +{ + "less than half ", + "about half ", + "more than half ", + "" +}; + + +/* str, int, wis, dex, con applies **************************************/ + + +/* [ch] strength apply (all) */ +cpp_extern const struct str_app_type str_app[] = { + {-5, -4, 0, 0}, /* str = 0 */ + {-5, -4, 3, 1}, /* str = 1 */ + {-3, -2, 3, 2}, + {-3, -1, 10, 3}, + {-2, -1, 25, 4}, + {-2, -1, 55, 5}, /* str = 5 */ + {-1, 0, 80, 6}, + {-1, 0, 90, 7}, + {0, 0, 100, 8}, + {0, 0, 100, 9}, + {0, 0, 115, 10}, /* str = 10 */ + {0, 0, 115, 11}, + {0, 0, 140, 12}, + {0, 0, 140, 13}, + {0, 0, 170, 14}, + {0, 0, 170, 15}, /* str = 15 */ + {0, 1, 195, 16}, + {1, 1, 220, 18}, + {1, 2, 255, 20}, /* str = 18 */ + {3, 7, 640, 40}, + {3, 8, 700, 40}, /* str = 20 */ + {4, 9, 810, 40}, + {4, 10, 970, 40}, + {5, 11, 1130, 40}, + {6, 12, 1440, 40}, + {7, 14, 1750, 40}, /* str = 25 */ + {1, 3, 280, 22}, /* str = 18/0 - 18-50 */ + {2, 3, 305, 24}, /* str = 18/51 - 18-75 */ + {2, 4, 330, 26}, /* str = 18/76 - 18-90 */ + {2, 5, 380, 28}, /* str = 18/91 - 18-99 */ + {3, 6, 480, 30} /* str = 18/100 */ +}; + + + +/* [dex] skill apply (thieves only) */ +cpp_extern const struct dex_skill_type dex_app_skill[] = { + {-99, -99, -90, -99, -60}, /* dex = 0 */ + {-90, -90, -60, -90, -50}, /* dex = 1 */ + {-80, -80, -40, -80, -45}, + {-70, -70, -30, -70, -40}, + {-60, -60, -30, -60, -35}, + {-50, -50, -20, -50, -30}, /* dex = 5 */ + {-40, -40, -20, -40, -25}, + {-30, -30, -15, -30, -20}, + {-20, -20, -15, -20, -15}, + {-15, -10, -10, -20, -10}, + {-10, -5, -10, -15, -5}, /* dex = 10 */ + {-5, 0, -5, -10, 0}, + {0, 0, 0, -5, 0}, + {0, 0, 0, 0, 0}, + {0, 0, 0, 0, 0}, + {0, 0, 0, 0, 0}, /* dex = 15 */ + {0, 5, 0, 0, 0}, + {5, 10, 0, 5, 5}, + {10, 15, 5, 10, 10}, /* dex = 18 */ + {15, 20, 10, 15, 15}, + {15, 20, 10, 15, 15}, /* dex = 20 */ + {20, 25, 10, 15, 20}, + {20, 25, 15, 20, 20}, + {25, 25, 15, 20, 20}, + {25, 30, 15, 25, 25}, + {25, 30, 15, 25, 25} /* dex = 25 */ +}; + + + +/* [dex] apply (all) */ +cpp_extern const struct dex_app_type dex_app[] = { + {-7, -7, 6}, /* dex = 0 */ + {-6, -6, 5}, /* dex = 1 */ + {-4, -4, 5}, + {-3, -3, 4}, + {-2, -2, 3}, + {-1, -1, 2}, /* dex = 5 */ + {0, 0, 1}, + {0, 0, 0}, + {0, 0, 0}, + {0, 0, 0}, + {0, 0, 0}, /* dex = 10 */ + {0, 0, 0}, + {0, 0, 0}, + {0, 0, 0}, + {0, 0, 0}, + {0, 0, -1}, /* dex = 15 */ + {1, 1, -2}, + {2, 2, -3}, + {2, 2, -4}, /* dex = 18 */ + {3, 3, -4}, + {3, 3, -4}, /* dex = 20 */ + {4, 4, -5}, + {4, 4, -5}, + {4, 4, -5}, + {5, 5, -6}, + {5, 5, -6} /* dex = 25 */ +}; + + + +/* [con] apply (all) */ +cpp_extern const struct con_app_type con_app[] = { + {-4, 20}, /* con = 0 */ + {-3, 25}, /* con = 1 */ + {-2, 30}, + {-2, 35}, + {-1, 40}, + {-1, 45}, /* con = 5 */ + {-1, 50}, + {0, 55}, + {0, 60}, + {0, 65}, + {0, 70}, /* con = 10 */ + {0, 75}, + {0, 80}, + {0, 85}, + {0, 88}, + {1, 90}, /* con = 15 */ + {2, 95}, + {2, 97}, + {3, 99}, /* con = 18 */ + {3, 99}, + {4, 99}, /* con = 20 */ + {5, 99}, + {5, 99}, + {5, 99}, + {6, 99}, + {6, 99} /* con = 25 */ +}; + + + +/* [int] apply (all) */ +cpp_extern const struct int_app_type int_app[] = { + {3}, /* int = 0 */ + {5}, /* int = 1 */ + {7}, + {8}, + {9}, + {10}, /* int = 5 */ + {11}, + {12}, + {13}, + {15}, + {17}, /* int = 10 */ + {19}, + {22}, + {25}, + {30}, + {35}, /* int = 15 */ + {40}, + {45}, + {50}, /* int = 18 */ + {53}, + {55}, /* int = 20 */ + {56}, + {57}, + {58}, + {59}, + {60} /* int = 25 */ +}; + + +/* [wis] apply (all) */ +cpp_extern const struct wis_app_type wis_app[] = { + {0}, /* wis = 0 */ + {0}, /* wis = 1 */ + {0}, + {0}, + {0}, + {0}, /* wis = 5 */ + {0}, + {0}, + {0}, + {0}, + {0}, /* wis = 10 */ + {0}, + {2}, + {2}, + {3}, + {3}, /* wis = 15 */ + {3}, + {4}, + {5}, /* wis = 18 */ + {6}, + {6}, /* wis = 20 */ + {6}, + {6}, + {7}, + {7}, + {7} /* wis = 25 */ +}; + + +const char *npc_class_types[] = { + "Normal", + "Undead", + "\n" +}; + + +int rev_dir[] = +{ + 2, + 3, + 0, + 1, + 5, + 4 +}; + + +int movement_loss[] = +{ + 1, /* Inside */ + 1, /* City */ + 2, /* Field */ + 3, /* Forest */ + 4, /* Hills */ + 6, /* Mountains */ + 4, /* Swimming */ + 1, /* Unswimable */ + 1, /* Flying */ + 5 /* Underwater */ +}; + +/* Not used in sprinttype(). */ +const char *weekdays[] = { + "the Day of the Moon", + "the Day of the Bull", + "the Day of the Deception", + "the Day of Thunder", + "the Day of Freedom", + "the Day of the Great Gods", + "the Day of the Sun" +}; + + +/* Not used in sprinttype(). */ +const char *month_name[] = { + "Month of Winter", /* 0 */ + "Month of the Winter Wolf", + "Month of the Frost Giant", + "Month of the Old Forces", + "Month of the Grand Struggle", + "Month of the Spring", + "Month of Nature", + "Month of Futility", + "Month of the Dragon", + "Month of the Sun", + "Month of the Heat", + "Month of the Battle", + "Month of the Dark Shades", + "Month of the Shadows", + "Month of the Long Shadows", + "Month of the Ancient Darkness", + "Month of the Great Evil" +}; + + +/* --- End of constants arrays. --- */ + +/* + * Various arrays we count so we can check the world files. These + * must be at the bottom of the file so they're pre-declared. + */ +size_t room_bits_count = sizeof(room_bits) / sizeof(room_bits[0]) - 1, + action_bits_count = sizeof(action_bits) / sizeof(action_bits[0]) - 1, + affected_bits_count = sizeof(affected_bits) / sizeof(affected_bits[0]) - 1, + extra_bits_count = sizeof(extra_bits) / sizeof(extra_bits[0]) - 1, + wear_bits_count = sizeof(wear_bits) / sizeof(wear_bits[0]) - 1; + diff --git a/src/constants.h b/src/constants.h new file mode 100644 index 0000000..5ada5b7 --- /dev/null +++ b/src/constants.h @@ -0,0 +1,40 @@ +extern const char *circlemud_version; +extern const char *dirs[]; +extern const char *room_bits[]; +extern const char *exit_bits[]; +extern const char *sector_types[]; +extern const char *genders[]; +extern const char *position_types[]; +extern const char *player_bits[]; +extern const char *action_bits[]; +extern const char *preference_bits[]; +extern const char *affected_bits[]; +extern const char *connected_types[]; +extern const char *wear_where[]; +extern const char *equipment_types[]; +extern const char *item_types[]; +extern const char *wear_bits[]; +extern const char *extra_bits[]; +extern const char *apply_types[]; +extern const char *container_bits[]; +extern const char *drinks[]; +extern const char *drinknames[]; +extern const char *color_liquid[]; +extern const char *fullness[]; +extern const char *npc_class_types[]; +extern const char *weekdays[]; +extern const char *month_name[]; +extern const struct str_app_type str_app[]; +extern const struct dex_skill_type dex_app_skill[]; +extern const struct dex_app_type dex_app[]; +extern const struct con_app_type con_app[]; +extern const struct int_app_type int_app[]; +extern const struct wis_app_type wis_app[]; +extern int rev_dir[]; +extern int movement_loss[]; +extern int drink_aff[][3]; +extern size_t room_bits_count; +extern size_t action_bits_count; +extern size_t affected_bits_count; +extern size_t extra_bits_count; +extern size_t wear_bits_count; diff --git a/src/db.c b/src/db.c new file mode 100644 index 0000000..d434064 --- /dev/null +++ b/src/db.c @@ -0,0 +1,3027 @@ +/* ************************************************************************ +* File: db.c Part of CircleMUD * +* Usage: Loading/saving chars, booting/resetting world, internal funcs * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define __DB_C__ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "db.h" +#include "comm.h" +#include "handler.h" +#include "spells.h" +#include "mail.h" +#include "interpreter.h" +#include "house.h" +#include "constants.h" + +/************************************************************************** +* declarations of most of the 'global' variables * +**************************************************************************/ + +struct room_data *world = NULL; /* array of rooms */ +room_rnum top_of_world = 0; /* ref to top element of world */ + +struct char_data *character_list = NULL; /* global linked list of + * chars */ +struct index_data *mob_index; /* index table for mobile file */ +struct char_data *mob_proto; /* prototypes for mobs */ +mob_rnum top_of_mobt = 0; /* top of mobile index table */ + +struct obj_data *object_list = NULL; /* global linked list of objs */ +struct index_data *obj_index; /* index table for object file */ +struct obj_data *obj_proto; /* prototypes for objs */ +obj_rnum top_of_objt = 0; /* top of object index table */ + +struct zone_data *zone_table; /* zone table */ +zone_rnum top_of_zone_table = 0;/* top element of zone tab */ +struct message_list fight_messages[MAX_MESSAGES]; /* fighting messages */ + +struct player_index_element *player_table = NULL; /* index to plr file */ +FILE *player_fl = NULL; /* file desc of player file */ +int top_of_p_table = 0; /* ref to top of table */ +long top_idnum = 0; /* highest idnum in use */ + +int no_mail = 0; /* mail disabled? */ +int mini_mud = 0; /* mini-mud mode? */ +int no_rent_check = 0; /* skip rent check on boot? */ +time_t boot_time = 0; /* time of mud boot */ +int circle_restrict = 0; /* level of game restriction */ +room_rnum r_mortal_start_room; /* rnum of mortal start room */ +room_rnum r_immort_start_room; /* rnum of immort start room */ +room_rnum r_frozen_start_room; /* rnum of frozen start room */ + +char *credits = NULL; /* game credits */ +char *news = NULL; /* mud news */ +char *motd = NULL; /* message of the day - mortals */ +char *imotd = NULL; /* message of the day - immorts */ +char *GREETINGS = NULL; /* opening credits screen */ +char *help = NULL; /* help screen */ +char *info = NULL; /* info page */ +char *wizlist = NULL; /* list of higher gods */ +char *immlist = NULL; /* list of peon gods */ +char *background = NULL; /* background story */ +char *handbook = NULL; /* handbook for new immortals */ +char *policies = NULL; /* policies page */ + +struct help_index_element *help_table = 0; /* the help table */ +int top_of_helpt = 0; /* top of help index table */ + +struct time_info_data time_info;/* the infomation about the time */ +struct weather_data weather_info; /* the infomation about the weather */ +struct player_special_data dummy_mob; /* dummy spec area for mobs */ +struct reset_q_type reset_q; /* queue of zones to be reset */ + +/* local functions */ +int check_bitvector_names(bitvector_t bits, size_t namecount, const char *whatami, const char *whatbits); +int check_object_spell_number(struct obj_data *obj, int val); +int check_object_level(struct obj_data *obj, int val); +void setup_dir(FILE *fl, int room, int dir); +void index_boot(int mode); +void discrete_load(FILE *fl, int mode, char *filename); +int check_object(struct obj_data *); +void parse_room(FILE *fl, int virtual_nr); +void parse_mobile(FILE *mob_f, int nr); +char *parse_object(FILE *obj_f, int nr); +void load_zones(FILE *fl, char *zonename); +void load_help(FILE *fl); +void assign_mobiles(void); +void assign_objects(void); +void assign_rooms(void); +void assign_the_shopkeepers(void); +void build_player_index(void); +int is_empty(zone_rnum zone_nr); +void reset_zone(zone_rnum zone); +int file_to_string(const char *name, char *buf); +int file_to_string_alloc(const char *name, char **buf); +void reboot_wizlists(void); +ACMD(do_reboot); +void boot_world(void); +int count_alias_records(FILE *fl); +int count_hash_records(FILE *fl); +bitvector_t asciiflag_conv(char *flag); +void parse_simple_mob(FILE *mob_f, int i, int nr); +void interpret_espec(const char *keyword, const char *value, int i, int nr); +void parse_espec(char *buf, int i, int nr); +void parse_enhanced_mob(FILE *mob_f, int i, int nr); +void get_one_line(FILE *fl, char *buf); +void save_etext(struct char_data *ch); +void check_start_rooms(void); +void renum_world(void); +void renum_zone_table(void); +void log_zone_error(zone_rnum zone, int cmd_no, const char *message); +void reset_time(void); +long get_ptable_by_name(const char *name); + +/* external functions */ +void paginate_string(char *str, struct descriptor_data *d); +struct time_info_data *mud_time_passed(time_t t2, time_t t1); +void free_alias(struct alias_data *a); +void load_messages(void); +void weather_and_time(int mode); +void mag_assign_spells(void); +void boot_social_messages(void); +void update_obj_file(void); /* In objsave.c */ +void sort_commands(void); +void sort_spells(void); +void load_banned(void); +void Read_Invalid_List(void); +void boot_the_shops(FILE *shop_f, char *filename, int rec_count); +int hsort(const void *a, const void *b); +void prune_crlf(char *txt); +void destroy_shops(void); + +/* external vars */ +extern int no_specials; +extern int scheck; +extern room_vnum mortal_start_room; +extern room_vnum immort_start_room; +extern room_vnum frozen_start_room; +extern struct descriptor_data *descriptor_list; +extern const char *unused_spellname; /* spell_parser.c */ + +/************************************************************************* +* routines for booting the system * +*************************************************************************/ + +/* this is necessary for the autowiz system */ +void reboot_wizlists(void) +{ + file_to_string_alloc(WIZLIST_FILE, &wizlist); + file_to_string_alloc(IMMLIST_FILE, &immlist); +} + + +/* Wipe out all the loaded text files, for shutting down. */ +void free_text_files(void) +{ + char **textfiles[] = { + &wizlist, &immlist, &news, &credits, &motd, &imotd, &help, &info, + &policies, &handbook, &background, &GREETINGS, NULL + }; + int rf; + + for (rf = 0; textfiles[rf]; rf++) + if (*textfiles[rf]) { + free(*textfiles[rf]); + *textfiles[rf] = NULL; + } +} + + +/* + * Too bad it doesn't check the return values to let the user + * know about -1 values. This will result in an 'Okay.' to a + * 'reload' command even when the string was not replaced. + * To fix later, if desired. -gg 6/24/99 + */ +ACMD(do_reboot) +{ + char arg[MAX_INPUT_LENGTH]; + + one_argument(argument, arg); + + if (!str_cmp(arg, "all") || *arg == '*') { + if (file_to_string_alloc(GREETINGS_FILE, &GREETINGS) == 0) + prune_crlf(GREETINGS); + file_to_string_alloc(WIZLIST_FILE, &wizlist); + file_to_string_alloc(IMMLIST_FILE, &immlist); + file_to_string_alloc(NEWS_FILE, &news); + file_to_string_alloc(CREDITS_FILE, &credits); + file_to_string_alloc(MOTD_FILE, &motd); + file_to_string_alloc(IMOTD_FILE, &imotd); + file_to_string_alloc(HELP_PAGE_FILE, &help); + file_to_string_alloc(INFO_FILE, &info); + file_to_string_alloc(POLICIES_FILE, &policies); + file_to_string_alloc(HANDBOOK_FILE, &handbook); + file_to_string_alloc(BACKGROUND_FILE, &background); + } else if (!str_cmp(arg, "wizlist")) + file_to_string_alloc(WIZLIST_FILE, &wizlist); + else if (!str_cmp(arg, "immlist")) + file_to_string_alloc(IMMLIST_FILE, &immlist); + else if (!str_cmp(arg, "news")) + file_to_string_alloc(NEWS_FILE, &news); + else if (!str_cmp(arg, "credits")) + file_to_string_alloc(CREDITS_FILE, &credits); + else if (!str_cmp(arg, "motd")) + file_to_string_alloc(MOTD_FILE, &motd); + else if (!str_cmp(arg, "imotd")) + file_to_string_alloc(IMOTD_FILE, &imotd); + else if (!str_cmp(arg, "help")) + file_to_string_alloc(HELP_PAGE_FILE, &help); + else if (!str_cmp(arg, "info")) + file_to_string_alloc(INFO_FILE, &info); + else if (!str_cmp(arg, "policy")) + file_to_string_alloc(POLICIES_FILE, &policies); + else if (!str_cmp(arg, "handbook")) + file_to_string_alloc(HANDBOOK_FILE, &handbook); + else if (!str_cmp(arg, "background")) + file_to_string_alloc(BACKGROUND_FILE, &background); + else if (!str_cmp(arg, "greetings")) { + if (file_to_string_alloc(GREETINGS_FILE, &GREETINGS) == 0) + prune_crlf(GREETINGS); + } else if (!str_cmp(arg, "xhelp")) { + if (help_table) + free_help(); + index_boot(DB_BOOT_HLP); + } else { + send_to_char(ch, "Unknown reload option.\r\n"); + return; + } + + send_to_char(ch, "%s", OK); +} + + +void boot_world(void) +{ + log("Loading zone table."); + index_boot(DB_BOOT_ZON); + + log("Loading rooms."); + index_boot(DB_BOOT_WLD); + + log("Renumbering rooms."); + renum_world(); + + log("Checking start rooms."); + check_start_rooms(); + + log("Loading mobs and generating index."); + index_boot(DB_BOOT_MOB); + + log("Loading objs and generating index."); + index_boot(DB_BOOT_OBJ); + + log("Renumbering zone table."); + renum_zone_table(); + + if (!no_specials) { + log("Loading shops."); + index_boot(DB_BOOT_SHP); + } +} + + +void free_extra_descriptions(struct extra_descr_data *edesc) +{ + struct extra_descr_data *enext; + + for (; edesc; edesc = enext) { + enext = edesc->next; + + free(edesc->keyword); + free(edesc->description); + free(edesc); + } +} + + +/* Free the world, in a memory allocation sense. */ +void destroy_db(void) +{ + ssize_t cnt, itr; + struct char_data *chtmp; + struct obj_data *objtmp; + + /* Active Mobiles & Players */ + while (character_list) { + chtmp = character_list; + character_list = character_list->next; + free_char(chtmp); + } + + /* Active Objects */ + while (object_list) { + objtmp = object_list; + object_list = object_list->next; + free_obj(objtmp); + } + + /* Rooms */ + for (cnt = 0; cnt <= top_of_world; cnt++) { + if (world[cnt].name) + free(world[cnt].name); + if (world[cnt].description) + free(world[cnt].description); + free_extra_descriptions(world[cnt].ex_description); + + for (itr = 0; itr < NUM_OF_DIRS; itr++) { + if (!world[cnt].dir_option[itr]) + continue; + + if (world[cnt].dir_option[itr]->general_description) + free(world[cnt].dir_option[itr]->general_description); + if (world[cnt].dir_option[itr]->keyword) + free(world[cnt].dir_option[itr]->keyword); + free(world[cnt].dir_option[itr]); + } + } + free(world); + + /* Objects */ + for (cnt = 0; cnt <= top_of_objt; cnt++) { + if (obj_proto[cnt].name) + free(obj_proto[cnt].name); + if (obj_proto[cnt].description) + free(obj_proto[cnt].description); + if (obj_proto[cnt].short_description) + free(obj_proto[cnt].short_description); + if (obj_proto[cnt].action_description) + free(obj_proto[cnt].action_description); + free_extra_descriptions(obj_proto[cnt].ex_description); + } + free(obj_proto); + free(obj_index); + + /* Mobiles */ + for (cnt = 0; cnt <= top_of_mobt; cnt++) { + if (mob_proto[cnt].player.name) + free(mob_proto[cnt].player.name); + if (mob_proto[cnt].player.title) + free(mob_proto[cnt].player.title); + if (mob_proto[cnt].player.short_descr) + free(mob_proto[cnt].player.short_descr); + if (mob_proto[cnt].player.long_descr) + free(mob_proto[cnt].player.long_descr); + if (mob_proto[cnt].player.description) + free(mob_proto[cnt].player.description); + + while (mob_proto[cnt].affected) + affect_remove(&mob_proto[cnt], mob_proto[cnt].affected); + } + free(mob_proto); + free(mob_index); + + /* Shops */ + destroy_shops(); + + /* Zones */ + for (cnt = 0; cnt <= top_of_zone_table; cnt++) { + if (zone_table[cnt].name) + free(zone_table[cnt].name); + if (zone_table[cnt].cmd) + free(zone_table[cnt].cmd); + } + free(zone_table); +} + + +/* body of the booting system */ +void boot_db(void) +{ + zone_rnum i; + + log("Boot db -- BEGIN."); + + log("Resetting the game time:"); + reset_time(); + + log("Reading news, credits, help, bground, info & motds."); + file_to_string_alloc(NEWS_FILE, &news); + file_to_string_alloc(CREDITS_FILE, &credits); + file_to_string_alloc(MOTD_FILE, &motd); + file_to_string_alloc(IMOTD_FILE, &imotd); + file_to_string_alloc(HELP_PAGE_FILE, &help); + file_to_string_alloc(INFO_FILE, &info); + file_to_string_alloc(WIZLIST_FILE, &wizlist); + file_to_string_alloc(IMMLIST_FILE, &immlist); + file_to_string_alloc(POLICIES_FILE, &policies); + file_to_string_alloc(HANDBOOK_FILE, &handbook); + file_to_string_alloc(BACKGROUND_FILE, &background); + if (file_to_string_alloc(GREETINGS_FILE, &GREETINGS) == 0) + prune_crlf(GREETINGS); + + log("Loading spell definitions."); + mag_assign_spells(); + + boot_world(); + + log("Loading help entries."); + index_boot(DB_BOOT_HLP); + + log("Generating player index."); + build_player_index(); + + log("Loading fight messages."); + load_messages(); + + log("Loading social messages."); + boot_social_messages(); + + log("Assigning function pointers:"); + + if (!no_specials) { + log(" Mobiles."); + assign_mobiles(); + log(" Shopkeepers."); + assign_the_shopkeepers(); + log(" Objects."); + assign_objects(); + log(" Rooms."); + assign_rooms(); + } + + log("Assigning spell and skill levels."); + init_spell_levels(); + + log("Sorting command list and spells."); + sort_commands(); + sort_spells(); + + log("Booting mail system."); + if (!scan_file()) { + log(" Mail boot failed -- Mail system disabled"); + no_mail = 1; + } + log("Reading banned site and invalid-name list."); + load_banned(); + Read_Invalid_List(); + + if (!no_rent_check) { + log("Deleting timed-out crash and rent files:"); + update_obj_file(); + log(" Done."); + } + + /* Moved here so the object limit code works. -gg 6/24/98 */ + if (!mini_mud) { + log("Booting houses."); + House_boot(); + } + + for (i = 0; i <= top_of_zone_table; i++) { + log("Resetting #%d: %s (rooms %d-%d).", zone_table[i].number, + zone_table[i].name, zone_table[i].bot, zone_table[i].top); + reset_zone(i); + } + + reset_q.head = reset_q.tail = NULL; + + boot_time = time(0); + + log("Boot db -- DONE."); +} + + +/* reset the time in the game from file */ +void reset_time(void) +{ + time_t beginning_of_time = 0; + FILE *bgtime; + + if ((bgtime = fopen(TIME_FILE, "r")) == NULL) + log("SYSERR: Can't read from '%s' time file.", TIME_FILE); + else { + fscanf(bgtime, "%ld\n", &beginning_of_time); + fclose(bgtime); + } + if (beginning_of_time == 0) + beginning_of_time = 650336715; + + time_info = *mud_time_passed(time(0), beginning_of_time); + + if (time_info.hours <= 4) + weather_info.sunlight = SUN_DARK; + else if (time_info.hours == 5) + weather_info.sunlight = SUN_RISE; + else if (time_info.hours <= 20) + weather_info.sunlight = SUN_LIGHT; + else if (time_info.hours == 21) + weather_info.sunlight = SUN_SET; + else + weather_info.sunlight = SUN_DARK; + + log(" Current Gametime: %dH %dD %dM %dY.", time_info.hours, + time_info.day, time_info.month, time_info.year); + + weather_info.pressure = 960; + if ((time_info.month >= 7) && (time_info.month <= 12)) + weather_info.pressure += dice(1, 50); + else + weather_info.pressure += dice(1, 80); + + weather_info.change = 0; + + if (weather_info.pressure <= 980) + weather_info.sky = SKY_LIGHTNING; + else if (weather_info.pressure <= 1000) + weather_info.sky = SKY_RAINING; + else if (weather_info.pressure <= 1020) + weather_info.sky = SKY_CLOUDY; + else + weather_info.sky = SKY_CLOUDLESS; +} + + +/* Write the time in 'when' to the MUD-time file. */ +void save_mud_time(struct time_info_data *when) +{ + FILE *bgtime; + + if ((bgtime = fopen(TIME_FILE, "w")) == NULL) + log("SYSERR: Can't write to '%s' time file.", TIME_FILE); + else { + fprintf(bgtime, "%ld\n", mud_time_to_secs(when)); + fclose(bgtime); + } +} + + +void free_player_index(void) +{ + int tp; + + if (!player_table) + return; + + for (tp = 0; tp <= top_of_p_table; tp++) + if (player_table[tp].name) + free(player_table[tp].name); + + free(player_table); + player_table = NULL; + top_of_p_table = 0; +} + + +/* generate index table for the player file */ +void build_player_index(void) +{ + int nr = -1, i; + long size, recs; + struct char_file_u dummy; + + if (!(player_fl = fopen(PLAYER_FILE, "r+b"))) { + if (errno != ENOENT) { + perror("SYSERR: fatal error opening playerfile"); + exit(1); + } else { + log("No playerfile. Creating a new one."); + touch(PLAYER_FILE); + if (!(player_fl = fopen(PLAYER_FILE, "r+b"))) { + perror("SYSERR: fatal error opening playerfile"); + exit(1); + } + } + } + + fseek(player_fl, 0L, SEEK_END); + size = ftell(player_fl); + rewind(player_fl); + if (size % sizeof(struct char_file_u)) + log("\aWARNING: PLAYERFILE IS PROBABLY CORRUPT!"); + recs = size / sizeof(struct char_file_u); + if (recs) { + log(" %ld players in database.", recs); + CREATE(player_table, struct player_index_element, recs); + } else { + player_table = NULL; + top_of_p_table = -1; + return; + } + + for (;;) { + fread(&dummy, sizeof(struct char_file_u), 1, player_fl); + if (feof(player_fl)) + break; + + /* new record */ + nr++; + CREATE(player_table[nr].name, char, strlen(dummy.name) + 1); + for (i = 0; (*(player_table[nr].name + i) = LOWER(*(dummy.name + i))); i++) + ; + player_table[nr].id = dummy.char_specials_saved.idnum; + top_idnum = MAX(top_idnum, dummy.char_specials_saved.idnum); + } + + top_of_p_table = nr; +} + +/* + * Thanks to Andrey (andrey@alex-ua.com) for this bit of code, although I + * did add the 'goto' and changed some "while()" into "do { } while()". + * -gg 6/24/98 (technically 6/25/98, but I care not.) + */ +int count_alias_records(FILE *fl) +{ + char key[READ_SIZE], next_key[READ_SIZE]; + char line[READ_SIZE], *scan; + int total_keywords = 0; + + /* get the first keyword line */ + get_one_line(fl, key); + + while (*key != '$') { + /* skip the text */ + do { + get_one_line(fl, line); + if (feof(fl)) + goto ackeof; + } while (*line != '#'); + + /* now count keywords */ + scan = key; + do { + scan = one_word(scan, next_key); + if (*next_key) + ++total_keywords; + } while (*next_key); + + /* get next keyword line (or $) */ + get_one_line(fl, key); + + if (feof(fl)) + goto ackeof; + } + + return (total_keywords); + + /* No, they are not evil. -gg 6/24/98 */ +ackeof: + log("SYSERR: Unexpected end of help file."); + exit(1); /* Some day we hope to handle these things better... */ +} + +/* function to count how many hash-mark delimited records exist in a file */ +int count_hash_records(FILE *fl) +{ + char buf[128]; + int count = 0; + + while (fgets(buf, 128, fl)) + if (*buf == '#') + count++; + + return (count); +} + + + +void index_boot(int mode) +{ + const char *index_filename, *prefix = NULL; /* NULL or egcs 1.1 complains */ + FILE *db_index, *db_file; + int rec_count = 0, size[2]; + char buf2[PATH_MAX], buf1[MAX_STRING_LENGTH]; + + switch (mode) { + case DB_BOOT_WLD: + prefix = WLD_PREFIX; + break; + case DB_BOOT_MOB: + prefix = MOB_PREFIX; + break; + case DB_BOOT_OBJ: + prefix = OBJ_PREFIX; + break; + case DB_BOOT_ZON: + prefix = ZON_PREFIX; + break; + case DB_BOOT_SHP: + prefix = SHP_PREFIX; + break; + case DB_BOOT_HLP: + prefix = HLP_PREFIX; + break; + default: + log("SYSERR: Unknown subcommand %d to index_boot!", mode); + exit(1); + } + + if (mini_mud) + index_filename = MINDEX_FILE; + else + index_filename = INDEX_FILE; + + snprintf(buf2, sizeof(buf2), "%s%s", prefix, index_filename); + if (!(db_index = fopen(buf2, "r"))) { + log("SYSERR: opening index file '%s': %s", buf2, strerror(errno)); + exit(1); + } + + /* first, count the number of records in the file so we can malloc */ + fscanf(db_index, "%s\n", buf1); + while (*buf1 != '$') { + snprintf(buf2, sizeof(buf2), "%s%s", prefix, buf1); + if (!(db_file = fopen(buf2, "r"))) { + log("SYSERR: File '%s' listed in '%s/%s': %s", buf2, prefix, + index_filename, strerror(errno)); + fscanf(db_index, "%s\n", buf1); + continue; + } else { + if (mode == DB_BOOT_ZON) + rec_count++; + else if (mode == DB_BOOT_HLP) + rec_count += count_alias_records(db_file); + else + rec_count += count_hash_records(db_file); + } + + fclose(db_file); + fscanf(db_index, "%s\n", buf1); + } + + /* Exit if 0 records, unless this is shops */ + if (!rec_count) { + if (mode == DB_BOOT_SHP) + return; + log("SYSERR: boot error - 0 records counted in %s/%s.", prefix, + index_filename); + exit(1); + } + + /* + * NOTE: "bytes" does _not_ include strings or other later malloc'd things. + */ + switch (mode) { + case DB_BOOT_WLD: + CREATE(world, struct room_data, rec_count); + size[0] = sizeof(struct room_data) * rec_count; + log(" %d rooms, %d bytes.", rec_count, size[0]); + break; + case DB_BOOT_MOB: + CREATE(mob_proto, struct char_data, rec_count); + CREATE(mob_index, struct index_data, rec_count); + size[0] = sizeof(struct index_data) * rec_count; + size[1] = sizeof(struct char_data) * rec_count; + log(" %d mobs, %d bytes in index, %d bytes in prototypes.", rec_count, size[0], size[1]); + break; + case DB_BOOT_OBJ: + CREATE(obj_proto, struct obj_data, rec_count); + CREATE(obj_index, struct index_data, rec_count); + size[0] = sizeof(struct index_data) * rec_count; + size[1] = sizeof(struct obj_data) * rec_count; + log(" %d objs, %d bytes in index, %d bytes in prototypes.", rec_count, size[0], size[1]); + break; + case DB_BOOT_ZON: + CREATE(zone_table, struct zone_data, rec_count); + size[0] = sizeof(struct zone_data) * rec_count; + log(" %d zones, %d bytes.", rec_count, size[0]); + break; + case DB_BOOT_HLP: + CREATE(help_table, struct help_index_element, rec_count); + size[0] = sizeof(struct help_index_element) * rec_count; + log(" %d entries, %d bytes.", rec_count, size[0]); + break; + } + + rewind(db_index); + fscanf(db_index, "%s\n", buf1); + while (*buf1 != '$') { + snprintf(buf2, sizeof(buf2), "%s%s", prefix, buf1); + if (!(db_file = fopen(buf2, "r"))) { + log("SYSERR: %s: %s", buf2, strerror(errno)); + exit(1); + } + switch (mode) { + case DB_BOOT_WLD: + case DB_BOOT_OBJ: + case DB_BOOT_MOB: + discrete_load(db_file, mode, buf2); + break; + case DB_BOOT_ZON: + load_zones(db_file, buf2); + break; + case DB_BOOT_HLP: + /* + * If you think about it, we have a race here. Although, this is the + * "point-the-gun-at-your-own-foot" type of race. + */ + load_help(db_file); + break; + case DB_BOOT_SHP: + boot_the_shops(db_file, buf2, rec_count); + break; + } + + fclose(db_file); + fscanf(db_index, "%s\n", buf1); + } + fclose(db_index); + + /* sort the help index */ + if (mode == DB_BOOT_HLP) { + qsort(help_table, top_of_helpt, sizeof(struct help_index_element), hsort); + top_of_helpt--; + } +} + + +void discrete_load(FILE *fl, int mode, char *filename) +{ + int nr = -1, last; + char line[READ_SIZE]; + + const char *modes[] = {"world", "mob", "obj"}; + + for (;;) { + /* + * we have to do special processing with the obj files because they have + * no end-of-record marker :( + */ + if (mode != DB_BOOT_OBJ || nr < 0) + if (!get_line(fl, line)) { + if (nr == -1) { + log("SYSERR: %s file %s is empty!", modes[mode], filename); + } else { + log("SYSERR: Format error in %s after %s #%d\n" + "...expecting a new %s, but file ended!\n" + "(maybe the file is not terminated with '$'?)", filename, + modes[mode], nr, modes[mode]); + } + exit(1); + } + if (*line == '$') + return; + + if (*line == '#') { + last = nr; + if (sscanf(line, "#%d", &nr) != 1) { + log("SYSERR: Format error after %s #%d", modes[mode], last); + exit(1); + } + if (nr >= 99999) + return; + else + switch (mode) { + case DB_BOOT_WLD: + parse_room(fl, nr); + break; + case DB_BOOT_MOB: + parse_mobile(fl, nr); + break; + case DB_BOOT_OBJ: + strlcpy(line, parse_object(fl, nr), sizeof(line)); + break; + } + } else { + log("SYSERR: Format error in %s file %s near %s #%d", modes[mode], + filename, modes[mode], nr); + log("SYSERR: ... offending line: '%s'", line); + exit(1); + } + } +} + +bitvector_t asciiflag_conv(char *flag) +{ + bitvector_t flags = 0; + int is_num = TRUE; + char *p; + + for (p = flag; *p; p++) { + if (islower(*p)) + flags |= 1 << (*p - 'a'); + else if (isupper(*p)) + flags |= 1 << (26 + (*p - 'A')); + + if (!isdigit(*p)) + is_num = FALSE; + } + + if (is_num) + flags = atol(flag); + + return (flags); +} + + +/* load the rooms */ +void parse_room(FILE *fl, int virtual_nr) +{ + static int room_nr = 0, zone = 0; + int t[10], i; + char line[READ_SIZE], flags[128], buf2[MAX_STRING_LENGTH], buf[128]; + struct extra_descr_data *new_descr; + + /* This really had better fit or there are other problems. */ + snprintf(buf2, sizeof(buf2), "room #%d", virtual_nr); + + if (virtual_nr < zone_table[zone].bot) { + log("SYSERR: Room #%d is below zone %d.", virtual_nr, zone); + exit(1); + } + while (virtual_nr > zone_table[zone].top) + if (++zone > top_of_zone_table) { + log("SYSERR: Room %d is outside of any zone.", virtual_nr); + exit(1); + } + world[room_nr].zone = zone; + world[room_nr].number = virtual_nr; + world[room_nr].name = fread_string(fl, buf2); + world[room_nr].description = fread_string(fl, buf2); + + if (!get_line(fl, line)) { + log("SYSERR: Expecting roomflags/sector type of room #%d but file ended!", + virtual_nr); + exit(1); + } + + if (sscanf(line, " %d %s %d ", t, flags, t + 2) != 3) { + log("SYSERR: Format error in roomflags/sector type of room #%d", + virtual_nr); + exit(1); + } + /* t[0] is the zone number; ignored with the zone-file system */ + + world[room_nr].room_flags = asciiflag_conv(flags); + sprintf(flags, "object #%d", virtual_nr); /* sprintf: OK (until 399-bit integers) */ + check_bitvector_names(world[room_nr].room_flags, room_bits_count, flags, "room"); + + world[room_nr].sector_type = t[2]; + + world[room_nr].func = NULL; + world[room_nr].contents = NULL; + world[room_nr].people = NULL; + world[room_nr].light = 0; /* Zero light sources */ + + for (i = 0; i < NUM_OF_DIRS; i++) + world[room_nr].dir_option[i] = NULL; + + world[room_nr].ex_description = NULL; + + snprintf(buf, sizeof(buf), "SYSERR: Format error in room #%d (expecting D/E/S)", virtual_nr); + + for (;;) { + if (!get_line(fl, line)) { + log("%s", buf); + exit(1); + } + switch (*line) { + case 'D': + setup_dir(fl, room_nr, atoi(line + 1)); + break; + case 'E': + CREATE(new_descr, struct extra_descr_data, 1); + new_descr->keyword = fread_string(fl, buf2); + new_descr->description = fread_string(fl, buf2); + new_descr->next = world[room_nr].ex_description; + world[room_nr].ex_description = new_descr; + break; + case 'S': /* end of room */ + top_of_world = room_nr++; + return; + default: + log("%s", buf); + exit(1); + } + } +} + + + +/* read direction data */ +void setup_dir(FILE *fl, int room, int dir) +{ + int t[5]; + char line[READ_SIZE], buf2[128]; + + snprintf(buf2, sizeof(buf2), "room #%d, direction D%d", GET_ROOM_VNUM(room), dir); + + CREATE(world[room].dir_option[dir], struct room_direction_data, 1); + world[room].dir_option[dir]->general_description = fread_string(fl, buf2); + world[room].dir_option[dir]->keyword = fread_string(fl, buf2); + + if (!get_line(fl, line)) { + log("SYSERR: Format error, %s", buf2); + exit(1); + } + if (sscanf(line, " %d %d %d ", t, t + 1, t + 2) != 3) { + log("SYSERR: Format error, %s", buf2); + exit(1); + } + if (t[0] == 1) + world[room].dir_option[dir]->exit_info = EX_ISDOOR; + else if (t[0] == 2) + world[room].dir_option[dir]->exit_info = EX_ISDOOR | EX_PICKPROOF; + else + world[room].dir_option[dir]->exit_info = 0; + + world[room].dir_option[dir]->key = t[1]; + world[room].dir_option[dir]->to_room = t[2]; +} + + +/* make sure the start rooms exist & resolve their vnums to rnums */ +void check_start_rooms(void) +{ + if ((r_mortal_start_room = real_room(mortal_start_room)) == NOWHERE) { + log("SYSERR: Mortal start room does not exist. Change in config.c."); + exit(1); + } + if ((r_immort_start_room = real_room(immort_start_room)) == NOWHERE) { + if (!mini_mud) + log("SYSERR: Warning: Immort start room does not exist. Change in config.c."); + r_immort_start_room = r_mortal_start_room; + } + if ((r_frozen_start_room = real_room(frozen_start_room)) == NOWHERE) { + if (!mini_mud) + log("SYSERR: Warning: Frozen start room does not exist. Change in config.c."); + r_frozen_start_room = r_mortal_start_room; + } +} + + +/* resolve all vnums into rnums in the world */ +void renum_world(void) +{ + int room, door; + + for (room = 0; room <= top_of_world; room++) + for (door = 0; door < NUM_OF_DIRS; door++) + if (world[room].dir_option[door]) + if (world[room].dir_option[door]->to_room != NOWHERE) + world[room].dir_option[door]->to_room = + real_room(world[room].dir_option[door]->to_room); +} + + +#define ZCMD zone_table[zone].cmd[cmd_no] + +/* + * "resulve vnums into rnums in the zone reset tables" + * + * Or in English: Once all of the zone reset tables have been loaded, we + * resolve the virtual numbers into real numbers all at once so we don't have + * to do it repeatedly while the game is running. This does make adding any + * room, mobile, or object a little more difficult while the game is running. + * + * NOTE 1: Assumes NOWHERE == NOBODY == NOTHING. + * NOTE 2: Assumes sizeof(room_rnum) >= (sizeof(mob_rnum) and sizeof(obj_rnum)) + */ +void renum_zone_table(void) +{ + int cmd_no; + room_rnum a, b, c, olda, oldb, oldc; + zone_rnum zone; + char buf[128]; + + for (zone = 0; zone <= top_of_zone_table; zone++) + for (cmd_no = 0; ZCMD.command != 'S'; cmd_no++) { + a = b = c = 0; + olda = ZCMD.arg1; + oldb = ZCMD.arg2; + oldc = ZCMD.arg3; + switch (ZCMD.command) { + case 'M': + a = ZCMD.arg1 = real_mobile(ZCMD.arg1); + c = ZCMD.arg3 = real_room(ZCMD.arg3); + break; + case 'O': + a = ZCMD.arg1 = real_object(ZCMD.arg1); + if (ZCMD.arg3 != NOWHERE) + c = ZCMD.arg3 = real_room(ZCMD.arg3); + break; + case 'G': + a = ZCMD.arg1 = real_object(ZCMD.arg1); + break; + case 'E': + a = ZCMD.arg1 = real_object(ZCMD.arg1); + break; + case 'P': + a = ZCMD.arg1 = real_object(ZCMD.arg1); + c = ZCMD.arg3 = real_object(ZCMD.arg3); + break; + case 'D': + a = ZCMD.arg1 = real_room(ZCMD.arg1); + break; + case 'R': /* rem obj from room */ + a = ZCMD.arg1 = real_room(ZCMD.arg1); + b = ZCMD.arg2 = real_object(ZCMD.arg2); + break; + } + if (a == NOWHERE || b == NOWHERE || c == NOWHERE) { + if (!mini_mud) { + snprintf(buf, sizeof(buf), "Invalid vnum %d, cmd disabled", + a == NOWHERE ? olda : b == NOWHERE ? oldb : oldc); + log_zone_error(zone, cmd_no, buf); + } + ZCMD.command = '*'; + } + } +} + + + +void parse_simple_mob(FILE *mob_f, int i, int nr) +{ + int j, t[10]; + char line[READ_SIZE]; + + mob_proto[i].real_abils.str = 11; + mob_proto[i].real_abils.intel = 11; + mob_proto[i].real_abils.wis = 11; + mob_proto[i].real_abils.dex = 11; + mob_proto[i].real_abils.con = 11; + mob_proto[i].real_abils.cha = 11; + + if (!get_line(mob_f, line)) { + log("SYSERR: Format error in mob #%d, file ended after S flag!", nr); + exit(1); + } + + if (sscanf(line, " %d %d %d %dd%d+%d %dd%d+%d ", + t, t + 1, t + 2, t + 3, t + 4, t + 5, t + 6, t + 7, t + 8) != 9) { + log("SYSERR: Format error in mob #%d, first line after S flag\n" + "...expecting line of form '# # # #d#+# #d#+#'", nr); + exit(1); + } + + GET_LEVEL(mob_proto + i) = t[0]; + GET_HITROLL(mob_proto + i) = 20 - t[1]; + GET_AC(mob_proto + i) = 10 * t[2]; + + /* max hit = 0 is a flag that H, M, V is xdy+z */ + GET_MAX_HIT(mob_proto + i) = 0; + GET_HIT(mob_proto + i) = t[3]; + GET_MANA(mob_proto + i) = t[4]; + GET_MOVE(mob_proto + i) = t[5]; + + GET_MAX_MANA(mob_proto + i) = 10; + GET_MAX_MOVE(mob_proto + i) = 50; + + mob_proto[i].mob_specials.damnodice = t[6]; + mob_proto[i].mob_specials.damsizedice = t[7]; + GET_DAMROLL(mob_proto + i) = t[8]; + + if (!get_line(mob_f, line)) { + log("SYSERR: Format error in mob #%d, second line after S flag\n" + "...expecting line of form '# #', but file ended!", nr); + exit(1); + } + + if (sscanf(line, " %d %d ", t, t + 1) != 2) { + log("SYSERR: Format error in mob #%d, second line after S flag\n" + "...expecting line of form '# #'", nr); + exit(1); + } + + GET_GOLD(mob_proto + i) = t[0]; + GET_EXP(mob_proto + i) = t[1]; + + if (!get_line(mob_f, line)) { + log("SYSERR: Format error in last line of mob #%d\n" + "...expecting line of form '# # #', but file ended!", nr); + exit(1); + } + + if (sscanf(line, " %d %d %d ", t, t + 1, t + 2) != 3) { + log("SYSERR: Format error in last line of mob #%d\n" + "...expecting line of form '# # #'", nr); + exit(1); + } + + GET_POS(mob_proto + i) = t[0]; + GET_DEFAULT_POS(mob_proto + i) = t[1]; + GET_SEX(mob_proto + i) = t[2]; + + GET_CLASS(mob_proto + i) = 0; + GET_WEIGHT(mob_proto + i) = 200; + GET_HEIGHT(mob_proto + i) = 198; + + /* + * these are now save applies; base save numbers for MOBs are now from + * the warrior save table. + */ + for (j = 0; j < 5; j++) + GET_SAVE(mob_proto + i, j) = 0; +} + + +/* + * interpret_espec is the function that takes espec keywords and values + * and assigns the correct value to the mob as appropriate. Adding new + * e-specs is absurdly easy -- just add a new CASE statement to this + * function! No other changes need to be made anywhere in the code. + * + * CASE : Requires a parameter through 'value'. + * BOOL_CASE : Being specified at all is its value. + */ + +#define CASE(test) \ + if (value && !matched && !str_cmp(keyword, test) && (matched = TRUE)) + +#define BOOL_CASE(test) \ + if (!value && !matched && !str_cmp(keyword, test) && (matched = TRUE)) + +#define RANGE(low, high) \ + (num_arg = MAX((low), MIN((high), (num_arg)))) + +void interpret_espec(const char *keyword, const char *value, int i, int nr) +{ + int num_arg = 0, matched = FALSE; + + /* + * If there isn't a colon, there is no value. While Boolean options are + * possible, we don't actually have any. Feel free to make some. + */ + if (value) + num_arg = atoi(value); + + CASE("BareHandAttack") { + RANGE(0, 99); + mob_proto[i].mob_specials.attack_type = num_arg; + } + + CASE("Str") { + RANGE(3, 25); + mob_proto[i].real_abils.str = num_arg; + } + + CASE("StrAdd") { + RANGE(0, 100); + mob_proto[i].real_abils.str_add = num_arg; + } + + CASE("Int") { + RANGE(3, 25); + mob_proto[i].real_abils.intel = num_arg; + } + + CASE("Wis") { + RANGE(3, 25); + mob_proto[i].real_abils.wis = num_arg; + } + + CASE("Dex") { + RANGE(3, 25); + mob_proto[i].real_abils.dex = num_arg; + } + + CASE("Con") { + RANGE(3, 25); + mob_proto[i].real_abils.con = num_arg; + } + + CASE("Cha") { + RANGE(3, 25); + mob_proto[i].real_abils.cha = num_arg; + } + + if (!matched) { + log("SYSERR: Warning: unrecognized espec keyword %s in mob #%d", + keyword, nr); + } +} + +#undef CASE +#undef BOOL_CASE +#undef RANGE + +void parse_espec(char *buf, int i, int nr) +{ + char *ptr; + + if ((ptr = strchr(buf, ':')) != NULL) { + *(ptr++) = '\0'; + while (isspace(*ptr)) + ptr++; + } + interpret_espec(buf, ptr, i, nr); +} + + +void parse_enhanced_mob(FILE *mob_f, int i, int nr) +{ + char line[READ_SIZE]; + + parse_simple_mob(mob_f, i, nr); + + while (get_line(mob_f, line)) { + if (!strcmp(line, "E")) /* end of the enhanced section */ + return; + else if (*line == '#') { /* we've hit the next mob, maybe? */ + log("SYSERR: Unterminated E section in mob #%d", nr); + exit(1); + } else + parse_espec(line, i, nr); + } + + log("SYSERR: Unexpected end of file reached after mob #%d", nr); + exit(1); +} + + +void parse_mobile(FILE *mob_f, int nr) +{ + static int i = 0; + int j, t[10]; + char line[READ_SIZE], *tmpptr, letter; + char f1[128], f2[128], buf2[128]; + + mob_index[i].vnum = nr; + mob_index[i].number = 0; + mob_index[i].func = NULL; + + clear_char(mob_proto + i); + + /* + * Mobiles should NEVER use anything in the 'player_specials' structure. + * The only reason we have every mob in the game share this copy of the + * structure is to save newbie coders from themselves. -gg 2/25/98 + */ + mob_proto[i].player_specials = &dummy_mob; + sprintf(buf2, "mob vnum %d", nr); /* sprintf: OK (for 'buf2 >= 19') */ + + /***** String data *****/ + mob_proto[i].player.name = fread_string(mob_f, buf2); + tmpptr = mob_proto[i].player.short_descr = fread_string(mob_f, buf2); + if (tmpptr && *tmpptr) + if (!str_cmp(fname(tmpptr), "a") || !str_cmp(fname(tmpptr), "an") || + !str_cmp(fname(tmpptr), "the")) + *tmpptr = LOWER(*tmpptr); + mob_proto[i].player.long_descr = fread_string(mob_f, buf2); + mob_proto[i].player.description = fread_string(mob_f, buf2); + GET_TITLE(mob_proto + i) = NULL; + + /* *** Numeric data *** */ + if (!get_line(mob_f, line)) { + log("SYSERR: Format error after string section of mob #%d\n" + "...expecting line of form '# # # {S | E}', but file ended!", nr); + exit(1); + } + +#ifdef CIRCLE_ACORN /* Ugh. */ + if (sscanf(line, "%s %s %d %s", f1, f2, t + 2, &letter) != 4) { +#else + if (sscanf(line, "%s %s %d %c", f1, f2, t + 2, &letter) != 4) { +#endif + log("SYSERR: Format error after string section of mob #%d\n" + "...expecting line of form '# # # {S | E}'", nr); + exit(1); + } + + MOB_FLAGS(mob_proto + i) = asciiflag_conv(f1); + SET_BIT(MOB_FLAGS(mob_proto + i), MOB_ISNPC); + if (MOB_FLAGGED(mob_proto + i, MOB_NOTDEADYET)) { + /* Rather bad to load mobiles with this bit already set. */ + log("SYSERR: Mob #%d has reserved bit MOB_NOTDEADYET set.", nr); + REMOVE_BIT(MOB_FLAGS(mob_proto + i), MOB_NOTDEADYET); + } + check_bitvector_names(MOB_FLAGS(mob_proto + i), action_bits_count, buf2, "mobile"); + + AFF_FLAGS(mob_proto + i) = asciiflag_conv(f2); + check_bitvector_names(AFF_FLAGS(mob_proto + i), affected_bits_count, buf2, "mobile affect"); + + GET_ALIGNMENT(mob_proto + i) = t[2]; + + /* AGGR_TO_ALIGN is ignored if the mob is AGGRESSIVE. */ + if (MOB_FLAGGED(mob_proto + i, MOB_AGGRESSIVE) && MOB_FLAGGED(mob_proto + i, MOB_AGGR_GOOD | MOB_AGGR_EVIL | MOB_AGGR_NEUTRAL)) + log("SYSERR: Mob #%d both Aggressive and Aggressive_to_Alignment.", nr); + + switch (UPPER(letter)) { + case 'S': /* Simple monsters */ + parse_simple_mob(mob_f, i, nr); + break; + case 'E': /* Circle3 Enhanced monsters */ + parse_enhanced_mob(mob_f, i, nr); + break; + /* add new mob types here.. */ + default: + log("SYSERR: Unsupported mob type '%c' in mob #%d", letter, nr); + exit(1); + } + + mob_proto[i].aff_abils = mob_proto[i].real_abils; + + for (j = 0; j < NUM_WEARS; j++) + mob_proto[i].equipment[j] = NULL; + + mob_proto[i].nr = i; + mob_proto[i].desc = NULL; + + top_of_mobt = i++; +} + + + + +/* read all objects from obj file; generate index and prototypes */ +char *parse_object(FILE *obj_f, int nr) +{ + static int i = 0; + static char line[READ_SIZE]; + int t[10], j, retval; + char *tmpptr; + char f1[READ_SIZE], f2[READ_SIZE], buf2[128]; + struct extra_descr_data *new_descr; + + obj_index[i].vnum = nr; + obj_index[i].number = 0; + obj_index[i].func = NULL; + + clear_object(obj_proto + i); + obj_proto[i].item_number = i; + + sprintf(buf2, "object #%d", nr); /* sprintf: OK (for 'buf2 >= 19') */ + + /* *** string data *** */ + if ((obj_proto[i].name = fread_string(obj_f, buf2)) == NULL) { + log("SYSERR: Null obj name or format error at or near %s", buf2); + exit(1); + } + tmpptr = obj_proto[i].short_description = fread_string(obj_f, buf2); + if (tmpptr && *tmpptr) + if (!str_cmp(fname(tmpptr), "a") || !str_cmp(fname(tmpptr), "an") || + !str_cmp(fname(tmpptr), "the")) + *tmpptr = LOWER(*tmpptr); + + tmpptr = obj_proto[i].description = fread_string(obj_f, buf2); + if (tmpptr && *tmpptr) + CAP(tmpptr); + obj_proto[i].action_description = fread_string(obj_f, buf2); + + /* *** numeric data *** */ + if (!get_line(obj_f, line)) { + log("SYSERR: Expecting first numeric line of %s, but file ended!", buf2); + exit(1); + } + if ((retval = sscanf(line, " %d %s %s", t, f1, f2)) != 3) { + log("SYSERR: Format error in first numeric line (expecting 3 args, got %d), %s", retval, buf2); + exit(1); + } + + /* Object flags checked in check_object(). */ + GET_OBJ_TYPE(obj_proto + i) = t[0]; + GET_OBJ_EXTRA(obj_proto + i) = asciiflag_conv(f1); + GET_OBJ_WEAR(obj_proto + i) = asciiflag_conv(f2); + + if (!get_line(obj_f, line)) { + log("SYSERR: Expecting second numeric line of %s, but file ended!", buf2); + exit(1); + } + if ((retval = sscanf(line, "%d %d %d %d", t, t + 1, t + 2, t + 3)) != 4) { + log("SYSERR: Format error in second numeric line (expecting 4 args, got %d), %s", retval, buf2); + exit(1); + } + GET_OBJ_VAL(obj_proto + i, 0) = t[0]; + GET_OBJ_VAL(obj_proto + i, 1) = t[1]; + GET_OBJ_VAL(obj_proto + i, 2) = t[2]; + GET_OBJ_VAL(obj_proto + i, 3) = t[3]; + + if (!get_line(obj_f, line)) { + log("SYSERR: Expecting third numeric line of %s, but file ended!", buf2); + exit(1); + } + if ((retval = sscanf(line, "%d %d %d", t, t + 1, t + 2)) != 3) { + log("SYSERR: Format error in third numeric line (expecting 3 args, got %d), %s", retval, buf2); + exit(1); + } + GET_OBJ_WEIGHT(obj_proto + i) = t[0]; + GET_OBJ_COST(obj_proto + i) = t[1]; + GET_OBJ_RENT(obj_proto + i) = t[2]; + + /* check to make sure that weight of containers exceeds curr. quantity */ + if (GET_OBJ_TYPE(obj_proto + i) == ITEM_DRINKCON || GET_OBJ_TYPE(obj_proto + i) == ITEM_FOUNTAIN) { + if (GET_OBJ_WEIGHT(obj_proto + i) < GET_OBJ_VAL(obj_proto + i, 1)) + GET_OBJ_WEIGHT(obj_proto + i) = GET_OBJ_VAL(obj_proto + i, 1) + 5; + } + + /* *** extra descriptions and affect fields *** */ + + for (j = 0; j < MAX_OBJ_AFFECT; j++) { + obj_proto[i].affected[j].location = APPLY_NONE; + obj_proto[i].affected[j].modifier = 0; + } + + strcat(buf2, ", after numeric constants\n" /* strcat: OK (for 'buf2 >= 87') */ + "...expecting 'E', 'A', '$', or next object number"); + j = 0; + + for (;;) { + if (!get_line(obj_f, line)) { + log("SYSERR: Format error in %s", buf2); + exit(1); + } + switch (*line) { + case 'E': + CREATE(new_descr, struct extra_descr_data, 1); + new_descr->keyword = fread_string(obj_f, buf2); + new_descr->description = fread_string(obj_f, buf2); + new_descr->next = obj_proto[i].ex_description; + obj_proto[i].ex_description = new_descr; + break; + case 'A': + if (j >= MAX_OBJ_AFFECT) { + log("SYSERR: Too many A fields (%d max), %s", MAX_OBJ_AFFECT, buf2); + exit(1); + } + if (!get_line(obj_f, line)) { + log("SYSERR: Format error in 'A' field, %s\n" + "...expecting 2 numeric constants but file ended!", buf2); + exit(1); + } + + if ((retval = sscanf(line, " %d %d ", t, t + 1)) != 2) { + log("SYSERR: Format error in 'A' field, %s\n" + "...expecting 2 numeric arguments, got %d\n" + "...offending line: '%s'", buf2, retval, line); + exit(1); + } + obj_proto[i].affected[j].location = t[0]; + obj_proto[i].affected[j].modifier = t[1]; + j++; + break; + case '$': + case '#': + check_object(obj_proto + i); + top_of_objt = i++; + return (line); + default: + log("SYSERR: Format error in (%c): %s", *line, buf2); + exit(1); + } + } +} + + +#define Z zone_table[zone] + +/* load the zone table and command tables */ +void load_zones(FILE *fl, char *zonename) +{ + static zone_rnum zone = 0; + int cmd_no, num_of_cmds = 0, line_num = 0, tmp, error; + char *ptr, buf[READ_SIZE], zname[READ_SIZE], buf2[MAX_STRING_LENGTH]; + + strlcpy(zname, zonename, sizeof(zname)); + + /* Skip first 3 lines lest we mistake the zone name for a command. */ + for (tmp = 0; tmp < 3; tmp++) + get_line(fl, buf); + + /* More accurate count. Previous was always 4 or 5 too high. -gg 2001/1/17 + * Note that if a new zone command is added to reset_zone(), this string + * will need to be updated to suit. - ae. + */ + while (get_line(fl, buf)) + if ((strchr("MOPGERD", buf[0]) && buf[1] == ' ') || (buf[0] == 'S' && buf[1] == '\0')) + num_of_cmds++; + + rewind(fl); + + if (num_of_cmds == 0) { + log("SYSERR: %s is empty!", zname); + exit(1); + } else + CREATE(Z.cmd, struct reset_com, num_of_cmds); + + line_num += get_line(fl, buf); + + if (sscanf(buf, "#%hd", &Z.number) != 1) { + log("SYSERR: Format error in %s, line %d", zname, line_num); + exit(1); + } + snprintf(buf2, sizeof(buf2), "beginning of zone #%d", Z.number); + + line_num += get_line(fl, buf); + if ((ptr = strchr(buf, '~')) != NULL) /* take off the '~' if it's there */ + *ptr = '\0'; + Z.name = strdup(buf); + + line_num += get_line(fl, buf); + if (sscanf(buf, " %hd %hd %d %d ", &Z.bot, &Z.top, &Z.lifespan, &Z.reset_mode) != 4) { + log("SYSERR: Format error in numeric constant line of %s", zname); + exit(1); + } + if (Z.bot > Z.top) { + log("SYSERR: Zone %d bottom (%d) > top (%d).", Z.number, Z.bot, Z.top); + exit(1); + } + + cmd_no = 0; + + for (;;) { + if ((tmp = get_line(fl, buf)) == 0) { + log("SYSERR: Format error in %s - premature end of file", zname); + exit(1); + } + line_num += tmp; + ptr = buf; + skip_spaces(&ptr); + + if ((ZCMD.command = *ptr) == '*') + continue; + + ptr++; + + if (ZCMD.command == 'S' || ZCMD.command == '$') { + ZCMD.command = 'S'; + break; + } + error = 0; + if (strchr("MOEPD", ZCMD.command) == NULL) { /* a 3-arg command */ + if (sscanf(ptr, " %d %d %d ", &tmp, &ZCMD.arg1, &ZCMD.arg2) != 3) + error = 1; + } else { + if (sscanf(ptr, " %d %d %d %d ", &tmp, &ZCMD.arg1, &ZCMD.arg2, + &ZCMD.arg3) != 4) + error = 1; + } + + ZCMD.if_flag = tmp; + + if (error) { + log("SYSERR: Format error in %s, line %d: '%s'", zname, line_num, buf); + exit(1); + } + ZCMD.line = line_num; + cmd_no++; + } + + if (num_of_cmds != cmd_no + 1) { + log("SYSERR: Zone command count mismatch for %s. Estimated: %d, Actual: %d", zname, num_of_cmds, cmd_no + 1); + exit(1); + } + + top_of_zone_table = zone++; +} + +#undef Z + + +void get_one_line(FILE *fl, char *buf) +{ + if (fgets(buf, READ_SIZE, fl) == NULL) { + log("SYSERR: error reading help file: not terminated with $?"); + exit(1); + } + + buf[strlen(buf) - 1] = '\0'; /* take off the trailing \n */ +} + + +void free_help(void) +{ + int hp; + + if (!help_table) + return; + + for (hp = 0; hp <= top_of_helpt; hp++) { + if (help_table[hp].keyword) + free(help_table[hp].keyword); + if (help_table[hp].entry && !help_table[hp].duplicate) + free(help_table[hp].entry); + } + + free(help_table); + help_table = NULL; + top_of_helpt = 0; +} + + +void load_help(FILE *fl) +{ +#if defined(CIRCLE_MACINTOSH) + static char key[READ_SIZE + 1], next_key[READ_SIZE + 1], entry[32384]; /* too big for stack? */ +#else + char key[READ_SIZE + 1], next_key[READ_SIZE + 1], entry[32384]; +#endif + size_t entrylen; + char line[READ_SIZE + 1], *scan; + struct help_index_element el; + + /* get the first keyword line */ + get_one_line(fl, key); + while (*key != '$') { + strcat(key, "\r\n"); /* strcat: OK (READ_SIZE - "\n" + "\r\n" == READ_SIZE + 1) */ + entrylen = strlcpy(entry, key, sizeof(entry)); + + /* read in the corresponding help entry */ + get_one_line(fl, line); + while (*line != '#' && entrylen < sizeof(entry) - 1) { + entrylen += strlcpy(entry + entrylen, line, sizeof(entry) - entrylen); + + if (entrylen + 2 < sizeof(entry) - 1) { + strcpy(entry + entrylen, "\r\n"); /* strcpy: OK (size checked above) */ + entrylen += 2; + } + get_one_line(fl, line); + } + + if (entrylen >= sizeof(entry) - 1) { + int keysize; + const char *truncmsg = "\r\n*TRUNCATED*\r\n"; + + strcpy(entry + sizeof(entry) - strlen(truncmsg) - 1, truncmsg); /* strcpy: OK (assuming sane 'entry' size) */ + + keysize = strlen(key) - 2; + log("SYSERR: Help entry exceeded buffer space: %.*s", keysize, key); + + /* If we ran out of buffer space, eat the rest of the entry. */ + while (*line != '#') + get_one_line(fl, line); + } + + /* now, add the entry to the index with each keyword on the keyword line */ + el.duplicate = 0; + el.entry = strdup(entry); + scan = one_word(key, next_key); + while (*next_key) { + el.keyword = strdup(next_key); + help_table[top_of_helpt++] = el; + el.duplicate++; + scan = one_word(scan, next_key); + } + + /* get next keyword line (or $) */ + get_one_line(fl, key); + } +} + + +int hsort(const void *a, const void *b) +{ + const struct help_index_element *a1, *b1; + + a1 = (const struct help_index_element *) a; + b1 = (const struct help_index_element *) b; + + return (str_cmp(a1->keyword, b1->keyword)); +} + + +/************************************************************************* +* procedures for resetting, both play-time and boot-time * +*************************************************************************/ + + +int vnum_mobile(char *searchname, struct char_data *ch) +{ + int nr, found = 0; + + for (nr = 0; nr <= top_of_mobt; nr++) + if (isname(searchname, mob_proto[nr].player.name)) + send_to_char(ch, "%3d. [%5d] %s\r\n", ++found, mob_index[nr].vnum, mob_proto[nr].player.short_descr); + + return (found); +} + + + +int vnum_object(char *searchname, struct char_data *ch) +{ + int nr, found = 0; + + for (nr = 0; nr <= top_of_objt; nr++) + if (isname(searchname, obj_proto[nr].name)) + send_to_char(ch, "%3d. [%5d] %s\r\n", ++found, obj_index[nr].vnum, obj_proto[nr].short_description); + + return (found); +} + + +/* create a character, and add it to the char list */ +struct char_data *create_char(void) +{ + struct char_data *ch; + + CREATE(ch, struct char_data, 1); + clear_char(ch); + ch->next = character_list; + character_list = ch; + + return (ch); +} + + +/* create a new mobile from a prototype */ +struct char_data *read_mobile(mob_vnum nr, int type) /* and mob_rnum */ +{ + mob_rnum i; + struct char_data *mob; + + if (type == VIRTUAL) { + if ((i = real_mobile(nr)) == NOBODY) { + log("WARNING: Mobile vnum %d does not exist in database.", nr); + return (NULL); + } + } else + i = nr; + + CREATE(mob, struct char_data, 1); + clear_char(mob); + *mob = mob_proto[i]; + mob->next = character_list; + character_list = mob; + + if (!mob->points.max_hit) { + mob->points.max_hit = dice(mob->points.hit, mob->points.mana) + + mob->points.move; + } else + mob->points.max_hit = rand_number(mob->points.hit, mob->points.mana); + + mob->points.hit = mob->points.max_hit; + mob->points.mana = mob->points.max_mana; + mob->points.move = mob->points.max_move; + + mob->player.time.birth = time(0); + mob->player.time.played = 0; + mob->player.time.logon = time(0); + + mob_index[i].number++; + + return (mob); +} + + +/* create an object, and add it to the object list */ +struct obj_data *create_obj(void) +{ + struct obj_data *obj; + + CREATE(obj, struct obj_data, 1); + clear_object(obj); + obj->next = object_list; + object_list = obj; + + return (obj); +} + + +/* create a new object from a prototype */ +struct obj_data *read_object(obj_vnum nr, int type) /* and obj_rnum */ +{ + struct obj_data *obj; + obj_rnum i = type == VIRTUAL ? real_object(nr) : nr; + + if (i == NOTHING || i > top_of_objt) { + log("Object (%c) %d does not exist in database.", type == VIRTUAL ? 'V' : 'R', nr); + return (NULL); + } + + CREATE(obj, struct obj_data, 1); + clear_object(obj); + *obj = obj_proto[i]; + obj->next = object_list; + object_list = obj; + + obj_index[i].number++; + + return (obj); +} + + + +#define ZO_DEAD 999 + +/* update zone ages, queue for reset if necessary, and dequeue when possible */ +void zone_update(void) +{ + int i; + struct reset_q_element *update_u, *temp; + static int timer = 0; + + /* jelson 10/22/92 */ + if (((++timer * PULSE_ZONE) / PASSES_PER_SEC) >= 60) { + /* one minute has passed */ + /* + * NOT accurate unless PULSE_ZONE is a multiple of PASSES_PER_SEC or a + * factor of 60 + */ + + timer = 0; + + /* since one minute has passed, increment zone ages */ + for (i = 0; i <= top_of_zone_table; i++) { + if (zone_table[i].age < zone_table[i].lifespan && + zone_table[i].reset_mode) + (zone_table[i].age)++; + + if (zone_table[i].age >= zone_table[i].lifespan && + zone_table[i].age < ZO_DEAD && zone_table[i].reset_mode) { + /* enqueue zone */ + + CREATE(update_u, struct reset_q_element, 1); + + update_u->zone_to_reset = i; + update_u->next = 0; + + if (!reset_q.head) + reset_q.head = reset_q.tail = update_u; + else { + reset_q.tail->next = update_u; + reset_q.tail = update_u; + } + + zone_table[i].age = ZO_DEAD; + } + } + } /* end - one minute has passed */ + + + /* dequeue zones (if possible) and reset */ + /* this code is executed every 10 seconds (i.e. PULSE_ZONE) */ + for (update_u = reset_q.head; update_u; update_u = update_u->next) + if (zone_table[update_u->zone_to_reset].reset_mode == 2 || + is_empty(update_u->zone_to_reset)) { + reset_zone(update_u->zone_to_reset); + mudlog(CMP, LVL_GOD, FALSE, "Auto zone reset: %s", zone_table[update_u->zone_to_reset].name); + /* dequeue */ + if (update_u == reset_q.head) + reset_q.head = reset_q.head->next; + else { + for (temp = reset_q.head; temp->next != update_u; + temp = temp->next); + + if (!update_u->next) + reset_q.tail = temp; + + temp->next = update_u->next; + } + + free(update_u); + break; + } +} + +void log_zone_error(zone_rnum zone, int cmd_no, const char *message) +{ + mudlog(NRM, LVL_GOD, TRUE, "SYSERR: zone file: %s", message); + mudlog(NRM, LVL_GOD, TRUE, "SYSERR: ...offending cmd: '%c' cmd in zone #%d, line %d", + ZCMD.command, zone_table[zone].number, ZCMD.line); +} + +#define ZONE_ERROR(message) \ + { log_zone_error(zone, cmd_no, message); last_cmd = 0; } + +/* execute the reset command table of a given zone */ +void reset_zone(zone_rnum zone) +{ + int cmd_no, last_cmd = 0; + struct char_data *mob = NULL; + struct obj_data *obj, *obj_to; + + for (cmd_no = 0; ZCMD.command != 'S'; cmd_no++) { + + if (ZCMD.if_flag && !last_cmd) + continue; + + /* This is the list of actual zone commands. If any new + * zone commands are added to the game, be certain to update + * the list of commands in load_zone() so that the counting + * will still be correct. - ae. + */ + switch (ZCMD.command) { + case '*': /* ignore command */ + last_cmd = 0; + break; + + case 'M': /* read a mobile */ + if (mob_index[ZCMD.arg1].number < ZCMD.arg2) { + mob = read_mobile(ZCMD.arg1, REAL); + char_to_room(mob, ZCMD.arg3); + last_cmd = 1; + } else + last_cmd = 0; + break; + + case 'O': /* read an object */ + if (obj_index[ZCMD.arg1].number < ZCMD.arg2) { + if (ZCMD.arg3 != NOWHERE) { + obj = read_object(ZCMD.arg1, REAL); + obj_to_room(obj, ZCMD.arg3); + last_cmd = 1; + } else { + obj = read_object(ZCMD.arg1, REAL); + IN_ROOM(obj) = NOWHERE; + last_cmd = 1; + } + } else + last_cmd = 0; + break; + + case 'P': /* object to object */ + if (obj_index[ZCMD.arg1].number < ZCMD.arg2) { + obj = read_object(ZCMD.arg1, REAL); + if (!(obj_to = get_obj_num(ZCMD.arg3))) { + ZONE_ERROR("target obj not found, command disabled"); + ZCMD.command = '*'; + break; + } + obj_to_obj(obj, obj_to); + last_cmd = 1; + } else + last_cmd = 0; + break; + + case 'G': /* obj_to_char */ + if (!mob) { + ZONE_ERROR("attempt to give obj to non-existant mob, command disabled"); + ZCMD.command = '*'; + break; + } + if (obj_index[ZCMD.arg1].number < ZCMD.arg2) { + obj = read_object(ZCMD.arg1, REAL); + obj_to_char(obj, mob); + last_cmd = 1; + } else + last_cmd = 0; + break; + + case 'E': /* object to equipment list */ + if (!mob) { + ZONE_ERROR("trying to equip non-existant mob, command disabled"); + ZCMD.command = '*'; + break; + } + if (obj_index[ZCMD.arg1].number < ZCMD.arg2) { + if (ZCMD.arg3 < 0 || ZCMD.arg3 >= NUM_WEARS) { + ZONE_ERROR("invalid equipment pos number"); + } else { + obj = read_object(ZCMD.arg1, REAL); + equip_char(mob, obj, ZCMD.arg3); + last_cmd = 1; + } + } else + last_cmd = 0; + break; + + case 'R': /* rem obj from room */ + if ((obj = get_obj_in_list_num(ZCMD.arg2, world[ZCMD.arg1].contents)) != NULL) + extract_obj(obj); + last_cmd = 1; + break; + + + case 'D': /* set state of door */ + if (ZCMD.arg2 < 0 || ZCMD.arg2 >= NUM_OF_DIRS || + (world[ZCMD.arg1].dir_option[ZCMD.arg2] == NULL)) { + ZONE_ERROR("door does not exist, command disabled"); + ZCMD.command = '*'; + } else + switch (ZCMD.arg3) { + case 0: + REMOVE_BIT(world[ZCMD.arg1].dir_option[ZCMD.arg2]->exit_info, + EX_LOCKED); + REMOVE_BIT(world[ZCMD.arg1].dir_option[ZCMD.arg2]->exit_info, + EX_CLOSED); + break; + case 1: + SET_BIT(world[ZCMD.arg1].dir_option[ZCMD.arg2]->exit_info, + EX_CLOSED); + REMOVE_BIT(world[ZCMD.arg1].dir_option[ZCMD.arg2]->exit_info, + EX_LOCKED); + break; + case 2: + SET_BIT(world[ZCMD.arg1].dir_option[ZCMD.arg2]->exit_info, + EX_LOCKED); + SET_BIT(world[ZCMD.arg1].dir_option[ZCMD.arg2]->exit_info, + EX_CLOSED); + break; + } + last_cmd = 1; + break; + + default: + ZONE_ERROR("unknown cmd in reset table; cmd disabled"); + ZCMD.command = '*'; + break; + } + } + + zone_table[zone].age = 0; +} + + + +/* for use in reset_zone; return TRUE if zone 'nr' is free of PC's */ +int is_empty(zone_rnum zone_nr) +{ + struct descriptor_data *i; + + for (i = descriptor_list; i; i = i->next) { + if (STATE(i) != CON_PLAYING) + continue; + if (IN_ROOM(i->character) == NOWHERE) + continue; + if (GET_LEVEL(i->character) >= LVL_IMMORT) + continue; + if (world[IN_ROOM(i->character)].zone != zone_nr) + continue; + + return (0); + } + + return (1); +} + + + + + +/************************************************************************* +* stuff related to the save/load player system * +*************************************************************************/ + + +long get_ptable_by_name(const char *name) +{ + int i; + + for (i = 0; i <= top_of_p_table; i++) + if (!str_cmp(player_table[i].name, name)) + return (i); + + return (-1); +} + + +long get_id_by_name(const char *name) +{ + int i; + + for (i = 0; i <= top_of_p_table; i++) + if (!str_cmp(player_table[i].name, name)) + return (player_table[i].id); + + return (-1); +} + + +char *get_name_by_id(long id) +{ + int i; + + for (i = 0; i <= top_of_p_table; i++) + if (player_table[i].id == id) + return (player_table[i].name); + + return (NULL); +} + + +/* Load a char, TRUE if loaded, FALSE if not */ +int load_char(const char *name, struct char_file_u *char_element) +{ + int player_i; + + if ((player_i = get_ptable_by_name(name)) >= 0) { + fseek(player_fl, player_i * sizeof(struct char_file_u), SEEK_SET); + fread(char_element, sizeof(struct char_file_u), 1, player_fl); + return (player_i); + } else + return (-1); +} + + + + +/* + * write the vital data of a player to the player file + * + * And that's it! No more fudging around with the load room. + * Unfortunately, 'host' modifying is still here due to lack + * of that variable in the char_data structure. + */ +void save_char(struct char_data *ch) +{ + struct char_file_u st; + + if (IS_NPC(ch) || !ch->desc || GET_PFILEPOS(ch) < 0) + return; + + char_to_store(ch, &st); + + strncpy(st.host, ch->desc->host, HOST_LENGTH); /* strncpy: OK (s.host:HOST_LENGTH+1) */ + st.host[HOST_LENGTH] = '\0'; + + fseek(player_fl, GET_PFILEPOS(ch) * sizeof(struct char_file_u), SEEK_SET); + fwrite(&st, sizeof(struct char_file_u), 1, player_fl); +} + + + +/* copy data from the file structure to a char struct */ +void store_to_char(struct char_file_u *st, struct char_data *ch) +{ + int i; + + /* to save memory, only PC's -- not MOB's -- have player_specials */ + if (ch->player_specials == NULL) + CREATE(ch->player_specials, struct player_special_data, 1); + + GET_SEX(ch) = st->sex; + GET_CLASS(ch) = st->chclass; + GET_LEVEL(ch) = st->level; + + ch->player.short_descr = NULL; + ch->player.long_descr = NULL; + ch->player.title = strdup(st->title); + ch->player.description = strdup(st->description); + + ch->player.hometown = st->hometown; + ch->player.time.birth = st->birth; + ch->player.time.played = st->played; + ch->player.time.logon = time(0); + + ch->player.weight = st->weight; + ch->player.height = st->height; + + ch->real_abils = st->abilities; + ch->aff_abils = st->abilities; + ch->points = st->points; + ch->char_specials.saved = st->char_specials_saved; + ch->player_specials->saved = st->player_specials_saved; + POOFIN(ch) = NULL; + POOFOUT(ch) = NULL; + GET_LAST_TELL(ch) = NOBODY; + + if (ch->points.max_mana < 100) + ch->points.max_mana = 100; + + ch->char_specials.carry_weight = 0; + ch->char_specials.carry_items = 0; + ch->points.armor = 100; + ch->points.hitroll = 0; + ch->points.damroll = 0; + + if (ch->player.name) + free(ch->player.name); + ch->player.name = strdup(st->name); + strlcpy(ch->player.passwd, st->pwd, sizeof(ch->player.passwd)); + + /* Add all spell effects */ + for (i = 0; i < MAX_AFFECT; i++) { + if (st->affected[i].type) + affect_to_char(ch, &st->affected[i]); + } + + /* + * If you're not poisioned and you've been away for more than an hour of + * real time, we'll set your HMV back to full + */ + + if (!AFF_FLAGGED(ch, AFF_POISON) && + time(0) - st->last_logon >= SECS_PER_REAL_HOUR) { + GET_HIT(ch) = GET_MAX_HIT(ch); + GET_MOVE(ch) = GET_MAX_MOVE(ch); + GET_MANA(ch) = GET_MAX_MANA(ch); + } +} /* store_to_char */ + + + + +/* copy vital data from a players char-structure to the file structure */ +void char_to_store(struct char_data *ch, struct char_file_u *st) +{ + int i; + struct affected_type *af; + struct obj_data *char_eq[NUM_WEARS]; + + /* Unaffect everything a character can be affected by */ + + for (i = 0; i < NUM_WEARS; i++) { + if (GET_EQ(ch, i)) + char_eq[i] = unequip_char(ch, i); + else + char_eq[i] = NULL; + } + + for (af = ch->affected, i = 0; i < MAX_AFFECT; i++) { + if (af) { + st->affected[i] = *af; + st->affected[i].next = 0; + af = af->next; + } else { + st->affected[i].type = 0; /* Zero signifies not used */ + st->affected[i].duration = 0; + st->affected[i].modifier = 0; + st->affected[i].location = 0; + st->affected[i].bitvector = 0; + st->affected[i].next = 0; + } + } + + + /* + * remove the affections so that the raw values are stored; otherwise the + * effects are doubled when the char logs back in. + */ + + while (ch->affected) + affect_remove(ch, ch->affected); + + if ((i >= MAX_AFFECT) && af && af->next) + log("SYSERR: WARNING: OUT OF STORE ROOM FOR AFFECTED TYPES!!!"); + + ch->aff_abils = ch->real_abils; + + st->birth = ch->player.time.birth; + st->played = ch->player.time.played; + st->played += time(0) - ch->player.time.logon; + st->last_logon = time(0); + + ch->player.time.played = st->played; + ch->player.time.logon = time(0); + + st->hometown = ch->player.hometown; + st->weight = GET_WEIGHT(ch); + st->height = GET_HEIGHT(ch); + st->sex = GET_SEX(ch); + st->chclass = GET_CLASS(ch); + st->level = GET_LEVEL(ch); + st->abilities = ch->real_abils; + st->points = ch->points; + st->char_specials_saved = ch->char_specials.saved; + st->player_specials_saved = ch->player_specials->saved; + + st->points.armor = 100; + st->points.hitroll = 0; + st->points.damroll = 0; + + if (GET_TITLE(ch)) + strlcpy(st->title, GET_TITLE(ch), MAX_TITLE_LENGTH); + else + *st->title = '\0'; + + if (ch->player.description) { + if (strlen(ch->player.description) >= sizeof(st->description)) { + log("SYSERR: char_to_store: %s's description length: %d, max: %d! " + "Truncated.", GET_PC_NAME(ch), strlen(ch->player.description), + sizeof(st->description)); + ch->player.description[sizeof(st->description) - 3] = '\0'; + strcat(ch->player.description, "\r\n"); /* strcat: OK (previous line makes room) */ + } + strcpy(st->description, ch->player.description); /* strcpy: OK (checked above) */ + } else + *st->description = '\0'; + + strcpy(st->name, GET_NAME(ch)); /* strcpy: OK (that's what GET_NAME came from) */ + strcpy(st->pwd, GET_PASSWD(ch)); /* strcpy: OK (that's what GET_PASSWD came from) */ + + /* add spell and eq affections back in now */ + for (i = 0; i < MAX_AFFECT; i++) { + if (st->affected[i].type) + affect_to_char(ch, &st->affected[i]); + } + + for (i = 0; i < NUM_WEARS; i++) { + if (char_eq[i]) + equip_char(ch, char_eq[i], i); + } +/* affect_total(ch); unnecessary, I think !?! */ +} /* Char to store */ + + + +void save_etext(struct char_data *ch) +{ +/* this will be really cool soon */ +} + + +/* + * Create a new entry in the in-memory index table for the player file. + * If the name already exists, by overwriting a deleted character, then + * we re-use the old position. + */ +int create_entry(char *name) +{ + int i, pos; + + if (top_of_p_table == -1) { /* no table */ + CREATE(player_table, struct player_index_element, 1); + pos = top_of_p_table = 0; + } else if ((pos = get_ptable_by_name(name)) == -1) { /* new name */ + i = ++top_of_p_table + 1; + + RECREATE(player_table, struct player_index_element, i); + pos = top_of_p_table; + } + + CREATE(player_table[pos].name, char, strlen(name) + 1); + + /* copy lowercase equivalent of name to table field */ + for (i = 0; (player_table[pos].name[i] = LOWER(name[i])); i++) + /* Nothing */; + + return (pos); +} + + + +/************************************************************************ +* funcs of a (more or less) general utility nature * +************************************************************************/ + + +/* read and allocate space for a '~'-terminated string from a given file */ +char *fread_string(FILE *fl, const char *error) +{ + char buf[MAX_STRING_LENGTH], tmp[513]; + char *point; + int done = 0, length = 0, templength; + + *buf = '\0'; + + do { + if (!fgets(tmp, 512, fl)) { + log("SYSERR: fread_string: format error at or near %s", error); + exit(1); + } + /* If there is a '~', end the string; else put an "\r\n" over the '\n'. */ + if ((point = strchr(tmp, '~')) != NULL) { + *point = '\0'; + done = 1; + } else { + point = tmp + strlen(tmp) - 1; + *(point++) = '\r'; + *(point++) = '\n'; + *point = '\0'; + } + + templength = strlen(tmp); + + if (length + templength >= MAX_STRING_LENGTH) { + log("SYSERR: fread_string: string too large (db.c)"); + log("%s", error); + exit(1); + } else { + strcat(buf + length, tmp); /* strcat: OK (size checked above) */ + length += templength; + } + } while (!done); + + /* allocate space for the new string and copy it */ + return (strlen(buf) ? strdup(buf) : NULL); +} + + +/* release memory allocated for a char struct */ +void free_char(struct char_data *ch) +{ + int i; + struct alias_data *a; + + if (ch->player_specials != NULL && ch->player_specials != &dummy_mob) { + while ((a = GET_ALIASES(ch)) != NULL) { + GET_ALIASES(ch) = (GET_ALIASES(ch))->next; + free_alias(a); + } + if (ch->player_specials->poofin) + free(ch->player_specials->poofin); + if (ch->player_specials->poofout) + free(ch->player_specials->poofout); + free(ch->player_specials); + if (IS_NPC(ch)) + log("SYSERR: Mob %s (#%d) had player_specials allocated!", GET_NAME(ch), GET_MOB_VNUM(ch)); + } + if (!IS_NPC(ch) || (IS_NPC(ch) && GET_MOB_RNUM(ch) == NOBODY)) { + /* if this is a player, or a non-prototyped non-player, free all */ + if (GET_NAME(ch)) + free(GET_NAME(ch)); + if (ch->player.title) + free(ch->player.title); + if (ch->player.short_descr) + free(ch->player.short_descr); + if (ch->player.long_descr) + free(ch->player.long_descr); + if (ch->player.description) + free(ch->player.description); + } else if ((i = GET_MOB_RNUM(ch)) != NOBODY) { + /* otherwise, free strings only if the string is not pointing at proto */ + if (ch->player.name && ch->player.name != mob_proto[i].player.name) + free(ch->player.name); + if (ch->player.title && ch->player.title != mob_proto[i].player.title) + free(ch->player.title); + if (ch->player.short_descr && ch->player.short_descr != mob_proto[i].player.short_descr) + free(ch->player.short_descr); + if (ch->player.long_descr && ch->player.long_descr != mob_proto[i].player.long_descr) + free(ch->player.long_descr); + if (ch->player.description && ch->player.description != mob_proto[i].player.description) + free(ch->player.description); + } + while (ch->affected) + affect_remove(ch, ch->affected); + + if (ch->desc) + ch->desc->character = NULL; + + free(ch); +} + + + + +/* release memory allocated for an obj struct */ +void free_obj(struct obj_data *obj) +{ + int nr; + + if ((nr = GET_OBJ_RNUM(obj)) == NOTHING) { + if (obj->name) + free(obj->name); + if (obj->description) + free(obj->description); + if (obj->short_description) + free(obj->short_description); + if (obj->action_description) + free(obj->action_description); + if (obj->ex_description) + free_extra_descriptions(obj->ex_description); + } else { + if (obj->name && obj->name != obj_proto[nr].name) + free(obj->name); + if (obj->description && obj->description != obj_proto[nr].description) + free(obj->description); + if (obj->short_description && obj->short_description != obj_proto[nr].short_description) + free(obj->short_description); + if (obj->action_description && obj->action_description != obj_proto[nr].action_description) + free(obj->action_description); + if (obj->ex_description && obj->ex_description != obj_proto[nr].ex_description) + free_extra_descriptions(obj->ex_description); + } + + free(obj); +} + + +/* + * Steps: + * 1: Read contents of a text file. + * 2: Make sure no one is using the pointer in paging. + * 3: Allocate space. + * 4: Point 'buf' to it. + * + * We don't want to free() the string that someone may be + * viewing in the pager. page_string() keeps the internal + * strdup()'d copy on ->showstr_head and it won't care + * if we delete the original. Otherwise, strings are kept + * on ->showstr_vector but we'll only match if the pointer + * is to the string we're interested in and not a copy. + * + * If someone is reading a global copy we're trying to + * replace, give everybody using it a different copy so + * as to avoid special cases. + */ +int file_to_string_alloc(const char *name, char **buf) +{ + int temppage; + char temp[MAX_STRING_LENGTH]; + struct descriptor_data *in_use; + + for (in_use = descriptor_list; in_use; in_use = in_use->next) + if (in_use->showstr_vector && *in_use->showstr_vector == *buf) + return (-1); + + /* Lets not free() what used to be there unless we succeeded. */ + if (file_to_string(name, temp) < 0) + return (-1); + + for (in_use = descriptor_list; in_use; in_use = in_use->next) { + if (!in_use->showstr_count || *in_use->showstr_vector != *buf) + continue; + + /* Let's be nice and leave them at the page they were on. */ + temppage = in_use->showstr_page; + paginate_string((in_use->showstr_head = strdup(*in_use->showstr_vector)), in_use); + in_use->showstr_page = temppage; + } + + if (*buf) + free(*buf); + + *buf = strdup(temp); + return (0); +} + + +/* read contents of a text file, and place in buf */ +int file_to_string(const char *name, char *buf) +{ + FILE *fl; + char tmp[READ_SIZE + 3]; + int len; + + *buf = '\0'; + + if (!(fl = fopen(name, "r"))) { + log("SYSERR: reading %s: %s", name, strerror(errno)); + return (-1); + } + + for (;;) { + if (!fgets(tmp, READ_SIZE, fl)) /* EOF check */ + break; + if ((len = strlen(tmp)) > 0) + tmp[len - 1] = '\0'; /* take off the trailing \n */ + strcat(tmp, "\r\n"); /* strcat: OK (tmp:READ_SIZE+3) */ + + if (strlen(buf) + strlen(tmp) + 1 > MAX_STRING_LENGTH) { + log("SYSERR: %s: string too big (%d max)", name, MAX_STRING_LENGTH); + *buf = '\0'; + fclose(fl); + return (-1); + } + strcat(buf, tmp); /* strcat: OK (size checked above) */ + } + + fclose(fl); + + return (0); +} + + + +/* clear some of the the working variables of a char */ +void reset_char(struct char_data *ch) +{ + int i; + + for (i = 0; i < NUM_WEARS; i++) + GET_EQ(ch, i) = NULL; + + ch->followers = NULL; + ch->master = NULL; + IN_ROOM(ch) = NOWHERE; + ch->carrying = NULL; + ch->next = NULL; + ch->next_fighting = NULL; + ch->next_in_room = NULL; + FIGHTING(ch) = NULL; + ch->char_specials.position = POS_STANDING; + ch->mob_specials.default_pos = POS_STANDING; + ch->char_specials.carry_weight = 0; + ch->char_specials.carry_items = 0; + + if (GET_HIT(ch) <= 0) + GET_HIT(ch) = 1; + if (GET_MOVE(ch) <= 0) + GET_MOVE(ch) = 1; + if (GET_MANA(ch) <= 0) + GET_MANA(ch) = 1; + + GET_LAST_TELL(ch) = NOBODY; +} + + + +/* clear ALL the working variables of a char; do NOT free any space alloc'ed */ +void clear_char(struct char_data *ch) +{ + memset((char *) ch, 0, sizeof(struct char_data)); + + IN_ROOM(ch) = NOWHERE; + GET_PFILEPOS(ch) = -1; + GET_MOB_RNUM(ch) = NOBODY; + GET_WAS_IN(ch) = NOWHERE; + GET_POS(ch) = POS_STANDING; + ch->mob_specials.default_pos = POS_STANDING; + + GET_AC(ch) = 100; /* Basic Armor */ + if (ch->points.max_mana < 100) + ch->points.max_mana = 100; +} + + +void clear_object(struct obj_data *obj) +{ + memset((char *) obj, 0, sizeof(struct obj_data)); + + obj->item_number = NOTHING; + IN_ROOM(obj) = NOWHERE; + obj->worn_on = NOWHERE; +} + + + + +/* + * Called during character creation after picking character class + * (and then never again for that character). + */ +void init_char(struct char_data *ch) +{ + int i; + + /* create a player_special structure */ + if (ch->player_specials == NULL) + CREATE(ch->player_specials, struct player_special_data, 1); + + /* *** if this is our first player --- he be God *** */ + if (top_of_p_table == 0) { + GET_LEVEL(ch) = LVL_IMPL; + GET_EXP(ch) = 7000000; + + /* The implementor never goes through do_start(). */ + GET_MAX_HIT(ch) = 500; + GET_MAX_MANA(ch) = 100; + GET_MAX_MOVE(ch) = 82; + GET_HIT(ch) = GET_MAX_HIT(ch); + GET_MANA(ch) = GET_MAX_MANA(ch); + GET_MOVE(ch) = GET_MAX_MOVE(ch); + } + + set_title(ch, NULL); + ch->player.short_descr = NULL; + ch->player.long_descr = NULL; + ch->player.description = NULL; + + ch->player.time.birth = time(0); + ch->player.time.logon = time(0); + ch->player.time.played = 0; + + GET_HOME(ch) = 1; + GET_AC(ch) = 100; + + for (i = 0; i < MAX_TONGUE; i++) + GET_TALK(ch, i) = 0; + + /* + * make favors for sex -- or in English, we bias the height and weight of the + * character depending on what gender they've chosen for themselves. While it + * is possible to have a tall, heavy female it's not as likely as a male. + * + * Height is in centimeters. Weight is in pounds. The only place they're + * ever printed (in stock code) is SPELL_IDENTIFY. + */ + if (GET_SEX(ch) == SEX_MALE) { + GET_WEIGHT(ch) = rand_number(120, 180); + GET_HEIGHT(ch) = rand_number(160, 200); /* 5'4" - 6'8" */ + } else { + GET_WEIGHT(ch) = rand_number(100, 160); + GET_HEIGHT(ch) = rand_number(150, 180); /* 5'0" - 6'0" */ + } + + if ((i = get_ptable_by_name(GET_NAME(ch))) != -1) + player_table[i].id = GET_IDNUM(ch) = ++top_idnum; + else + log("SYSERR: init_char: Character '%s' not found in player table.", GET_NAME(ch)); + + for (i = 1; i <= MAX_SKILLS; i++) { + if (GET_LEVEL(ch) < LVL_IMPL) + SET_SKILL(ch, i, 0); + else + SET_SKILL(ch, i, 100); + } + + AFF_FLAGS(ch) = 0; + + for (i = 0; i < 5; i++) + GET_SAVE(ch, i) = 0; + + ch->real_abils.intel = 25; + ch->real_abils.wis = 25; + ch->real_abils.dex = 25; + ch->real_abils.str = 25; + ch->real_abils.str_add = 100; + ch->real_abils.con = 25; + ch->real_abils.cha = 25; + + for (i = 0; i < 3; i++) + GET_COND(ch, i) = (GET_LEVEL(ch) == LVL_IMPL ? -1 : 24); + + GET_LOADROOM(ch) = NOWHERE; +} + + + +/* returns the real number of the room with given virtual number */ +room_rnum real_room(room_vnum vnum) +{ + room_rnum bot, top, mid; + + bot = 0; + top = top_of_world; + + /* perform binary search on world-table */ + for (;;) { + mid = (bot + top) / 2; + + if ((world + mid)->number == vnum) + return (mid); + if (bot >= top) + return (NOWHERE); + if ((world + mid)->number > vnum) + top = mid - 1; + else + bot = mid + 1; + } +} + + + +/* returns the real number of the monster with given virtual number */ +mob_rnum real_mobile(mob_vnum vnum) +{ + mob_rnum bot, top, mid; + + bot = 0; + top = top_of_mobt; + + /* perform binary search on mob-table */ + for (;;) { + mid = (bot + top) / 2; + + if ((mob_index + mid)->vnum == vnum) + return (mid); + if (bot >= top) + return (NOBODY); + if ((mob_index + mid)->vnum > vnum) + top = mid - 1; + else + bot = mid + 1; + } +} + + +/* returns the real number of the object with given virtual number */ +obj_rnum real_object(obj_vnum vnum) +{ + obj_rnum bot, top, mid; + + bot = 0; + top = top_of_objt; + + /* perform binary search on obj-table */ + for (;;) { + mid = (bot + top) / 2; + + if ((obj_index + mid)->vnum == vnum) + return (mid); + if (bot >= top) + return (NOTHING); + if ((obj_index + mid)->vnum > vnum) + top = mid - 1; + else + bot = mid + 1; + } +} + + +/* returns the real number of the zone with given virtual number */ +room_rnum real_zone(room_vnum vnum) +{ + room_rnum bot, top, mid; + + bot = 0; + top = top_of_zone_table; + + /* perform binary search on zone-table */ + for (;;) { + mid = (bot + top) / 2; + + if ((zone_table + mid)->number == vnum) + return (mid); + if (bot >= top) + return (NOWHERE); + if ((zone_table + mid)->number > vnum) + top = mid - 1; + else + bot = mid + 1; + } +} + + +/* + * Extend later to include more checks. + * + * TODO: Add checks for unknown bitvectors. + */ +int check_object(struct obj_data *obj) +{ + char objname[MAX_INPUT_LENGTH + 32]; + int error = FALSE; + + if (GET_OBJ_WEIGHT(obj) < 0 && (error = TRUE)) + log("SYSERR: Object #%d (%s) has negative weight (%d).", + GET_OBJ_VNUM(obj), obj->short_description, GET_OBJ_WEIGHT(obj)); + + if (GET_OBJ_RENT(obj) < 0 && (error = TRUE)) + log("SYSERR: Object #%d (%s) has negative cost/day (%d).", + GET_OBJ_VNUM(obj), obj->short_description, GET_OBJ_RENT(obj)); + + snprintf(objname, sizeof(objname), "Object #%d (%s)", GET_OBJ_VNUM(obj), obj->short_description); + error |= check_bitvector_names(GET_OBJ_WEAR(obj), wear_bits_count, objname, "object wear"); + error |= check_bitvector_names(GET_OBJ_EXTRA(obj), extra_bits_count, objname, "object extra"); + error |= check_bitvector_names(GET_OBJ_AFFECT(obj), affected_bits_count, objname, "object affect"); + + switch (GET_OBJ_TYPE(obj)) { + case ITEM_DRINKCON: + { + char onealias[MAX_INPUT_LENGTH], *space = strrchr(obj->name, ' '); + + strlcpy(onealias, space ? space + 1 : obj->name, sizeof(onealias)); + if (search_block(onealias, drinknames, TRUE) < 0 && (error = TRUE)) + log("SYSERR: Object #%d (%s) doesn't have drink type as last alias. (%s)", + GET_OBJ_VNUM(obj), obj->short_description, obj->name); + } + /* Fall through. */ + case ITEM_FOUNTAIN: + if (GET_OBJ_VAL(obj, 1) > GET_OBJ_VAL(obj, 0) && (error = TRUE)) + log("SYSERR: Object #%d (%s) contains (%d) more than maximum (%d).", + GET_OBJ_VNUM(obj), obj->short_description, + GET_OBJ_VAL(obj, 1), GET_OBJ_VAL(obj, 0)); + break; + case ITEM_SCROLL: + case ITEM_POTION: + error |= check_object_level(obj, 0); + error |= check_object_spell_number(obj, 1); + error |= check_object_spell_number(obj, 2); + error |= check_object_spell_number(obj, 3); + break; + case ITEM_WAND: + case ITEM_STAFF: + error |= check_object_level(obj, 0); + error |= check_object_spell_number(obj, 3); + if (GET_OBJ_VAL(obj, 2) > GET_OBJ_VAL(obj, 1) && (error = TRUE)) + log("SYSERR: Object #%d (%s) has more charges (%d) than maximum (%d).", + GET_OBJ_VNUM(obj), obj->short_description, + GET_OBJ_VAL(obj, 2), GET_OBJ_VAL(obj, 1)); + break; + } + + return (error); +} + +int check_object_spell_number(struct obj_data *obj, int val) +{ + int error = FALSE; + const char *spellname; + + if (GET_OBJ_VAL(obj, val) == -1) /* i.e.: no spell */ + return (error); + + /* + * Check for negative spells, spells beyond the top define, and any + * spell which is actually a skill. + */ + if (GET_OBJ_VAL(obj, val) < 0) + error = TRUE; + if (GET_OBJ_VAL(obj, val) > TOP_SPELL_DEFINE) + error = TRUE; + if (GET_OBJ_VAL(obj, val) > MAX_SPELLS && GET_OBJ_VAL(obj, val) <= MAX_SKILLS) + error = TRUE; + if (error) + log("SYSERR: Object #%d (%s) has out of range spell #%d.", + GET_OBJ_VNUM(obj), obj->short_description, GET_OBJ_VAL(obj, val)); + + /* + * This bug has been fixed, but if you don't like the special behavior... + */ +#if 0 + if (GET_OBJ_TYPE(obj) == ITEM_STAFF && + HAS_SPELL_ROUTINE(GET_OBJ_VAL(obj, val), MAG_AREAS | MAG_MASSES)) + log("... '%s' (#%d) uses %s spell '%s'.", + obj->short_description, GET_OBJ_VNUM(obj), + HAS_SPELL_ROUTINE(GET_OBJ_VAL(obj, val), MAG_AREAS) ? "area" : "mass", + skill_name(GET_OBJ_VAL(obj, val))); +#endif + + if (scheck) /* Spell names don't exist in syntax check mode. */ + return (error); + + /* Now check for unnamed spells. */ + spellname = skill_name(GET_OBJ_VAL(obj, val)); + + if ((spellname == unused_spellname || !str_cmp("UNDEFINED", spellname)) && (error = TRUE)) + log("SYSERR: Object #%d (%s) uses '%s' spell #%d.", + GET_OBJ_VNUM(obj), obj->short_description, spellname, + GET_OBJ_VAL(obj, val)); + + return (error); +} + +int check_object_level(struct obj_data *obj, int val) +{ + int error = FALSE; + + if ((GET_OBJ_VAL(obj, val) < 0 || GET_OBJ_VAL(obj, val) > LVL_IMPL) && (error = TRUE)) + log("SYSERR: Object #%d (%s) has out of range level #%d.", + GET_OBJ_VNUM(obj), obj->short_description, GET_OBJ_VAL(obj, val)); + + return (error); +} + +int check_bitvector_names(bitvector_t bits, size_t namecount, const char *whatami, const char *whatbits) +{ + unsigned int flagnum; + bool error = FALSE; + + /* See if any bits are set above the ones we know about. */ + if (bits <= (~(bitvector_t)0 >> (sizeof(bitvector_t) * 8 - namecount))) + return (FALSE); + + for (flagnum = namecount; flagnum < sizeof(bitvector_t) * 8; flagnum++) + if ((1 << flagnum) & bits) { + log("SYSERR: %s has unknown %s flag, bit %d (0 through %d known).", whatami, whatbits, flagnum, namecount - 1); + error = TRUE; + } + + return (error); +} + diff --git a/src/db.h b/src/db.h new file mode 100644 index 0000000..5a2dc98 --- /dev/null +++ b/src/db.h @@ -0,0 +1,257 @@ +/* ************************************************************************ +* File: db.h Part of CircleMUD * +* Usage: header file for database handling * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/* arbitrary constants used by index_boot() (must be unique) */ +#define DB_BOOT_WLD 0 +#define DB_BOOT_MOB 1 +#define DB_BOOT_OBJ 2 +#define DB_BOOT_ZON 3 +#define DB_BOOT_SHP 4 +#define DB_BOOT_HLP 5 + +#if defined(CIRCLE_MACINTOSH) +#define LIB_WORLD ":world:" +#define LIB_TEXT ":text:" +#define LIB_TEXT_HELP ":text:help:" +#define LIB_MISC ":misc:" +#define LIB_ETC ":etc:" +#define LIB_PLRTEXT ":plrtext:" +#define LIB_PLROBJS ":plrobjs:" +#define LIB_PLRALIAS ":plralias:" +#define LIB_HOUSE ":house:" +#define SLASH ":" +#elif defined(CIRCLE_AMIGA) || defined(CIRCLE_UNIX) || defined(CIRCLE_WINDOWS) || defined(CIRCLE_ACORN) || defined(CIRCLE_VMS) +#define LIB_WORLD "world/" +#define LIB_TEXT "text/" +#define LIB_TEXT_HELP "text/help/" +#define LIB_MISC "misc/" +#define LIB_ETC "etc/" +#define LIB_PLRTEXT "plrtext/" +#define LIB_PLROBJS "plrobjs/" +#define LIB_PLRALIAS "plralias/" +#define LIB_HOUSE "house/" +#define SLASH "/" +#else +#error "Unknown path components." +#endif + +#define SUF_OBJS "objs" +#define SUF_TEXT "text" +#define SUF_ALIAS "alias" + +#if defined(CIRCLE_AMIGA) +#define FASTBOOT_FILE "/.fastboot" /* autorun: boot without sleep */ +#define KILLSCRIPT_FILE "/.killscript" /* autorun: shut mud down */ +#define PAUSE_FILE "/pause" /* autorun: don't restart mud */ +#elif defined(CIRCLE_MACINTOSH) +#define FASTBOOT_FILE "::.fastboot" /* autorun: boot without sleep */ +#define KILLSCRIPT_FILE "::.killscript" /* autorun: shut mud down */ +#define PAUSE_FILE "::pause" /* autorun: don't restart mud */ +#else +#define FASTBOOT_FILE "../.fastboot" /* autorun: boot without sleep */ +#define KILLSCRIPT_FILE "../.killscript"/* autorun: shut mud down */ +#define PAUSE_FILE "../pause" /* autorun: don't restart mud */ +#endif + +/* names of various files and directories */ +#define INDEX_FILE "index" /* index of world files */ +#define MINDEX_FILE "index.mini" /* ... and for mini-mud-mode */ +#define WLD_PREFIX LIB_WORLD"wld"SLASH /* room definitions */ +#define MOB_PREFIX LIB_WORLD"mob"SLASH /* monster prototypes */ +#define OBJ_PREFIX LIB_WORLD"obj"SLASH /* object prototypes */ +#define ZON_PREFIX LIB_WORLD"zon"SLASH /* zon defs & command tables */ +#define SHP_PREFIX LIB_WORLD"shp"SLASH /* shop definitions */ +#define HLP_PREFIX LIB_TEXT"help"SLASH /* for HELP <keyword> */ + +#define CREDITS_FILE LIB_TEXT"credits" /* for the 'credits' command */ +#define NEWS_FILE LIB_TEXT"news" /* for the 'news' command */ +#define MOTD_FILE LIB_TEXT"motd" /* messages of the day / mortal */ +#define IMOTD_FILE LIB_TEXT"imotd" /* messages of the day / immort */ +#define GREETINGS_FILE LIB_TEXT"greetings" /* The opening screen. */ +#define HELP_PAGE_FILE LIB_TEXT_HELP"screen" /* for HELP <CR> */ +#define INFO_FILE LIB_TEXT"info" /* for INFO */ +#define WIZLIST_FILE LIB_TEXT"wizlist" /* for WIZLIST */ +#define IMMLIST_FILE LIB_TEXT"immlist" /* for IMMLIST */ +#define BACKGROUND_FILE LIB_TEXT"background"/* for the background story */ +#define POLICIES_FILE LIB_TEXT"policies" /* player policies/rules */ +#define HANDBOOK_FILE LIB_TEXT"handbook" /* handbook for new immorts */ + +#define IDEA_FILE LIB_MISC"ideas" /* for the 'idea'-command */ +#define TYPO_FILE LIB_MISC"typos" /* 'typo' */ +#define BUG_FILE LIB_MISC"bugs" /* 'bug' */ +#define MESS_FILE LIB_MISC"messages" /* damage messages */ +#define SOCMESS_FILE LIB_MISC"socials" /* messages for social acts */ +#define XNAME_FILE LIB_MISC"xnames" /* invalid name substrings */ + +#define PLAYER_FILE LIB_ETC"players" /* the player database */ +#define MAIL_FILE LIB_ETC"plrmail" /* for the mudmail system */ +#define BAN_FILE LIB_ETC"badsites" /* for the siteban system */ +#define HCONTROL_FILE LIB_ETC"hcontrol" /* for the house system */ +#define TIME_FILE LIB_ETC"time" /* for calendar system */ + +/* public procedures in db.c */ +void boot_db(void); +void destroy_db(void); +int create_entry(char *name); +void zone_update(void); +char *fread_string(FILE *fl, const char *error); +long get_id_by_name(const char *name); +char *get_name_by_id(long id); +void save_mud_time(struct time_info_data *when); +void free_extra_descriptions(struct extra_descr_data *edesc); +void free_text_files(void); +void free_player_index(void); +void free_help(void); + +zone_rnum real_zone(zone_vnum vnum); +room_rnum real_room(room_vnum vnum); +mob_rnum real_mobile(mob_vnum vnum); +obj_rnum real_object(obj_vnum vnum); + +void char_to_store(struct char_data *ch, struct char_file_u *st); +void store_to_char(struct char_file_u *st, struct char_data *ch); +int load_char(const char *name, struct char_file_u *char_element); +void save_char(struct char_data *ch); +void init_char(struct char_data *ch); +struct char_data* create_char(void); +struct char_data *read_mobile(mob_vnum nr, int type); +int vnum_mobile(char *searchname, struct char_data *ch); +void clear_char(struct char_data *ch); +void reset_char(struct char_data *ch); +void free_char(struct char_data *ch); + +struct obj_data *create_obj(void); +void clear_object(struct obj_data *obj); +void free_obj(struct obj_data *obj); +struct obj_data *read_object(obj_vnum nr, int type); +int vnum_object(char *searchname, struct char_data *ch); + +#define REAL 0 +#define VIRTUAL 1 + +/* structure for the reset commands */ +struct reset_com { + char command; /* current command */ + + bool if_flag; /* if TRUE: exe only if preceding exe'd */ + int arg1; /* */ + int arg2; /* Arguments to the command */ + int arg3; /* */ + int line; /* line number this command appears on */ + + /* + * Commands: * + * 'M': Read a mobile * + * 'O': Read an object * + * 'G': Give obj to mob * + * 'P': Put obj in obj * + * 'G': Obj to char * + * 'E': Obj to char equip * + * 'D': Set state of door * + */ +}; + + + +/* zone definition structure. for the 'zone-table' */ +struct zone_data { + char *name; /* name of this zone */ + int lifespan; /* how long between resets (minutes) */ + int age; /* current age of this zone (minutes) */ + room_vnum bot; /* starting room number for this zone */ + room_vnum top; /* upper limit for rooms in this zone */ + + int reset_mode; /* conditions for reset (see below) */ + zone_vnum number; /* virtual number of this zone */ + struct reset_com *cmd; /* command table for reset */ + + /* + * Reset mode: + * 0: Don't reset, and don't update age. + * 1: Reset if no PC's are located in zone. + * 2: Just reset. + */ +}; + + + +/* for queueing zones for update */ +struct reset_q_element { + zone_rnum zone_to_reset; /* ref to zone_data */ + struct reset_q_element *next; +}; + + + +/* structure for the update queue */ +struct reset_q_type { + struct reset_q_element *head; + struct reset_q_element *tail; +}; + + + +struct player_index_element { + char *name; + long id; +}; + + +struct help_index_element { + char *keyword; + char *entry; + int duplicate; +}; + + +/* don't change these */ +#define BAN_NOT 0 +#define BAN_NEW 1 +#define BAN_SELECT 2 +#define BAN_ALL 3 + +#define BANNED_SITE_LENGTH 50 +struct ban_list_element { + char site[BANNED_SITE_LENGTH+1]; + int type; + time_t date; + char name[MAX_NAME_LENGTH+1]; + struct ban_list_element *next; +}; + + +/* global buffering system */ + +#ifndef __DB_C__ +extern struct room_data *world; +extern room_rnum top_of_world; + +extern struct zone_data *zone_table; +extern zone_rnum top_of_zone_table; + +extern struct descriptor_data *descriptor_list; +extern struct char_data *character_list; +extern struct player_special_data dummy_mob; + +extern struct index_data *mob_index; +extern struct char_data *mob_proto; +extern mob_rnum top_of_mobt; + +extern struct index_data *obj_index; +extern struct obj_data *object_list; +extern struct obj_data *obj_proto; +extern obj_rnum top_of_objt; +#endif + +#ifndef __CONFIG_C__ +extern char *OK; +extern char *NOPERSON; +extern char *NOEFFECT; +#endif diff --git a/src/doc/.gitignore b/src/doc/.gitignore new file mode 100644 index 0000000..2f6638e --- /dev/null +++ b/src/doc/.gitignore @@ -0,0 +1,63 @@ +conf.h +.accepted +Makefile +act.comm.c.html +act.informative.c.html +act.item.c.html +act.movement.c.html +act.offensive.c.html +act.other.c.html +act.social.c.html +act.wizard.c.html +alias.c.html +ban.c.html +boards.c.html +boards.h.html +castle.c.html +circle.function +circle.html +circle.include +circle.typedef +circle.variable +class.c.html +comm.c.html +comm.h.html +conf.h.html +config.c.html +constants.c.html +constants.h.html +db.c.html +db.h.html +fight.c.html +graph.c.html +handler.c.html +handler.h.html +house.c.html +house.h.html +index.html +interpreter.c.html +interpreter.h.html +limits.c.html +magic.c.html +mail.c.html +mail.h.html +mobact.c.html +modify.c.html +objsave.c.html +olc.c.html +olc.h.html +random.c.html +screen.h.html +shop.c.html +shop.h.html +spec_assign.c.html +spec_procs.c.html +spell_parser.c.html +spells.c.html +spells.h.html +structs.h.html +sysdep.h.html +telnet.h.html +utils.c.html +utils.h.html +weather.c.html diff --git a/src/fight.c b/src/fight.c new file mode 100644 index 0000000..1a321d3 --- /dev/null +++ b/src/fight.c @@ -0,0 +1,997 @@ +/* ************************************************************************ +* File: fight.c Part of CircleMUD * +* Usage: Combat system * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "handler.h" +#include "interpreter.h" +#include "db.h" +#include "spells.h" +#include "screen.h" +#include "constants.h" + +/* Structures */ +struct char_data *combat_list = NULL; /* head of l-list of fighting chars */ +struct char_data *next_combat_list = NULL; + +/* External structures */ +extern struct message_list fight_messages[MAX_MESSAGES]; +extern int pk_allowed; /* see config.c */ +extern int max_exp_gain; /* see config.c */ +extern int max_exp_loss; /* see config.c */ +extern int max_npc_corpse_time, max_pc_corpse_time; + +/* External procedures */ +char *fread_action(FILE *fl, int nr); +ACMD(do_flee); +int backstab_mult(int level); +int thaco(int ch_class, int level); +int ok_damage_shopkeeper(struct char_data *ch, struct char_data *victim); + +/* local functions */ +void perform_group_gain(struct char_data *ch, int base, struct char_data *victim); +void dam_message(int dam, struct char_data *ch, struct char_data *victim, int w_type); +void appear(struct char_data *ch); +void load_messages(void); +void free_messages(void); +void free_messages_type(struct msg_type *msg); +void check_killer(struct char_data *ch, struct char_data *vict); +void make_corpse(struct char_data *ch); +void change_alignment(struct char_data *ch, struct char_data *victim); +void death_cry(struct char_data *ch); +void raw_kill(struct char_data *ch); +void die(struct char_data *ch); +void group_gain(struct char_data *ch, struct char_data *victim); +void solo_gain(struct char_data *ch, struct char_data *victim); +char *replace_string(const char *str, const char *weapon_singular, const char *weapon_plural); +void perform_violence(void); +int compute_armor_class(struct char_data *ch); +int compute_thaco(struct char_data *ch, struct char_data *vict); + +/* Weapon attack texts */ +struct attack_hit_type attack_hit_text[] = +{ + {"hit", "hits"}, /* 0 */ + {"sting", "stings"}, + {"whip", "whips"}, + {"slash", "slashes"}, + {"bite", "bites"}, + {"bludgeon", "bludgeons"}, /* 5 */ + {"crush", "crushes"}, + {"pound", "pounds"}, + {"claw", "claws"}, + {"maul", "mauls"}, + {"thrash", "thrashes"}, /* 10 */ + {"pierce", "pierces"}, + {"blast", "blasts"}, + {"punch", "punches"}, + {"stab", "stabs"} +}; + +#define IS_WEAPON(type) (((type) >= TYPE_HIT) && ((type) < TYPE_SUFFERING)) + +/* The Fight related routines */ + +void appear(struct char_data *ch) +{ + if (affected_by_spell(ch, SPELL_INVISIBLE)) + affect_from_char(ch, SPELL_INVISIBLE); + + REMOVE_BIT(AFF_FLAGS(ch), AFF_INVISIBLE | AFF_HIDE); + + if (GET_LEVEL(ch) < LVL_IMMORT) + act("$n slowly fades into existence.", FALSE, ch, 0, 0, TO_ROOM); + else + act("You feel a strange presence as $n appears, seemingly from nowhere.", + FALSE, ch, 0, 0, TO_ROOM); +} + + +int compute_armor_class(struct char_data *ch) +{ + int armorclass = GET_AC(ch); + + if (AWAKE(ch)) + armorclass += dex_app[GET_DEX(ch)].defensive * 10; + + return (MAX(-100, armorclass)); /* -100 is lowest */ +} + + +void free_messages_type(struct msg_type *msg) +{ + if (msg->attacker_msg) free(msg->attacker_msg); + if (msg->victim_msg) free(msg->victim_msg); + if (msg->room_msg) free(msg->room_msg); +} + + +void free_messages(void) +{ + int i; + + for (i = 0; i < MAX_MESSAGES; i++) + while (fight_messages[i].msg) { + struct message_type *former = fight_messages[i].msg; + + free_messages_type(&former->die_msg); + free_messages_type(&former->miss_msg); + free_messages_type(&former->hit_msg); + free_messages_type(&former->god_msg); + + fight_messages[i].msg = fight_messages[i].msg->next; + free(former); + } +} + + +void load_messages(void) +{ + FILE *fl; + int i, type; + struct message_type *messages; + char chk[128]; + + if (!(fl = fopen(MESS_FILE, "r"))) { + log("SYSERR: Error reading combat message file %s: %s", MESS_FILE, strerror(errno)); + exit(1); + } + + for (i = 0; i < MAX_MESSAGES; i++) { + fight_messages[i].a_type = 0; + fight_messages[i].number_of_attacks = 0; + fight_messages[i].msg = NULL; + } + + fgets(chk, 128, fl); + while (!feof(fl) && (*chk == '\n' || *chk == '*')) + fgets(chk, 128, fl); + + while (*chk == 'M') { + fgets(chk, 128, fl); + sscanf(chk, " %d\n", &type); + for (i = 0; (i < MAX_MESSAGES) && (fight_messages[i].a_type != type) && + (fight_messages[i].a_type); i++); + if (i >= MAX_MESSAGES) { + log("SYSERR: Too many combat messages. Increase MAX_MESSAGES and recompile."); + exit(1); + } + CREATE(messages, struct message_type, 1); + fight_messages[i].number_of_attacks++; + fight_messages[i].a_type = type; + messages->next = fight_messages[i].msg; + fight_messages[i].msg = messages; + + messages->die_msg.attacker_msg = fread_action(fl, i); + messages->die_msg.victim_msg = fread_action(fl, i); + messages->die_msg.room_msg = fread_action(fl, i); + messages->miss_msg.attacker_msg = fread_action(fl, i); + messages->miss_msg.victim_msg = fread_action(fl, i); + messages->miss_msg.room_msg = fread_action(fl, i); + messages->hit_msg.attacker_msg = fread_action(fl, i); + messages->hit_msg.victim_msg = fread_action(fl, i); + messages->hit_msg.room_msg = fread_action(fl, i); + messages->god_msg.attacker_msg = fread_action(fl, i); + messages->god_msg.victim_msg = fread_action(fl, i); + messages->god_msg.room_msg = fread_action(fl, i); + fgets(chk, 128, fl); + while (!feof(fl) && (*chk == '\n' || *chk == '*')) + fgets(chk, 128, fl); + } + + fclose(fl); +} + + +void update_pos(struct char_data *victim) +{ + if ((GET_HIT(victim) > 0) && (GET_POS(victim) > POS_STUNNED)) + return; + else if (GET_HIT(victim) > 0) + GET_POS(victim) = POS_STANDING; + else if (GET_HIT(victim) <= -11) + GET_POS(victim) = POS_DEAD; + else if (GET_HIT(victim) <= -6) + GET_POS(victim) = POS_MORTALLYW; + else if (GET_HIT(victim) <= -3) + GET_POS(victim) = POS_INCAP; + else + GET_POS(victim) = POS_STUNNED; +} + + +void check_killer(struct char_data *ch, struct char_data *vict) +{ + if (PLR_FLAGGED(vict, PLR_KILLER) || PLR_FLAGGED(vict, PLR_THIEF)) + return; + if (PLR_FLAGGED(ch, PLR_KILLER) || IS_NPC(ch) || IS_NPC(vict) || ch == vict) + return; + + SET_BIT(PLR_FLAGS(ch), PLR_KILLER); + send_to_char(ch, "If you want to be a PLAYER KILLER, so be it...\r\n"); + mudlog(BRF, LVL_IMMORT, TRUE, "PC Killer bit set on %s for initiating attack on %s at %s.", + GET_NAME(ch), GET_NAME(vict), world[IN_ROOM(vict)].name); +} + + +/* start one char fighting another (yes, it is horrible, I know... ) */ +void set_fighting(struct char_data *ch, struct char_data *vict) +{ + if (ch == vict) + return; + + if (FIGHTING(ch)) { + core_dump(); + return; + } + + ch->next_fighting = combat_list; + combat_list = ch; + + if (AFF_FLAGGED(ch, AFF_SLEEP)) + affect_from_char(ch, SPELL_SLEEP); + + FIGHTING(ch) = vict; + GET_POS(ch) = POS_FIGHTING; + + if (!pk_allowed) + check_killer(ch, vict); +} + + + +/* remove a char from the list of fighting chars */ +void stop_fighting(struct char_data *ch) +{ + struct char_data *temp; + + if (ch == next_combat_list) + next_combat_list = ch->next_fighting; + + REMOVE_FROM_LIST(ch, combat_list, next_fighting); + ch->next_fighting = NULL; + FIGHTING(ch) = NULL; + GET_POS(ch) = POS_STANDING; + update_pos(ch); +} + + + +void make_corpse(struct char_data *ch) +{ + char buf2[MAX_NAME_LENGTH + 64]; + struct obj_data *corpse, *o; + struct obj_data *money; + int i; + + corpse = create_obj(); + + corpse->item_number = NOTHING; + IN_ROOM(corpse) = NOWHERE; + corpse->name = strdup("corpse"); + + snprintf(buf2, sizeof(buf2), "The corpse of %s is lying here.", GET_NAME(ch)); + corpse->description = strdup(buf2); + + snprintf(buf2, sizeof(buf2), "the corpse of %s", GET_NAME(ch)); + corpse->short_description = strdup(buf2); + + GET_OBJ_TYPE(corpse) = ITEM_CONTAINER; + GET_OBJ_WEAR(corpse) = ITEM_WEAR_TAKE; + GET_OBJ_EXTRA(corpse) = ITEM_NODONATE; + GET_OBJ_VAL(corpse, 0) = 0; /* You can't store stuff in a corpse */ + GET_OBJ_VAL(corpse, 3) = 1; /* corpse identifier */ + GET_OBJ_WEIGHT(corpse) = GET_WEIGHT(ch) + IS_CARRYING_W(ch); + GET_OBJ_RENT(corpse) = 100000; + if (IS_NPC(ch)) + GET_OBJ_TIMER(corpse) = max_npc_corpse_time; + else + GET_OBJ_TIMER(corpse) = max_pc_corpse_time; + + /* transfer character's inventory to the corpse */ + corpse->contains = ch->carrying; + for (o = corpse->contains; o != NULL; o = o->next_content) + o->in_obj = corpse; + object_list_new_owner(corpse, NULL); + + /* transfer character's equipment to the corpse */ + for (i = 0; i < NUM_WEARS; i++) + if (GET_EQ(ch, i)) + obj_to_obj(unequip_char(ch, i), corpse); + + /* transfer gold */ + if (GET_GOLD(ch) > 0) { + /* + * following 'if' clause added to fix gold duplication loophole + * The above line apparently refers to the old "partially log in, + * kill the game character, then finish login sequence" duping + * bug. The duplication has been fixed (knock on wood) but the + * test below shall live on, for a while. -gg 3/3/2002 + */ + if (IS_NPC(ch) || ch->desc) { + money = create_money(GET_GOLD(ch)); + obj_to_obj(money, corpse); + } + GET_GOLD(ch) = 0; + } + ch->carrying = NULL; + IS_CARRYING_N(ch) = 0; + IS_CARRYING_W(ch) = 0; + + obj_to_room(corpse, IN_ROOM(ch)); +} + + +/* When ch kills victim */ +void change_alignment(struct char_data *ch, struct char_data *victim) +{ + /* + * new alignment change algorithm: if you kill a monster with alignment A, + * you move 1/16th of the way to having alignment -A. Simple and fast. + */ + GET_ALIGNMENT(ch) += (-GET_ALIGNMENT(victim) - GET_ALIGNMENT(ch)) / 16; +} + + + +void death_cry(struct char_data *ch) +{ + int door; + + act("Your blood freezes as you hear $n's death cry.", FALSE, ch, 0, 0, TO_ROOM); + + for (door = 0; door < NUM_OF_DIRS; door++) + if (CAN_GO(ch, door)) + send_to_room(world[IN_ROOM(ch)].dir_option[door]->to_room, "Your blood freezes as you hear someone's death cry.\r\n"); +} + + + +void raw_kill(struct char_data *ch) +{ + if (FIGHTING(ch)) + stop_fighting(ch); + + while (ch->affected) + affect_remove(ch, ch->affected); + + death_cry(ch); + + make_corpse(ch); + extract_char(ch); +} + + + +void die(struct char_data *ch) +{ + gain_exp(ch, -(GET_EXP(ch) / 2)); + if (!IS_NPC(ch)) + REMOVE_BIT(PLR_FLAGS(ch), PLR_KILLER | PLR_THIEF); + raw_kill(ch); +} + + + +void perform_group_gain(struct char_data *ch, int base, + struct char_data *victim) +{ + int share; + + share = MIN(max_exp_gain, MAX(1, base)); + + if (share > 1) + send_to_char(ch, "You receive your share of experience -- %d points.\r\n", share); + else + send_to_char(ch, "You receive your share of experience -- one measly little point!\r\n"); + + gain_exp(ch, share); + change_alignment(ch, victim); +} + + +void group_gain(struct char_data *ch, struct char_data *victim) +{ + int tot_members, base, tot_gain; + struct char_data *k; + struct follow_type *f; + + if (!(k = ch->master)) + k = ch; + + if (AFF_FLAGGED(k, AFF_GROUP) && (IN_ROOM(k) == IN_ROOM(ch))) + tot_members = 1; + else + tot_members = 0; + + for (f = k->followers; f; f = f->next) + if (AFF_FLAGGED(f->follower, AFF_GROUP) && IN_ROOM(f->follower) == IN_ROOM(ch)) + tot_members++; + + /* round up to the next highest tot_members */ + tot_gain = (GET_EXP(victim) / 3) + tot_members - 1; + + /* prevent illegal xp creation when killing players */ + if (!IS_NPC(victim)) + tot_gain = MIN(max_exp_loss * 2 / 3, tot_gain); + + if (tot_members >= 1) + base = MAX(1, tot_gain / tot_members); + else + base = 0; + + if (AFF_FLAGGED(k, AFF_GROUP) && IN_ROOM(k) == IN_ROOM(ch)) + perform_group_gain(k, base, victim); + + for (f = k->followers; f; f = f->next) + if (AFF_FLAGGED(f->follower, AFF_GROUP) && IN_ROOM(f->follower) == IN_ROOM(ch)) + perform_group_gain(f->follower, base, victim); +} + + +void solo_gain(struct char_data *ch, struct char_data *victim) +{ + int exp; + + exp = MIN(max_exp_gain, GET_EXP(victim) / 3); + + /* Calculate level-difference bonus */ + if (IS_NPC(ch)) + exp += MAX(0, (exp * MIN(4, (GET_LEVEL(victim) - GET_LEVEL(ch)))) / 8); + else + exp += MAX(0, (exp * MIN(8, (GET_LEVEL(victim) - GET_LEVEL(ch)))) / 8); + + exp = MAX(exp, 1); + + if (exp > 1) + send_to_char(ch, "You receive %d experience points.\r\n", exp); + else + send_to_char(ch, "You receive one lousy experience point.\r\n"); + + gain_exp(ch, exp); + change_alignment(ch, victim); +} + + +char *replace_string(const char *str, const char *weapon_singular, const char *weapon_plural) +{ + static char buf[256]; + char *cp = buf; + + for (; *str; str++) { + if (*str == '#') { + switch (*(++str)) { + case 'W': + for (; *weapon_plural; *(cp++) = *(weapon_plural++)); + break; + case 'w': + for (; *weapon_singular; *(cp++) = *(weapon_singular++)); + break; + default: + *(cp++) = '#'; + break; + } + } else + *(cp++) = *str; + + *cp = 0; + } /* For */ + + return (buf); +} + + +/* message for doing damage with a weapon */ +void dam_message(int dam, struct char_data *ch, struct char_data *victim, + int w_type) +{ + char *buf; + int msgnum; + + static struct dam_weapon_type { + const char *to_room; + const char *to_char; + const char *to_victim; + } dam_weapons[] = { + + /* use #w for singular (i.e. "slash") and #W for plural (i.e. "slashes") */ + + { + "$n tries to #w $N, but misses.", /* 0: 0 */ + "You try to #w $N, but miss.", + "$n tries to #w you, but misses." + }, + + { + "$n tickles $N as $e #W $M.", /* 1: 1..2 */ + "You tickle $N as you #w $M.", + "$n tickles you as $e #W you." + }, + + { + "$n barely #W $N.", /* 2: 3..4 */ + "You barely #w $N.", + "$n barely #W you." + }, + + { + "$n #W $N.", /* 3: 5..6 */ + "You #w $N.", + "$n #W you." + }, + + { + "$n #W $N hard.", /* 4: 7..10 */ + "You #w $N hard.", + "$n #W you hard." + }, + + { + "$n #W $N very hard.", /* 5: 11..14 */ + "You #w $N very hard.", + "$n #W you very hard." + }, + + { + "$n #W $N extremely hard.", /* 6: 15..19 */ + "You #w $N extremely hard.", + "$n #W you extremely hard." + }, + + { + "$n massacres $N to small fragments with $s #w.", /* 7: 19..23 */ + "You massacre $N to small fragments with your #w.", + "$n massacres you to small fragments with $s #w." + }, + + { + "$n OBLITERATES $N with $s deadly #w!!", /* 8: > 23 */ + "You OBLITERATE $N with your deadly #w!!", + "$n OBLITERATES you with $s deadly #w!!" + } + }; + + + w_type -= TYPE_HIT; /* Change to base of table with text */ + + if (dam == 0) msgnum = 0; + else if (dam <= 2) msgnum = 1; + else if (dam <= 4) msgnum = 2; + else if (dam <= 6) msgnum = 3; + else if (dam <= 10) msgnum = 4; + else if (dam <= 14) msgnum = 5; + else if (dam <= 19) msgnum = 6; + else if (dam <= 23) msgnum = 7; + else msgnum = 8; + + /* damage message to onlookers */ + buf = replace_string(dam_weapons[msgnum].to_room, + attack_hit_text[w_type].singular, attack_hit_text[w_type].plural); + act(buf, FALSE, ch, NULL, victim, TO_NOTVICT); + + /* damage message to damager */ + send_to_char(ch, CCYEL(ch, C_CMP)); + buf = replace_string(dam_weapons[msgnum].to_char, + attack_hit_text[w_type].singular, attack_hit_text[w_type].plural); + act(buf, FALSE, ch, NULL, victim, TO_CHAR); + send_to_char(ch, CCNRM(ch, C_CMP)); + + /* damage message to damagee */ + send_to_char(victim, CCRED(victim, C_CMP)); + buf = replace_string(dam_weapons[msgnum].to_victim, + attack_hit_text[w_type].singular, attack_hit_text[w_type].plural); + act(buf, FALSE, ch, NULL, victim, TO_VICT | TO_SLEEP); + send_to_char(victim, CCNRM(victim, C_CMP)); +} + + +/* + * message for doing damage with a spell or skill + * C3.0: Also used for weapon damage on miss and death blows + */ +int skill_message(int dam, struct char_data *ch, struct char_data *vict, + int attacktype) +{ + int i, j, nr; + struct message_type *msg; + + struct obj_data *weap = GET_EQ(ch, WEAR_WIELD); + + for (i = 0; i < MAX_MESSAGES; i++) { + if (fight_messages[i].a_type == attacktype) { + nr = dice(1, fight_messages[i].number_of_attacks); + for (j = 1, msg = fight_messages[i].msg; (j < nr) && msg; j++) + msg = msg->next; + + if (!IS_NPC(vict) && (GET_LEVEL(vict) >= LVL_IMMORT)) { + act(msg->god_msg.attacker_msg, FALSE, ch, weap, vict, TO_CHAR); + act(msg->god_msg.victim_msg, FALSE, ch, weap, vict, TO_VICT); + act(msg->god_msg.room_msg, FALSE, ch, weap, vict, TO_NOTVICT); + } else if (dam != 0) { + /* + * Don't send redundant color codes for TYPE_SUFFERING & other types + * of damage without attacker_msg. + */ + if (GET_POS(vict) == POS_DEAD) { + if (msg->die_msg.attacker_msg) { + send_to_char(ch, CCYEL(ch, C_CMP)); + act(msg->die_msg.attacker_msg, FALSE, ch, weap, vict, TO_CHAR); + send_to_char(ch, CCNRM(ch, C_CMP)); + } + + send_to_char(vict, CCRED(vict, C_CMP)); + act(msg->die_msg.victim_msg, FALSE, ch, weap, vict, TO_VICT | TO_SLEEP); + send_to_char(vict, CCNRM(vict, C_CMP)); + + act(msg->die_msg.room_msg, FALSE, ch, weap, vict, TO_NOTVICT); + } else { + if (msg->hit_msg.attacker_msg) { + send_to_char(ch, CCYEL(ch, C_CMP)); + act(msg->hit_msg.attacker_msg, FALSE, ch, weap, vict, TO_CHAR); + send_to_char(ch, CCNRM(ch, C_CMP)); + } + + send_to_char(vict, CCRED(vict, C_CMP)); + act(msg->hit_msg.victim_msg, FALSE, ch, weap, vict, TO_VICT | TO_SLEEP); + send_to_char(vict, CCNRM(vict, C_CMP)); + + act(msg->hit_msg.room_msg, FALSE, ch, weap, vict, TO_NOTVICT); + } + } else if (ch != vict) { /* Dam == 0 */ + if (msg->miss_msg.attacker_msg) { + send_to_char(ch, CCYEL(ch, C_CMP)); + act(msg->miss_msg.attacker_msg, FALSE, ch, weap, vict, TO_CHAR); + send_to_char(ch, CCNRM(ch, C_CMP)); + } + + send_to_char(vict, CCRED(vict, C_CMP)); + act(msg->miss_msg.victim_msg, FALSE, ch, weap, vict, TO_VICT | TO_SLEEP); + send_to_char(vict, CCNRM(vict, C_CMP)); + + act(msg->miss_msg.room_msg, FALSE, ch, weap, vict, TO_NOTVICT); + } + return (1); + } + } + return (0); +} + +/* + * Alert: As of bpl14, this function returns the following codes: + * < 0 Victim died. + * = 0 No damage. + * > 0 How much damage done. + */ +int damage(struct char_data *ch, struct char_data *victim, int dam, int attacktype) +{ + if (GET_POS(victim) <= POS_DEAD) { + /* This is "normal"-ish now with delayed extraction. -gg 3/15/2001 */ + if (PLR_FLAGGED(victim, PLR_NOTDEADYET) || MOB_FLAGGED(victim, MOB_NOTDEADYET)) + return (-1); + + log("SYSERR: Attempt to damage corpse '%s' in room #%d by '%s'.", + GET_NAME(victim), GET_ROOM_VNUM(IN_ROOM(victim)), GET_NAME(ch)); + die(victim); + return (-1); /* -je, 7/7/92 */ + } + + /* peaceful rooms */ + if (ch != victim && ROOM_FLAGGED(IN_ROOM(ch), ROOM_PEACEFUL)) { + send_to_char(ch, "This room just has such a peaceful, easy feeling...\r\n"); + return (0); + } + + /* shopkeeper protection */ + if (!ok_damage_shopkeeper(ch, victim)) + return (0); + + /* You can't damage an immortal! */ + if (!IS_NPC(victim) && (GET_LEVEL(victim) >= LVL_IMMORT)) + dam = 0; + + if (victim != ch) { + /* Start the attacker fighting the victim */ + if (GET_POS(ch) > POS_STUNNED && (FIGHTING(ch) == NULL)) + set_fighting(ch, victim); + + /* Start the victim fighting the attacker */ + if (GET_POS(victim) > POS_STUNNED && (FIGHTING(victim) == NULL)) { + set_fighting(victim, ch); + if (MOB_FLAGGED(victim, MOB_MEMORY) && !IS_NPC(ch)) + remember(victim, ch); + } + } + + /* If you attack a pet, it hates your guts */ + if (victim->master == ch) + stop_follower(victim); + + /* If the attacker is invisible, he becomes visible */ + if (AFF_FLAGGED(ch, AFF_INVISIBLE | AFF_HIDE)) + appear(ch); + + /* Cut damage in half if victim has sanct, to a minimum 1 */ + if (AFF_FLAGGED(victim, AFF_SANCTUARY) && dam >= 2) + dam /= 2; + + /* Check for PK if this is not a PK MUD */ + if (!pk_allowed) { + check_killer(ch, victim); + if (PLR_FLAGGED(ch, PLR_KILLER) && (ch != victim)) + dam = 0; + } + + /* Set the maximum damage per round and subtract the hit points */ + dam = MAX(MIN(dam, 100), 0); + GET_HIT(victim) -= dam; + + /* Gain exp for the hit */ + if (ch != victim) + gain_exp(ch, GET_LEVEL(victim) * dam); + + update_pos(victim); + + /* + * skill_message sends a message from the messages file in lib/misc. + * dam_message just sends a generic "You hit $n extremely hard.". + * skill_message is preferable to dam_message because it is more + * descriptive. + * + * If we are _not_ attacking with a weapon (i.e. a spell), always use + * skill_message. If we are attacking with a weapon: If this is a miss or a + * death blow, send a skill_message if one exists; if not, default to a + * dam_message. Otherwise, always send a dam_message. + */ + if (!IS_WEAPON(attacktype)) + skill_message(dam, ch, victim, attacktype); + else { + if (GET_POS(victim) == POS_DEAD || dam == 0) { + if (!skill_message(dam, ch, victim, attacktype)) + dam_message(dam, ch, victim, attacktype); + } else { + dam_message(dam, ch, victim, attacktype); + } + } + + /* Use send_to_char -- act() doesn't send message if you are DEAD. */ + switch (GET_POS(victim)) { + case POS_MORTALLYW: + act("$n is mortally wounded, and will die soon, if not aided.", TRUE, victim, 0, 0, TO_ROOM); + send_to_char(victim, "You are mortally wounded, and will die soon, if not aided.\r\n"); + break; + case POS_INCAP: + act("$n is incapacitated and will slowly die, if not aided.", TRUE, victim, 0, 0, TO_ROOM); + send_to_char(victim, "You are incapacitated an will slowly die, if not aided.\r\n"); + break; + case POS_STUNNED: + act("$n is stunned, but will probably regain consciousness again.", TRUE, victim, 0, 0, TO_ROOM); + send_to_char(victim, "You're stunned, but will probably regain consciousness again.\r\n"); + break; + case POS_DEAD: + act("$n is dead! R.I.P.", FALSE, victim, 0, 0, TO_ROOM); + send_to_char(victim, "You are dead! Sorry...\r\n"); + break; + + default: /* >= POSITION SLEEPING */ + if (dam > (GET_MAX_HIT(victim) / 4)) + send_to_char(victim, "That really did HURT!\r\n"); + + if (GET_HIT(victim) < (GET_MAX_HIT(victim) / 4)) { + send_to_char(victim, "%sYou wish that your wounds would stop BLEEDING so much!%s\r\n", + CCRED(victim, C_SPR), CCNRM(victim, C_SPR)); + if (ch != victim && MOB_FLAGGED(victim, MOB_WIMPY)) + do_flee(victim, NULL, 0, 0); + } + if (!IS_NPC(victim) && GET_WIMP_LEV(victim) && (victim != ch) && + GET_HIT(victim) < GET_WIMP_LEV(victim) && GET_HIT(victim) > 0) { + send_to_char(victim, "You wimp out, and attempt to flee!\r\n"); + do_flee(victim, NULL, 0, 0); + } + break; + } + + /* Help out poor linkless people who are attacked */ + if (!IS_NPC(victim) && !(victim->desc) && GET_POS(victim) > POS_STUNNED) { + do_flee(victim, NULL, 0, 0); + if (!FIGHTING(victim)) { + act("$n is rescued by divine forces.", FALSE, victim, 0, 0, TO_ROOM); + GET_WAS_IN(victim) = IN_ROOM(victim); + char_from_room(victim); + char_to_room(victim, 0); + } + } + + /* stop someone from fighting if they're stunned or worse */ + if (GET_POS(victim) <= POS_STUNNED && FIGHTING(victim) != NULL) + stop_fighting(victim); + + /* Uh oh. Victim died. */ + if (GET_POS(victim) == POS_DEAD) { + if (ch != victim && (IS_NPC(victim) || victim->desc)) { + if (AFF_FLAGGED(ch, AFF_GROUP)) + group_gain(ch, victim); + else + solo_gain(ch, victim); + } + + if (!IS_NPC(victim)) { + mudlog(BRF, LVL_IMMORT, TRUE, "%s killed by %s at %s", GET_NAME(victim), GET_NAME(ch), world[IN_ROOM(victim)].name); + if (MOB_FLAGGED(ch, MOB_MEMORY)) + forget(ch, victim); + } + die(victim); + return (-1); + } + return (dam); +} + + +/* + * Calculate the THAC0 of the attacker. + * + * 'victim' currently isn't used but you could use it for special cases like + * weapons that hit evil creatures easier or a weapon that always misses + * attacking an animal. + */ +int compute_thaco(struct char_data *ch, struct char_data *victim) +{ + int calc_thaco; + + if (!IS_NPC(ch)) + calc_thaco = thaco(GET_CLASS(ch), GET_LEVEL(ch)); + else /* THAC0 for monsters is set in the HitRoll */ + calc_thaco = 20; + calc_thaco -= str_app[STRENGTH_APPLY_INDEX(ch)].tohit; + calc_thaco -= GET_HITROLL(ch); + calc_thaco -= (int) ((GET_INT(ch) - 13) / 1.5); /* Intelligence helps! */ + calc_thaco -= (int) ((GET_WIS(ch) - 13) / 1.5); /* So does wisdom */ + + return calc_thaco; +} + + +void hit(struct char_data *ch, struct char_data *victim, int type) +{ + struct obj_data *wielded = GET_EQ(ch, WEAR_WIELD); + int w_type, victim_ac, calc_thaco, dam, diceroll; + + /* Do some sanity checking, in case someone flees, etc. */ + if (IN_ROOM(ch) != IN_ROOM(victim)) { + if (FIGHTING(ch) && FIGHTING(ch) == victim) + stop_fighting(ch); + return; + } + + /* Find the weapon type (for display purposes only) */ + if (wielded && GET_OBJ_TYPE(wielded) == ITEM_WEAPON) + w_type = GET_OBJ_VAL(wielded, 3) + TYPE_HIT; + else { + if (IS_NPC(ch) && ch->mob_specials.attack_type != 0) + w_type = ch->mob_specials.attack_type + TYPE_HIT; + else + w_type = TYPE_HIT; + } + + /* Calculate chance of hit. Lower THAC0 is better for attacker. */ + calc_thaco = compute_thaco(ch, victim); + + /* Calculate the raw armor including magic armor. Lower AC is better for defender. */ + victim_ac = compute_armor_class(victim) / 10; + + /* roll the die and take your chances... */ + diceroll = rand_number(1, 20); + + /* + * Decide whether this is a hit or a miss. + * + * Victim asleep = hit, otherwise: + * 1 = Automatic miss. + * 2..19 = Checked vs. AC. + * 20 = Automatic hit. + */ + if (diceroll == 20 || !AWAKE(victim)) + dam = TRUE; + else if (diceroll == 1) + dam = FALSE; + else + dam = (calc_thaco - diceroll <= victim_ac); + + if (!dam) + /* the attacker missed the victim */ + damage(ch, victim, 0, type == SKILL_BACKSTAB ? SKILL_BACKSTAB : w_type); + else { + /* okay, we know the guy has been hit. now calculate damage. */ + + /* Start with the damage bonuses: the damroll and strength apply */ + dam = str_app[STRENGTH_APPLY_INDEX(ch)].todam; + dam += GET_DAMROLL(ch); + + /* Maybe holding arrow? */ + if (wielded && GET_OBJ_TYPE(wielded) == ITEM_WEAPON) { + /* Add weapon-based damage if a weapon is being wielded */ + dam += dice(GET_OBJ_VAL(wielded, 1), GET_OBJ_VAL(wielded, 2)); + } else { + /* If no weapon, add bare hand damage instead */ + if (IS_NPC(ch)) + dam += dice(ch->mob_specials.damnodice, ch->mob_specials.damsizedice); + else + dam += rand_number(0, 2); /* Max 2 bare hand damage for players */ + } + + /* + * Include a damage multiplier if victim isn't ready to fight: + * + * Position sitting 1.33 x normal + * Position resting 1.66 x normal + * Position sleeping 2.00 x normal + * Position stunned 2.33 x normal + * Position incap 2.66 x normal + * Position mortally 3.00 x normal + * + * Note, this is a hack because it depends on the particular + * values of the POSITION_XXX constants. + */ + if (GET_POS(victim) < POS_FIGHTING) + dam *= 1 + (POS_FIGHTING - GET_POS(victim)) / 3; + + /* at least 1 hp damage min per hit */ + dam = MAX(1, dam); + + if (type == SKILL_BACKSTAB) + damage(ch, victim, dam * backstab_mult(GET_LEVEL(ch)), SKILL_BACKSTAB); + else + damage(ch, victim, dam, w_type); + } +} + + + +/* control the fights going on. Called every 2 seconds from comm.c. */ +void perform_violence(void) +{ + struct char_data *ch; + + for (ch = combat_list; ch; ch = next_combat_list) { + next_combat_list = ch->next_fighting; + + if (FIGHTING(ch) == NULL || IN_ROOM(ch) != IN_ROOM(FIGHTING(ch))) { + stop_fighting(ch); + continue; + } + + if (IS_NPC(ch)) { + if (GET_MOB_WAIT(ch) > 0) { + GET_MOB_WAIT(ch) -= PULSE_VIOLENCE; + continue; + } + GET_MOB_WAIT(ch) = 0; + if (GET_POS(ch) < POS_FIGHTING) { + GET_POS(ch) = POS_FIGHTING; + act("$n scrambles to $s feet!", TRUE, ch, 0, 0, TO_ROOM); + } + } + + if (GET_POS(ch) < POS_FIGHTING) { + send_to_char(ch, "You can't fight while sitting!!\r\n"); + continue; + } + + hit(ch, FIGHTING(ch), TYPE_UNDEFINED); + if (MOB_FLAGGED(ch, MOB_SPEC) && GET_MOB_SPEC(ch) && !MOB_FLAGGED(ch, MOB_NOTDEADYET)) { + char actbuf[MAX_INPUT_LENGTH] = ""; + (GET_MOB_SPEC(ch)) (ch, ch, 0, actbuf); + } + } +} diff --git a/src/graph.c b/src/graph.c new file mode 100644 index 0000000..37ed27a --- /dev/null +++ b/src/graph.c @@ -0,0 +1,249 @@ +/* ************************************************************************ +* File: graph.c Part of CircleMUD * +* Usage: various graph algorithms * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" + + +/* external functions */ +ACMD(do_say); + +/* external variables */ +extern const char *dirs[]; +extern int track_through_doors; + +/* local functions */ +int VALID_EDGE(room_rnum x, int y); +void bfs_enqueue(room_rnum room, int dir); +void bfs_dequeue(void); +void bfs_clear_queue(void); +int find_first_step(room_rnum src, room_rnum target); +ACMD(do_track); +void hunt_victim(struct char_data *ch); + +struct bfs_queue_struct { + room_rnum room; + char dir; + struct bfs_queue_struct *next; +}; + +static struct bfs_queue_struct *queue_head = 0, *queue_tail = 0; + +/* Utility macros */ +#define MARK(room) (SET_BIT(ROOM_FLAGS(room), ROOM_BFS_MARK)) +#define UNMARK(room) (REMOVE_BIT(ROOM_FLAGS(room), ROOM_BFS_MARK)) +#define IS_MARKED(room) (ROOM_FLAGGED(room, ROOM_BFS_MARK)) +#define TOROOM(x, y) (world[(x)].dir_option[(y)]->to_room) +#define IS_CLOSED(x, y) (EXIT_FLAGGED(world[(x)].dir_option[(y)], EX_CLOSED)) + +int VALID_EDGE(room_rnum x, int y) +{ + if (world[x].dir_option[y] == NULL || TOROOM(x, y) == NOWHERE) + return 0; + if (track_through_doors == FALSE && IS_CLOSED(x, y)) + return 0; + if (ROOM_FLAGGED(TOROOM(x, y), ROOM_NOTRACK) || IS_MARKED(TOROOM(x, y))) + return 0; + + return 1; +} + +void bfs_enqueue(room_rnum room, int dir) +{ + struct bfs_queue_struct *curr; + + CREATE(curr, struct bfs_queue_struct, 1); + curr->room = room; + curr->dir = dir; + curr->next = 0; + + if (queue_tail) { + queue_tail->next = curr; + queue_tail = curr; + } else + queue_head = queue_tail = curr; +} + + +void bfs_dequeue(void) +{ + struct bfs_queue_struct *curr; + + curr = queue_head; + + if (!(queue_head = queue_head->next)) + queue_tail = 0; + free(curr); +} + + +void bfs_clear_queue(void) +{ + while (queue_head) + bfs_dequeue(); +} + + +/* + * find_first_step: given a source room and a target room, find the first + * step on the shortest path from the source to the target. + * + * Intended usage: in mobile_activity, give a mob a dir to go if they're + * tracking another mob or a PC. Or, a 'track' skill for PCs. + */ +int find_first_step(room_rnum src, room_rnum target) +{ + int curr_dir; + room_rnum curr_room; + + if (src == NOWHERE || target == NOWHERE || src > top_of_world || target > top_of_world) { + log("SYSERR: Illegal value %d or %d passed to find_first_step. (%s)", src, target, __FILE__); + return (BFS_ERROR); + } + if (src == target) + return (BFS_ALREADY_THERE); + + /* clear marks first, some OLC systems will save the mark. */ + for (curr_room = 0; curr_room <= top_of_world; curr_room++) + UNMARK(curr_room); + + MARK(src); + + /* first, enqueue the first steps, saving which direction we're going. */ + for (curr_dir = 0; curr_dir < NUM_OF_DIRS; curr_dir++) + if (VALID_EDGE(src, curr_dir)) { + MARK(TOROOM(src, curr_dir)); + bfs_enqueue(TOROOM(src, curr_dir), curr_dir); + } + + /* now, do the classic BFS. */ + while (queue_head) { + if (queue_head->room == target) { + curr_dir = queue_head->dir; + bfs_clear_queue(); + return (curr_dir); + } else { + for (curr_dir = 0; curr_dir < NUM_OF_DIRS; curr_dir++) + if (VALID_EDGE(queue_head->room, curr_dir)) { + MARK(TOROOM(queue_head->room, curr_dir)); + bfs_enqueue(TOROOM(queue_head->room, curr_dir), queue_head->dir); + } + bfs_dequeue(); + } + } + + return (BFS_NO_PATH); +} + + +/******************************************************** +* Functions and Commands which use the above functions. * +********************************************************/ + +ACMD(do_track) +{ + char arg[MAX_INPUT_LENGTH]; + struct char_data *vict; + int dir; + + /* The character must have the track skill. */ + if (IS_NPC(ch) || !GET_SKILL(ch, SKILL_TRACK)) { + send_to_char(ch, "You have no idea how.\r\n"); + return; + } + one_argument(argument, arg); + if (!*arg) { + send_to_char(ch, "Whom are you trying to track?\r\n"); + return; + } + /* The person can't see the victim. */ + if (!(vict = get_char_vis(ch, arg, NULL, FIND_CHAR_WORLD))) { + send_to_char(ch, "No one is around by that name.\r\n"); + return; + } + /* We can't track the victim. */ + if (AFF_FLAGGED(vict, AFF_NOTRACK)) { + send_to_char(ch, "You sense no trail.\r\n"); + return; + } + + /* 101 is a complete failure, no matter what the proficiency. */ + if (rand_number(0, 101) >= GET_SKILL(ch, SKILL_TRACK)) { + int tries = 10; + /* Find a random direction. :) */ + do { + dir = rand_number(0, NUM_OF_DIRS - 1); + } while (!CAN_GO(ch, dir) && --tries); + send_to_char(ch, "You sense a trail %s from here!\r\n", dirs[dir]); + return; + } + + /* They passed the skill check. */ + dir = find_first_step(IN_ROOM(ch), IN_ROOM(vict)); + + switch (dir) { + case BFS_ERROR: + send_to_char(ch, "Hmm.. something seems to be wrong.\r\n"); + break; + case BFS_ALREADY_THERE: + send_to_char(ch, "You're already in the same room!!\r\n"); + break; + case BFS_NO_PATH: + send_to_char(ch, "You can't sense a trail to %s from here.\r\n", HMHR(vict)); + break; + default: /* Success! */ + send_to_char(ch, "You sense a trail %s from here!\r\n", dirs[dir]); + break; + } +} + + +void hunt_victim(struct char_data *ch) +{ + int dir; + byte found; + struct char_data *tmp; + + if (!ch || !HUNTING(ch) || FIGHTING(ch)) + return; + + /* make sure the char still exists */ + for (found = FALSE, tmp = character_list; tmp && !found; tmp = tmp->next) + if (HUNTING(ch) == tmp) + found = TRUE; + + if (!found) { + char actbuf[MAX_INPUT_LENGTH] = "Damn! My prey is gone!!"; + + do_say(ch, actbuf, 0, 0); + HUNTING(ch) = NULL; + return; + } + if ((dir = find_first_step(IN_ROOM(ch), IN_ROOM(HUNTING(ch)))) < 0) { + char buf[MAX_INPUT_LENGTH]; + + snprintf(buf, sizeof(buf), "Damn! I lost %s!", HMHR(HUNTING(ch))); + do_say(ch, buf, 0, 0); + HUNTING(ch) = NULL; + } else { + perform_move(ch, dir, 1); + if (IN_ROOM(ch) == IN_ROOM(HUNTING(ch))) + hit(ch, HUNTING(ch), TYPE_UNDEFINED); + } +} diff --git a/src/handler.c b/src/handler.c new file mode 100644 index 0000000..8f6e82d --- /dev/null +++ b/src/handler.c @@ -0,0 +1,1393 @@ +/* ************************************************************************ +* File: handler.c Part of CircleMUD * +* Usage: internal funcs: moving and finding chars/objs * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "db.h" +#include "handler.h" +#include "interpreter.h" +#include "spells.h" + +/* local vars */ +int extractions_pending = 0; + +/* external vars */ +extern struct char_data *combat_list; +extern const char *MENU; + +/* local functions */ +int apply_ac(struct char_data *ch, int eq_pos); +void update_object(struct obj_data *obj, int use); +void update_char_objects(struct char_data *ch); + +/* external functions */ +int invalid_class(struct char_data *ch, struct obj_data *obj); +void remove_follower(struct char_data *ch); +void clearMemory(struct char_data *ch); +ACMD(do_return); + +char *fname(const char *namelist) +{ + static char holder[30]; + char *point; + + for (point = holder; isalpha(*namelist); namelist++, point++) + *point = *namelist; + + *point = '\0'; + + return (holder); +} + + +int isname(const char *str, const char *namelist) +{ + const char *curname, *curstr; + + curname = namelist; + for (;;) { + for (curstr = str;; curstr++, curname++) { + if (!*curstr && !isalpha(*curname)) + return (1); + + if (!*curname) + return (0); + + if (!*curstr || *curname == ' ') + break; + + if (LOWER(*curstr) != LOWER(*curname)) + break; + } + + /* skip to next name */ + + for (; isalpha(*curname); curname++); + if (!*curname) + return (0); + curname++; /* first char of new name */ + } +} + + + +void affect_modify(struct char_data *ch, byte loc, sbyte mod, + bitvector_t bitv, bool add) +{ + if (add) + SET_BIT(AFF_FLAGS(ch), bitv); + else { + REMOVE_BIT(AFF_FLAGS(ch), bitv); + mod = -mod; + } + + switch (loc) { + case APPLY_NONE: + break; + + case APPLY_STR: + GET_STR(ch) += mod; + break; + case APPLY_DEX: + GET_DEX(ch) += mod; + break; + case APPLY_INT: + GET_INT(ch) += mod; + break; + case APPLY_WIS: + GET_WIS(ch) += mod; + break; + case APPLY_CON: + GET_CON(ch) += mod; + break; + case APPLY_CHA: + GET_CHA(ch) += mod; + break; + + case APPLY_CLASS: + /* ??? GET_CLASS(ch) += mod; */ + break; + + /* + * My personal thoughts on these two would be to set the person to the + * value of the apply. That way you won't have to worry about people + * making +1 level things to be imp (you restrict anything that gives + * immortal level of course). It also makes more sense to set someone + * to a class rather than adding to the class number. -gg + */ + + case APPLY_LEVEL: + /* ??? GET_LEVEL(ch) += mod; */ + break; + + case APPLY_AGE: + ch->player.time.birth -= (mod * SECS_PER_MUD_YEAR); + break; + + case APPLY_CHAR_WEIGHT: + GET_WEIGHT(ch) += mod; + break; + + case APPLY_CHAR_HEIGHT: + GET_HEIGHT(ch) += mod; + break; + + case APPLY_MANA: + GET_MAX_MANA(ch) += mod; + break; + + case APPLY_HIT: + GET_MAX_HIT(ch) += mod; + break; + + case APPLY_MOVE: + GET_MAX_MOVE(ch) += mod; + break; + + case APPLY_GOLD: + break; + + case APPLY_EXP: + break; + + case APPLY_AC: + GET_AC(ch) += mod; + break; + + case APPLY_HITROLL: + GET_HITROLL(ch) += mod; + break; + + case APPLY_DAMROLL: + GET_DAMROLL(ch) += mod; + break; + + case APPLY_SAVING_PARA: + GET_SAVE(ch, SAVING_PARA) += mod; + break; + + case APPLY_SAVING_ROD: + GET_SAVE(ch, SAVING_ROD) += mod; + break; + + case APPLY_SAVING_PETRI: + GET_SAVE(ch, SAVING_PETRI) += mod; + break; + + case APPLY_SAVING_BREATH: + GET_SAVE(ch, SAVING_BREATH) += mod; + break; + + case APPLY_SAVING_SPELL: + GET_SAVE(ch, SAVING_SPELL) += mod; + break; + + default: + log("SYSERR: Unknown apply adjust %d attempt (%s, affect_modify).", loc, __FILE__); + break; + + } /* switch */ +} + + + +/* This updates a character by subtracting everything he is affected by */ +/* restoring original abilities, and then affecting all again */ +void affect_total(struct char_data *ch) +{ + struct affected_type *af; + int i, j; + + for (i = 0; i < NUM_WEARS; i++) { + if (GET_EQ(ch, i)) + for (j = 0; j < MAX_OBJ_AFFECT; j++) + affect_modify(ch, GET_EQ(ch, i)->affected[j].location, + GET_EQ(ch, i)->affected[j].modifier, + GET_OBJ_AFFECT(GET_EQ(ch, i)), FALSE); + } + + + for (af = ch->affected; af; af = af->next) + affect_modify(ch, af->location, af->modifier, af->bitvector, FALSE); + + ch->aff_abils = ch->real_abils; + + for (i = 0; i < NUM_WEARS; i++) { + if (GET_EQ(ch, i)) + for (j = 0; j < MAX_OBJ_AFFECT; j++) + affect_modify(ch, GET_EQ(ch, i)->affected[j].location, + GET_EQ(ch, i)->affected[j].modifier, + GET_OBJ_AFFECT(GET_EQ(ch, i)), TRUE); + } + + + for (af = ch->affected; af; af = af->next) + affect_modify(ch, af->location, af->modifier, af->bitvector, TRUE); + + /* Make certain values are between 0..25, not < 0 and not > 25! */ + + i = (IS_NPC(ch) || GET_LEVEL(ch) >= LVL_GRGOD) ? 25 : 18; + + GET_DEX(ch) = MAX(0, MIN(GET_DEX(ch), i)); + GET_INT(ch) = MAX(0, MIN(GET_INT(ch), i)); + GET_WIS(ch) = MAX(0, MIN(GET_WIS(ch), i)); + GET_CON(ch) = MAX(0, MIN(GET_CON(ch), i)); + GET_CHA(ch) = MAX(0, MIN(GET_CHA(ch), i)); + GET_STR(ch) = MAX(0, GET_STR(ch)); + + if (IS_NPC(ch)) { + GET_STR(ch) = MIN(GET_STR(ch), i); + } else { + if (GET_STR(ch) > 18) { + i = GET_ADD(ch) + ((GET_STR(ch) - 18) * 10); + GET_ADD(ch) = MIN(i, 100); + GET_STR(ch) = 18; + } + } +} + + + +/* Insert an affect_type in a char_data structure + Automatically sets apropriate bits and apply's */ +void affect_to_char(struct char_data *ch, struct affected_type *af) +{ + struct affected_type *affected_alloc; + + CREATE(affected_alloc, struct affected_type, 1); + + *affected_alloc = *af; + affected_alloc->next = ch->affected; + ch->affected = affected_alloc; + + affect_modify(ch, af->location, af->modifier, af->bitvector, TRUE); + affect_total(ch); +} + + + +/* + * Remove an affected_type structure from a char (called when duration + * reaches zero). Pointer *af must never be NIL! Frees mem and calls + * affect_location_apply + */ +void affect_remove(struct char_data *ch, struct affected_type *af) +{ + struct affected_type *temp; + + if (ch->affected == NULL) { + core_dump(); + return; + } + + affect_modify(ch, af->location, af->modifier, af->bitvector, FALSE); + REMOVE_FROM_LIST(af, ch->affected, next); + free(af); + affect_total(ch); +} + + + +/* Call affect_remove with every spell of spelltype "skill" */ +void affect_from_char(struct char_data *ch, int type) +{ + struct affected_type *hjp, *next; + + for (hjp = ch->affected; hjp; hjp = next) { + next = hjp->next; + if (hjp->type == type) + affect_remove(ch, hjp); + } +} + + + +/* + * Return TRUE if a char is affected by a spell (SPELL_XXX), + * FALSE indicates not affected. + */ +bool affected_by_spell(struct char_data *ch, int type) +{ + struct affected_type *hjp; + + for (hjp = ch->affected; hjp; hjp = hjp->next) + if (hjp->type == type) + return (TRUE); + + return (FALSE); +} + + + +void affect_join(struct char_data *ch, struct affected_type *af, + bool add_dur, bool avg_dur, bool add_mod, bool avg_mod) +{ + struct affected_type *hjp, *next; + bool found = FALSE; + + for (hjp = ch->affected; !found && hjp; hjp = next) { + next = hjp->next; + + if ((hjp->type == af->type) && (hjp->location == af->location)) { + if (add_dur) + af->duration += hjp->duration; + if (avg_dur) + af->duration /= 2; + + if (add_mod) + af->modifier += hjp->modifier; + if (avg_mod) + af->modifier /= 2; + + affect_remove(ch, hjp); + affect_to_char(ch, af); + found = TRUE; + } + } + if (!found) + affect_to_char(ch, af); +} + + +/* move a player out of a room */ +void char_from_room(struct char_data *ch) +{ + struct char_data *temp; + + if (ch == NULL || IN_ROOM(ch) == NOWHERE) { + log("SYSERR: NULL character or NOWHERE in %s, char_from_room", __FILE__); + exit(1); + } + + if (FIGHTING(ch) != NULL) + stop_fighting(ch); + + if (GET_EQ(ch, WEAR_LIGHT) != NULL) + if (GET_OBJ_TYPE(GET_EQ(ch, WEAR_LIGHT)) == ITEM_LIGHT) + if (GET_OBJ_VAL(GET_EQ(ch, WEAR_LIGHT), 2)) /* Light is ON */ + world[IN_ROOM(ch)].light--; + + REMOVE_FROM_LIST(ch, world[IN_ROOM(ch)].people, next_in_room); + IN_ROOM(ch) = NOWHERE; + ch->next_in_room = NULL; +} + + +/* place a character in a room */ +void char_to_room(struct char_data *ch, room_rnum room) +{ + if (ch == NULL || room == NOWHERE || room > top_of_world) + log("SYSERR: Illegal value(s) passed to char_to_room. (Room: %d/%d Ch: %p", + room, top_of_world, ch); + else { + ch->next_in_room = world[room].people; + world[room].people = ch; + IN_ROOM(ch) = room; + + if (GET_EQ(ch, WEAR_LIGHT)) + if (GET_OBJ_TYPE(GET_EQ(ch, WEAR_LIGHT)) == ITEM_LIGHT) + if (GET_OBJ_VAL(GET_EQ(ch, WEAR_LIGHT), 2)) /* Light ON */ + world[room].light++; + + /* Stop fighting now, if we left. */ + if (FIGHTING(ch) && IN_ROOM(ch) != IN_ROOM(FIGHTING(ch))) { + stop_fighting(FIGHTING(ch)); + stop_fighting(ch); + } + } +} + + +/* give an object to a char */ +void obj_to_char(struct obj_data *object, struct char_data *ch) +{ + if (object && ch) { + object->next_content = ch->carrying; + ch->carrying = object; + object->carried_by = ch; + IN_ROOM(object) = NOWHERE; + IS_CARRYING_W(ch) += GET_OBJ_WEIGHT(object); + IS_CARRYING_N(ch)++; + + /* set flag for crash-save system, but not on mobs! */ + if (!IS_NPC(ch)) + SET_BIT(PLR_FLAGS(ch), PLR_CRASH); + } else + log("SYSERR: NULL obj (%p) or char (%p) passed to obj_to_char.", object, ch); +} + + +/* take an object from a char */ +void obj_from_char(struct obj_data *object) +{ + struct obj_data *temp; + + if (object == NULL) { + log("SYSERR: NULL object passed to obj_from_char."); + return; + } + REMOVE_FROM_LIST(object, object->carried_by->carrying, next_content); + + /* set flag for crash-save system, but not on mobs! */ + if (!IS_NPC(object->carried_by)) + SET_BIT(PLR_FLAGS(object->carried_by), PLR_CRASH); + + IS_CARRYING_W(object->carried_by) -= GET_OBJ_WEIGHT(object); + IS_CARRYING_N(object->carried_by)--; + object->carried_by = NULL; + object->next_content = NULL; +} + + + +/* Return the effect of a piece of armor in position eq_pos */ +int apply_ac(struct char_data *ch, int eq_pos) +{ + int factor; + + if (GET_EQ(ch, eq_pos) == NULL) { + core_dump(); + return (0); + } + + if (!(GET_OBJ_TYPE(GET_EQ(ch, eq_pos)) == ITEM_ARMOR)) + return (0); + + switch (eq_pos) { + + case WEAR_BODY: + factor = 3; + break; /* 30% */ + case WEAR_HEAD: + factor = 2; + break; /* 20% */ + case WEAR_LEGS: + factor = 2; + break; /* 20% */ + default: + factor = 1; + break; /* all others 10% */ + } + + return (factor * GET_OBJ_VAL(GET_EQ(ch, eq_pos), 0)); +} + +int invalid_align(struct char_data *ch, struct obj_data *obj) +{ + if (OBJ_FLAGGED(obj, ITEM_ANTI_EVIL) && IS_EVIL(ch)) + return TRUE; + if (OBJ_FLAGGED(obj, ITEM_ANTI_GOOD) && IS_GOOD(ch)) + return TRUE; + if (OBJ_FLAGGED(obj, ITEM_ANTI_NEUTRAL) && IS_NEUTRAL(ch)) + return TRUE; + return FALSE; +} + +void equip_char(struct char_data *ch, struct obj_data *obj, int pos) +{ + int j; + + if (pos < 0 || pos >= NUM_WEARS) { + core_dump(); + return; + } + + if (GET_EQ(ch, pos)) { + log("SYSERR: Char is already equipped: %s, %s", GET_NAME(ch), + obj->short_description); + return; + } + if (obj->carried_by) { + log("SYSERR: EQUIP: Obj is carried_by when equip."); + return; + } + if (IN_ROOM(obj) != NOWHERE) { + log("SYSERR: EQUIP: Obj is in_room when equip."); + return; + } + if (invalid_align(ch, obj) || invalid_class(ch, obj)) { + act("You are zapped by $p and instantly let go of it.", FALSE, ch, obj, 0, TO_CHAR); + act("$n is zapped by $p and instantly lets go of it.", FALSE, ch, obj, 0, TO_ROOM); + /* Changed to drop in inventory instead of the ground. */ + obj_to_char(obj, ch); + return; + } + + GET_EQ(ch, pos) = obj; + obj->worn_by = ch; + obj->worn_on = pos; + + if (GET_OBJ_TYPE(obj) == ITEM_ARMOR) + GET_AC(ch) -= apply_ac(ch, pos); + + if (IN_ROOM(ch) != NOWHERE) { + if (pos == WEAR_LIGHT && GET_OBJ_TYPE(obj) == ITEM_LIGHT) + if (GET_OBJ_VAL(obj, 2)) /* if light is ON */ + world[IN_ROOM(ch)].light++; + } else + log("SYSERR: IN_ROOM(ch) = NOWHERE when equipping char %s.", GET_NAME(ch)); + + for (j = 0; j < MAX_OBJ_AFFECT; j++) + affect_modify(ch, obj->affected[j].location, + obj->affected[j].modifier, + GET_OBJ_AFFECT(obj), TRUE); + + affect_total(ch); +} + + + +struct obj_data *unequip_char(struct char_data *ch, int pos) +{ + int j; + struct obj_data *obj; + + if ((pos < 0 || pos >= NUM_WEARS) || GET_EQ(ch, pos) == NULL) { + core_dump(); + return (NULL); + } + + obj = GET_EQ(ch, pos); + obj->worn_by = NULL; + obj->worn_on = -1; + + if (GET_OBJ_TYPE(obj) == ITEM_ARMOR) + GET_AC(ch) += apply_ac(ch, pos); + + if (IN_ROOM(ch) != NOWHERE) { + if (pos == WEAR_LIGHT && GET_OBJ_TYPE(obj) == ITEM_LIGHT) + if (GET_OBJ_VAL(obj, 2)) /* if light is ON */ + world[IN_ROOM(ch)].light--; + } else + log("SYSERR: IN_ROOM(ch) = NOWHERE when unequipping char %s.", GET_NAME(ch)); + + GET_EQ(ch, pos) = NULL; + + for (j = 0; j < MAX_OBJ_AFFECT; j++) + affect_modify(ch, obj->affected[j].location, + obj->affected[j].modifier, + GET_OBJ_AFFECT(obj), FALSE); + + affect_total(ch); + + return (obj); +} + + +int get_number(char **name) +{ + int i; + char *ppos; + char number[MAX_INPUT_LENGTH]; + + *number = '\0'; + + if ((ppos = strchr(*name, '.')) != NULL) { + *ppos++ = '\0'; + strlcpy(number, *name, sizeof(number)); + strcpy(*name, ppos); /* strcpy: OK (always smaller) */ + + for (i = 0; *(number + i); i++) + if (!isdigit(*(number + i))) + return (0); + + return (atoi(number)); + } + return (1); +} + + + +/* Search a given list for an object number, and return a ptr to that obj */ +struct obj_data *get_obj_in_list_num(int num, struct obj_data *list) +{ + struct obj_data *i; + + for (i = list; i; i = i->next_content) + if (GET_OBJ_RNUM(i) == num) + return (i); + + return (NULL); +} + + + +/* search the entire world for an object number, and return a pointer */ +struct obj_data *get_obj_num(obj_rnum nr) +{ + struct obj_data *i; + + for (i = object_list; i; i = i->next) + if (GET_OBJ_RNUM(i) == nr) + return (i); + + return (NULL); +} + + + +/* search a room for a char, and return a pointer if found.. */ +struct char_data *get_char_room(char *name, int *number, room_rnum room) +{ + struct char_data *i; + int num; + + if (!number) { + number = # + num = get_number(&name); + } + + if (*number == 0) + return (NULL); + + for (i = world[room].people; i && *number; i = i->next_in_room) + if (isname(name, i->player.name)) + if (--(*number) == 0) + return (i); + + return (NULL); +} + + + +/* search all over the world for a char num, and return a pointer if found */ +struct char_data *get_char_num(mob_rnum nr) +{ + struct char_data *i; + + for (i = character_list; i; i = i->next) + if (GET_MOB_RNUM(i) == nr) + return (i); + + return (NULL); +} + + + +/* put an object in a room */ +void obj_to_room(struct obj_data *object, room_rnum room) +{ + if (!object || room == NOWHERE || room > top_of_world) + log("SYSERR: Illegal value(s) passed to obj_to_room. (Room #%d/%d, obj %p)", + room, top_of_world, object); + else { + object->next_content = world[room].contents; + world[room].contents = object; + IN_ROOM(object) = room; + object->carried_by = NULL; + if (ROOM_FLAGGED(room, ROOM_HOUSE)) + SET_BIT(ROOM_FLAGS(room), ROOM_HOUSE_CRASH); + } +} + + +/* Take an object from a room */ +void obj_from_room(struct obj_data *object) +{ + struct obj_data *temp; + + if (!object || IN_ROOM(object) == NOWHERE) { + log("SYSERR: NULL object (%p) or obj not in a room (%d) passed to obj_from_room", + object, IN_ROOM(object)); + return; + } + + REMOVE_FROM_LIST(object, world[IN_ROOM(object)].contents, next_content); + + if (ROOM_FLAGGED(IN_ROOM(object), ROOM_HOUSE)) + SET_BIT(ROOM_FLAGS(IN_ROOM(object)), ROOM_HOUSE_CRASH); + IN_ROOM(object) = NOWHERE; + object->next_content = NULL; +} + + +/* put an object in an object (quaint) */ +void obj_to_obj(struct obj_data *obj, struct obj_data *obj_to) +{ + struct obj_data *tmp_obj; + + if (!obj || !obj_to || obj == obj_to) { + log("SYSERR: NULL object (%p) or same source (%p) and target (%p) obj passed to obj_to_obj.", + obj, obj, obj_to); + return; + } + + obj->next_content = obj_to->contains; + obj_to->contains = obj; + obj->in_obj = obj_to; + + for (tmp_obj = obj->in_obj; tmp_obj->in_obj; tmp_obj = tmp_obj->in_obj) + GET_OBJ_WEIGHT(tmp_obj) += GET_OBJ_WEIGHT(obj); + + /* top level object. Subtract weight from inventory if necessary. */ + GET_OBJ_WEIGHT(tmp_obj) += GET_OBJ_WEIGHT(obj); + if (tmp_obj->carried_by) + IS_CARRYING_W(tmp_obj->carried_by) += GET_OBJ_WEIGHT(obj); +} + + +/* remove an object from an object */ +void obj_from_obj(struct obj_data *obj) +{ + struct obj_data *temp, *obj_from; + + if (obj->in_obj == NULL) { + log("SYSERR: (%s): trying to illegally extract obj from obj.", __FILE__); + return; + } + obj_from = obj->in_obj; + REMOVE_FROM_LIST(obj, obj_from->contains, next_content); + + /* Subtract weight from containers container */ + for (temp = obj->in_obj; temp->in_obj; temp = temp->in_obj) + GET_OBJ_WEIGHT(temp) -= GET_OBJ_WEIGHT(obj); + + /* Subtract weight from char that carries the object */ + GET_OBJ_WEIGHT(temp) -= GET_OBJ_WEIGHT(obj); + if (temp->carried_by) + IS_CARRYING_W(temp->carried_by) -= GET_OBJ_WEIGHT(obj); + + obj->in_obj = NULL; + obj->next_content = NULL; +} + + +/* Set all carried_by to point to new owner */ +void object_list_new_owner(struct obj_data *list, struct char_data *ch) +{ + if (list) { + object_list_new_owner(list->contains, ch); + object_list_new_owner(list->next_content, ch); + list->carried_by = ch; + } +} + + +/* Extract an object from the world */ +void extract_obj(struct obj_data *obj) +{ + struct obj_data *temp; + + if (obj->worn_by != NULL) + if (unequip_char(obj->worn_by, obj->worn_on) != obj) + log("SYSERR: Inconsistent worn_by and worn_on pointers!!"); + if (IN_ROOM(obj) != NOWHERE) + obj_from_room(obj); + else if (obj->carried_by) + obj_from_char(obj); + else if (obj->in_obj) + obj_from_obj(obj); + + /* Get rid of the contents of the object, as well. */ + while (obj->contains) + extract_obj(obj->contains); + + REMOVE_FROM_LIST(obj, object_list, next); + + if (GET_OBJ_RNUM(obj) != NOTHING) + (obj_index[GET_OBJ_RNUM(obj)].number)--; + free_obj(obj); +} + + + +void update_object(struct obj_data *obj, int use) +{ + if (GET_OBJ_TIMER(obj) > 0) + GET_OBJ_TIMER(obj) -= use; + if (obj->contains) + update_object(obj->contains, use); + if (obj->next_content) + update_object(obj->next_content, use); +} + + +void update_char_objects(struct char_data *ch) +{ + int i; + + if (GET_EQ(ch, WEAR_LIGHT) != NULL) + if (GET_OBJ_TYPE(GET_EQ(ch, WEAR_LIGHT)) == ITEM_LIGHT) + if (GET_OBJ_VAL(GET_EQ(ch, WEAR_LIGHT), 2) > 0) { + i = --GET_OBJ_VAL(GET_EQ(ch, WEAR_LIGHT), 2); + if (i == 1) { + send_to_char(ch, "Your light begins to flicker and fade.\r\n"); + act("$n's light begins to flicker and fade.", FALSE, ch, 0, 0, TO_ROOM); + } else if (i == 0) { + send_to_char(ch, "Your light sputters out and dies.\r\n"); + act("$n's light sputters out and dies.", FALSE, ch, 0, 0, TO_ROOM); + world[IN_ROOM(ch)].light--; + } + } + + for (i = 0; i < NUM_WEARS; i++) + if (GET_EQ(ch, i)) + update_object(GET_EQ(ch, i), 2); + + if (ch->carrying) + update_object(ch->carrying, 1); +} + + +/* Extract a ch completely from the world, and leave his stuff behind */ +void extract_char_final(struct char_data *ch) +{ + struct char_data *k, *temp; + struct descriptor_data *d; + struct obj_data *obj; + int i; + + if (IN_ROOM(ch) == NOWHERE) { + log("SYSERR: NOWHERE extracting char %s. (%s, extract_char_final)", + GET_NAME(ch), __FILE__); + exit(1); + } + + /* + * We're booting the character of someone who has switched so first we + * need to stuff them back into their own body. This will set ch->desc + * we're checking below this loop to the proper value. + */ + if (!IS_NPC(ch) && !ch->desc) { + for (d = descriptor_list; d; d = d->next) + if (d->original == ch) { + do_return(d->character, NULL, 0, 0); + break; + } + } + + if (ch->desc) { + /* + * This time we're extracting the body someone has switched into + * (not the body of someone switching as above) so we need to put + * the switcher back to their own body. + * + * If this body is not possessed, the owner won't have a + * body after the removal so dump them to the main menu. + */ + if (ch->desc->original) + do_return(ch, NULL, 0, 0); + else { + /* + * Now we boot anybody trying to log in with the same character, to + * help guard against duping. CON_DISCONNECT is used to close a + * descriptor without extracting the d->character associated with it, + * for being link-dead, so we want CON_CLOSE to clean everything up. + * If we're here, we know it's a player so no IS_NPC check required. + */ + for (d = descriptor_list; d; d = d->next) { + if (d == ch->desc) + continue; + if (d->character && GET_IDNUM(ch) == GET_IDNUM(d->character)) + STATE(d) = CON_CLOSE; + } + STATE(ch->desc) = CON_MENU; + write_to_output(ch->desc, "%s", MENU); + } + } + + /* On with the character's assets... */ + + if (ch->followers || ch->master) + die_follower(ch); + + /* transfer objects to room, if any */ + while (ch->carrying) { + obj = ch->carrying; + obj_from_char(obj); + obj_to_room(obj, IN_ROOM(ch)); + } + + /* transfer equipment to room, if any */ + for (i = 0; i < NUM_WEARS; i++) + if (GET_EQ(ch, i)) + obj_to_room(unequip_char(ch, i), IN_ROOM(ch)); + + if (FIGHTING(ch)) + stop_fighting(ch); + + for (k = combat_list; k; k = temp) { + temp = k->next_fighting; + if (FIGHTING(k) == ch) + stop_fighting(k); + } + /* we can't forget the hunters either... */ + for (temp = character_list; temp; temp = temp->next) + if (HUNTING(temp) == ch) + HUNTING(temp) = NULL; + + char_from_room(ch); + + if (IS_NPC(ch)) { + if (GET_MOB_RNUM(ch) != NOTHING) /* prototyped */ + mob_index[GET_MOB_RNUM(ch)].number--; + clearMemory(ch); + } else { + save_char(ch); + Crash_delete_crashfile(ch); + } + + /* If there's a descriptor, they're in the menu now. */ + if (IS_NPC(ch) || !ch->desc) + free_char(ch); +} + + +/* + * Q: Why do we do this? + * A: Because trying to iterate over the character + * list with 'ch = ch->next' does bad things if + * the current character happens to die. The + * trivial workaround of 'vict = next_vict' + * doesn't work if the _next_ person in the list + * gets killed, for example, by an area spell. + * + * Q: Why do we leave them on the character_list? + * A: Because code doing 'vict = vict->next' would + * get really confused otherwise. + */ +void extract_char(struct char_data *ch) +{ + if (IS_NPC(ch)) + SET_BIT(MOB_FLAGS(ch), MOB_NOTDEADYET); + else + SET_BIT(PLR_FLAGS(ch), PLR_NOTDEADYET); + + extractions_pending++; +} + + +/* + * I'm not particularly pleased with the MOB/PLR + * hoops that have to be jumped through but it + * hardly calls for a completely new variable. + * Ideally it would be its own list, but that + * would change the '->next' pointer, potentially + * confusing some code. Ugh. -gg 3/15/2001 + * + * NOTE: This doesn't handle recursive extractions. + */ +void extract_pending_chars(void) +{ + struct char_data *vict, *next_vict, *prev_vict; + + if (extractions_pending < 0) + log("SYSERR: Negative (%d) extractions pending.", extractions_pending); + + for (vict = character_list, prev_vict = NULL; vict && extractions_pending; vict = next_vict) { + next_vict = vict->next; + + if (MOB_FLAGGED(vict, MOB_NOTDEADYET)) + REMOVE_BIT(MOB_FLAGS(vict), MOB_NOTDEADYET); + else if (PLR_FLAGGED(vict, PLR_NOTDEADYET)) + REMOVE_BIT(PLR_FLAGS(vict), PLR_NOTDEADYET); + else { + /* Last non-free'd character to continue chain from. */ + prev_vict = vict; + continue; + } + + extract_char_final(vict); + extractions_pending--; + + if (prev_vict) + prev_vict->next = next_vict; + else + character_list = next_vict; + } + + if (extractions_pending > 0) + log("SYSERR: Couldn't find %d extractions as counted.", extractions_pending); + + extractions_pending = 0; +} + + +/* *********************************************************************** +* Here follows high-level versions of some earlier routines, ie functions* +* which incorporate the actual player-data *. +*********************************************************************** */ + + +struct char_data *get_player_vis(struct char_data *ch, char *name, int *number, int inroom) +{ + struct char_data *i; + int num; + + if (!number) { + number = # + num = get_number(&name); + } + + for (i = character_list; i; i = i->next) { + if (IS_NPC(i)) + continue; + if (inroom == FIND_CHAR_ROOM && IN_ROOM(i) != IN_ROOM(ch)) + continue; + if (str_cmp(i->player.name, name)) /* If not same, continue */ + continue; + if (!CAN_SEE(ch, i)) + continue; + if (--(*number) != 0) + continue; + return (i); + } + + return (NULL); +} + + +struct char_data *get_char_room_vis(struct char_data *ch, char *name, int *number) +{ + struct char_data *i; + int num; + + if (!number) { + number = # + num = get_number(&name); + } + + /* JE 7/18/94 :-) :-) */ + if (!str_cmp(name, "self") || !str_cmp(name, "me")) + return (ch); + + /* 0.<name> means PC with name */ + if (*number == 0) + return (get_player_vis(ch, name, NULL, FIND_CHAR_ROOM)); + + for (i = world[IN_ROOM(ch)].people; i && *number; i = i->next_in_room) + if (isname(name, i->player.name)) + if (CAN_SEE(ch, i)) + if (--(*number) == 0) + return (i); + + return (NULL); +} + + +struct char_data *get_char_world_vis(struct char_data *ch, char *name, int *number) +{ + struct char_data *i; + int num; + + if (!number) { + number = # + num = get_number(&name); + } + + if ((i = get_char_room_vis(ch, name, number)) != NULL) + return (i); + + if (*number == 0) + return get_player_vis(ch, name, NULL, 0); + + for (i = character_list; i && *number; i = i->next) { + if (IN_ROOM(ch) == IN_ROOM(i)) + continue; + if (!isname(name, i->player.name)) + continue; + if (!CAN_SEE(ch, i)) + continue; + if (--(*number) != 0) + continue; + + return (i); + } + return (NULL); +} + + +struct char_data *get_char_vis(struct char_data *ch, char *name, int *number, int where) +{ + if (where == FIND_CHAR_ROOM) + return get_char_room_vis(ch, name, number); + else if (where == FIND_CHAR_WORLD) + return get_char_world_vis(ch, name, number); + else + return (NULL); +} + + +struct obj_data *get_obj_in_list_vis(struct char_data *ch, char *name, int *number, struct obj_data *list) +{ + struct obj_data *i; + int num; + + if (!number) { + number = # + num = get_number(&name); + } + + if (*number == 0) + return (NULL); + + for (i = list; i && *number; i = i->next_content) + if (isname(name, i->name)) + if (CAN_SEE_OBJ(ch, i)) + if (--(*number) == 0) + return (i); + + return (NULL); +} + + +/* search the entire world for an object, and return a pointer */ +struct obj_data *get_obj_vis(struct char_data *ch, char *name, int *number) +{ + struct obj_data *i; + int num; + + if (!number) { + number = # + num = get_number(&name); + } + + if (*number == 0) + return (NULL); + + /* scan items carried */ + if ((i = get_obj_in_list_vis(ch, name, number, ch->carrying)) != NULL) + return (i); + + /* scan room */ + if ((i = get_obj_in_list_vis(ch, name, number, world[IN_ROOM(ch)].contents)) != NULL) + return (i); + + /* ok.. no luck yet. scan the entire obj list */ + for (i = object_list; i && *number; i = i->next) + if (isname(name, i->name)) + if (CAN_SEE_OBJ(ch, i)) + if (--(*number) == 0) + return (i); + + return (NULL); +} + + +struct obj_data *get_obj_in_equip_vis(struct char_data *ch, char *arg, int *number, struct obj_data *equipment[]) +{ + int j, num; + + if (!number) { + number = # + num = get_number(&arg); + } + + if (*number == 0) + return (NULL); + + for (j = 0; j < NUM_WEARS; j++) + if (equipment[j] && CAN_SEE_OBJ(ch, equipment[j]) && isname(arg, equipment[j]->name)) + if (--(*number) == 0) + return (equipment[j]); + + return (NULL); +} + + +int get_obj_pos_in_equip_vis(struct char_data *ch, char *arg, int *number, struct obj_data *equipment[]) +{ + int j, num; + + if (!number) { + number = # + num = get_number(&arg); + } + + if (*number == 0) + return (-1); + + for (j = 0; j < NUM_WEARS; j++) + if (equipment[j] && CAN_SEE_OBJ(ch, equipment[j]) && isname(arg, equipment[j]->name)) + if (--(*number) == 0) + return (j); + + return (-1); +} + + +const char *money_desc(int amount) +{ + int cnt; + struct { + int limit; + const char *description; + } money_table[] = { + { 1, "a gold coin" }, + { 10, "a tiny pile of gold coins" }, + { 20, "a handful of gold coins" }, + { 75, "a little pile of gold coins" }, + { 200, "a small pile of gold coins" }, + { 1000, "a pile of gold coins" }, + { 5000, "a big pile of gold coins" }, + { 10000, "a large heap of gold coins" }, + { 20000, "a huge mound of gold coins" }, + { 75000, "an enormous mound of gold coins" }, + { 150000, "a small mountain of gold coins" }, + { 250000, "a mountain of gold coins" }, + { 500000, "a huge mountain of gold coins" }, + { 1000000, "an enormous mountain of gold coins" }, + { 0, NULL }, + }; + + if (amount <= 0) { + log("SYSERR: Try to create negative or 0 money (%d).", amount); + return (NULL); + } + + for (cnt = 0; money_table[cnt].limit; cnt++) + if (amount <= money_table[cnt].limit) + return (money_table[cnt].description); + + return ("an absolutely colossal mountain of gold coins"); +} + + +struct obj_data *create_money(int amount) +{ + struct obj_data *obj; + struct extra_descr_data *new_descr; + char buf[200]; + + if (amount <= 0) { + log("SYSERR: Try to create negative or 0 money. (%d)", amount); + return (NULL); + } + obj = create_obj(); + CREATE(new_descr, struct extra_descr_data, 1); + + if (amount == 1) { + obj->name = strdup("coin gold"); + obj->short_description = strdup("a gold coin"); + obj->description = strdup("One miserable gold coin is lying here."); + new_descr->keyword = strdup("coin gold"); + new_descr->description = strdup("It's just one miserable little gold coin."); + } else { + obj->name = strdup("coins gold"); + obj->short_description = strdup(money_desc(amount)); + snprintf(buf, sizeof(buf), "%s is lying here.", money_desc(amount)); + obj->description = strdup(CAP(buf)); + + new_descr->keyword = strdup("coins gold"); + if (amount < 10) + snprintf(buf, sizeof(buf), "There are %d coins.", amount); + else if (amount < 100) + snprintf(buf, sizeof(buf), "There are about %d coins.", 10 * (amount / 10)); + else if (amount < 1000) + snprintf(buf, sizeof(buf), "It looks to be about %d coins.", 100 * (amount / 100)); + else if (amount < 100000) + snprintf(buf, sizeof(buf), "You guess there are, maybe, %d coins.", + 1000 * ((amount / 1000) + rand_number(0, (amount / 1000)))); + else + strcpy(buf, "There are a LOT of coins."); /* strcpy: OK (is < 200) */ + new_descr->description = strdup(buf); + } + + new_descr->next = NULL; + obj->ex_description = new_descr; + + GET_OBJ_TYPE(obj) = ITEM_MONEY; + GET_OBJ_WEAR(obj) = ITEM_WEAR_TAKE; + GET_OBJ_VAL(obj, 0) = amount; + GET_OBJ_COST(obj) = amount; + obj->item_number = NOTHING; + + return (obj); +} + + +/* Generic Find, designed to find any object/character + * + * Calling: + * *arg is the pointer containing the string to be searched for. + * This string doesn't have to be a single word, the routine + * extracts the next word itself. + * bitv.. All those bits that you want to "search through". + * Bit found will be result of the function + * *ch This is the person that is trying to "find" + * **tar_ch Will be NULL if no character was found, otherwise points + * **tar_obj Will be NULL if no object was found, otherwise points + * + * The routine used to return a pointer to the next word in *arg (just + * like the one_argument routine), but now it returns an integer that + * describes what it filled in. + */ +int generic_find(char *arg, bitvector_t bitvector, struct char_data *ch, + struct char_data **tar_ch, struct obj_data **tar_obj) +{ + int i, found, number; + char name_val[MAX_INPUT_LENGTH]; + char *name = name_val; + + *tar_ch = NULL; + *tar_obj = NULL; + + one_argument(arg, name); + + if (!*name) + return (0); + if (!(number = get_number(&name))) + return (0); + + if (IS_SET(bitvector, FIND_CHAR_ROOM)) { /* Find person in room */ + if ((*tar_ch = get_char_room_vis(ch, name, &number)) != NULL) + return (FIND_CHAR_ROOM); + } + + if (IS_SET(bitvector, FIND_CHAR_WORLD)) { + if ((*tar_ch = get_char_world_vis(ch, name, &number)) != NULL) + return (FIND_CHAR_WORLD); + } + + if (IS_SET(bitvector, FIND_OBJ_EQUIP)) { + for (found = FALSE, i = 0; i < NUM_WEARS && !found; i++) + if (GET_EQ(ch, i) && isname(name, GET_EQ(ch, i)->name) && --number == 0) { + *tar_obj = GET_EQ(ch, i); + found = TRUE; + } + if (found) + return (FIND_OBJ_EQUIP); + } + + if (IS_SET(bitvector, FIND_OBJ_INV)) { + if ((*tar_obj = get_obj_in_list_vis(ch, name, &number, ch->carrying)) != NULL) + return (FIND_OBJ_INV); + } + + if (IS_SET(bitvector, FIND_OBJ_ROOM)) { + if ((*tar_obj = get_obj_in_list_vis(ch, name, &number, world[IN_ROOM(ch)].contents)) != NULL) + return (FIND_OBJ_ROOM); + } + + if (IS_SET(bitvector, FIND_OBJ_WORLD)) { + if ((*tar_obj = get_obj_vis(ch, name, &number))) + return (FIND_OBJ_WORLD); + } + + return (0); +} + + +/* a function to scan for "all" or "all.x" */ +int find_all_dots(char *arg) +{ + if (!strcmp(arg, "all")) + return (FIND_ALL); + else if (!strncmp(arg, "all.", 4)) { + strcpy(arg, arg + 4); /* strcpy: OK (always less) */ + return (FIND_ALLDOT); + } else + return (FIND_INDIV); +} diff --git a/src/handler.h b/src/handler.h new file mode 100644 index 0000000..23e459e --- /dev/null +++ b/src/handler.h @@ -0,0 +1,112 @@ +/* ************************************************************************ +* File: handler.h Part of CircleMUD * +* Usage: header file: prototypes of handling and utility functions * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/* handling the affected-structures */ +void affect_total(struct char_data *ch); +void affect_modify(struct char_data *ch, byte loc, sbyte mod, bitvector_t bitv, bool add); +void affect_to_char(struct char_data *ch, struct affected_type *af); +void affect_remove(struct char_data *ch, struct affected_type *af); +void affect_from_char(struct char_data *ch, int type); +bool affected_by_spell(struct char_data *ch, int type); +void affect_join(struct char_data *ch, struct affected_type *af, +bool add_dur, bool avg_dur, bool add_mod, bool avg_mod); + + +/* utility */ +const char *money_desc(int amount); +struct obj_data *create_money(int amount); +int isname(const char *str, const char *namelist); +char *fname(const char *namelist); +int get_number(char **name); + +/* ******** objects *********** */ + +void obj_to_char(struct obj_data *object, struct char_data *ch); +void obj_from_char(struct obj_data *object); + +void equip_char(struct char_data *ch, struct obj_data *obj, int pos); +struct obj_data *unequip_char(struct char_data *ch, int pos); +int invalid_align(struct char_data *ch, struct obj_data *obj); + +void obj_to_room(struct obj_data *object, room_rnum room); +void obj_from_room(struct obj_data *object); +void obj_to_obj(struct obj_data *obj, struct obj_data *obj_to); +void obj_from_obj(struct obj_data *obj); +void object_list_new_owner(struct obj_data *list, struct char_data *ch); + +void extract_obj(struct obj_data *obj); + +/* ******* characters ********* */ + +struct char_data *get_char_room(char *name, int *num, room_rnum room); +struct char_data *get_char_num(mob_rnum nr); + +void char_from_room(struct char_data *ch); +void char_to_room(struct char_data *ch, room_rnum room); +void extract_char(struct char_data *ch); +void extract_char_final(struct char_data *ch); +void extract_pending_chars(void); + +/* find if character can see */ +struct char_data *get_player_vis(struct char_data *ch, char *name, int *number, int inroom); +struct char_data *get_char_vis(struct char_data *ch, char *name, int *number, int where); +struct char_data *get_char_room_vis(struct char_data *ch, char *name, int *number); +struct char_data *get_char_world_vis(struct char_data *ch, char *name, int *number); + +struct obj_data *get_obj_in_list_num(int num, struct obj_data *list); +struct obj_data *get_obj_num(obj_rnum nr); +struct obj_data *get_obj_in_list_vis(struct char_data *ch, char *name, int *number, struct obj_data *list); +struct obj_data *get_obj_vis(struct char_data *ch, char *name, int *num); +struct obj_data *get_obj_in_equip_vis(struct char_data *ch, char *arg, int *number, struct obj_data *equipment[]); +int get_obj_pos_in_equip_vis(struct char_data *ch, char *arg, int *num, struct obj_data *equipment[]); + + +/* find all dots */ + +int find_all_dots(char *arg); + +#define FIND_INDIV 0 +#define FIND_ALL 1 +#define FIND_ALLDOT 2 + + +/* Generic Find */ + +int generic_find(char *arg, bitvector_t bitvector, struct char_data *ch, + struct char_data **tar_ch, struct obj_data **tar_obj); + +#define FIND_CHAR_ROOM (1 << 0) +#define FIND_CHAR_WORLD (1 << 1) +#define FIND_OBJ_INV (1 << 2) +#define FIND_OBJ_ROOM (1 << 3) +#define FIND_OBJ_WORLD (1 << 4) +#define FIND_OBJ_EQUIP (1 << 5) + + +/* prototypes from crash save system */ + +int Crash_delete_file(char *name); +int Crash_delete_crashfile(struct char_data *ch); +int Crash_clean_file(char *name); +void Crash_listrent(struct char_data *ch, char *name); +int Crash_load(struct char_data *ch); +void Crash_crashsave(struct char_data *ch); +void Crash_idlesave(struct char_data *ch); +void Crash_save_all(void); + +/* prototypes from fight.c */ +void set_fighting(struct char_data *ch, struct char_data *victim); +void stop_fighting(struct char_data *ch); +void hit(struct char_data *ch, struct char_data *victim, int type); +void forget(struct char_data *ch, struct char_data *victim); +void remember(struct char_data *ch, struct char_data *victim); +int damage(struct char_data *ch, struct char_data *victim, int dam, int attacktype); +int skill_message(int dam, struct char_data *ch, struct char_data *vict, + int attacktype); diff --git a/src/house.c b/src/house.c new file mode 100644 index 0000000..fc9ad31 --- /dev/null +++ b/src/house.c @@ -0,0 +1,616 @@ +/* ************************************************************************ +* File: house.c Part of CircleMUD * +* Usage: Handling of player houses * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "comm.h" +#include "handler.h" +#include "db.h" +#include "interpreter.h" +#include "utils.h" +#include "house.h" +#include "constants.h" + +/* external functions */ +struct obj_data *Obj_from_store(struct obj_file_elem object, int *location); +int Obj_to_store(struct obj_data *obj, FILE *fl, int location); + +/* local globals */ +struct house_control_rec house_control[MAX_HOUSES]; +int num_of_houses = 0; + +/* local functions */ +int House_get_filename(room_vnum vnum, char *filename, size_t maxlen); +int House_load(room_vnum vnum); +int House_save(struct obj_data *obj, FILE *fp); +void House_restore_weight(struct obj_data *obj); +void House_delete_file(room_vnum vnum); +int find_house(room_vnum vnum); +void House_save_control(void); +void hcontrol_list_houses(struct char_data *ch); +void hcontrol_build_house(struct char_data *ch, char *arg); +void hcontrol_destroy_house(struct char_data *ch, char *arg); +void hcontrol_pay_house(struct char_data *ch, char *arg); +ACMD(do_hcontrol); +ACMD(do_house); + + +/* First, the basics: finding the filename; loading/saving objects */ + +/* Return a filename given a house vnum */ +int House_get_filename(room_vnum vnum, char *filename, size_t maxlen) +{ + if (vnum == NOWHERE) + return (0); + + snprintf(filename, maxlen, LIB_HOUSE"%d.house", vnum); + return (1); +} + + +/* Load all objects for a house */ +int House_load(room_vnum vnum) +{ + FILE *fl; + char filename[MAX_STRING_LENGTH]; + struct obj_file_elem object; + room_rnum rnum; + int i; + + if ((rnum = real_room(vnum)) == NOWHERE) + return (0); + if (!House_get_filename(vnum, filename, sizeof(filename))) + return (0); + if (!(fl = fopen(filename, "r+b"))) /* no file found */ + return (0); + while (!feof(fl)) { + fread(&object, sizeof(struct obj_file_elem), 1, fl); + if (ferror(fl)) { + perror("SYSERR: Reading house file in House_load"); + fclose(fl); + return (0); + } + if (!feof(fl)) + obj_to_room(Obj_from_store(object, &i), rnum); + } + + fclose(fl); + + return (1); +} + + +/* Save all objects for a house (recursive; initial call must be followed + by a call to House_restore_weight) Assumes file is open already. */ +int House_save(struct obj_data *obj, FILE *fp) +{ + struct obj_data *tmp; + int result; + + if (obj) { + House_save(obj->contains, fp); + House_save(obj->next_content, fp); + result = Obj_to_store(obj, fp, 0); + if (!result) + return (0); + + for (tmp = obj->in_obj; tmp; tmp = tmp->in_obj) + GET_OBJ_WEIGHT(tmp) -= GET_OBJ_WEIGHT(obj); + } + return (1); +} + + +/* restore weight of containers after House_save has changed them for saving */ +void House_restore_weight(struct obj_data *obj) +{ + if (obj) { + House_restore_weight(obj->contains); + House_restore_weight(obj->next_content); + if (obj->in_obj) + GET_OBJ_WEIGHT(obj->in_obj) += GET_OBJ_WEIGHT(obj); + } +} + + +/* Save all objects in a house */ +void House_crashsave(room_vnum vnum) +{ + int rnum; + char buf[MAX_STRING_LENGTH]; + FILE *fp; + + if ((rnum = real_room(vnum)) == NOWHERE) + return; + if (!House_get_filename(vnum, buf, sizeof(buf))) + return; + if (!(fp = fopen(buf, "wb"))) { + perror("SYSERR: Error saving house file"); + return; + } + if (!House_save(world[rnum].contents, fp)) { + fclose(fp); + return; + } + fclose(fp); + House_restore_weight(world[rnum].contents); + REMOVE_BIT(ROOM_FLAGS(rnum), ROOM_HOUSE_CRASH); +} + + +/* Delete a house save file */ +void House_delete_file(room_vnum vnum) +{ + char filename[MAX_INPUT_LENGTH]; + FILE *fl; + + if (!House_get_filename(vnum, filename, sizeof(filename))) + return; + if (!(fl = fopen(filename, "rb"))) { + if (errno != ENOENT) + log("SYSERR: Error deleting house file #%d. (1): %s", vnum, strerror(errno)); + return; + } + fclose(fl); + if (remove(filename) < 0) + log("SYSERR: Error deleting house file #%d. (2): %s", vnum, strerror(errno)); +} + + +/* List all objects in a house file */ +void House_listrent(struct char_data *ch, room_vnum vnum) +{ + FILE *fl; + char filename[MAX_STRING_LENGTH]; + char buf[MAX_STRING_LENGTH]; + struct obj_file_elem object; + struct obj_data *obj; + int i; + + if (!House_get_filename(vnum, filename, sizeof(filename))) + return; + if (!(fl = fopen(filename, "rb"))) { + send_to_char(ch, "No objects on file for house #%d.\r\n", vnum); + return; + } + *buf = '\0'; + while (!feof(fl)) { + fread(&object, sizeof(struct obj_file_elem), 1, fl); + if (ferror(fl)) { + fclose(fl); + return; + } + if (!feof(fl) && (obj = Obj_from_store(object, &i)) != NULL) { + send_to_char(ch, " [%5d] (%5dau) %s\r\n", GET_OBJ_VNUM(obj), GET_OBJ_RENT(obj), obj->short_description); + free_obj(obj); + } + } + fclose(fl); +} + + + + +/****************************************************************** + * Functions for house administration (creation, deletion, etc. * + *****************************************************************/ + +int find_house(room_vnum vnum) +{ + int i; + + for (i = 0; i < num_of_houses; i++) + if (house_control[i].vnum == vnum) + return (i); + + return (NOWHERE); +} + + + +/* Save the house control information */ +void House_save_control(void) +{ + FILE *fl; + + if (!(fl = fopen(HCONTROL_FILE, "wb"))) { + perror("SYSERR: Unable to open house control file."); + return; + } + /* write all the house control recs in one fell swoop. Pretty nifty, eh? */ + fwrite(house_control, sizeof(struct house_control_rec), num_of_houses, fl); + + fclose(fl); +} + + +/* call from boot_db - will load control recs, load objs, set atrium bits */ +/* should do sanity checks on vnums & remove invalid records */ +void House_boot(void) +{ + struct house_control_rec temp_house; + room_rnum real_house, real_atrium; + FILE *fl; + + memset((char *)house_control,0,sizeof(struct house_control_rec)*MAX_HOUSES); + + if (!(fl = fopen(HCONTROL_FILE, "rb"))) { + if (errno == ENOENT) + log(" House control file '%s' does not exist.", HCONTROL_FILE); + else + perror("SYSERR: " HCONTROL_FILE); + return; + } + while (!feof(fl) && num_of_houses < MAX_HOUSES) { + fread(&temp_house, sizeof(struct house_control_rec), 1, fl); + + if (feof(fl)) + break; + + if (get_name_by_id(temp_house.owner) == NULL) + continue; /* owner no longer exists -- skip */ + + if ((real_house = real_room(temp_house.vnum)) == NOWHERE) + continue; /* this vnum doesn't exist -- skip */ + + if (find_house(temp_house.vnum) != NOWHERE) + continue; /* this vnum is already a house -- skip */ + + if ((real_atrium = real_room(temp_house.atrium)) == NOWHERE) + continue; /* house doesn't have an atrium -- skip */ + + if (temp_house.exit_num < 0 || temp_house.exit_num >= NUM_OF_DIRS) + continue; /* invalid exit num -- skip */ + + if (TOROOM(real_house, temp_house.exit_num) != real_atrium) + continue; /* exit num mismatch -- skip */ + + house_control[num_of_houses++] = temp_house; + + SET_BIT(ROOM_FLAGS(real_house), ROOM_HOUSE | ROOM_PRIVATE); + SET_BIT(ROOM_FLAGS(real_atrium), ROOM_ATRIUM); + House_load(temp_house.vnum); + } + + fclose(fl); + House_save_control(); +} + + + +/* "House Control" functions */ + +const char *HCONTROL_FORMAT = +"Usage: hcontrol build <house vnum> <exit direction> <player name>\r\n" +" hcontrol destroy <house vnum>\r\n" +" hcontrol pay <house vnum>\r\n" +" hcontrol show\r\n"; + +void hcontrol_list_houses(struct char_data *ch) +{ + int i; + char *timestr, *temp; + char built_on[128], last_pay[128], own_name[MAX_NAME_LENGTH + 1]; + + if (!num_of_houses) { + send_to_char(ch, "No houses have been defined.\r\n"); + return; + } + send_to_char(ch, + "Address Atrium Build Date Guests Owner Last Paymt\r\n" + "------- ------ ---------- ------ ------------ ----------\r\n"); + + for (i = 0; i < num_of_houses; i++) { + /* Avoid seeing <UNDEF> entries from self-deleted people. -gg 6/21/98 */ + if ((temp = get_name_by_id(house_control[i].owner)) == NULL) + continue; + + if (house_control[i].built_on) { + timestr = asctime(localtime(&(house_control[i].built_on))); + *(timestr + 10) = '\0'; + strlcpy(built_on, timestr, sizeof(built_on)); + } else + strcpy(built_on, "Unknown"); /* strcpy: OK (for 'strlen("Unknown") < 128') */ + + if (house_control[i].last_payment) { + timestr = asctime(localtime(&(house_control[i].last_payment))); + *(timestr + 10) = '\0'; + strlcpy(last_pay, timestr, sizeof(built_on)); + } else + strcpy(last_pay, "None"); /* strcpy: OK (for 'strlen("None") < 128') */ + + /* Now we need a copy of the owner's name to capitalize. -gg 6/21/98 */ + strcpy(own_name, temp); /* strcpy: OK (names guaranteed <= MAX_NAME_LENGTH+1) */ + send_to_char(ch, "%7d %7d %-10s %2d %-12s %s\r\n", + house_control[i].vnum, house_control[i].atrium, built_on, + house_control[i].num_of_guests, CAP(own_name), last_pay); + + House_list_guests(ch, i, TRUE); + } +} + + + +void hcontrol_build_house(struct char_data *ch, char *arg) +{ + char arg1[MAX_INPUT_LENGTH]; + struct house_control_rec temp_house; + room_vnum virt_house, virt_atrium; + room_rnum real_house, real_atrium; + sh_int exit_num; + long owner; + + if (num_of_houses >= MAX_HOUSES) { + send_to_char(ch, "Max houses already defined.\r\n"); + return; + } + + /* first arg: house's vnum */ + arg = one_argument(arg, arg1); + if (!*arg1) { + send_to_char(ch, "%s", HCONTROL_FORMAT); + return; + } + virt_house = atoi(arg1); + if ((real_house = real_room(virt_house)) == NOWHERE) { + send_to_char(ch, "No such room exists.\r\n"); + return; + } + if ((find_house(virt_house)) != NOWHERE) { + send_to_char(ch, "House already exists.\r\n"); + return; + } + + /* second arg: direction of house's exit */ + arg = one_argument(arg, arg1); + if (!*arg1) { + send_to_char(ch, "%s", HCONTROL_FORMAT); + return; + } + if ((exit_num = search_block(arg1, dirs, FALSE)) < 0) { + send_to_char(ch, "'%s' is not a valid direction.\r\n", arg1); + return; + } + if (TOROOM(real_house, exit_num) == NOWHERE) { + send_to_char(ch, "There is no exit %s from room %d.\r\n", dirs[exit_num], virt_house); + return; + } + + real_atrium = TOROOM(real_house, exit_num); + virt_atrium = GET_ROOM_VNUM(real_atrium); + + if (TOROOM(real_atrium, rev_dir[exit_num]) != real_house) { + send_to_char(ch, "A house's exit must be a two-way door.\r\n"); + return; + } + + /* third arg: player's name */ + one_argument(arg, arg1); + if (!*arg1) { + send_to_char(ch, "%s", HCONTROL_FORMAT); + return; + } + if ((owner = get_id_by_name(arg1)) < 0) { + send_to_char(ch, "Unknown player '%s'.\r\n", arg1); + return; + } + + temp_house.mode = HOUSE_PRIVATE; + temp_house.vnum = virt_house; + temp_house.atrium = virt_atrium; + temp_house.exit_num = exit_num; + temp_house.built_on = time(0); + temp_house.last_payment = 0; + temp_house.owner = owner; + temp_house.num_of_guests = 0; + + house_control[num_of_houses++] = temp_house; + + SET_BIT(ROOM_FLAGS(real_house), ROOM_HOUSE | ROOM_PRIVATE); + SET_BIT(ROOM_FLAGS(real_atrium), ROOM_ATRIUM); + House_crashsave(virt_house); + + send_to_char(ch, "House built. Mazel tov!\r\n"); + House_save_control(); +} + + + +void hcontrol_destroy_house(struct char_data *ch, char *arg) +{ + int i, j; + room_rnum real_atrium, real_house; + + if (!*arg) { + send_to_char(ch, "%s", HCONTROL_FORMAT); + return; + } + if ((i = find_house(atoi(arg))) == NOWHERE) { + send_to_char(ch, "Unknown house.\r\n"); + return; + } + if ((real_atrium = real_room(house_control[i].atrium)) == NOWHERE) + log("SYSERR: House %d had invalid atrium %d!", atoi(arg), house_control[i].atrium); + else + REMOVE_BIT(ROOM_FLAGS(real_atrium), ROOM_ATRIUM); + + if ((real_house = real_room(house_control[i].vnum)) == NOWHERE) + log("SYSERR: House %d had invalid vnum %d!", atoi(arg), house_control[i].vnum); + else + REMOVE_BIT(ROOM_FLAGS(real_house), ROOM_HOUSE | ROOM_PRIVATE | ROOM_HOUSE_CRASH); + + House_delete_file(house_control[i].vnum); + + for (j = i; j < num_of_houses - 1; j++) + house_control[j] = house_control[j + 1]; + + num_of_houses--; + + send_to_char(ch, "House deleted.\r\n"); + House_save_control(); + + /* + * Now, reset the ROOM_ATRIUM flag on all existing houses' atriums, + * just in case the house we just deleted shared an atrium with another + * house. --JE 9/19/94 + */ + for (i = 0; i < num_of_houses; i++) + if ((real_atrium = real_room(house_control[i].atrium)) != NOWHERE) + SET_BIT(ROOM_FLAGS(real_atrium), ROOM_ATRIUM); +} + + +void hcontrol_pay_house(struct char_data *ch, char *arg) +{ + int i; + + if (!*arg) + send_to_char(ch, "%s", HCONTROL_FORMAT); + else if ((i = find_house(atoi(arg))) == NOWHERE) + send_to_char(ch, "Unknown house.\r\n"); + else { + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "Payment for house %s collected by %s.", arg, GET_NAME(ch)); + + house_control[i].last_payment = time(0); + House_save_control(); + send_to_char(ch, "Payment recorded.\r\n"); + } +} + + +/* The hcontrol command itself, used by imms to create/destroy houses */ +ACMD(do_hcontrol) +{ + char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH]; + + half_chop(argument, arg1, arg2); + + if (is_abbrev(arg1, "build")) + hcontrol_build_house(ch, arg2); + else if (is_abbrev(arg1, "destroy")) + hcontrol_destroy_house(ch, arg2); + else if (is_abbrev(arg1, "pay")) + hcontrol_pay_house(ch, arg2); + else if (is_abbrev(arg1, "show")) + hcontrol_list_houses(ch); + else + send_to_char(ch, "%s", HCONTROL_FORMAT); +} + + +/* The house command, used by mortal house owners to assign guests */ +ACMD(do_house) +{ + char arg[MAX_INPUT_LENGTH]; + int i, j, id; + + one_argument(argument, arg); + + if (!ROOM_FLAGGED(IN_ROOM(ch), ROOM_HOUSE)) + send_to_char(ch, "You must be in your house to set guests.\r\n"); + else if ((i = find_house(GET_ROOM_VNUM(IN_ROOM(ch)))) == NOWHERE) + send_to_char(ch, "Um.. this house seems to be screwed up.\r\n"); + else if (GET_IDNUM(ch) != house_control[i].owner) + send_to_char(ch, "Only the primary owner can set guests.\r\n"); + else if (!*arg) + House_list_guests(ch, i, FALSE); + else if ((id = get_id_by_name(arg)) < 0) + send_to_char(ch, "No such player.\r\n"); + else if (id == GET_IDNUM(ch)) + send_to_char(ch, "It's your house!\r\n"); + else { + for (j = 0; j < house_control[i].num_of_guests; j++) + if (house_control[i].guests[j] == id) { + for (; j < house_control[i].num_of_guests; j++) + house_control[i].guests[j] = house_control[i].guests[j + 1]; + house_control[i].num_of_guests--; + House_save_control(); + send_to_char(ch, "Guest deleted.\r\n"); + return; + } + if (house_control[i].num_of_guests == MAX_GUESTS) { + send_to_char(ch, "You have too many guests.\r\n"); + return; + } + j = house_control[i].num_of_guests++; + house_control[i].guests[j] = id; + House_save_control(); + send_to_char(ch, "Guest added.\r\n"); + } +} + + + +/* Misc. administrative functions */ + + +/* crash-save all the houses */ +void House_save_all(void) +{ + int i; + room_rnum real_house; + + for (i = 0; i < num_of_houses; i++) + if ((real_house = real_room(house_control[i].vnum)) != NOWHERE) + if (ROOM_FLAGGED(real_house, ROOM_HOUSE_CRASH)) + House_crashsave(house_control[i].vnum); +} + + +/* note: arg passed must be house vnum, so there. */ +int House_can_enter(struct char_data *ch, room_vnum house) +{ + int i, j; + + if (GET_LEVEL(ch) >= LVL_GRGOD || (i = find_house(house)) == NOWHERE) + return (1); + + switch (house_control[i].mode) { + case HOUSE_PRIVATE: + if (GET_IDNUM(ch) == house_control[i].owner) + return (1); + for (j = 0; j < house_control[i].num_of_guests; j++) + if (GET_IDNUM(ch) == house_control[i].guests[j]) + return (1); + } + + return (0); +} + +void House_list_guests(struct char_data *ch, int i, int quiet) +{ + int j, num_printed; + char *temp; + + if (house_control[i].num_of_guests == 0) { + if (!quiet) + send_to_char(ch, " Guests: None\r\n"); + return; + } + + send_to_char(ch, " Guests: "); + + for (num_printed = j = 0; j < house_control[i].num_of_guests; j++) { + /* Avoid <UNDEF>. -gg 6/21/98 */ + if ((temp = get_name_by_id(house_control[i].guests[j])) == NULL) + continue; + + num_printed++; + send_to_char(ch, "%c%s ", UPPER(*temp), temp + 1); + } + + if (num_printed == 0) + send_to_char(ch, "all dead"); + + send_to_char(ch, "\r\n"); +} + diff --git a/src/house.h b/src/house.h new file mode 100644 index 0000000..9d7359a --- /dev/null +++ b/src/house.h @@ -0,0 +1,38 @@ +#define MAX_HOUSES 100 +#define MAX_GUESTS 10 + +#define HOUSE_PRIVATE 0 + + +struct house_control_rec { + room_vnum vnum; /* vnum of this house */ + room_vnum atrium; /* vnum of atrium */ + sh_int exit_num; /* direction of house's exit */ + time_t built_on; /* date this house was built */ + int mode; /* mode of ownership */ + long owner; /* idnum of house's owner */ + int num_of_guests; /* how many guests for house */ + long guests[MAX_GUESTS]; /* idnums of house's guests */ + time_t last_payment; /* date of last house payment */ + long spare0; + long spare1; + long spare2; + long spare3; + long spare4; + long spare5; + long spare6; + long spare7; +}; + + + + +#define TOROOM(room, dir) (world[room].dir_option[dir] ? \ + world[room].dir_option[dir]->to_room : NOWHERE) + +void House_listrent(struct char_data *ch, room_vnum vnum); +void House_boot(void); +void House_save_all(void); +int House_can_enter(struct char_data *ch, room_vnum house); +void House_crashsave(room_vnum vnum); +void House_list_guests(struct char_data *ch, int i, int quiet); diff --git a/src/htmlh-head b/src/htmlh-head new file mode 100644 index 0000000..e1054b8 --- /dev/null +++ b/src/htmlh-head @@ -0,0 +1,4 @@ +<html> +<body> +<pre> +<a name="file"> diff --git a/src/htmlh-tail b/src/htmlh-tail new file mode 100644 index 0000000..dc684c5 --- /dev/null +++ b/src/htmlh-tail @@ -0,0 +1,3 @@ +</pre> +</body> +</html> diff --git a/src/interpreter.c b/src/interpreter.c new file mode 100644 index 0000000..ee53367 --- /dev/null +++ b/src/interpreter.c @@ -0,0 +1,1700 @@ +/* ************************************************************************ +* File: interpreter.c Part of CircleMUD * +* Usage: parse user commands, search for specials, call ACMD functions * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define __INTERPRETER_C__ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "comm.h" +#include "interpreter.h" +#include "db.h" +#include "utils.h" +#include "spells.h" +#include "handler.h" +#include "mail.h" +#include "screen.h" + + +/* external variables */ +extern room_rnum r_mortal_start_room; +extern room_rnum r_immort_start_room; +extern room_rnum r_frozen_start_room; +extern const char *class_menu; +extern char *motd; +extern char *imotd; +extern char *background; +extern char *MENU; +extern char *WELC_MESSG; +extern char *START_MESSG; +extern struct player_index_element *player_table; +extern int top_of_p_table; +extern int circle_restrict; +extern int no_specials; +extern int max_bad_pws; + +/* external functions */ +void echo_on(struct descriptor_data *d); +void echo_off(struct descriptor_data *d); +void do_start(struct char_data *ch); +int parse_class(char arg); +int special(struct char_data *ch, int cmd, char *arg); +int isbanned(char *hostname); +int Valid_Name(char *newname); +void read_aliases(struct char_data *ch); +void delete_aliases(const char *charname); + +/* local functions */ +int perform_dupe_check(struct descriptor_data *d); +struct alias_data *find_alias(struct alias_data *alias_list, char *str); +void free_alias(struct alias_data *a); +void perform_complex_alias(struct txt_q *input_q, char *orig, struct alias_data *a); +int perform_alias(struct descriptor_data *d, char *orig, size_t maxlen); +int reserved_word(char *argument); +int _parse_name(char *arg, char *name); + +/* prototypes for all do_x functions. */ +ACMD(do_action); +ACMD(do_advance); +ACMD(do_alias); +ACMD(do_assist); +ACMD(do_at); +ACMD(do_backstab); +ACMD(do_ban); +ACMD(do_bash); +ACMD(do_cast); +ACMD(do_color); +ACMD(do_commands); +ACMD(do_consider); +ACMD(do_credits); +ACMD(do_date); +ACMD(do_dc); +ACMD(do_diagnose); +ACMD(do_display); +ACMD(do_drink); +ACMD(do_drop); +ACMD(do_eat); +ACMD(do_echo); +ACMD(do_enter); +ACMD(do_equipment); +ACMD(do_examine); +ACMD(do_exit); +ACMD(do_exits); +ACMD(do_flee); +ACMD(do_follow); +ACMD(do_force); +ACMD(do_gecho); +ACMD(do_gen_comm); +ACMD(do_gen_door); +ACMD(do_gen_ps); +ACMD(do_gen_tog); +ACMD(do_gen_write); +ACMD(do_get); +ACMD(do_give); +ACMD(do_gold); +ACMD(do_goto); +ACMD(do_grab); +ACMD(do_group); +ACMD(do_gsay); +ACMD(do_hcontrol); +ACMD(do_help); +ACMD(do_hide); +ACMD(do_hit); +ACMD(do_house); +ACMD(do_insult); +ACMD(do_inventory); +ACMD(do_invis); +ACMD(do_kick); +ACMD(do_kill); +ACMD(do_last); +ACMD(do_leave); +ACMD(do_levels); +ACMD(do_load); +ACMD(do_look); +/* ACMD(do_move); -- interpreter.h */ +ACMD(do_not_here); +ACMD(do_olc); +ACMD(do_order); +ACMD(do_page); +ACMD(do_poofset); +ACMD(do_pour); +ACMD(do_practice); +ACMD(do_purge); +ACMD(do_put); +ACMD(do_qcomm); +ACMD(do_quit); +ACMD(do_reboot); +ACMD(do_remove); +ACMD(do_reply); +ACMD(do_report); +ACMD(do_rescue); +ACMD(do_rest); +ACMD(do_restore); +ACMD(do_return); +ACMD(do_save); +ACMD(do_say); +ACMD(do_score); +ACMD(do_send); +ACMD(do_set); +ACMD(do_show); +ACMD(do_shutdown); +ACMD(do_sit); +ACMD(do_skillset); +ACMD(do_sleep); +ACMD(do_sneak); +ACMD(do_snoop); +ACMD(do_spec_comm); +ACMD(do_split); +ACMD(do_stand); +ACMD(do_stat); +ACMD(do_steal); +ACMD(do_switch); +ACMD(do_syslog); +ACMD(do_teleport); +ACMD(do_tell); +ACMD(do_time); +ACMD(do_title); +ACMD(do_toggle); +ACMD(do_track); +ACMD(do_trans); +ACMD(do_unban); +ACMD(do_ungroup); +ACMD(do_use); +ACMD(do_users); +ACMD(do_visible); +ACMD(do_vnum); +ACMD(do_vstat); +ACMD(do_wake); +ACMD(do_wear); +ACMD(do_weather); +ACMD(do_where); +ACMD(do_who); +ACMD(do_wield); +ACMD(do_wimpy); +ACMD(do_wizlock); +ACMD(do_wiznet); +ACMD(do_wizutil); +ACMD(do_write); +ACMD(do_zreset); + + +/* This is the Master Command List(tm). + + * You can put new commands in, take commands out, change the order + * they appear in, etc. You can adjust the "priority" of commands + * simply by changing the order they appear in the command list. + * (For example, if you want "as" to mean "assist" instead of "ask", + * just put "assist" above "ask" in the Master Command List(tm). + * + * In general, utility commands such as "at" should have high priority; + * infrequently used and dangerously destructive commands should have low + * priority. + */ + +cpp_extern const struct command_info cmd_info[] = { + { "RESERVED", 0, 0, 0, 0 }, /* this must be first -- for specprocs */ + + /* directions must come before other commands but after RESERVED */ + { "north" , POS_STANDING, do_move , 0, SCMD_NORTH }, + { "east" , POS_STANDING, do_move , 0, SCMD_EAST }, + { "south" , POS_STANDING, do_move , 0, SCMD_SOUTH }, + { "west" , POS_STANDING, do_move , 0, SCMD_WEST }, + { "up" , POS_STANDING, do_move , 0, SCMD_UP }, + { "down" , POS_STANDING, do_move , 0, SCMD_DOWN }, + + /* now, the main list */ + { "at" , POS_DEAD , do_at , LVL_IMMORT, 0 }, + { "advance" , POS_DEAD , do_advance , LVL_IMPL, 0 }, + { "alias" , POS_DEAD , do_alias , 0, 0 }, + { "accuse" , POS_SITTING , do_action , 0, 0 }, + { "applaud" , POS_RESTING , do_action , 0, 0 }, + { "assist" , POS_FIGHTING, do_assist , 1, 0 }, + { "ask" , POS_RESTING , do_spec_comm, 0, SCMD_ASK }, + { "auction" , POS_SLEEPING, do_gen_comm , 0, SCMD_AUCTION }, + { "autoexit" , POS_DEAD , do_gen_tog , 0, SCMD_AUTOEXIT }, + + { "bounce" , POS_STANDING, do_action , 0, 0 }, + { "backstab" , POS_STANDING, do_backstab , 1, 0 }, + { "ban" , POS_DEAD , do_ban , LVL_GRGOD, 0 }, + { "balance" , POS_STANDING, do_not_here , 1, 0 }, + { "bash" , POS_FIGHTING, do_bash , 1, 0 }, + { "beg" , POS_RESTING , do_action , 0, 0 }, + { "bleed" , POS_RESTING , do_action , 0, 0 }, + { "blush" , POS_RESTING , do_action , 0, 0 }, + { "bow" , POS_STANDING, do_action , 0, 0 }, + { "brb" , POS_RESTING , do_action , 0, 0 }, + { "brief" , POS_DEAD , do_gen_tog , 0, SCMD_BRIEF }, + { "burp" , POS_RESTING , do_action , 0, 0 }, + { "buy" , POS_STANDING, do_not_here , 0, 0 }, + { "bug" , POS_DEAD , do_gen_write, 0, SCMD_BUG }, + + { "cast" , POS_SITTING , do_cast , 1, 0 }, + { "cackle" , POS_RESTING , do_action , 0, 0 }, + { "check" , POS_STANDING, do_not_here , 1, 0 }, + { "chuckle" , POS_RESTING , do_action , 0, 0 }, + { "clap" , POS_RESTING , do_action , 0, 0 }, + { "clear" , POS_DEAD , do_gen_ps , 0, SCMD_CLEAR }, + { "close" , POS_SITTING , do_gen_door , 0, SCMD_CLOSE }, + { "cls" , POS_DEAD , do_gen_ps , 0, SCMD_CLEAR }, + { "consider" , POS_RESTING , do_consider , 0, 0 }, + { "color" , POS_DEAD , do_color , 0, 0 }, + { "comfort" , POS_RESTING , do_action , 0, 0 }, + { "comb" , POS_RESTING , do_action , 0, 0 }, + { "commands" , POS_DEAD , do_commands , 0, SCMD_COMMANDS }, + { "compact" , POS_DEAD , do_gen_tog , 0, SCMD_COMPACT }, + { "cough" , POS_RESTING , do_action , 0, 0 }, + { "credits" , POS_DEAD , do_gen_ps , 0, SCMD_CREDITS }, + { "cringe" , POS_RESTING , do_action , 0, 0 }, + { "cry" , POS_RESTING , do_action , 0, 0 }, + { "cuddle" , POS_RESTING , do_action , 0, 0 }, + { "curse" , POS_RESTING , do_action , 0, 0 }, + { "curtsey" , POS_STANDING, do_action , 0, 0 }, + + { "dance" , POS_STANDING, do_action , 0, 0 }, + { "date" , POS_DEAD , do_date , LVL_IMMORT, SCMD_DATE }, + { "daydream" , POS_SLEEPING, do_action , 0, 0 }, + { "dc" , POS_DEAD , do_dc , LVL_GOD, 0 }, + { "deposit" , POS_STANDING, do_not_here , 1, 0 }, + { "diagnose" , POS_RESTING , do_diagnose , 0, 0 }, + { "display" , POS_DEAD , do_display , 0, 0 }, + { "donate" , POS_RESTING , do_drop , 0, SCMD_DONATE }, + { "drink" , POS_RESTING , do_drink , 0, SCMD_DRINK }, + { "drop" , POS_RESTING , do_drop , 0, SCMD_DROP }, + { "drool" , POS_RESTING , do_action , 0, 0 }, + + { "eat" , POS_RESTING , do_eat , 0, SCMD_EAT }, + { "echo" , POS_SLEEPING, do_echo , LVL_IMMORT, SCMD_ECHO }, + { "emote" , POS_RESTING , do_echo , 1, SCMD_EMOTE }, + { ":" , POS_RESTING, do_echo , 1, SCMD_EMOTE }, + { "embrace" , POS_STANDING, do_action , 0, 0 }, + { "enter" , POS_STANDING, do_enter , 0, 0 }, + { "equipment", POS_SLEEPING, do_equipment, 0, 0 }, + { "exits" , POS_RESTING , do_exits , 0, 0 }, + { "examine" , POS_SITTING , do_examine , 0, 0 }, + + { "force" , POS_SLEEPING, do_force , LVL_GOD, 0 }, + { "fart" , POS_RESTING , do_action , 0, 0 }, + { "fill" , POS_STANDING, do_pour , 0, SCMD_FILL }, + { "flee" , POS_FIGHTING, do_flee , 1, 0 }, + { "flip" , POS_STANDING, do_action , 0, 0 }, + { "flirt" , POS_RESTING , do_action , 0, 0 }, + { "follow" , POS_RESTING , do_follow , 0, 0 }, + { "fondle" , POS_RESTING , do_action , 0, 0 }, + { "freeze" , POS_DEAD , do_wizutil , LVL_FREEZE, SCMD_FREEZE }, + { "french" , POS_RESTING , do_action , 0, 0 }, + { "frown" , POS_RESTING , do_action , 0, 0 }, + { "fume" , POS_RESTING , do_action , 0, 0 }, + + { "get" , POS_RESTING , do_get , 0, 0 }, + { "gasp" , POS_RESTING , do_action , 0, 0 }, + { "gecho" , POS_DEAD , do_gecho , LVL_GOD, 0 }, + { "give" , POS_RESTING , do_give , 0, 0 }, + { "giggle" , POS_RESTING , do_action , 0, 0 }, + { "glare" , POS_RESTING , do_action , 0, 0 }, + { "goto" , POS_SLEEPING, do_goto , LVL_IMMORT, 0 }, + { "gold" , POS_RESTING , do_gold , 0, 0 }, + { "gossip" , POS_SLEEPING, do_gen_comm , 0, SCMD_GOSSIP }, + { "group" , POS_RESTING , do_group , 1, 0 }, + { "grab" , POS_RESTING , do_grab , 0, 0 }, + { "grats" , POS_SLEEPING, do_gen_comm , 0, SCMD_GRATZ }, + { "greet" , POS_RESTING , do_action , 0, 0 }, + { "grin" , POS_RESTING , do_action , 0, 0 }, + { "groan" , POS_RESTING , do_action , 0, 0 }, + { "grope" , POS_RESTING , do_action , 0, 0 }, + { "grovel" , POS_RESTING , do_action , 0, 0 }, + { "growl" , POS_RESTING , do_action , 0, 0 }, + { "gsay" , POS_SLEEPING, do_gsay , 0, 0 }, + { "gtell" , POS_SLEEPING, do_gsay , 0, 0 }, + + { "help" , POS_DEAD , do_help , 0, 0 }, + { "handbook" , POS_DEAD , do_gen_ps , LVL_IMMORT, SCMD_HANDBOOK }, + { "hcontrol" , POS_DEAD , do_hcontrol , LVL_GRGOD, 0 }, + { "hiccup" , POS_RESTING , do_action , 0, 0 }, + { "hide" , POS_RESTING , do_hide , 1, 0 }, + { "hit" , POS_FIGHTING, do_hit , 0, SCMD_HIT }, + { "hold" , POS_RESTING , do_grab , 1, 0 }, + { "holler" , POS_RESTING , do_gen_comm , 1, SCMD_HOLLER }, + { "holylight", POS_DEAD , do_gen_tog , LVL_IMMORT, SCMD_HOLYLIGHT }, + { "hop" , POS_RESTING , do_action , 0, 0 }, + { "house" , POS_RESTING , do_house , 0, 0 }, + { "hug" , POS_RESTING , do_action , 0, 0 }, + + { "inventory", POS_DEAD , do_inventory, 0, 0 }, + { "idea" , POS_DEAD , do_gen_write, 0, SCMD_IDEA }, + { "imotd" , POS_DEAD , do_gen_ps , LVL_IMMORT, SCMD_IMOTD }, + { "immlist" , POS_DEAD , do_gen_ps , 0, SCMD_IMMLIST }, + { "info" , POS_SLEEPING, do_gen_ps , 0, SCMD_INFO }, + { "insult" , POS_RESTING , do_insult , 0, 0 }, + { "invis" , POS_DEAD , do_invis , LVL_IMMORT, 0 }, + + { "junk" , POS_RESTING , do_drop , 0, SCMD_JUNK }, + + { "kill" , POS_FIGHTING, do_kill , 0, 0 }, + { "kick" , POS_FIGHTING, do_kick , 1, 0 }, + { "kiss" , POS_RESTING , do_action , 0, 0 }, + + { "look" , POS_RESTING , do_look , 0, SCMD_LOOK }, + { "laugh" , POS_RESTING , do_action , 0, 0 }, + { "last" , POS_DEAD , do_last , LVL_GOD, 0 }, + { "leave" , POS_STANDING, do_leave , 0, 0 }, + { "levels" , POS_DEAD , do_levels , 0, 0 }, + { "list" , POS_STANDING, do_not_here , 0, 0 }, + { "lick" , POS_RESTING , do_action , 0, 0 }, + { "lock" , POS_SITTING , do_gen_door , 0, SCMD_LOCK }, + { "load" , POS_DEAD , do_load , LVL_GOD, 0 }, + { "love" , POS_RESTING , do_action , 0, 0 }, + + { "moan" , POS_RESTING , do_action , 0, 0 }, + { "motd" , POS_DEAD , do_gen_ps , 0, SCMD_MOTD }, + { "mail" , POS_STANDING, do_not_here , 1, 0 }, + { "massage" , POS_RESTING , do_action , 0, 0 }, + { "mute" , POS_DEAD , do_wizutil , LVL_GOD, SCMD_SQUELCH }, + { "murder" , POS_FIGHTING, do_hit , 0, SCMD_MURDER }, + + { "news" , POS_SLEEPING, do_gen_ps , 0, SCMD_NEWS }, + { "nibble" , POS_RESTING , do_action , 0, 0 }, + { "nod" , POS_RESTING , do_action , 0, 0 }, + { "noauction", POS_DEAD , do_gen_tog , 0, SCMD_NOAUCTION }, + { "nogossip" , POS_DEAD , do_gen_tog , 0, SCMD_NOGOSSIP }, + { "nograts" , POS_DEAD , do_gen_tog , 0, SCMD_NOGRATZ }, + { "nohassle" , POS_DEAD , do_gen_tog , LVL_IMMORT, SCMD_NOHASSLE }, + { "norepeat" , POS_DEAD , do_gen_tog , 0, SCMD_NOREPEAT }, + { "noshout" , POS_SLEEPING, do_gen_tog , 1, SCMD_DEAF }, + { "nosummon" , POS_DEAD , do_gen_tog , 1, SCMD_NOSUMMON }, + { "notell" , POS_DEAD , do_gen_tog , 1, SCMD_NOTELL }, + { "notitle" , POS_DEAD , do_wizutil , LVL_GOD, SCMD_NOTITLE }, + { "nowiz" , POS_DEAD , do_gen_tog , LVL_IMMORT, SCMD_NOWIZ }, + { "nudge" , POS_RESTING , do_action , 0, 0 }, + { "nuzzle" , POS_RESTING , do_action , 0, 0 }, + + { "olc" , POS_DEAD , do_olc , LVL_IMPL, 0 }, + { "order" , POS_RESTING , do_order , 1, 0 }, + { "offer" , POS_STANDING, do_not_here , 1, 0 }, + { "open" , POS_SITTING , do_gen_door , 0, SCMD_OPEN }, + + { "put" , POS_RESTING , do_put , 0, 0 }, + { "pat" , POS_RESTING , do_action , 0, 0 }, + { "page" , POS_DEAD , do_page , LVL_GOD, 0 }, + { "pardon" , POS_DEAD , do_wizutil , LVL_GOD, SCMD_PARDON }, + { "peer" , POS_RESTING , do_action , 0, 0 }, + { "pick" , POS_STANDING, do_gen_door , 1, SCMD_PICK }, + { "point" , POS_RESTING , do_action , 0, 0 }, + { "poke" , POS_RESTING , do_action , 0, 0 }, + { "policy" , POS_DEAD , do_gen_ps , 0, SCMD_POLICIES }, + { "ponder" , POS_RESTING , do_action , 0, 0 }, + { "poofin" , POS_DEAD , do_poofset , LVL_IMMORT, SCMD_POOFIN }, + { "poofout" , POS_DEAD , do_poofset , LVL_IMMORT, SCMD_POOFOUT }, + { "pour" , POS_STANDING, do_pour , 0, SCMD_POUR }, + { "pout" , POS_RESTING , do_action , 0, 0 }, + { "prompt" , POS_DEAD , do_display , 0, 0 }, + { "practice" , POS_RESTING , do_practice , 1, 0 }, + { "pray" , POS_SITTING , do_action , 0, 0 }, + { "puke" , POS_RESTING , do_action , 0, 0 }, + { "punch" , POS_RESTING , do_action , 0, 0 }, + { "purr" , POS_RESTING , do_action , 0, 0 }, + { "purge" , POS_DEAD , do_purge , LVL_GOD, 0 }, + + { "quaff" , POS_RESTING , do_use , 0, SCMD_QUAFF }, + { "qecho" , POS_DEAD , do_qcomm , LVL_IMMORT, SCMD_QECHO }, + { "quest" , POS_DEAD , do_gen_tog , 0, SCMD_QUEST }, + { "qui" , POS_DEAD , do_quit , 0, 0 }, + { "quit" , POS_DEAD , do_quit , 0, SCMD_QUIT }, + { "qsay" , POS_RESTING , do_qcomm , 0, SCMD_QSAY }, + + { "reply" , POS_SLEEPING, do_reply , 0, 0 }, + { "rest" , POS_RESTING , do_rest , 0, 0 }, + { "read" , POS_RESTING , do_look , 0, SCMD_READ }, + { "reload" , POS_DEAD , do_reboot , LVL_IMPL, 0 }, + { "recite" , POS_RESTING , do_use , 0, SCMD_RECITE }, + { "receive" , POS_STANDING, do_not_here , 1, 0 }, + { "remove" , POS_RESTING , do_remove , 0, 0 }, + { "rent" , POS_STANDING, do_not_here , 1, 0 }, + { "report" , POS_RESTING , do_report , 0, 0 }, + { "reroll" , POS_DEAD , do_wizutil , LVL_GRGOD, SCMD_REROLL }, + { "rescue" , POS_FIGHTING, do_rescue , 1, 0 }, + { "restore" , POS_DEAD , do_restore , LVL_GOD, 0 }, + { "return" , POS_DEAD , do_return , 0, 0 }, + { "roll" , POS_RESTING , do_action , 0, 0 }, + { "roomflags", POS_DEAD , do_gen_tog , LVL_IMMORT, SCMD_ROOMFLAGS }, + { "ruffle" , POS_STANDING, do_action , 0, 0 }, + + { "say" , POS_RESTING , do_say , 0, 0 }, + { "'" , POS_RESTING , do_say , 0, 0 }, + { "save" , POS_SLEEPING, do_save , 0, 0 }, + { "score" , POS_DEAD , do_score , 0, 0 }, + { "scream" , POS_RESTING , do_action , 0, 0 }, + { "sell" , POS_STANDING, do_not_here , 0, 0 }, + { "send" , POS_SLEEPING, do_send , LVL_GOD, 0 }, + { "set" , POS_DEAD , do_set , LVL_GOD, 0 }, + { "shout" , POS_RESTING , do_gen_comm , 0, SCMD_SHOUT }, + { "shake" , POS_RESTING , do_action , 0, 0 }, + { "shiver" , POS_RESTING , do_action , 0, 0 }, + { "show" , POS_DEAD , do_show , LVL_IMMORT, 0 }, + { "shrug" , POS_RESTING , do_action , 0, 0 }, + { "shutdow" , POS_DEAD , do_shutdown , LVL_IMPL, 0 }, + { "shutdown" , POS_DEAD , do_shutdown , LVL_IMPL, SCMD_SHUTDOWN }, + { "sigh" , POS_RESTING , do_action , 0, 0 }, + { "sing" , POS_RESTING , do_action , 0, 0 }, + { "sip" , POS_RESTING , do_drink , 0, SCMD_SIP }, + { "sit" , POS_RESTING , do_sit , 0, 0 }, + { "skillset" , POS_SLEEPING, do_skillset , LVL_GRGOD, 0 }, + { "sleep" , POS_SLEEPING, do_sleep , 0, 0 }, + { "slap" , POS_RESTING , do_action , 0, 0 }, + { "slowns" , POS_DEAD , do_gen_tog , LVL_IMPL, SCMD_SLOWNS }, + { "smile" , POS_RESTING , do_action , 0, 0 }, + { "smirk" , POS_RESTING , do_action , 0, 0 }, + { "snicker" , POS_RESTING , do_action , 0, 0 }, + { "snap" , POS_RESTING , do_action , 0, 0 }, + { "snarl" , POS_RESTING , do_action , 0, 0 }, + { "sneeze" , POS_RESTING , do_action , 0, 0 }, + { "sneak" , POS_STANDING, do_sneak , 1, 0 }, + { "sniff" , POS_RESTING , do_action , 0, 0 }, + { "snore" , POS_SLEEPING, do_action , 0, 0 }, + { "snowball" , POS_STANDING, do_action , LVL_IMMORT, 0 }, + { "snoop" , POS_DEAD , do_snoop , LVL_GOD, 0 }, + { "snuggle" , POS_RESTING , do_action , 0, 0 }, + { "socials" , POS_DEAD , do_commands , 0, SCMD_SOCIALS }, + { "split" , POS_SITTING , do_split , 1, 0 }, + { "spank" , POS_RESTING , do_action , 0, 0 }, + { "spit" , POS_STANDING, do_action , 0, 0 }, + { "squeeze" , POS_RESTING , do_action , 0, 0 }, + { "stand" , POS_RESTING , do_stand , 0, 0 }, + { "stare" , POS_RESTING , do_action , 0, 0 }, + { "stat" , POS_DEAD , do_stat , LVL_IMMORT, 0 }, + { "steal" , POS_STANDING, do_steal , 1, 0 }, + { "steam" , POS_RESTING , do_action , 0, 0 }, + { "stroke" , POS_RESTING , do_action , 0, 0 }, + { "strut" , POS_STANDING, do_action , 0, 0 }, + { "sulk" , POS_RESTING , do_action , 0, 0 }, + { "switch" , POS_DEAD , do_switch , LVL_GRGOD, 0 }, + { "syslog" , POS_DEAD , do_syslog , LVL_IMMORT, 0 }, + + { "tell" , POS_DEAD , do_tell , 0, 0 }, + { "tackle" , POS_RESTING , do_action , 0, 0 }, + { "take" , POS_RESTING , do_get , 0, 0 }, + { "tango" , POS_STANDING, do_action , 0, 0 }, + { "taunt" , POS_RESTING , do_action , 0, 0 }, + { "taste" , POS_RESTING , do_eat , 0, SCMD_TASTE }, + { "teleport" , POS_DEAD , do_teleport , LVL_GOD, 0 }, + { "thank" , POS_RESTING , do_action , 0, 0 }, + { "think" , POS_RESTING , do_action , 0, 0 }, + { "thaw" , POS_DEAD , do_wizutil , LVL_FREEZE, SCMD_THAW }, + { "title" , POS_DEAD , do_title , 0, 0 }, + { "tickle" , POS_RESTING , do_action , 0, 0 }, + { "time" , POS_DEAD , do_time , 0, 0 }, + { "toggle" , POS_DEAD , do_toggle , 0, 0 }, + { "track" , POS_STANDING, do_track , 0, 0 }, + { "trackthru", POS_DEAD , do_gen_tog , LVL_IMPL, SCMD_TRACK }, + { "transfer" , POS_SLEEPING, do_trans , LVL_GOD, 0 }, + { "twiddle" , POS_RESTING , do_action , 0, 0 }, + { "typo" , POS_DEAD , do_gen_write, 0, SCMD_TYPO }, + + { "unlock" , POS_SITTING , do_gen_door , 0, SCMD_UNLOCK }, + { "ungroup" , POS_DEAD , do_ungroup , 0, 0 }, + { "unban" , POS_DEAD , do_unban , LVL_GRGOD, 0 }, + { "unaffect" , POS_DEAD , do_wizutil , LVL_GOD, SCMD_UNAFFECT }, + { "uptime" , POS_DEAD , do_date , LVL_IMMORT, SCMD_UPTIME }, + { "use" , POS_SITTING , do_use , 1, SCMD_USE }, + { "users" , POS_DEAD , do_users , LVL_IMMORT, 0 }, + + { "value" , POS_STANDING, do_not_here , 0, 0 }, + { "version" , POS_DEAD , do_gen_ps , 0, SCMD_VERSION }, + { "visible" , POS_RESTING , do_visible , 1, 0 }, + { "vnum" , POS_DEAD , do_vnum , LVL_IMMORT, 0 }, + { "vstat" , POS_DEAD , do_vstat , LVL_IMMORT, 0 }, + + { "wake" , POS_SLEEPING, do_wake , 0, 0 }, + { "wave" , POS_RESTING , do_action , 0, 0 }, + { "wear" , POS_RESTING , do_wear , 0, 0 }, + { "weather" , POS_RESTING , do_weather , 0, 0 }, + { "who" , POS_DEAD , do_who , 0, 0 }, + { "whoami" , POS_DEAD , do_gen_ps , 0, SCMD_WHOAMI }, + { "where" , POS_RESTING , do_where , 1, 0 }, + { "whisper" , POS_RESTING , do_spec_comm, 0, SCMD_WHISPER }, + { "whine" , POS_RESTING , do_action , 0, 0 }, + { "whistle" , POS_RESTING , do_action , 0, 0 }, + { "wield" , POS_RESTING , do_wield , 0, 0 }, + { "wiggle" , POS_STANDING, do_action , 0, 0 }, + { "wimpy" , POS_DEAD , do_wimpy , 0, 0 }, + { "wink" , POS_RESTING , do_action , 0, 0 }, + { "withdraw" , POS_STANDING, do_not_here , 1, 0 }, + { "wiznet" , POS_DEAD , do_wiznet , LVL_IMMORT, 0 }, + { ";" , POS_DEAD , do_wiznet , LVL_IMMORT, 0 }, + { "wizhelp" , POS_SLEEPING, do_commands , LVL_IMMORT, SCMD_WIZHELP }, + { "wizlist" , POS_DEAD , do_gen_ps , 0, SCMD_WIZLIST }, + { "wizlock" , POS_DEAD , do_wizlock , LVL_IMPL, 0 }, + { "worship" , POS_RESTING , do_action , 0, 0 }, + { "write" , POS_STANDING, do_write , 1, 0 }, + + { "yawn" , POS_RESTING , do_action , 0, 0 }, + { "yodel" , POS_RESTING , do_action , 0, 0 }, + + { "zreset" , POS_DEAD , do_zreset , LVL_GRGOD, 0 }, + + { "\n", 0, 0, 0, 0 } }; /* this must be last */ + + +const char *fill[] = +{ + "in", + "from", + "with", + "the", + "on", + "at", + "to", + "\n" +}; + +const char *reserved[] = +{ + "a", + "an", + "self", + "me", + "all", + "room", + "someone", + "something", + "\n" +}; + +/* + * This is the actual command interpreter called from game_loop() in comm.c + * It makes sure you are the proper level and position to execute the command, + * then calls the appropriate function. + */ +void command_interpreter(struct char_data *ch, char *argument) +{ + int cmd, length; + char *line; + char arg[MAX_INPUT_LENGTH]; + + REMOVE_BIT(AFF_FLAGS(ch), AFF_HIDE); + + /* just drop to next line for hitting CR */ + skip_spaces(&argument); + if (!*argument) + return; + + /* + * special case to handle one-character, non-alphanumeric commands; + * requested by many people so "'hi" or ";godnet test" is possible. + * Patch sent by Eric Green and Stefan Wasilewski. + */ + if (!isalpha(*argument)) { + arg[0] = argument[0]; + arg[1] = '\0'; + line = argument + 1; + } else + line = any_one_arg(argument, arg); + + /* otherwise, find the command */ + for (length = strlen(arg), cmd = 0; *cmd_info[cmd].command != '\n'; cmd++) + if (!strncmp(cmd_info[cmd].command, arg, length)) + if (GET_LEVEL(ch) >= cmd_info[cmd].minimum_level) + break; + + if (*cmd_info[cmd].command == '\n') + send_to_char(ch, "Huh?!?\r\n"); + else if (!IS_NPC(ch) && PLR_FLAGGED(ch, PLR_FROZEN) && GET_LEVEL(ch) < LVL_IMPL) + send_to_char(ch, "You try, but the mind-numbing cold prevents you...\r\n"); + else if (cmd_info[cmd].command_pointer == NULL) + send_to_char(ch, "Sorry, that command hasn't been implemented yet.\r\n"); + else if (IS_NPC(ch) && cmd_info[cmd].minimum_level >= LVL_IMMORT) + send_to_char(ch, "You can't use immortal commands while switched.\r\n"); + else if (GET_POS(ch) < cmd_info[cmd].minimum_position) + switch (GET_POS(ch)) { + case POS_DEAD: + send_to_char(ch, "Lie still; you are DEAD!!! :-(\r\n"); + break; + case POS_INCAP: + case POS_MORTALLYW: + send_to_char(ch, "You are in a pretty bad shape, unable to do anything!\r\n"); + break; + case POS_STUNNED: + send_to_char(ch, "All you can do right now is think about the stars!\r\n"); + break; + case POS_SLEEPING: + send_to_char(ch, "In your dreams, or what?\r\n"); + break; + case POS_RESTING: + send_to_char(ch, "Nah... You feel too relaxed to do that..\r\n"); + break; + case POS_SITTING: + send_to_char(ch, "Maybe you should get on your feet first?\r\n"); + break; + case POS_FIGHTING: + send_to_char(ch, "No way! You're fighting for your life!\r\n"); + break; + } else if (no_specials || !special(ch, cmd, line)) + ((*cmd_info[cmd].command_pointer) (ch, line, cmd, cmd_info[cmd].subcmd)); +} + +/************************************************************************** + * Routines to handle aliasing * + **************************************************************************/ + + +struct alias_data *find_alias(struct alias_data *alias_list, char *str) +{ + while (alias_list != NULL) { + if (*str == *alias_list->alias) /* hey, every little bit counts :-) */ + if (!strcmp(str, alias_list->alias)) + return (alias_list); + + alias_list = alias_list->next; + } + + return (NULL); +} + + +void free_alias(struct alias_data *a) +{ + if (a->alias) + free(a->alias); + if (a->replacement) + free(a->replacement); + free(a); +} + + +/* The interface to the outside world: do_alias */ +ACMD(do_alias) +{ + char arg[MAX_INPUT_LENGTH]; + char *repl; + struct alias_data *a, *temp; + + if (IS_NPC(ch)) + return; + + repl = any_one_arg(argument, arg); + + if (!*arg) { /* no argument specified -- list currently defined aliases */ + send_to_char(ch, "Currently defined aliases:\r\n"); + if ((a = GET_ALIASES(ch)) == NULL) + send_to_char(ch, " None.\r\n"); + else { + while (a != NULL) { + send_to_char(ch, "%-15s %s\r\n", a->alias, a->replacement); + a = a->next; + } + } + } else { /* otherwise, add or remove aliases */ + /* is this an alias we've already defined? */ + if ((a = find_alias(GET_ALIASES(ch), arg)) != NULL) { + REMOVE_FROM_LIST(a, GET_ALIASES(ch), next); + free_alias(a); + } + /* if no replacement string is specified, assume we want to delete */ + if (!*repl) { + if (a == NULL) + send_to_char(ch, "No such alias.\r\n"); + else + send_to_char(ch, "Alias deleted.\r\n"); + } else { /* otherwise, either add or redefine an alias */ + if (!str_cmp(arg, "alias")) { + send_to_char(ch, "You can't alias 'alias'.\r\n"); + return; + } + CREATE(a, struct alias_data, 1); + a->alias = strdup(arg); + delete_doubledollar(repl); + a->replacement = strdup(repl); + if (strchr(repl, ALIAS_SEP_CHAR) || strchr(repl, ALIAS_VAR_CHAR)) + a->type = ALIAS_COMPLEX; + else + a->type = ALIAS_SIMPLE; + a->next = GET_ALIASES(ch); + GET_ALIASES(ch) = a; + send_to_char(ch, "Alias added.\r\n"); + } + } +} + +/* + * Valid numeric replacements are only $1 .. $9 (makes parsing a little + * easier, and it's not that much of a limitation anyway.) Also valid + * is "$*", which stands for the entire original line after the alias. + * ";" is used to delimit commands. + */ +#define NUM_TOKENS 9 + +void perform_complex_alias(struct txt_q *input_q, char *orig, struct alias_data *a) +{ + struct txt_q temp_queue; + char *tokens[NUM_TOKENS], *temp, *write_point; + char buf2[MAX_RAW_INPUT_LENGTH], buf[MAX_RAW_INPUT_LENGTH]; /* raw? */ + int num_of_tokens = 0, num; + + /* First, parse the original string */ + strcpy(buf2, orig); /* strcpy: OK (orig:MAX_INPUT_LENGTH < buf2:MAX_RAW_INPUT_LENGTH) */ + temp = strtok(buf2, " "); + while (temp != NULL && num_of_tokens < NUM_TOKENS) { + tokens[num_of_tokens++] = temp; + temp = strtok(NULL, " "); + } + + /* initialize */ + write_point = buf; + temp_queue.head = temp_queue.tail = NULL; + + /* now parse the alias */ + for (temp = a->replacement; *temp; temp++) { + if (*temp == ALIAS_SEP_CHAR) { + *write_point = '\0'; + buf[MAX_INPUT_LENGTH - 1] = '\0'; + write_to_q(buf, &temp_queue, 1); + write_point = buf; + } else if (*temp == ALIAS_VAR_CHAR) { + temp++; + if ((num = *temp - '1') < num_of_tokens && num >= 0) { + strcpy(write_point, tokens[num]); /* strcpy: OK */ + write_point += strlen(tokens[num]); + } else if (*temp == ALIAS_GLOB_CHAR) { + strcpy(write_point, orig); /* strcpy: OK */ + write_point += strlen(orig); + } else if ((*(write_point++) = *temp) == '$') /* redouble $ for act safety */ + *(write_point++) = '$'; + } else + *(write_point++) = *temp; + } + + *write_point = '\0'; + buf[MAX_INPUT_LENGTH - 1] = '\0'; + write_to_q(buf, &temp_queue, 1); + + /* push our temp_queue on to the _front_ of the input queue */ + if (input_q->head == NULL) + *input_q = temp_queue; + else { + temp_queue.tail->next = input_q->head; + input_q->head = temp_queue.head; + } +} + + +/* + * Given a character and a string, perform alias replacement on it. + * + * Return values: + * 0: String was modified in place; call command_interpreter immediately. + * 1: String was _not_ modified in place; rather, the expanded aliases + * have been placed at the front of the character's input queue. + */ +int perform_alias(struct descriptor_data *d, char *orig, size_t maxlen) +{ + char first_arg[MAX_INPUT_LENGTH], *ptr; + struct alias_data *a, *tmp; + + /* Mobs don't have alaises. */ + if (IS_NPC(d->character)) + return (0); + + /* bail out immediately if the guy doesn't have any aliases */ + if ((tmp = GET_ALIASES(d->character)) == NULL) + return (0); + + /* find the alias we're supposed to match */ + ptr = any_one_arg(orig, first_arg); + + /* bail out if it's null */ + if (!*first_arg) + return (0); + + /* if the first arg is not an alias, return without doing anything */ + if ((a = find_alias(tmp, first_arg)) == NULL) + return (0); + + if (a->type == ALIAS_SIMPLE) { + strlcpy(orig, a->replacement, maxlen); + return (0); + } else { + perform_complex_alias(&d->input, ptr, a); + return (1); + } +} + + + +/*************************************************************************** + * Various other parsing utilities * + **************************************************************************/ + +/* + * searches an array of strings for a target string. "exact" can be + * 0 or non-0, depending on whether or not the match must be exact for + * it to be returned. Returns -1 if not found; 0..n otherwise. Array + * must be terminated with a '\n' so it knows to stop searching. + */ +int search_block(char *arg, const char **list, int exact) +{ + int i, l; + + /* We used to have \r as the first character on certain array items to + * prevent the explicit choice of that point. It seems a bit silly to + * dump control characters into arrays to prevent that, so we'll just + * check in here to see if the first character of the argument is '!', + * and if so, just blindly return a '-1' for not found. - ae. + */ + if (*arg == '!') + return (-1); + + /* Make into lower case, and get length of string */ + for (l = 0; *(arg + l); l++) + *(arg + l) = LOWER(*(arg + l)); + + if (exact) { + for (i = 0; **(list + i) != '\n'; i++) + if (!strcmp(arg, *(list + i))) + return (i); + } else { + if (!l) + l = 1; /* Avoid "" to match the first available + * string */ + for (i = 0; **(list + i) != '\n'; i++) + if (!strncmp(arg, *(list + i), l)) + return (i); + } + + return (-1); +} + + +int is_number(const char *str) +{ + while (*str) + if (!isdigit(*(str++))) + return (0); + + return (1); +} + +/* + * Function to skip over the leading spaces of a string. + */ +void skip_spaces(char **string) +{ + for (; **string && isspace(**string); (*string)++); +} + + +/* + * Given a string, change all instances of double dollar signs ($$) to + * single dollar signs ($). When strings come in, all $'s are changed + * to $$'s to avoid having users be able to crash the system if the + * inputted string is eventually sent to act(). If you are using user + * input to produce screen output AND YOU ARE SURE IT WILL NOT BE SENT + * THROUGH THE act() FUNCTION (i.e., do_gecho, do_title, but NOT do_say), + * you can call delete_doubledollar() to make the output look correct. + * + * Modifies the string in-place. + */ +char *delete_doubledollar(char *string) +{ + char *ddread, *ddwrite; + + /* If the string has no dollar signs, return immediately */ + if ((ddwrite = strchr(string, '$')) == NULL) + return (string); + + /* Start from the location of the first dollar sign */ + ddread = ddwrite; + + + while (*ddread) /* Until we reach the end of the string... */ + if ((*(ddwrite++) = *(ddread++)) == '$') /* copy one char */ + if (*ddread == '$') + ddread++; /* skip if we saw 2 $'s in a row */ + + *ddwrite = '\0'; + + return (string); +} + + +int fill_word(char *argument) +{ + return (search_block(argument, fill, TRUE) >= 0); +} + + +int reserved_word(char *argument) +{ + return (search_block(argument, reserved, TRUE) >= 0); +} + + +/* + * copy the first non-fill-word, space-delimited argument of 'argument' + * to 'first_arg'; return a pointer to the remainder of the string. + */ +char *one_argument(char *argument, char *first_arg) +{ + char *begin = first_arg; + + if (!argument) { + log("SYSERR: one_argument received a NULL pointer!"); + *first_arg = '\0'; + return (NULL); + } + + do { + skip_spaces(&argument); + + first_arg = begin; + while (*argument && !isspace(*argument)) { + *(first_arg++) = LOWER(*argument); + argument++; + } + + *first_arg = '\0'; + } while (fill_word(begin)); + + return (argument); +} + + +/* + * one_word is like one_argument, except that words in quotes ("") are + * considered one word. + */ +char *one_word(char *argument, char *first_arg) +{ + char *begin = first_arg; + + do { + skip_spaces(&argument); + + first_arg = begin; + + if (*argument == '\"') { + argument++; + while (*argument && *argument != '\"') { + *(first_arg++) = LOWER(*argument); + argument++; + } + argument++; + } else { + while (*argument && !isspace(*argument)) { + *(first_arg++) = LOWER(*argument); + argument++; + } + } + + *first_arg = '\0'; + } while (fill_word(begin)); + + return (argument); +} + + +/* same as one_argument except that it doesn't ignore fill words */ +char *any_one_arg(char *argument, char *first_arg) +{ + skip_spaces(&argument); + + while (*argument && !isspace(*argument)) { + *(first_arg++) = LOWER(*argument); + argument++; + } + + *first_arg = '\0'; + + return (argument); +} + + +/* + * Same as one_argument except that it takes two args and returns the rest; + * ignores fill words + */ +char *two_arguments(char *argument, char *first_arg, char *second_arg) +{ + return (one_argument(one_argument(argument, first_arg), second_arg)); /* :-) */ +} + + + +/* + * determine if a given string is an abbreviation of another + * (now works symmetrically -- JE 7/25/94) + * + * that was dumb. it shouldn't be symmetrical. JE 5/1/95 + * + * returns 1 if arg1 is an abbreviation of arg2 + */ +int is_abbrev(const char *arg1, const char *arg2) +{ + if (!*arg1) + return (0); + + for (; *arg1 && *arg2; arg1++, arg2++) + if (LOWER(*arg1) != LOWER(*arg2)) + return (0); + + if (!*arg1) + return (1); + else + return (0); +} + + + +/* + * Return first space-delimited token in arg1; remainder of string in arg2. + * + * NOTE: Requires sizeof(arg2) >= sizeof(string) + */ +void half_chop(char *string, char *arg1, char *arg2) +{ + char *temp; + + temp = any_one_arg(string, arg1); + skip_spaces(&temp); + strcpy(arg2, temp); /* strcpy: OK (documentation) */ +} + + + +/* Used in specprocs, mostly. (Exactly) matches "command" to cmd number */ +int find_command(const char *command) +{ + int cmd; + + for (cmd = 0; *cmd_info[cmd].command != '\n'; cmd++) + if (!strcmp(cmd_info[cmd].command, command)) + return (cmd); + + return (-1); +} + + +int special(struct char_data *ch, int cmd, char *arg) +{ + struct obj_data *i; + struct char_data *k; + int j; + + /* special in room? */ + if (GET_ROOM_SPEC(IN_ROOM(ch)) != NULL) + if (GET_ROOM_SPEC(IN_ROOM(ch)) (ch, world + IN_ROOM(ch), cmd, arg)) + return (1); + + /* special in equipment list? */ + for (j = 0; j < NUM_WEARS; j++) + if (GET_EQ(ch, j) && GET_OBJ_SPEC(GET_EQ(ch, j)) != NULL) + if (GET_OBJ_SPEC(GET_EQ(ch, j)) (ch, GET_EQ(ch, j), cmd, arg)) + return (1); + + /* special in inventory? */ + for (i = ch->carrying; i; i = i->next_content) + if (GET_OBJ_SPEC(i) != NULL) + if (GET_OBJ_SPEC(i) (ch, i, cmd, arg)) + return (1); + + /* special in mobile present? */ + for (k = world[IN_ROOM(ch)].people; k; k = k->next_in_room) + if (!MOB_FLAGGED(k, MOB_NOTDEADYET)) + if (GET_MOB_SPEC(k) && GET_MOB_SPEC(k) (ch, k, cmd, arg)) + return (1); + + /* special in object present? */ + for (i = world[IN_ROOM(ch)].contents; i; i = i->next_content) + if (GET_OBJ_SPEC(i) != NULL) + if (GET_OBJ_SPEC(i) (ch, i, cmd, arg)) + return (1); + + return (0); +} + + + +/* ************************************************************************* +* Stuff for controlling the non-playing sockets (get name, pwd etc) * +************************************************************************* */ + + +/* This function needs to die. */ +int _parse_name(char *arg, char *name) +{ + int i; + + skip_spaces(&arg); + for (i = 0; (*name = *arg); arg++, i++, name++) + if (!isalpha(*arg)) + return (1); + + if (!i) + return (1); + + return (0); +} + + +#define RECON 1 +#define USURP 2 +#define UNSWITCH 3 + +/* This function seems a bit over-extended. */ +int perform_dupe_check(struct descriptor_data *d) +{ + struct descriptor_data *k, *next_k; + struct char_data *target = NULL, *ch, *next_ch; + int mode = 0; + + int id = GET_IDNUM(d->character); + + /* + * Now that this descriptor has successfully logged in, disconnect all + * other descriptors controlling a character with the same ID number. + */ + + for (k = descriptor_list; k; k = next_k) { + next_k = k->next; + + if (k == d) + continue; + + if (k->original && (GET_IDNUM(k->original) == id)) { + /* Original descriptor was switched, booting it and restoring normal body control. */ + + write_to_output(d, "\r\nMultiple login detected -- disconnecting.\r\n"); + STATE(k) = CON_CLOSE; + if (!target) { + target = k->original; + mode = UNSWITCH; + } + if (k->character) + k->character->desc = NULL; + k->character = NULL; + k->original = NULL; + } else if (k->character && GET_IDNUM(k->character) == id && k->original) { + /* Character taking over their own body, while an immortal was switched to it. */ + + do_return(k->character, NULL, 0, 0); + } else if (k->character && GET_IDNUM(k->character) == id) { + /* Character taking over their own body. */ + + if (!target && STATE(k) == CON_PLAYING) { + write_to_output(k, "\r\nThis body has been usurped!\r\n"); + target = k->character; + mode = USURP; + } + k->character->desc = NULL; + k->character = NULL; + k->original = NULL; + write_to_output(k, "\r\nMultiple login detected -- disconnecting.\r\n"); + STATE(k) = CON_CLOSE; + } + } + + /* + * now, go through the character list, deleting all characters that + * are not already marked for deletion from the above step (i.e., in the + * CON_HANGUP state), and have not already been selected as a target for + * switching into. In addition, if we haven't already found a target, + * choose one if one is available (while still deleting the other + * duplicates, though theoretically none should be able to exist). + */ + + for (ch = character_list; ch; ch = next_ch) { + next_ch = ch->next; + + if (IS_NPC(ch)) + continue; + if (GET_IDNUM(ch) != id) + continue; + + /* ignore chars with descriptors (already handled by above step) */ + if (ch->desc) + continue; + + /* don't extract the target char we've found one already */ + if (ch == target) + continue; + + /* we don't already have a target and found a candidate for switching */ + if (!target) { + target = ch; + mode = RECON; + continue; + } + + /* we've found a duplicate - blow him away, dumping his eq in limbo. */ + if (IN_ROOM(ch) != NOWHERE) + char_from_room(ch); + char_to_room(ch, 1); + extract_char(ch); + } + + /* no target for switching into was found - allow login to continue */ + if (!target) + return (0); + + /* Okay, we've found a target. Connect d to target. */ + free_char(d->character); /* get rid of the old char */ + d->character = target; + d->character->desc = d; + d->original = NULL; + d->character->char_specials.timer = 0; + REMOVE_BIT(PLR_FLAGS(d->character), PLR_MAILING | PLR_WRITING); + REMOVE_BIT(AFF_FLAGS(d->character), AFF_GROUP); + STATE(d) = CON_PLAYING; + + switch (mode) { + case RECON: + write_to_output(d, "Reconnecting.\r\n"); + act("$n has reconnected.", TRUE, d->character, 0, 0, TO_ROOM); + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(d->character)), TRUE, "%s [%s] has reconnected.", GET_NAME(d->character), d->host); + break; + case USURP: + write_to_output(d, "You take over your own body, already in use!\r\n"); + act("$n suddenly keels over in pain, surrounded by a white aura...\r\n" + "$n's body has been taken over by a new spirit!", + TRUE, d->character, 0, 0, TO_ROOM); + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(d->character)), TRUE, + "%s has re-logged in ... disconnecting old socket.", GET_NAME(d->character)); + break; + case UNSWITCH: + write_to_output(d, "Reconnecting to unswitched char."); + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(d->character)), TRUE, "%s [%s] has reconnected.", GET_NAME(d->character), d->host); + break; + } + + return (1); +} + + + +/* deal with newcomers and other non-playing sockets */ +void nanny(struct descriptor_data *d, char *arg) +{ + int load_result; /* Overloaded variable */ + + skip_spaces(&arg); + + switch (STATE(d)) { + case CON_GET_NAME: /* wait for input of name */ + if (d->character == NULL) { + CREATE(d->character, struct char_data, 1); + clear_char(d->character); + CREATE(d->character->player_specials, struct player_special_data, 1); + d->character->desc = d; + } + if (!*arg) + STATE(d) = CON_CLOSE; + else { + char buf[MAX_INPUT_LENGTH], tmp_name[MAX_INPUT_LENGTH]; + struct char_file_u tmp_store; + int player_i; + + if ((_parse_name(arg, tmp_name)) || strlen(tmp_name) < 2 || + strlen(tmp_name) > MAX_NAME_LENGTH || !Valid_Name(tmp_name) || + fill_word(strcpy(buf, tmp_name)) || reserved_word(buf)) { /* strcpy: OK (mutual MAX_INPUT_LENGTH) */ + write_to_output(d, "Invalid name, please try another.\r\nName: "); + return; + } + if ((player_i = load_char(tmp_name, &tmp_store)) > -1) { + store_to_char(&tmp_store, d->character); + GET_PFILEPOS(d->character) = player_i; + + if (PLR_FLAGGED(d->character, PLR_DELETED)) { + /* We get a false positive from the original deleted character. */ + free_char(d->character); + /* Check for multiple creations... */ + if (!Valid_Name(tmp_name)) { + write_to_output(d, "Invalid name, please try another.\r\nName: "); + return; + } + CREATE(d->character, struct char_data, 1); + clear_char(d->character); + CREATE(d->character->player_specials, struct player_special_data, 1); + d->character->desc = d; + CREATE(d->character->player.name, char, strlen(tmp_name) + 1); + strcpy(d->character->player.name, CAP(tmp_name)); /* strcpy: OK (size checked above) */ + GET_PFILEPOS(d->character) = player_i; + write_to_output(d, "Did I get that right, %s (Y/N)? ", tmp_name); + STATE(d) = CON_NAME_CNFRM; + } else { + /* undo it just in case they are set */ + REMOVE_BIT(PLR_FLAGS(d->character), + PLR_WRITING | PLR_MAILING | PLR_CRYO); + REMOVE_BIT(AFF_FLAGS(d->character), AFF_GROUP); + write_to_output(d, "Password: "); + echo_off(d); + d->idle_tics = 0; + STATE(d) = CON_PASSWORD; + } + } else { + /* player unknown -- make new character */ + + /* Check for multiple creations of a character. */ + if (!Valid_Name(tmp_name)) { + write_to_output(d, "Invalid name, please try another.\r\nName: "); + return; + } + CREATE(d->character->player.name, char, strlen(tmp_name) + 1); + strcpy(d->character->player.name, CAP(tmp_name)); /* strcpy: OK (size checked above) */ + + write_to_output(d, "Did I get that right, %s (Y/N)? ", tmp_name); + STATE(d) = CON_NAME_CNFRM; + } + } + break; + + case CON_NAME_CNFRM: /* wait for conf. of new name */ + if (UPPER(*arg) == 'Y') { + if (isbanned(d->host) >= BAN_NEW) { + mudlog(NRM, LVL_GOD, TRUE, "Request for new char %s denied from [%s] (siteban)", GET_PC_NAME(d->character), d->host); + write_to_output(d, "Sorry, new characters are not allowed from your site!\r\n"); + STATE(d) = CON_CLOSE; + return; + } + if (circle_restrict) { + write_to_output(d, "Sorry, new players can't be created at the moment.\r\n"); + mudlog(NRM, LVL_GOD, TRUE, "Request for new char %s denied from [%s] (wizlock)", GET_PC_NAME(d->character), d->host); + STATE(d) = CON_CLOSE; + return; + } + write_to_output(d, "New character.\r\nGive me a password for %s: ", GET_PC_NAME(d->character)); + echo_off(d); + STATE(d) = CON_NEWPASSWD; + } else if (*arg == 'n' || *arg == 'N') { + write_to_output(d, "Okay, what IS it, then? "); + free_char(d->character); + STATE(d) = CON_GET_NAME; + } else + write_to_output(d, "Please type Yes or No: "); + break; + + case CON_PASSWORD: /* get pwd for known player */ + /* + * To really prevent duping correctly, the player's record should + * be reloaded from disk at this point (after the password has been + * typed). However I'm afraid that trying to load a character over + * an already loaded character is going to cause some problem down the + * road that I can't see at the moment. So to compensate, I'm going to + * (1) add a 15 or 20-second time limit for entering a password, and (2) + * re-add the code to cut off duplicates when a player quits. JE 6 Feb 96 + */ + + echo_on(d); /* turn echo back on */ + + /* New echo_on() eats the return on telnet. Extra space better than none. */ + write_to_output(d, "\r\n"); + + if (!*arg) + STATE(d) = CON_CLOSE; + else { + if (strncmp(CRYPT(arg, GET_PASSWD(d->character)), GET_PASSWD(d->character), MAX_PWD_LENGTH)) { + mudlog(BRF, LVL_GOD, TRUE, "Bad PW: %s [%s]", GET_NAME(d->character), d->host); + GET_BAD_PWS(d->character)++; + save_char(d->character); + if (++(d->bad_pws) >= max_bad_pws) { /* 3 strikes and you're out. */ + write_to_output(d, "Wrong password... disconnecting.\r\n"); + STATE(d) = CON_CLOSE; + } else { + write_to_output(d, "Wrong password.\r\nPassword: "); + echo_off(d); + } + return; + } + + /* Password was correct. */ + load_result = GET_BAD_PWS(d->character); + GET_BAD_PWS(d->character) = 0; + d->bad_pws = 0; + + if (isbanned(d->host) == BAN_SELECT && + !PLR_FLAGGED(d->character, PLR_SITEOK)) { + write_to_output(d, "Sorry, this char has not been cleared for login from your site!\r\n"); + STATE(d) = CON_CLOSE; + mudlog(NRM, LVL_GOD, TRUE, "Connection attempt for %s denied from %s", GET_NAME(d->character), d->host); + return; + } + if (GET_LEVEL(d->character) < circle_restrict) { + write_to_output(d, "The game is temporarily restricted.. try again later.\r\n"); + STATE(d) = CON_CLOSE; + mudlog(NRM, LVL_GOD, TRUE, "Request for login denied for %s [%s] (wizlock)", GET_NAME(d->character), d->host); + return; + } + /* check and make sure no other copies of this player are logged in */ + if (perform_dupe_check(d)) + return; + + if (GET_LEVEL(d->character) >= LVL_IMMORT) + write_to_output(d, "%s", imotd); + else + write_to_output(d, "%s", motd); + + mudlog(BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(d->character)), TRUE, "%s [%s] has connected.", GET_NAME(d->character), d->host); + + if (load_result) { + write_to_output(d, "\r\n\r\n\007\007\007" + "%s%d LOGIN FAILURE%s SINCE LAST SUCCESSFUL LOGIN.%s\r\n", + CCRED(d->character, C_SPR), load_result, + (load_result > 1) ? "S" : "", CCNRM(d->character, C_SPR)); + GET_BAD_PWS(d->character) = 0; + } + write_to_output(d, "\r\n*** PRESS RETURN: "); + STATE(d) = CON_RMOTD; + } + break; + + case CON_NEWPASSWD: + case CON_CHPWD_GETNEW: + if (!*arg || strlen(arg) > MAX_PWD_LENGTH || strlen(arg) < 3 || + !str_cmp(arg, GET_PC_NAME(d->character))) { + write_to_output(d, "\r\nIllegal password.\r\nPassword: "); + return; + } + strncpy(GET_PASSWD(d->character), CRYPT(arg, GET_PC_NAME(d->character)), MAX_PWD_LENGTH); /* strncpy: OK (G_P:MAX_PWD_LENGTH+1) */ + *(GET_PASSWD(d->character) + MAX_PWD_LENGTH) = '\0'; + + write_to_output(d, "\r\nPlease retype password: "); + if (STATE(d) == CON_NEWPASSWD) + STATE(d) = CON_CNFPASSWD; + else + STATE(d) = CON_CHPWD_VRFY; + break; + + case CON_CNFPASSWD: + case CON_CHPWD_VRFY: + if (strncmp(CRYPT(arg, GET_PASSWD(d->character)), GET_PASSWD(d->character), + MAX_PWD_LENGTH)) { + write_to_output(d, "\r\nPasswords don't match... start over.\r\nPassword: "); + if (STATE(d) == CON_CNFPASSWD) + STATE(d) = CON_NEWPASSWD; + else + STATE(d) = CON_CHPWD_GETNEW; + return; + } + echo_on(d); + + if (STATE(d) == CON_CNFPASSWD) { + write_to_output(d, "\r\nWhat is your sex (M/F)? "); + STATE(d) = CON_QSEX; + } else { + save_char(d->character); + write_to_output(d, "\r\nDone.\r\n%s", MENU); + STATE(d) = CON_MENU; + } + break; + + case CON_QSEX: /* query sex of new user */ + switch (*arg) { + case 'm': + case 'M': + d->character->player.sex = SEX_MALE; + break; + case 'f': + case 'F': + d->character->player.sex = SEX_FEMALE; + break; + default: + write_to_output(d, "That is not a sex..\r\n" + "What IS your sex? "); + return; + } + + write_to_output(d, "%s\r\nClass: ", class_menu); + STATE(d) = CON_QCLASS; + break; + + case CON_QCLASS: + load_result = parse_class(*arg); + if (load_result == CLASS_UNDEFINED) { + write_to_output(d, "\r\nThat's not a class.\r\nClass: "); + return; + } else + GET_CLASS(d->character) = load_result; + + if (GET_PFILEPOS(d->character) < 0) + GET_PFILEPOS(d->character) = create_entry(GET_PC_NAME(d->character)); + /* Now GET_NAME() will work properly. */ + init_char(d->character); + save_char(d->character); + write_to_output(d, "%s\r\n*** PRESS RETURN: ", motd); + STATE(d) = CON_RMOTD; + + mudlog(NRM, LVL_IMMORT, TRUE, "%s [%s] new player.", GET_NAME(d->character), d->host); + break; + + case CON_RMOTD: /* read CR after printing motd */ + write_to_output(d, "%s", MENU); + STATE(d) = CON_MENU; + break; + + case CON_MENU: { /* get selection from main menu */ + room_vnum load_room; + + switch (*arg) { + case '0': + write_to_output(d, "Goodbye.\r\n"); + STATE(d) = CON_CLOSE; + break; + + case '1': + reset_char(d->character); + read_aliases(d->character); + + if (PLR_FLAGGED(d->character, PLR_INVSTART)) + GET_INVIS_LEV(d->character) = GET_LEVEL(d->character); + + /* + * We have to place the character in a room before equipping them + * or equip_char() will gripe about the person in NOWHERE. + */ + if ((load_room = GET_LOADROOM(d->character)) != NOWHERE) + load_room = real_room(load_room); + + /* If char was saved with NOWHERE, or real_room above failed... */ + if (load_room == NOWHERE) { + if (GET_LEVEL(d->character) >= LVL_IMMORT) + load_room = r_immort_start_room; + else + load_room = r_mortal_start_room; + } + + if (PLR_FLAGGED(d->character, PLR_FROZEN)) + load_room = r_frozen_start_room; + + send_to_char(d->character, "%s", WELC_MESSG); + d->character->next = character_list; + character_list = d->character; + char_to_room(d->character, load_room); + load_result = Crash_load(d->character); + + /* Clear their load room if it's not persistant. */ + if (!PLR_FLAGGED(d->character, PLR_LOADROOM)) + GET_LOADROOM(d->character) = NOWHERE; + save_char(d->character); + + act("$n has entered the game.", TRUE, d->character, 0, 0, TO_ROOM); + + STATE(d) = CON_PLAYING; + if (GET_LEVEL(d->character) == 0) { + do_start(d->character); + send_to_char(d->character, "%s", START_MESSG); + } + look_at_room(d->character, 0); + if (has_mail(GET_IDNUM(d->character))) + send_to_char(d->character, "You have mail waiting.\r\n"); + if (load_result == 2) { /* rented items lost */ + send_to_char(d->character, "\r\n\007You could not afford your rent!\r\n" + "Your possesions have been donated to the Salvation Army!\r\n"); + } + d->has_prompt = 0; + break; + + case '2': + if (d->character->player.description) { + write_to_output(d, "Old description:\r\n%s", d->character->player.description); + free(d->character->player.description); + d->character->player.description = NULL; + } + write_to_output(d, "Enter the new text you'd like others to see when they look at you.\r\n" + "Terminate with a '@' on a new line.\r\n"); + d->str = &d->character->player.description; + d->max_str = EXDSCR_LENGTH; + STATE(d) = CON_EXDESC; + break; + + case '3': + page_string(d, background, 0); + STATE(d) = CON_RMOTD; + break; + + case '4': + write_to_output(d, "\r\nEnter your old password: "); + echo_off(d); + STATE(d) = CON_CHPWD_GETOLD; + break; + + case '5': + write_to_output(d, "\r\nEnter your password for verification: "); + echo_off(d); + STATE(d) = CON_DELCNF1; + break; + + default: + write_to_output(d, "\r\nThat's not a menu choice!\r\n%s", MENU); + break; + } + break; + } + + case CON_CHPWD_GETOLD: + if (strncmp(CRYPT(arg, GET_PASSWD(d->character)), GET_PASSWD(d->character), MAX_PWD_LENGTH)) { + echo_on(d); + write_to_output(d, "\r\nIncorrect password.\r\n%s", MENU); + STATE(d) = CON_MENU; + } else { + write_to_output(d, "\r\nEnter a new password: "); + STATE(d) = CON_CHPWD_GETNEW; + } + return; + + case CON_DELCNF1: + echo_on(d); + if (strncmp(CRYPT(arg, GET_PASSWD(d->character)), GET_PASSWD(d->character), MAX_PWD_LENGTH)) { + write_to_output(d, "\r\nIncorrect password.\r\n%s", MENU); + STATE(d) = CON_MENU; + } else { + write_to_output(d, "\r\nYOU ARE ABOUT TO DELETE THIS CHARACTER PERMANENTLY.\r\n" + "ARE YOU ABSOLUTELY SURE?\r\n\r\n" + "Please type \"yes\" to confirm: "); + STATE(d) = CON_DELCNF2; + } + break; + + case CON_DELCNF2: + if (!strcmp(arg, "yes") || !strcmp(arg, "YES")) { + if (PLR_FLAGGED(d->character, PLR_FROZEN)) { + write_to_output(d, "You try to kill yourself, but the ice stops you.\r\n" + "Character not deleted.\r\n\r\n"); + STATE(d) = CON_CLOSE; + return; + } + if (GET_LEVEL(d->character) < LVL_GRGOD) + SET_BIT(PLR_FLAGS(d->character), PLR_DELETED); + save_char(d->character); + Crash_delete_file(GET_NAME(d->character)); + delete_aliases(GET_NAME(d->character)); + write_to_output(d, "Character '%s' deleted!\r\n" + "Goodbye.\r\n", GET_NAME(d->character)); + mudlog(NRM, LVL_GOD, TRUE, "%s (lev %d) has self-deleted.", GET_NAME(d->character), GET_LEVEL(d->character)); + STATE(d) = CON_CLOSE; + return; + } else { + write_to_output(d, "\r\nCharacter not deleted.\r\n%s", MENU); + STATE(d) = CON_MENU; + } + break; + + /* + * It's possible, if enough pulses are missed, to kick someone off + * while they are at the password prompt. We'll just defer to let + * the game_loop() axe them. + */ + case CON_CLOSE: + break; + + default: + log("SYSERR: Nanny: illegal state of con'ness (%d) for '%s'; closing connection.", + STATE(d), d->character ? GET_NAME(d->character) : "<unknown>"); + STATE(d) = CON_DISCONNECT; /* Safest to do. */ + break; + } +} diff --git a/src/interpreter.h b/src/interpreter.h new file mode 100644 index 0000000..982c5ed --- /dev/null +++ b/src/interpreter.h @@ -0,0 +1,210 @@ +/* ************************************************************************ +* File: interpreter.h Part of CircleMUD * +* Usage: header file: public procs, macro defs, subcommand defines * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define ACMD(name) \ + void name(struct char_data *ch, char *argument, int cmd, int subcmd) + +ACMD(do_move); + +#define CMD_NAME (cmd_info[cmd].command) +#define CMD_IS(cmd_name) (!strcmp(cmd_name, cmd_info[cmd].command)) +#define IS_MOVE(cmdnum) (cmd_info[cmdnum].command_pointer == do_move) + +void command_interpreter(struct char_data *ch, char *argument); +int search_block(char *arg, const char **list, int exact); +char lower( char c ); +char *one_argument(char *argument, char *first_arg); +char *one_word(char *argument, char *first_arg); +char *any_one_arg(char *argument, char *first_arg); +char *two_arguments(char *argument, char *first_arg, char *second_arg); +int fill_word(char *argument); +void half_chop(char *string, char *arg1, char *arg2); +void nanny(struct descriptor_data *d, char *arg); +int is_abbrev(const char *arg1, const char *arg2); +int is_number(const char *str); +int find_command(const char *command); +void skip_spaces(char **string); +char *delete_doubledollar(char *string); + +/* for compatibility with 2.20: */ +#define argument_interpreter(a, b, c) two_arguments(a, b, c) + + +struct command_info { + const char *command; + byte minimum_position; + void (*command_pointer) + (struct char_data *ch, char *argument, int cmd, int subcmd); + sh_int minimum_level; + int subcmd; +}; + +/* + * Necessary for CMD_IS macro. Borland needs the structure defined first + * so it has been moved down here. + */ +#ifndef __INTERPRETER_C__ +extern const struct command_info cmd_info[]; +#endif + +/* + * Alert! Changed from 'struct alias' to 'struct alias_data' in bpl15 + * because a Windows 95 compiler gives a warning about it having similiar + * named member. + */ +struct alias_data { + char *alias; + char *replacement; + int type; + struct alias_data *next; +}; + +#define ALIAS_SIMPLE 0 +#define ALIAS_COMPLEX 1 + +#define ALIAS_SEP_CHAR ';' +#define ALIAS_VAR_CHAR '$' +#define ALIAS_GLOB_CHAR '*' + +/* + * SUBCOMMANDS + * You can define these however you want to, and the definitions of the + * subcommands are independent from function to function. + */ + +/* directions */ +#define SCMD_NORTH 1 +#define SCMD_EAST 2 +#define SCMD_SOUTH 3 +#define SCMD_WEST 4 +#define SCMD_UP 5 +#define SCMD_DOWN 6 + +/* do_gen_ps */ +#define SCMD_INFO 0 +#define SCMD_HANDBOOK 1 +#define SCMD_CREDITS 2 +#define SCMD_NEWS 3 +#define SCMD_WIZLIST 4 +#define SCMD_POLICIES 5 +#define SCMD_VERSION 6 +#define SCMD_IMMLIST 7 +#define SCMD_MOTD 8 +#define SCMD_IMOTD 9 +#define SCMD_CLEAR 10 +#define SCMD_WHOAMI 11 + +/* do_gen_tog */ +#define SCMD_NOSUMMON 0 +#define SCMD_NOHASSLE 1 +#define SCMD_BRIEF 2 +#define SCMD_COMPACT 3 +#define SCMD_NOTELL 4 +#define SCMD_NOAUCTION 5 +#define SCMD_DEAF 6 +#define SCMD_NOGOSSIP 7 +#define SCMD_NOGRATZ 8 +#define SCMD_NOWIZ 9 +#define SCMD_QUEST 10 +#define SCMD_ROOMFLAGS 11 +#define SCMD_NOREPEAT 12 +#define SCMD_HOLYLIGHT 13 +#define SCMD_SLOWNS 14 +#define SCMD_AUTOEXIT 15 +#define SCMD_TRACK 16 + +/* do_wizutil */ +#define SCMD_REROLL 0 +#define SCMD_PARDON 1 +#define SCMD_NOTITLE 2 +#define SCMD_SQUELCH 3 +#define SCMD_FREEZE 4 +#define SCMD_THAW 5 +#define SCMD_UNAFFECT 6 + +/* do_spec_com */ +#define SCMD_WHISPER 0 +#define SCMD_ASK 1 + +/* do_gen_com */ +#define SCMD_HOLLER 0 +#define SCMD_SHOUT 1 +#define SCMD_GOSSIP 2 +#define SCMD_AUCTION 3 +#define SCMD_GRATZ 4 + +/* do_shutdown */ +#define SCMD_SHUTDOW 0 +#define SCMD_SHUTDOWN 1 + +/* do_quit */ +#define SCMD_QUI 0 +#define SCMD_QUIT 1 + +/* do_date */ +#define SCMD_DATE 0 +#define SCMD_UPTIME 1 + +/* do_commands */ +#define SCMD_COMMANDS 0 +#define SCMD_SOCIALS 1 +#define SCMD_WIZHELP 2 + +/* do_drop */ +#define SCMD_DROP 0 +#define SCMD_JUNK 1 +#define SCMD_DONATE 2 + +/* do_gen_write */ +#define SCMD_BUG 0 +#define SCMD_TYPO 1 +#define SCMD_IDEA 2 + +/* do_look */ +#define SCMD_LOOK 0 +#define SCMD_READ 1 + +/* do_qcomm */ +#define SCMD_QSAY 0 +#define SCMD_QECHO 1 + +/* do_pour */ +#define SCMD_POUR 0 +#define SCMD_FILL 1 + +/* do_poof */ +#define SCMD_POOFIN 0 +#define SCMD_POOFOUT 1 + +/* do_hit */ +#define SCMD_HIT 0 +#define SCMD_MURDER 1 + +/* do_eat */ +#define SCMD_EAT 0 +#define SCMD_TASTE 1 +#define SCMD_DRINK 2 +#define SCMD_SIP 3 + +/* do_use */ +#define SCMD_USE 0 +#define SCMD_QUAFF 1 +#define SCMD_RECITE 2 + +/* do_echo */ +#define SCMD_ECHO 0 +#define SCMD_EMOTE 1 + +/* do_gen_door */ +#define SCMD_OPEN 0 +#define SCMD_CLOSE 1 +#define SCMD_UNLOCK 2 +#define SCMD_LOCK 3 +#define SCMD_PICK 4 diff --git a/src/licheck b/src/licheck new file mode 100755 index 0000000..db46a06 --- /dev/null +++ b/src/licheck @@ -0,0 +1,21 @@ +#!/bin/sh + +cat << EOF + +CircleMUD is freeware (it doesn't cost anything), but it is copyrighted +and has a license. You must read and agree to abide by the license before +using CircleMUD. + +This message will only appear once (the first time you compile the server), +but is contained in the file doc/license.doc if you'd like to refer back to +it in the future. + +Press return to read the license. +EOF +read temp +cat ../doc/license.txt | $1 +echo +echo Press return to ACCEPT the terms of this license. +echo Press Control-C if you DO NOT ACCEPT the terms of this license. +read temp +touch .accepted diff --git a/src/limits.c b/src/limits.c new file mode 100644 index 0000000..6e95eef --- /dev/null +++ b/src/limits.c @@ -0,0 +1,478 @@ +/* ************************************************************************ +* File: limits.c Part of CircleMUD * +* Usage: limits & gain funcs for HMV, exp, hunger/thirst, idle time * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "spells.h" +#include "comm.h" +#include "db.h" +#include "handler.h" +#include "interpreter.h" + + +/* external variables */ +extern int max_exp_gain; +extern int max_exp_loss; +extern int idle_rent_time; +extern int idle_max_level; +extern int idle_void; +extern int immort_level_ok; +extern int use_autowiz; +extern int min_wizlist_lev; +extern int free_rent; + +/* local functions */ +int graf(int grafage, int p0, int p1, int p2, int p3, int p4, int p5, int p6); +void run_autowiz(void); + +void Crash_rentsave(struct char_data *ch, int cost); +int level_exp(int chclass, int level); +char *title_male(int chclass, int level); +char *title_female(int chclass, int level); +void update_char_objects(struct char_data *ch); /* handler.c */ +void reboot_wizlists(void); + +/* When age < 15 return the value p0 */ +/* When age in 15..29 calculate the line between p1 & p2 */ +/* When age in 30..44 calculate the line between p2 & p3 */ +/* When age in 45..59 calculate the line between p3 & p4 */ +/* When age in 60..79 calculate the line between p4 & p5 */ +/* When age >= 80 return the value p6 */ +int graf(int grafage, int p0, int p1, int p2, int p3, int p4, int p5, int p6) +{ + + if (grafage < 15) + return (p0); /* < 15 */ + else if (grafage <= 29) + return (p1 + (((grafage - 15) * (p2 - p1)) / 15)); /* 15..29 */ + else if (grafage <= 44) + return (p2 + (((grafage - 30) * (p3 - p2)) / 15)); /* 30..44 */ + else if (grafage <= 59) + return (p3 + (((grafage - 45) * (p4 - p3)) / 15)); /* 45..59 */ + else if (grafage <= 79) + return (p4 + (((grafage - 60) * (p5 - p4)) / 20)); /* 60..79 */ + else + return (p6); /* >= 80 */ +} + + +/* + * The hit_limit, mana_limit, and move_limit functions are gone. They + * added an unnecessary level of complexity to the internal structure, + * weren't particularly useful, and led to some annoying bugs. From the + * players' point of view, the only difference the removal of these + * functions will make is that a character's age will now only affect + * the HMV gain per tick, and _not_ the HMV maximums. + */ + +/* manapoint gain pr. game hour */ +int mana_gain(struct char_data *ch) +{ + int gain; + + if (IS_NPC(ch)) { + /* Neat and fast */ + gain = GET_LEVEL(ch); + } else { + gain = graf(age(ch)->year, 4, 8, 12, 16, 12, 10, 8); + + /* Class calculations */ + + /* Skill/Spell calculations */ + + /* Position calculations */ + switch (GET_POS(ch)) { + case POS_SLEEPING: + gain *= 2; + break; + case POS_RESTING: + gain += (gain / 2); /* Divide by 2 */ + break; + case POS_SITTING: + gain += (gain / 4); /* Divide by 4 */ + break; + } + + if (IS_MAGIC_USER(ch) || IS_CLERIC(ch)) + gain *= 2; + + if ((GET_COND(ch, FULL) == 0) || (GET_COND(ch, THIRST) == 0)) + gain /= 4; + } + + if (AFF_FLAGGED(ch, AFF_POISON)) + gain /= 4; + + return (gain); +} + + +/* Hitpoint gain pr. game hour */ +int hit_gain(struct char_data *ch) +{ + int gain; + + if (IS_NPC(ch)) { + /* Neat and fast */ + gain = GET_LEVEL(ch); + } else { + + gain = graf(age(ch)->year, 8, 12, 20, 32, 16, 10, 4); + + /* Class/Level calculations */ + + /* Skill/Spell calculations */ + + /* Position calculations */ + + switch (GET_POS(ch)) { + case POS_SLEEPING: + gain += (gain / 2); /* Divide by 2 */ + break; + case POS_RESTING: + gain += (gain / 4); /* Divide by 4 */ + break; + case POS_SITTING: + gain += (gain / 8); /* Divide by 8 */ + break; + } + + if (IS_MAGIC_USER(ch) || IS_CLERIC(ch)) + gain /= 2; /* Ouch. */ + + if ((GET_COND(ch, FULL) == 0) || (GET_COND(ch, THIRST) == 0)) + gain /= 4; + } + + if (AFF_FLAGGED(ch, AFF_POISON)) + gain /= 4; + + return (gain); +} + + + +/* move gain pr. game hour */ +int move_gain(struct char_data *ch) +{ + int gain; + + if (IS_NPC(ch)) { + /* Neat and fast */ + gain = GET_LEVEL(ch); + } else { + gain = graf(age(ch)->year, 16, 20, 24, 20, 16, 12, 10); + + /* Class/Level calculations */ + + /* Skill/Spell calculations */ + + + /* Position calculations */ + switch (GET_POS(ch)) { + case POS_SLEEPING: + gain += (gain / 2); /* Divide by 2 */ + break; + case POS_RESTING: + gain += (gain / 4); /* Divide by 4 */ + break; + case POS_SITTING: + gain += (gain / 8); /* Divide by 8 */ + break; + } + + if ((GET_COND(ch, FULL) == 0) || (GET_COND(ch, THIRST) == 0)) + gain /= 4; + } + + if (AFF_FLAGGED(ch, AFF_POISON)) + gain /= 4; + + return (gain); +} + + + +void set_title(struct char_data *ch, char *title) +{ + if (title == NULL) { + if (GET_SEX(ch) == SEX_FEMALE) + title = title_female(GET_CLASS(ch), GET_LEVEL(ch)); + else + title = title_male(GET_CLASS(ch), GET_LEVEL(ch)); + } + + if (strlen(title) > MAX_TITLE_LENGTH) + title[MAX_TITLE_LENGTH] = '\0'; + + if (GET_TITLE(ch) != NULL) + free(GET_TITLE(ch)); + + GET_TITLE(ch) = strdup(title); +} + + +void run_autowiz(void) +{ +#if defined(CIRCLE_UNIX) || defined(CIRCLE_WINDOWS) + if (use_autowiz) { + size_t res; + char buf[256]; + +#if defined(CIRCLE_UNIX) + res = snprintf(buf, sizeof(buf), "nice ../bin/autowiz %d %s %d %s %d &", + min_wizlist_lev, WIZLIST_FILE, LVL_IMMORT, IMMLIST_FILE, (int) getpid()); +#elif defined(CIRCLE_WINDOWS) + res = snprintf(buf, sizeof(buf), "autowiz %d %s %d %s", + min_wizlist_lev, WIZLIST_FILE, LVL_IMMORT, IMMLIST_FILE); +#endif /* CIRCLE_WINDOWS */ + + /* Abusing signed -> unsigned conversion to avoid '-1' check. */ + if (res < sizeof(buf)) { + mudlog(CMP, LVL_IMMORT, FALSE, "Initiating autowiz."); + system(buf); + reboot_wizlists(); + } else + log("Cannot run autowiz: command-line doesn't fit in buffer."); + } +#endif /* CIRCLE_UNIX || CIRCLE_WINDOWS */ +} + + + +void gain_exp(struct char_data *ch, int gain) +{ + int is_altered = FALSE; + int num_levels = 0; + + if (!IS_NPC(ch) && ((GET_LEVEL(ch) < 1 || GET_LEVEL(ch) >= LVL_IMMORT))) + return; + + if (IS_NPC(ch)) { + GET_EXP(ch) += gain; + return; + } + if (gain > 0) { + gain = MIN(max_exp_gain, gain); /* put a cap on the max gain per kill */ + GET_EXP(ch) += gain; + while (GET_LEVEL(ch) < LVL_IMMORT - immort_level_ok && + GET_EXP(ch) >= level_exp(GET_CLASS(ch), GET_LEVEL(ch) + 1)) { + GET_LEVEL(ch) += 1; + num_levels++; + advance_level(ch); + is_altered = TRUE; + } + + if (is_altered) { + mudlog(BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s advanced %d level%s to level %d.", + GET_NAME(ch), num_levels, num_levels == 1 ? "" : "s", GET_LEVEL(ch)); + if (num_levels == 1) + send_to_char(ch, "You rise a level!\r\n"); + else + send_to_char(ch, "You rise %d levels!\r\n", num_levels); + set_title(ch, NULL); + if (GET_LEVEL(ch) >= LVL_IMMORT) + run_autowiz(); + } + } else if (gain < 0) { + gain = MAX(-max_exp_loss, gain); /* Cap max exp lost per death */ + GET_EXP(ch) += gain; + if (GET_EXP(ch) < 0) + GET_EXP(ch) = 0; + } +} + + +void gain_exp_regardless(struct char_data *ch, int gain) +{ + int is_altered = FALSE; + int num_levels = 0; + + GET_EXP(ch) += gain; + if (GET_EXP(ch) < 0) + GET_EXP(ch) = 0; + + if (!IS_NPC(ch)) { + while (GET_LEVEL(ch) < LVL_IMPL && + GET_EXP(ch) >= level_exp(GET_CLASS(ch), GET_LEVEL(ch) + 1)) { + GET_LEVEL(ch) += 1; + num_levels++; + advance_level(ch); + is_altered = TRUE; + } + + if (is_altered) { + mudlog(BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s advanced %d level%s to level %d.", + GET_NAME(ch), num_levels, num_levels == 1 ? "" : "s", GET_LEVEL(ch)); + if (num_levels == 1) + send_to_char(ch, "You rise a level!\r\n"); + else + send_to_char(ch, "You rise %d levels!\r\n", num_levels); + set_title(ch, NULL); + if (GET_LEVEL(ch) >= LVL_IMMORT) + run_autowiz(); + } + } +} + + +void gain_condition(struct char_data *ch, int condition, int value) +{ + bool intoxicated; + + if (IS_NPC(ch) || GET_COND(ch, condition) == -1) /* No change */ + return; + + intoxicated = (GET_COND(ch, DRUNK) > 0); + + GET_COND(ch, condition) += value; + + GET_COND(ch, condition) = MAX(0, GET_COND(ch, condition)); + GET_COND(ch, condition) = MIN(24, GET_COND(ch, condition)); + + if (GET_COND(ch, condition) || PLR_FLAGGED(ch, PLR_WRITING)) + return; + + switch (condition) { + case FULL: + send_to_char(ch, "You are hungry.\r\n"); + break; + case THIRST: + send_to_char(ch, "You are thirsty.\r\n"); + break; + case DRUNK: + if (intoxicated) + send_to_char(ch, "You are now sober.\r\n"); + break; + default: + break; + } + +} + + +void check_idling(struct char_data *ch) +{ + if (++(ch->char_specials.timer) > idle_void) { + if (GET_WAS_IN(ch) == NOWHERE && IN_ROOM(ch) != NOWHERE) { + GET_WAS_IN(ch) = IN_ROOM(ch); + if (FIGHTING(ch)) { + stop_fighting(FIGHTING(ch)); + stop_fighting(ch); + } + act("$n disappears into the void.", TRUE, ch, 0, 0, TO_ROOM); + send_to_char(ch, "You have been idle, and are pulled into a void.\r\n"); + save_char(ch); + Crash_crashsave(ch); + char_from_room(ch); + char_to_room(ch, 1); + } else if (ch->char_specials.timer > idle_rent_time) { + if (IN_ROOM(ch) != NOWHERE) + char_from_room(ch); + char_to_room(ch, 3); + if (ch->desc) { + STATE(ch->desc) = CON_DISCONNECT; + /* + * For the 'if (d->character)' test in close_socket(). + * -gg 3/1/98 (Happy anniversary.) + */ + ch->desc->character = NULL; + ch->desc = NULL; + } + if (free_rent) + Crash_rentsave(ch, 0); + else + Crash_idlesave(ch); + mudlog(CMP, LVL_GOD, TRUE, "%s force-rented and extracted (idle).", GET_NAME(ch)); + extract_char(ch); + } + } +} + + + +/* Update PCs, NPCs, and objects */ +void point_update(void) +{ + struct char_data *i, *next_char; + struct obj_data *j, *next_thing, *jj, *next_thing2; + + /* characters */ + for (i = character_list; i; i = next_char) { + next_char = i->next; + + gain_condition(i, FULL, -1); + gain_condition(i, DRUNK, -1); + gain_condition(i, THIRST, -1); + + if (GET_POS(i) >= POS_STUNNED) { + GET_HIT(i) = MIN(GET_HIT(i) + hit_gain(i), GET_MAX_HIT(i)); + GET_MANA(i) = MIN(GET_MANA(i) + mana_gain(i), GET_MAX_MANA(i)); + GET_MOVE(i) = MIN(GET_MOVE(i) + move_gain(i), GET_MAX_MOVE(i)); + if (AFF_FLAGGED(i, AFF_POISON)) + if (damage(i, i, 2, SPELL_POISON) == -1) + continue; /* Oops, they died. -gg 6/24/98 */ + if (GET_POS(i) <= POS_STUNNED) + update_pos(i); + } else if (GET_POS(i) == POS_INCAP) { + if (damage(i, i, 1, TYPE_SUFFERING) == -1) + continue; + } else if (GET_POS(i) == POS_MORTALLYW) { + if (damage(i, i, 2, TYPE_SUFFERING) == -1) + continue; + } + if (!IS_NPC(i)) { + update_char_objects(i); + if (GET_LEVEL(i) < idle_max_level) + check_idling(i); + } + } + + /* objects */ + for (j = object_list; j; j = next_thing) { + next_thing = j->next; /* Next in object list */ + + /* If this is a corpse */ + if (IS_CORPSE(j)) { + /* timer count down */ + if (GET_OBJ_TIMER(j) > 0) + GET_OBJ_TIMER(j)--; + + if (!GET_OBJ_TIMER(j)) { + + if (j->carried_by) + act("$p decays in your hands.", FALSE, j->carried_by, j, 0, TO_CHAR); + else if ((IN_ROOM(j) != NOWHERE) && (world[IN_ROOM(j)].people)) { + act("A quivering horde of maggots consumes $p.", + TRUE, world[IN_ROOM(j)].people, j, 0, TO_ROOM); + act("A quivering horde of maggots consumes $p.", + TRUE, world[IN_ROOM(j)].people, j, 0, TO_CHAR); + } + for (jj = j->contains; jj; jj = next_thing2) { + next_thing2 = jj->next_content; /* Next in inventory */ + obj_from_obj(jj); + + if (j->in_obj) + obj_to_obj(jj, j->in_obj); + else if (j->carried_by) + obj_to_room(jj, IN_ROOM(j->carried_by)); + else if (IN_ROOM(j) != NOWHERE) + obj_to_room(jj, IN_ROOM(j)); + else + core_dump(); + } + extract_obj(j); + } + } + } +} diff --git a/src/magic.c b/src/magic.c new file mode 100644 index 0000000..7aea8aa --- /dev/null +++ b/src/magic.c @@ -0,0 +1,972 @@ +/* ************************************************************************ +* File: magic.c Part of CircleMUD * +* Usage: low-level functions for magic; spell template code * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "spells.h" +#include "handler.h" +#include "db.h" +#include "interpreter.h" +#include "constants.h" + + +/* external variables */ +extern int mini_mud; +extern int pk_allowed; +extern struct spell_info_type spell_info[]; + +/* external functions */ +byte saving_throws(int class_num, int type, int level); /* class.c */ +void clearMemory(struct char_data *ch); +void weight_change_object(struct obj_data *obj, int weight); + +/* local functions */ +int mag_materials(struct char_data *ch, int item0, int item1, int item2, int extract, int verbose); +void perform_mag_groups(int level, struct char_data *ch, struct char_data *tch, int spellnum, int savetype); +int mag_savingthrow(struct char_data *ch, int type, int modifier); +void affect_update(void); + +/* + * Saving throws are now in class.c as of bpl13. + */ + + +/* + * Negative apply_saving_throw[] values make saving throws better! + * Then, so do negative modifiers. Though people may be used to + * the reverse of that. It's due to the code modifying the target + * saving throw instead of the random number of the character as + * in some other systems. + */ +int mag_savingthrow(struct char_data *ch, int type, int modifier) +{ + /* NPCs use warrior tables according to some book */ + int class_sav = CLASS_WARRIOR; + int save; + + if (!IS_NPC(ch)) + class_sav = GET_CLASS(ch); + + save = saving_throws(class_sav, type, GET_LEVEL(ch)); + save += GET_SAVE(ch, type); + save += modifier; + + /* Throwing a 0 is always a failure. */ + if (MAX(1, save) < rand_number(0, 99)) + return (TRUE); + + /* Oops, failed. Sorry. */ + return (FALSE); +} + + +/* affect_update: called from comm.c (causes spells to wear off) */ +void affect_update(void) +{ + struct affected_type *af, *next; + struct char_data *i; + + for (i = character_list; i; i = i->next) + for (af = i->affected; af; af = next) { + next = af->next; + if (af->duration >= 1) + af->duration--; + else if (af->duration == -1) /* No action */ + af->duration = -1; /* GODs only! unlimited */ + else { + if ((af->type > 0) && (af->type <= MAX_SPELLS)) + if (!af->next || (af->next->type != af->type) || + (af->next->duration > 0)) + if (spell_info[af->type].wear_off_msg) + send_to_char(i, "%s\r\n", spell_info[af->type].wear_off_msg); + affect_remove(i, af); + } + } +} + + +/* + * mag_materials: + * Checks for up to 3 vnums (spell reagents) in the player's inventory. + * + * No spells implemented in Circle use mag_materials, but you can use + * it to implement your own spells which require ingredients (i.e., some + * heal spell which requires a rare herb or some such.) + */ +int mag_materials(struct char_data *ch, int item0, int item1, int item2, + int extract, int verbose) +{ + struct obj_data *tobj; + struct obj_data *obj0 = NULL, *obj1 = NULL, *obj2 = NULL; + + for (tobj = ch->carrying; tobj; tobj = tobj->next_content) { + if ((item0 > 0) && (GET_OBJ_VNUM(tobj) == item0)) { + obj0 = tobj; + item0 = -1; + } else if ((item1 > 0) && (GET_OBJ_VNUM(tobj) == item1)) { + obj1 = tobj; + item1 = -1; + } else if ((item2 > 0) && (GET_OBJ_VNUM(tobj) == item2)) { + obj2 = tobj; + item2 = -1; + } + } + if ((item0 > 0) || (item1 > 0) || (item2 > 0)) { + if (verbose) { + switch (rand_number(0, 2)) { + case 0: + send_to_char(ch, "A wart sprouts on your nose.\r\n"); + break; + case 1: + send_to_char(ch, "Your hair falls out in clumps.\r\n"); + break; + case 2: + send_to_char(ch, "A huge corn develops on your big toe.\r\n"); + break; + } + } + return (FALSE); + } + if (extract) { + if (item0 < 0) + extract_obj(obj0); + if (item1 < 0) + extract_obj(obj1); + if (item2 < 0) + extract_obj(obj2); + } + if (verbose) { + send_to_char(ch, "A puff of smoke rises from your pack.\r\n"); + act("A puff of smoke rises from $n's pack.", TRUE, ch, NULL, NULL, TO_ROOM); + } + return (TRUE); +} + + + + +/* + * Every spell that does damage comes through here. This calculates the + * amount of damage, adds in any modifiers, determines what the saves are, + * tests for save and calls damage(). + * + * -1 = dead, otherwise the amount of damage done. + */ +int mag_damage(int level, struct char_data *ch, struct char_data *victim, + int spellnum, int savetype) +{ + int dam = 0; + + if (victim == NULL || ch == NULL) + return (0); + + switch (spellnum) { + /* Mostly mages */ + case SPELL_MAGIC_MISSILE: + case SPELL_CHILL_TOUCH: /* chill touch also has an affect */ + if (IS_MAGIC_USER(ch)) + dam = dice(1, 8) + 1; + else + dam = dice(1, 6) + 1; + break; + case SPELL_BURNING_HANDS: + if (IS_MAGIC_USER(ch)) + dam = dice(3, 8) + 3; + else + dam = dice(3, 6) + 3; + break; + case SPELL_SHOCKING_GRASP: + if (IS_MAGIC_USER(ch)) + dam = dice(5, 8) + 5; + else + dam = dice(5, 6) + 5; + break; + case SPELL_LIGHTNING_BOLT: + if (IS_MAGIC_USER(ch)) + dam = dice(7, 8) + 7; + else + dam = dice(7, 6) + 7; + break; + case SPELL_COLOR_SPRAY: + if (IS_MAGIC_USER(ch)) + dam = dice(9, 8) + 9; + else + dam = dice(9, 6) + 9; + break; + case SPELL_FIREBALL: + if (IS_MAGIC_USER(ch)) + dam = dice(11, 8) + 11; + else + dam = dice(11, 6) + 11; + break; + + /* Mostly clerics */ + case SPELL_DISPEL_EVIL: + dam = dice(6, 8) + 6; + if (IS_EVIL(ch)) { + victim = ch; + dam = GET_HIT(ch) - 1; + } else if (IS_GOOD(victim)) { + act("The gods protect $N.", FALSE, ch, 0, victim, TO_CHAR); + return (0); + } + break; + case SPELL_DISPEL_GOOD: + dam = dice(6, 8) + 6; + if (IS_GOOD(ch)) { + victim = ch; + dam = GET_HIT(ch) - 1; + } else if (IS_EVIL(victim)) { + act("The gods protect $N.", FALSE, ch, 0, victim, TO_CHAR); + return (0); + } + break; + + + case SPELL_CALL_LIGHTNING: + dam = dice(7, 8) + 7; + break; + + case SPELL_HARM: + dam = dice(8, 8) + 8; + break; + + case SPELL_ENERGY_DRAIN: + if (GET_LEVEL(victim) <= 2) + dam = 100; + else + dam = dice(1, 10); + break; + + /* Area spells */ + case SPELL_EARTHQUAKE: + dam = dice(2, 8) + level; + break; + + } /* switch(spellnum) */ + + + /* divide damage by two if victim makes his saving throw */ + if (mag_savingthrow(victim, savetype, 0)) + dam /= 2; + + /* and finally, inflict the damage */ + return (damage(ch, victim, dam, spellnum)); +} + + +/* + * Every spell that does an affect comes through here. This determines + * the effect, whether it is added or replacement, whether it is legal or + * not, etc. + * + * affect_join(vict, aff, add_dur, avg_dur, add_mod, avg_mod) + */ + +#define MAX_SPELL_AFFECTS 5 /* change if more needed */ + +void mag_affects(int level, struct char_data *ch, struct char_data *victim, + int spellnum, int savetype) +{ + struct affected_type af[MAX_SPELL_AFFECTS]; + bool accum_affect = FALSE, accum_duration = FALSE; + const char *to_vict = NULL, *to_room = NULL; + int i; + + + if (victim == NULL || ch == NULL) + return; + + for (i = 0; i < MAX_SPELL_AFFECTS; i++) { + af[i].type = spellnum; + af[i].bitvector = 0; + af[i].modifier = 0; + af[i].location = APPLY_NONE; + } + + switch (spellnum) { + + case SPELL_CHILL_TOUCH: + af[0].location = APPLY_STR; + if (mag_savingthrow(victim, savetype, 0)) + af[0].duration = 1; + else + af[0].duration = 4; + af[0].modifier = -1; + accum_duration = TRUE; + to_vict = "You feel your strength wither!"; + break; + + case SPELL_ARMOR: + af[0].location = APPLY_AC; + af[0].modifier = -20; + af[0].duration = 24; + accum_duration = TRUE; + to_vict = "You feel someone protecting you."; + break; + + case SPELL_BLESS: + af[0].location = APPLY_HITROLL; + af[0].modifier = 2; + af[0].duration = 6; + + af[1].location = APPLY_SAVING_SPELL; + af[1].modifier = -1; + af[1].duration = 6; + + accum_duration = TRUE; + to_vict = "You feel righteous."; + break; + + case SPELL_BLINDNESS: + if (MOB_FLAGGED(victim,MOB_NOBLIND) || mag_savingthrow(victim, savetype, 0)) { + send_to_char(ch, "You fail.\r\n"); + return; + } + + af[0].location = APPLY_HITROLL; + af[0].modifier = -4; + af[0].duration = 2; + af[0].bitvector = AFF_BLIND; + + af[1].location = APPLY_AC; + af[1].modifier = 40; + af[1].duration = 2; + af[1].bitvector = AFF_BLIND; + + to_room = "$n seems to be blinded!"; + to_vict = "You have been blinded!"; + break; + + case SPELL_CURSE: + if (mag_savingthrow(victim, savetype, 0)) { + send_to_char(ch, "%s", NOEFFECT); + return; + } + + af[0].location = APPLY_HITROLL; + af[0].duration = 1 + (GET_LEVEL(ch) / 2); + af[0].modifier = -1; + af[0].bitvector = AFF_CURSE; + + af[1].location = APPLY_DAMROLL; + af[1].duration = 1 + (GET_LEVEL(ch) / 2); + af[1].modifier = -1; + af[1].bitvector = AFF_CURSE; + + accum_duration = TRUE; + accum_affect = TRUE; + to_room = "$n briefly glows red!"; + to_vict = "You feel very uncomfortable."; + break; + + case SPELL_DETECT_ALIGN: + af[0].duration = 12 + level; + af[0].bitvector = AFF_DETECT_ALIGN; + accum_duration = TRUE; + to_vict = "Your eyes tingle."; + break; + + case SPELL_DETECT_INVIS: + af[0].duration = 12 + level; + af[0].bitvector = AFF_DETECT_INVIS; + accum_duration = TRUE; + to_vict = "Your eyes tingle."; + break; + + case SPELL_DETECT_MAGIC: + af[0].duration = 12 + level; + af[0].bitvector = AFF_DETECT_MAGIC; + accum_duration = TRUE; + to_vict = "Your eyes tingle."; + break; + + case SPELL_INFRAVISION: + af[0].duration = 12 + level; + af[0].bitvector = AFF_INFRAVISION; + accum_duration = TRUE; + to_vict = "Your eyes glow red."; + to_room = "$n's eyes glow red."; + break; + + case SPELL_INVISIBLE: + if (!victim) + victim = ch; + + af[0].duration = 12 + (GET_LEVEL(ch) / 4); + af[0].modifier = -40; + af[0].location = APPLY_AC; + af[0].bitvector = AFF_INVISIBLE; + accum_duration = TRUE; + to_vict = "You vanish."; + to_room = "$n slowly fades out of existence."; + break; + + case SPELL_POISON: + if (mag_savingthrow(victim, savetype, 0)) { + send_to_char(ch, "%s", NOEFFECT); + return; + } + + af[0].location = APPLY_STR; + af[0].duration = GET_LEVEL(ch); + af[0].modifier = -2; + af[0].bitvector = AFF_POISON; + to_vict = "You feel very sick."; + to_room = "$n gets violently ill!"; + break; + + case SPELL_PROT_FROM_EVIL: + af[0].duration = 24; + af[0].bitvector = AFF_PROTECT_EVIL; + accum_duration = TRUE; + to_vict = "You feel invulnerable!"; + break; + + case SPELL_SANCTUARY: + af[0].duration = 4; + af[0].bitvector = AFF_SANCTUARY; + + accum_duration = TRUE; + to_vict = "A white aura momentarily surrounds you."; + to_room = "$n is surrounded by a white aura."; + break; + + case SPELL_SLEEP: + if (!pk_allowed && !IS_NPC(ch) && !IS_NPC(victim)) + return; + if (MOB_FLAGGED(victim, MOB_NOSLEEP)) + return; + if (mag_savingthrow(victim, savetype, 0)) + return; + + af[0].duration = 4 + (GET_LEVEL(ch) / 4); + af[0].bitvector = AFF_SLEEP; + + if (GET_POS(victim) > POS_SLEEPING) { + send_to_char(victim, "You feel very sleepy... Zzzz......\r\n"); + act("$n goes to sleep.", TRUE, victim, 0, 0, TO_ROOM); + GET_POS(victim) = POS_SLEEPING; + } + break; + + case SPELL_STRENGTH: + if (GET_ADD(victim) == 100) + return; + + af[0].location = APPLY_STR; + af[0].duration = (GET_LEVEL(ch) / 2) + 4; + af[0].modifier = 1 + (level > 18); + accum_duration = TRUE; + accum_affect = TRUE; + to_vict = "You feel stronger!"; + break; + + case SPELL_SENSE_LIFE: + to_vict = "Your feel your awareness improve."; + af[0].duration = GET_LEVEL(ch); + af[0].bitvector = AFF_SENSE_LIFE; + accum_duration = TRUE; + break; + + case SPELL_WATERWALK: + af[0].duration = 24; + af[0].bitvector = AFF_WATERWALK; + accum_duration = TRUE; + to_vict = "You feel webbing between your toes."; + break; + } + + /* + * If this is a mob that has this affect set in its mob file, do not + * perform the affect. This prevents people from un-sancting mobs + * by sancting them and waiting for it to fade, for example. + */ + if (IS_NPC(victim) && !affected_by_spell(victim, spellnum)) + for (i = 0; i < MAX_SPELL_AFFECTS; i++) + if (AFF_FLAGGED(victim, af[i].bitvector)) { + send_to_char(ch, "%s", NOEFFECT); + return; + } + + /* + * If the victim is already affected by this spell, and the spell does + * not have an accumulative effect, then fail the spell. + */ + if (affected_by_spell(victim,spellnum) && !(accum_duration||accum_affect)) { + send_to_char(ch, "%s", NOEFFECT); + return; + } + + for (i = 0; i < MAX_SPELL_AFFECTS; i++) + if (af[i].bitvector || (af[i].location != APPLY_NONE)) + affect_join(victim, af+i, accum_duration, FALSE, accum_affect, FALSE); + + if (to_vict != NULL) + act(to_vict, FALSE, victim, 0, ch, TO_CHAR); + if (to_room != NULL) + act(to_room, TRUE, victim, 0, ch, TO_ROOM); +} + + +/* + * This function is used to provide services to mag_groups. This function + * is the one you should change to add new group spells. + */ +void perform_mag_groups(int level, struct char_data *ch, + struct char_data *tch, int spellnum, int savetype) +{ + switch (spellnum) { + case SPELL_GROUP_HEAL: + mag_points(level, ch, tch, SPELL_HEAL, savetype); + break; + case SPELL_GROUP_ARMOR: + mag_affects(level, ch, tch, SPELL_ARMOR, savetype); + break; + case SPELL_GROUP_RECALL: + spell_recall(level, ch, tch, NULL); + break; + } +} + + +/* + * Every spell that affects the group should run through here + * perform_mag_groups contains the switch statement to send us to the right + * magic. + * + * group spells affect everyone grouped with the caster who is in the room, + * caster last. + * + * To add new group spells, you shouldn't have to change anything in + * mag_groups -- just add a new case to perform_mag_groups. + */ +void mag_groups(int level, struct char_data *ch, int spellnum, int savetype) +{ + struct char_data *tch, *k; + struct follow_type *f, *f_next; + + if (ch == NULL) + return; + + if (!AFF_FLAGGED(ch, AFF_GROUP)) + return; + if (ch->master != NULL) + k = ch->master; + else + k = ch; + for (f = k->followers; f; f = f_next) { + f_next = f->next; + tch = f->follower; + if (IN_ROOM(tch) != IN_ROOM(ch)) + continue; + if (!AFF_FLAGGED(tch, AFF_GROUP)) + continue; + if (ch == tch) + continue; + perform_mag_groups(level, ch, tch, spellnum, savetype); + } + + if ((k != ch) && AFF_FLAGGED(k, AFF_GROUP)) + perform_mag_groups(level, ch, k, spellnum, savetype); + perform_mag_groups(level, ch, ch, spellnum, savetype); +} + + +/* + * mass spells affect every creature in the room except the caster. + * + * No spells of this class currently implemented. + */ +void mag_masses(int level, struct char_data *ch, int spellnum, int savetype) +{ + struct char_data *tch, *tch_next; + + for (tch = world[IN_ROOM(ch)].people; tch; tch = tch_next) { + tch_next = tch->next_in_room; + if (tch == ch) + continue; + + switch (spellnum) { + } + } +} + + +/* + * Every spell that affects an area (room) runs through here. These are + * generally offensive spells. This calls mag_damage to do the actual + * damage -- all spells listed here must also have a case in mag_damage() + * in order for them to work. + * + * area spells have limited targets within the room. + */ +void mag_areas(int level, struct char_data *ch, int spellnum, int savetype) +{ + struct char_data *tch, *next_tch; + const char *to_char = NULL, *to_room = NULL; + + if (ch == NULL) + return; + + /* + * to add spells to this fn, just add the message here plus an entry + * in mag_damage for the damaging part of the spell. + */ + switch (spellnum) { + case SPELL_EARTHQUAKE: + to_char = "You gesture and the earth begins to shake all around you!"; + to_room ="$n gracefully gestures and the earth begins to shake violently!"; + break; + } + + if (to_char != NULL) + act(to_char, FALSE, ch, 0, 0, TO_CHAR); + if (to_room != NULL) + act(to_room, FALSE, ch, 0, 0, TO_ROOM); + + + for (tch = world[IN_ROOM(ch)].people; tch; tch = next_tch) { + next_tch = tch->next_in_room; + + /* + * The skips: 1: the caster + * 2: immortals + * 3: if no pk on this mud, skips over all players + * 4: pets (charmed NPCs) + */ + + if (tch == ch) + continue; + if (!IS_NPC(tch) && GET_LEVEL(tch) >= LVL_IMMORT) + continue; + if (!pk_allowed && !IS_NPC(ch) && !IS_NPC(tch)) + continue; + if (!IS_NPC(ch) && IS_NPC(tch) && AFF_FLAGGED(tch, AFF_CHARM)) + continue; + + /* Doesn't matter if they die here so we don't check. -gg 6/24/98 */ + mag_damage(level, ch, tch, spellnum, 1); + } +} + + +/* + * Every spell which summons/gates/conjours a mob comes through here. + * + * None of these spells are currently implemented in CircleMUD; these + * were taken as examples from the JediMUD code. Summons can be used + * for spells like clone, ariel servant, etc. + * + * 10/15/97 (gg) - Implemented Animate Dead and Clone. + */ + +/* + * These use act(), don't put the \r\n. + */ +const char *mag_summon_msgs[] = { + "\r\n", + "$n makes a strange magical gesture; you feel a strong breeze!", + "$n animates a corpse!", + "$N appears from a cloud of thick blue smoke!", + "$N appears from a cloud of thick green smoke!", + "$N appears from a cloud of thick red smoke!", + "$N disappears in a thick black cloud!" + "As $n makes a strange magical gesture, you feel a strong breeze.", + "As $n makes a strange magical gesture, you feel a searing heat.", + "As $n makes a strange magical gesture, you feel a sudden chill.", + "As $n makes a strange magical gesture, you feel the dust swirl.", + "$n magically divides!", + "$n animates a corpse!" +}; + +/* + * Keep the \r\n because these use send_to_char. + */ +const char *mag_summon_fail_msgs[] = { + "\r\n", + "There are no such creatures.\r\n", + "Uh oh...\r\n", + "Oh dear.\r\n", + "Gosh durnit!\r\n", + "The elements resist!\r\n", + "You failed.\r\n", + "There is no corpse!\r\n" +}; + +/* These mobiles do not exist. */ +#define MOB_MONSUM_I 130 +#define MOB_MONSUM_II 140 +#define MOB_MONSUM_III 150 +#define MOB_GATE_I 160 +#define MOB_GATE_II 170 +#define MOB_GATE_III 180 + +/* Defined mobiles. */ +#define MOB_ELEMENTAL_BASE 20 /* Only one for now. */ +#define MOB_CLONE 10 +#define MOB_ZOMBIE 11 +#define MOB_AERIALSERVANT 19 + + +void mag_summons(int level, struct char_data *ch, struct obj_data *obj, + int spellnum, int savetype) +{ + struct char_data *mob = NULL; + struct obj_data *tobj, *next_obj; + int pfail = 0, msg = 0, fmsg = 0, num = 1, handle_corpse = FALSE, i; + mob_vnum mob_num; + + if (ch == NULL) + return; + + switch (spellnum) { + case SPELL_CLONE: + msg = 10; + fmsg = rand_number(2, 6); /* Random fail message. */ + mob_num = MOB_CLONE; + pfail = 50; /* 50% failure, should be based on something later. */ + break; + + case SPELL_ANIMATE_DEAD: + if (obj == NULL || !IS_CORPSE(obj)) { + act(mag_summon_fail_msgs[7], FALSE, ch, 0, 0, TO_CHAR); + return; + } + handle_corpse = TRUE; + msg = 11; + fmsg = rand_number(2, 6); /* Random fail message. */ + mob_num = MOB_ZOMBIE; + pfail = 10; /* 10% failure, should vary in the future. */ + break; + + default: + return; + } + + if (AFF_FLAGGED(ch, AFF_CHARM)) { + send_to_char(ch, "You are too giddy to have any followers!\r\n"); + return; + } + if (rand_number(0, 101) < pfail) { + send_to_char(ch, "%s", mag_summon_fail_msgs[fmsg]); + return; + } + for (i = 0; i < num; i++) { + if (!(mob = read_mobile(mob_num, VIRTUAL))) { + send_to_char(ch, "You don't quite remember how to make that creature.\r\n"); + return; + } + char_to_room(mob, IN_ROOM(ch)); + IS_CARRYING_W(mob) = 0; + IS_CARRYING_N(mob) = 0; + SET_BIT(AFF_FLAGS(mob), AFF_CHARM); + if (spellnum == SPELL_CLONE) { + /* Don't mess up the prototype; use new string copies. */ + mob->player.name = strdup(GET_NAME(ch)); + mob->player.short_descr = strdup(GET_NAME(ch)); + } + act(mag_summon_msgs[msg], FALSE, ch, 0, mob, TO_ROOM); + add_follower(mob, ch); + } + if (handle_corpse) { + for (tobj = obj->contains; tobj; tobj = next_obj) { + next_obj = tobj->next_content; + obj_from_obj(tobj); + obj_to_char(tobj, mob); + } + extract_obj(obj); + } +} + + +void mag_points(int level, struct char_data *ch, struct char_data *victim, + int spellnum, int savetype) +{ + int healing = 0, move = 0; + + if (victim == NULL) + return; + + switch (spellnum) { + case SPELL_CURE_LIGHT: + healing = dice(1, 8) + 1 + (level / 4); + send_to_char(victim, "You feel better.\r\n"); + break; + case SPELL_CURE_CRITIC: + healing = dice(3, 8) + 3 + (level / 4); + send_to_char(victim, "You feel a lot better!\r\n"); + break; + case SPELL_HEAL: + healing = 100 + dice(3, 8); + send_to_char(victim, "A warm feeling floods your body.\r\n"); + break; + } + GET_HIT(victim) = MIN(GET_MAX_HIT(victim), GET_HIT(victim) + healing); + GET_MOVE(victim) = MIN(GET_MAX_MOVE(victim), GET_MOVE(victim) + move); + update_pos(victim); +} + + +void mag_unaffects(int level, struct char_data *ch, struct char_data *victim, + int spellnum, int type) +{ + int spell = 0, msg_not_affected = TRUE; + const char *to_vict = NULL, *to_room = NULL; + + if (victim == NULL) + return; + + switch (spellnum) { + case SPELL_HEAL: + /* + * Heal also restores health, so don't give the "no effect" message + * if the target isn't afflicted by the 'blindness' spell. + */ + msg_not_affected = FALSE; + /* fall-through */ + case SPELL_CURE_BLIND: + spell = SPELL_BLINDNESS; + to_vict = "Your vision returns!"; + to_room = "There's a momentary gleam in $n's eyes."; + break; + case SPELL_REMOVE_POISON: + spell = SPELL_POISON; + to_vict = "A warm feeling runs through your body!"; + to_room = "$n looks better."; + break; + case SPELL_REMOVE_CURSE: + spell = SPELL_CURSE; + to_vict = "You don't feel so unlucky."; + break; + default: + log("SYSERR: unknown spellnum %d passed to mag_unaffects.", spellnum); + return; + } + + if (!affected_by_spell(victim, spell)) { + if (msg_not_affected) + send_to_char(ch, "%s", NOEFFECT); + return; + } + + affect_from_char(victim, spell); + if (to_vict != NULL) + act(to_vict, FALSE, victim, 0, ch, TO_CHAR); + if (to_room != NULL) + act(to_room, TRUE, victim, 0, ch, TO_ROOM); + +} + + +void mag_alter_objs(int level, struct char_data *ch, struct obj_data *obj, + int spellnum, int savetype) +{ + const char *to_char = NULL, *to_room = NULL; + + if (obj == NULL) + return; + + switch (spellnum) { + case SPELL_BLESS: + if (!OBJ_FLAGGED(obj, ITEM_BLESS) && + (GET_OBJ_WEIGHT(obj) <= 5 * GET_LEVEL(ch))) { + SET_BIT(GET_OBJ_EXTRA(obj), ITEM_BLESS); + to_char = "$p glows briefly."; + } + break; + case SPELL_CURSE: + if (!OBJ_FLAGGED(obj, ITEM_NODROP)) { + SET_BIT(GET_OBJ_EXTRA(obj), ITEM_NODROP); + if (GET_OBJ_TYPE(obj) == ITEM_WEAPON) + GET_OBJ_VAL(obj, 2)--; + to_char = "$p briefly glows red."; + } + break; + case SPELL_INVISIBLE: + if (!OBJ_FLAGGED(obj, ITEM_NOINVIS | ITEM_INVISIBLE)) { + SET_BIT(GET_OBJ_EXTRA(obj), ITEM_INVISIBLE); + to_char = "$p vanishes."; + } + break; + case SPELL_POISON: + if (((GET_OBJ_TYPE(obj) == ITEM_DRINKCON) || + (GET_OBJ_TYPE(obj) == ITEM_FOUNTAIN) || + (GET_OBJ_TYPE(obj) == ITEM_FOOD)) && !GET_OBJ_VAL(obj, 3)) { + GET_OBJ_VAL(obj, 3) = 1; + to_char = "$p steams briefly."; + } + break; + case SPELL_REMOVE_CURSE: + if (OBJ_FLAGGED(obj, ITEM_NODROP)) { + REMOVE_BIT(GET_OBJ_EXTRA(obj), ITEM_NODROP); + if (GET_OBJ_TYPE(obj) == ITEM_WEAPON) + GET_OBJ_VAL(obj, 2)++; + to_char = "$p briefly glows blue."; + } + break; + case SPELL_REMOVE_POISON: + if (((GET_OBJ_TYPE(obj) == ITEM_DRINKCON) || + (GET_OBJ_TYPE(obj) == ITEM_FOUNTAIN) || + (GET_OBJ_TYPE(obj) == ITEM_FOOD)) && GET_OBJ_VAL(obj, 3)) { + GET_OBJ_VAL(obj, 3) = 0; + to_char = "$p steams briefly."; + } + break; + } + + if (to_char == NULL) + send_to_char(ch, "%s", NOEFFECT); + else + act(to_char, TRUE, ch, obj, 0, TO_CHAR); + + if (to_room != NULL) + act(to_room, TRUE, ch, obj, 0, TO_ROOM); + else if (to_char != NULL) + act(to_char, TRUE, ch, obj, 0, TO_ROOM); + +} + + + +void mag_creations(int level, struct char_data *ch, int spellnum) +{ + struct obj_data *tobj; + obj_vnum z; + + if (ch == NULL) + return; + /* level = MAX(MIN(level, LVL_IMPL), 1); - Hm, not used. */ + + switch (spellnum) { + case SPELL_CREATE_FOOD: + z = 10; + break; + default: + send_to_char(ch, "Spell unimplemented, it would seem.\r\n"); + return; + } + + if (!(tobj = read_object(z, VIRTUAL))) { + send_to_char(ch, "I seem to have goofed.\r\n"); + log("SYSERR: spell_creations, spell %d, obj %d: obj not found", + spellnum, z); + return; + } + obj_to_char(tobj, ch); + act("$n creates $p.", FALSE, ch, tobj, 0, TO_ROOM); + act("You create $p.", FALSE, ch, tobj, 0, TO_CHAR); +} + diff --git a/src/mail.c b/src/mail.c new file mode 100644 index 0000000..f470ec5 --- /dev/null +++ b/src/mail.c @@ -0,0 +1,616 @@ +/* ************************************************************************ +* File: mail.c Part of CircleMUD * +* Usage: Internal funcs and player spec-procs of mud-mail system * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/******* MUD MAIL SYSTEM MAIN FILE *************************************** + +Written by Jeremy Elson (jelson@circlemud.org) + +*************************************************************************/ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "db.h" +#include "interpreter.h" +#include "handler.h" +#include "mail.h" + + +/* external variables */ +extern int no_mail; + +/* external functions */ +SPECIAL(postmaster); + +/* local globals */ +mail_index_type *mail_index = NULL; /* list of recs in the mail file */ +position_list_type *free_list = NULL; /* list of free positions in file */ +long file_end_pos = 0; /* length of file */ + +/* local functions */ +void postmaster_send_mail(struct char_data *ch, struct char_data *mailman, int cmd, char *arg); +void postmaster_check_mail(struct char_data *ch, struct char_data *mailman, int cmd, char *arg); +void postmaster_receive_mail(struct char_data *ch, struct char_data *mailman, int cmd, char *arg); +void push_free_list(long pos); +long pop_free_list(void); +void clear_free_list(void); +mail_index_type *find_char_in_index(long searchee); +void write_to_file(void *buf, int size, long filepos); +void read_from_file(void *buf, int size, long filepos); +void index_mail(long id_to_index, long pos); +int mail_recip_ok(const char *name); + +/* -------------------------------------------------------------------------- */ + +int mail_recip_ok(const char *name) +{ + struct char_file_u tmp_store; + struct char_data *victim; + int ret = FALSE; + + CREATE(victim, struct char_data, 1); + clear_char(victim); + if (load_char(name, &tmp_store) >= 0) { + store_to_char(&tmp_store, victim); + char_to_room(victim, 0); + if (!PLR_FLAGGED(victim, PLR_DELETED)) + ret = TRUE; + extract_char_final(victim); + } else + free(victim); + return ret; +} + +/* + * void push_free_list(long #1) + * #1 - What byte offset into the file the block resides. + * + * Net effect is to store a list of free blocks in the mail file in a linked + * list. This is called when people receive their messages and at startup + * when the list is created. + */ +void push_free_list(long pos) +{ + position_list_type *new_pos; + + CREATE(new_pos, position_list_type, 1); + new_pos->position = pos; + new_pos->next = free_list; + free_list = new_pos; +} + + +/* + * long pop_free_list(none) + * Returns the offset of a free block in the mail file. + * + * Typically used whenever a person mails a message. The blocks are not + * guaranteed to be sequential or in any order at all. + */ +long pop_free_list(void) +{ + position_list_type *old_pos; + long return_value; + + /* + * If we don't have any free blocks, we append to the file. + */ + if ((old_pos = free_list) == NULL) + return (file_end_pos); + + /* Save the offset of the free block. */ + return_value = free_list->position; + /* Remove this block from the free list. */ + free_list = old_pos->next; + /* Get rid of the memory the node took. */ + free(old_pos); + /* Give back the free offset. */ + return (return_value); +} + + +void clear_free_list(void) +{ + while (free_list) + pop_free_list(); +} + + +/* + * main_index_type *find_char_in_index(long #1) + * #1 - The idnum of the person to look for. + * Returns a pointer to the mail block found. + * + * Finds the first mail block for a specific person based on id number. + */ +mail_index_type *find_char_in_index(long searchee) +{ + mail_index_type *tmp; + + if (searchee < 0) { + log("SYSERR: Mail system -- non fatal error #1 (searchee == %ld).", searchee); + return (NULL); + } + for (tmp = mail_index; (tmp && tmp->recipient != searchee); tmp = tmp->next); + + return (tmp); +} + + +/* + * void write_to_file(void * #1, int #2, long #3) + * #1 - A pointer to the data to write, usually the 'block' record. + * #2 - How much to write (because we'll write NUL terminated strings.) + * #3 - What offset (block position) in the file to write to. + * + * Writes a mail block back into the database at the given location. + */ +void write_to_file(void *buf, int size, long filepos) +{ + FILE *mail_file; + + if (filepos % BLOCK_SIZE) { + log("SYSERR: Mail system -- fatal error #2!!! (invalid file position %ld)", filepos); + no_mail = TRUE; + return; + } + if (!(mail_file = fopen(MAIL_FILE, "r+b"))) { + log("SYSERR: Unable to open mail file '%s'.", MAIL_FILE); + no_mail = TRUE; + return; + } + fseek(mail_file, filepos, SEEK_SET); + fwrite(buf, size, 1, mail_file); + + /* find end of file */ + fseek(mail_file, 0L, SEEK_END); + file_end_pos = ftell(mail_file); + fclose(mail_file); + return; +} + + +/* + * void read_from_file(void * #1, int #2, long #3) + * #1 - A pointer to where we should store the data read. + * #2 - How large the block we're reading is. + * #3 - What position in the file to read. + * + * This reads a block from the mail database file. + */ +void read_from_file(void *buf, int size, long filepos) +{ + FILE *mail_file; + + if (filepos % BLOCK_SIZE) { + log("SYSERR: Mail system -- fatal error #3!!! (invalid filepos read %ld)", filepos); + no_mail = TRUE; + return; + } + if (!(mail_file = fopen(MAIL_FILE, "r+b"))) { + log("SYSERR: Unable to open mail file '%s'.", MAIL_FILE); + no_mail = TRUE; + return; + } + + fseek(mail_file, filepos, SEEK_SET); + fread(buf, size, 1, mail_file); + fclose(mail_file); + return; +} + + +void index_mail(long id_to_index, long pos) +{ + mail_index_type *new_index; + position_list_type *new_position; + + if (id_to_index < 0) { + log("SYSERR: Mail system -- non-fatal error #4. (id_to_index == %ld)", id_to_index); + return; + } + if (!(new_index = find_char_in_index(id_to_index))) { + /* name not already in index.. add it */ + CREATE(new_index, mail_index_type, 1); + new_index->recipient = id_to_index; + new_index->list_start = NULL; + + /* add to front of list */ + new_index->next = mail_index; + mail_index = new_index; + } + /* now, add this position to front of position list */ + CREATE(new_position, position_list_type, 1); + new_position->position = pos; + new_position->next = new_index->list_start; + new_index->list_start = new_position; +} + + +/* + * int scan_file(none) + * Returns false if mail file is corrupted or true if everything correct. + * + * This is called once during boot-up. It scans through the mail file + * and indexes all entries currently in the mail file. + */ +int scan_file(void) +{ + FILE *mail_file; + header_block_type next_block; + int total_messages = 0, block_num = 0; + + if (!(mail_file = fopen(MAIL_FILE, "rb"))) { + log(" Mail file non-existant... creating new file."); + touch(MAIL_FILE); + return (1); + } + while (fread(&next_block, sizeof(header_block_type), 1, mail_file)) { + if (next_block.block_type == HEADER_BLOCK) { + index_mail(next_block.header_data.to, block_num * BLOCK_SIZE); + total_messages++; + } else if (next_block.block_type == DELETED_BLOCK) + push_free_list(block_num * BLOCK_SIZE); + block_num++; + } + + file_end_pos = ftell(mail_file); + fclose(mail_file); + log(" %ld bytes read.", file_end_pos); + if (file_end_pos % BLOCK_SIZE) { + log("SYSERR: Error booting mail system -- Mail file corrupt!"); + log("SYSERR: Mail disabled!"); + return (0); + } + log(" Mail file read -- %d messages.", total_messages); + return (1); +} /* end of scan_file */ + + +/* + * int has_mail(long #1) + * #1 - id number of the person to check for mail. + * Returns true or false. + * + * A simple little function which tells you if the guy has mail or not. + */ +int has_mail(long recipient) +{ + return (find_char_in_index(recipient) != NULL); +} + + +/* + * void store_mail(long #1, long #2, char * #3) + * #1 - id number of the person to mail to. + * #2 - id number of the person the mail is from. + * #3 - The actual message to send. + * + * call store_mail to store mail. (hard, huh? :-) ) Pass 3 arguments: + * who the mail is to (long), who it's from (long), and a pointer to the + * actual message text (char *). + */ +void store_mail(long to, long from, char *message_pointer) +{ + header_block_type header; + data_block_type data; + long last_address, target_address; + char *msg_txt = message_pointer; + int bytes_written, total_length = strlen(message_pointer); + + if ((sizeof(header_block_type) != sizeof(data_block_type)) || + (sizeof(header_block_type) != BLOCK_SIZE)) { + core_dump(); + return; + } + + if (from < 0 || to < 0 || !*message_pointer) { + log("SYSERR: Mail system -- non-fatal error #5. (from == %ld, to == %ld)", from, to); + return; + } + memset((char *) &header, 0, sizeof(header)); /* clear the record */ + header.block_type = HEADER_BLOCK; + header.header_data.next_block = LAST_BLOCK; + header.header_data.from = from; + header.header_data.to = to; + header.header_data.mail_time = time(0); + strncpy(header.txt, msg_txt, HEADER_BLOCK_DATASIZE); /* strncpy: OK (h.txt:HEADER_BLOCK_DATASIZE+1) */ + header.txt[HEADER_BLOCK_DATASIZE] = '\0'; + + target_address = pop_free_list(); /* find next free block */ + index_mail(to, target_address); /* add it to mail index in memory */ + write_to_file(&header, BLOCK_SIZE, target_address); + + if (strlen(msg_txt) <= HEADER_BLOCK_DATASIZE) + return; /* that was the whole message */ + + bytes_written = HEADER_BLOCK_DATASIZE; + msg_txt += HEADER_BLOCK_DATASIZE; /* move pointer to next bit of text */ + + /* + * find the next block address, then rewrite the header to reflect where + * the next block is. + */ + last_address = target_address; + target_address = pop_free_list(); + header.header_data.next_block = target_address; + write_to_file(&header, BLOCK_SIZE, last_address); + + /* now write the current data block */ + memset((char *) &data, 0, sizeof(data)); /* clear the record */ + data.block_type = LAST_BLOCK; + strncpy(data.txt, msg_txt, DATA_BLOCK_DATASIZE); /* strncpy: OK (d.txt:DATA_BLOCK_DATASIZE+1) */ + data.txt[DATA_BLOCK_DATASIZE] = '\0'; + write_to_file(&data, BLOCK_SIZE, target_address); + bytes_written += strlen(data.txt); + msg_txt += strlen(data.txt); + + /* + * if, after 1 header block and 1 data block there is STILL part of the + * message left to write to the file, keep writing the new data blocks and + * rewriting the old data blocks to reflect where the next block is. Yes, + * this is kind of a hack, but if the block size is big enough it won't + * matter anyway. Hopefully, MUD players won't pour their life stories out + * into the Mud Mail System anyway. + * + * Note that the block_type data field in data blocks is either a number >=0, + * meaning a link to the next block, or LAST_BLOCK flag (-2) meaning the + * last block in the current message. This works much like DOS' FAT. + */ + while (bytes_written < total_length) { + last_address = target_address; + target_address = pop_free_list(); + + /* rewrite the previous block to link it to the next */ + data.block_type = target_address; + write_to_file(&data, BLOCK_SIZE, last_address); + + /* now write the next block, assuming it's the last. */ + data.block_type = LAST_BLOCK; + strncpy(data.txt, msg_txt, DATA_BLOCK_DATASIZE); /* strncpy: OK (d.txt:DATA_BLOCK_DATASIZE+1) */ + data.txt[DATA_BLOCK_DATASIZE] = '\0'; + write_to_file(&data, BLOCK_SIZE, target_address); + + bytes_written += strlen(data.txt); + msg_txt += strlen(data.txt); + } +} /* store mail */ + + +/* + * char *read_delete(long #1) + * #1 - The id number of the person we're checking mail for. + * Returns the message text of the mail received. + * + * Retrieves one messsage for a player. The mail is then discarded from + * the file and the mail index. + */ +char *read_delete(long recipient) +{ + header_block_type header; + data_block_type data; + mail_index_type *mail_pointer, *prev_mail; + position_list_type *position_pointer; + long mail_address, following_block; + char *tmstr, buf[MAX_MAIL_SIZE + 256]; /* + header */ + char *from, *to; + + if (recipient < 0) { + log("SYSERR: Mail system -- non-fatal error #6. (recipient: %ld)", recipient); + return (NULL); + } + if (!(mail_pointer = find_char_in_index(recipient))) { + log("SYSERR: Mail system -- post office spec_proc error? Error #7. (invalid character in index)"); + return (NULL); + } + if (!(position_pointer = mail_pointer->list_start)) { + log("SYSERR: Mail system -- non-fatal error #8. (invalid position pointer %p)", position_pointer); + return (NULL); + } + if (!(position_pointer->next)) { /* just 1 entry in list. */ + mail_address = position_pointer->position; + free(position_pointer); + + /* now free up the actual name entry */ + if (mail_index == mail_pointer) { /* name is 1st in list */ + mail_index = mail_pointer->next; + free(mail_pointer); + } else { + /* find entry before the one we're going to del */ + for (prev_mail = mail_index; + prev_mail->next != mail_pointer; + prev_mail = prev_mail->next); + prev_mail->next = mail_pointer->next; + free(mail_pointer); + } + } else { + /* move to next-to-last record */ + while (position_pointer->next->next) + position_pointer = position_pointer->next; + mail_address = position_pointer->next->position; + free(position_pointer->next); + position_pointer->next = NULL; + } + + /* ok, now lets do some readin'! */ + read_from_file(&header, BLOCK_SIZE, mail_address); + + if (header.block_type != HEADER_BLOCK) { + log("SYSERR: Oh dear. (Header block %ld != %d)", header.block_type, HEADER_BLOCK); + no_mail = TRUE; + log("SYSERR: Mail system disabled! -- Error #9. (Invalid header block.)"); + return (NULL); + } + tmstr = asctime(localtime(&header.header_data.mail_time)); + *(tmstr + strlen(tmstr) - 1) = '\0'; + + from = get_name_by_id(header.header_data.from); + to = get_name_by_id(recipient); + + snprintf(buf, sizeof(buf), + " * * * * Midgaard Mail System * * * *\r\n" + "Date: %s\r\n" + " To: %s\r\n" + "From: %s\r\n" + "\r\n" + "%s", + + tmstr, + to ? to : "Unknown", + from ? from : "Unknown", + header.txt + ); + following_block = header.header_data.next_block; + + /* mark the block as deleted */ + header.block_type = DELETED_BLOCK; + write_to_file(&header, BLOCK_SIZE, mail_address); + push_free_list(mail_address); + + while (following_block != LAST_BLOCK) { + read_from_file(&data, BLOCK_SIZE, following_block); + + strcat(buf, data.txt); /* strcat: OK (data.txt:DATA_BLOCK_DATASIZE < buf:MAX_MAIL_SIZE) */ + mail_address = following_block; + following_block = data.block_type; + data.block_type = DELETED_BLOCK; + write_to_file(&data, BLOCK_SIZE, mail_address); + push_free_list(mail_address); + } + + return strdup(buf); +} + + +/**************************************************************** +* Below is the spec_proc for a postmaster using the above * +* routines. Written by Jeremy Elson (jelson@circlemud.org) * +****************************************************************/ + +SPECIAL(postmaster) +{ + if (!ch->desc || IS_NPC(ch)) + return (0); /* so mobs don't get caught here */ + + if (!(CMD_IS("mail") || CMD_IS("check") || CMD_IS("receive"))) + return (0); + + if (no_mail) { + send_to_char(ch, "Sorry, the mail system is having technical difficulties.\r\n"); + return (0); + } + + if (CMD_IS("mail")) { + postmaster_send_mail(ch, (struct char_data *)me, cmd, argument); + return (1); + } else if (CMD_IS("check")) { + postmaster_check_mail(ch, (struct char_data *)me, cmd, argument); + return (1); + } else if (CMD_IS("receive")) { + postmaster_receive_mail(ch, (struct char_data *)me, cmd, argument); + return (1); + } else + return (0); +} + + +void postmaster_send_mail(struct char_data *ch, struct char_data *mailman, + int cmd, char *arg) +{ + long recipient; + char buf[MAX_INPUT_LENGTH], **mailwrite; + + if (GET_LEVEL(ch) < MIN_MAIL_LEVEL) { + snprintf(buf, sizeof(buf), "$n tells you, 'Sorry, you have to be level %d to send mail!'", MIN_MAIL_LEVEL); + act(buf, FALSE, mailman, 0, ch, TO_VICT); + return; + } + one_argument(arg, buf); + + if (!*buf) { /* you'll get no argument from me! */ + act("$n tells you, 'You need to specify an addressee!'", + FALSE, mailman, 0, ch, TO_VICT); + return; + } + if (GET_GOLD(ch) < STAMP_PRICE) { + snprintf(buf, sizeof(buf), "$n tells you, 'A stamp costs %d coin%s.'\r\n" + "$n tells you, '...which I see you can't afford.'", STAMP_PRICE, + STAMP_PRICE == 1 ? "" : "s"); + act(buf, FALSE, mailman, 0, ch, TO_VICT); + return; + } + if ((recipient = get_id_by_name(buf)) < 0 || !mail_recip_ok(buf)) { + act("$n tells you, 'No one by that name is registered here!'", + FALSE, mailman, 0, ch, TO_VICT); + return; + } + act("$n starts to write some mail.", TRUE, ch, 0, 0, TO_ROOM); + snprintf(buf, sizeof(buf), "$n tells you, 'I'll take %d coins for the stamp.'\r\n" + "$n tells you, 'Write your message, use @ on a new line when done.'", + STAMP_PRICE); + + act(buf, FALSE, mailman, 0, ch, TO_VICT); + GET_GOLD(ch) -= STAMP_PRICE; + SET_BIT(PLR_FLAGS(ch), PLR_MAILING); /* string_write() sets writing. */ + + /* Start writing! */ + CREATE(mailwrite, char *, 1); + string_write(ch->desc, mailwrite, MAX_MAIL_SIZE, recipient, NULL); +} + + +void postmaster_check_mail(struct char_data *ch, struct char_data *mailman, + int cmd, char *arg) +{ + if (has_mail(GET_IDNUM(ch))) + act("$n tells you, 'You have mail waiting.'", FALSE, mailman, 0, ch, TO_VICT); + else + act("$n tells you, 'Sorry, you don't have any mail waiting.'", FALSE, mailman, 0, ch, TO_VICT); +} + + +void postmaster_receive_mail(struct char_data *ch, struct char_data *mailman, + int cmd, char *arg) +{ + char buf[256]; + struct obj_data *obj; + + if (!has_mail(GET_IDNUM(ch))) { + snprintf(buf, sizeof(buf), "$n tells you, 'Sorry, you don't have any mail waiting.'"); + act(buf, FALSE, mailman, 0, ch, TO_VICT); + return; + } + while (has_mail(GET_IDNUM(ch))) { + obj = create_obj(); + obj->item_number = NOTHING; + obj->name = strdup("mail paper letter"); + obj->short_description = strdup("a piece of mail"); + obj->description = strdup("Someone has left a piece of mail here."); + + GET_OBJ_TYPE(obj) = ITEM_NOTE; + GET_OBJ_WEAR(obj) = ITEM_WEAR_TAKE | ITEM_WEAR_HOLD; + GET_OBJ_WEIGHT(obj) = 1; + GET_OBJ_COST(obj) = 30; + GET_OBJ_RENT(obj) = 10; + obj->action_description = read_delete(GET_IDNUM(ch)); + + if (obj->action_description == NULL) + obj->action_description = + strdup("Mail system error - please report. Error #11.\r\n"); + + obj_to_char(obj, ch); + + act("$n gives you a piece of mail.", FALSE, mailman, 0, ch, TO_VICT); + act("$N gives $n a piece of mail.", FALSE, ch, 0, mailman, TO_ROOM); + } +} diff --git a/src/mail.h b/src/mail.h new file mode 100644 index 0000000..89e7a26 --- /dev/null +++ b/src/mail.h @@ -0,0 +1,108 @@ +/* ************************************************************************ +* File: mail.h Part of CircleMUD * +* Usage: header file for mail system * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/******* MUD MAIL SYSTEM HEADER FILE ********************** + *** written by Jeremy Elson (jelson@circlemud.org) *** + *********************************************************/ + +/* INSTALLATION INSTRUCTIONS in MAIL.C */ + +/* You can modify the following constants to fit your own MUD. */ + +/* minimum level a player must be to send mail */ +#define MIN_MAIL_LEVEL 2 + +/* # of gold coins required to send mail */ +#define STAMP_PRICE 150 + +/* Maximum size of mail in bytes (arbitrary) */ +#define MAX_MAIL_SIZE 4096 + +/* size of mail file allocation blocks */ +#define BLOCK_SIZE 100 + +/* + * NOTE: Make sure that your block size is big enough -- if not, + * HEADER_BLOCK_DATASIZE will end up negative. This is a bad thing. + * Check the define below to make sure it is >0 when choosing values + * for NAME_SIZE and BLOCK_SIZE. 100 is a nice round number for + * BLOCK_SIZE and is the default ... why bother trying to change it + * anyway? + * + * The mail system will always allocate disk space in chunks of size + * BLOCK_SIZE. + */ + +/* USER CHANGABLE DEFINES ABOVE ** +*************************************************************************** +** DON'T TOUCH DEFINES BELOW */ + +int scan_file(void); +int has_mail(long recipient); +void store_mail(long to, long from, char *message_pointer); +char *read_delete(long recipient); + + +#define HEADER_BLOCK (-1) +#define LAST_BLOCK (-2) +#define DELETED_BLOCK (-3) + +/* + * note: next_block is part of header_blk in a data block; we can't combine + * them here because we have to be able to differentiate a data block from a + * header block when booting mail system. + */ + +struct header_data_type { + long next_block; /* if header block, link to next block */ + long from; /* idnum of the mail's sender */ + long to; /* idnum of mail's recipient */ + time_t mail_time; /* when was the letter mailed? */ +}; + +/* size of the data part of a header block */ +#define HEADER_BLOCK_DATASIZE \ + (BLOCK_SIZE - sizeof(long) - sizeof(struct header_data_type) - sizeof(char)) + +/* size of the data part of a data block */ +#define DATA_BLOCK_DATASIZE (BLOCK_SIZE - sizeof(long) - sizeof(char)) + +/* note that an extra space is allowed in all string fields for the + terminating null character. */ + +struct header_block_type_d { + long block_type; /* is this a header or data block? */ + struct header_data_type header_data; /* other header data */ + char txt[HEADER_BLOCK_DATASIZE+1]; /* actual text plus 1 for null */ +}; + +struct data_block_type_d { + long block_type; /* -1 if header block, -2 if last data block + in mail, otherwise a link to the next */ + char txt[DATA_BLOCK_DATASIZE+1]; /* actual text plus 1 for null */ +}; + +typedef struct header_block_type_d header_block_type; +typedef struct data_block_type_d data_block_type; + +struct position_list_type_d { + long position; + struct position_list_type_d *next; +}; + +typedef struct position_list_type_d position_list_type; + +struct mail_index_type_d { + long recipient; /* who is this mail for? */ + position_list_type *list_start; /* list of mail positions */ + struct mail_index_type_d *next; /* link to next one */ +}; + +typedef struct mail_index_type_d mail_index_type; diff --git a/src/mobact.c b/src/mobact.c new file mode 100644 index 0000000..f6ecf1d --- /dev/null +++ b/src/mobact.c @@ -0,0 +1,283 @@ +/* ************************************************************************ +* File: mobact.c Part of CircleMUD * +* Usage: Functions for generating intelligent (?) behavior in mobiles * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "db.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "spells.h" +#include "constants.h" + + +/* external globals */ +extern int no_specials; + +/* external functions */ +ACMD(do_get); +ACMD(do_action); + +/* local functions */ +void mobile_activity(void); +void clearMemory(struct char_data *ch); +bool aggressive_mob_on_a_leash(struct char_data *slave, struct char_data *master, struct char_data *attack); + +#define MOB_AGGR_TO_ALIGN (MOB_AGGR_EVIL | MOB_AGGR_NEUTRAL | MOB_AGGR_GOOD) + +void mobile_activity(void) +{ + struct char_data *ch, *next_ch, *vict; + struct obj_data *obj, *best_obj; + int door, found, max; + memory_rec *names; + + for (ch = character_list; ch; ch = next_ch) { + next_ch = ch->next; + + if (!IS_MOB(ch)) + continue; + + /* Examine call for special procedure */ + if (MOB_FLAGGED(ch, MOB_SPEC) && !no_specials) { + if (mob_index[GET_MOB_RNUM(ch)].func == NULL) { + log("SYSERR: %s (#%d): Attempting to call non-existing mob function.", + GET_NAME(ch), GET_MOB_VNUM(ch)); + REMOVE_BIT(MOB_FLAGS(ch), MOB_SPEC); + } else { + char actbuf[MAX_INPUT_LENGTH] = ""; + if ((mob_index[GET_MOB_RNUM(ch)].func) (ch, ch, 0, actbuf)) + continue; /* go to next char */ + } + } + + /* If the mob has no specproc, do the default actions */ + if (FIGHTING(ch) || !AWAKE(ch)) + continue; + + /* Scavenger (picking up objects) */ + if (MOB_FLAGGED(ch, MOB_SCAVENGER)) + if (world[IN_ROOM(ch)].contents && !rand_number(0, 10)) { + max = 1; + best_obj = NULL; + for (obj = world[IN_ROOM(ch)].contents; obj; obj = obj->next_content) + if (CAN_GET_OBJ(ch, obj) && GET_OBJ_COST(obj) > max) { + best_obj = obj; + max = GET_OBJ_COST(obj); + } + if (best_obj != NULL) { + obj_from_room(best_obj); + obj_to_char(best_obj, ch); + act("$n gets $p.", FALSE, ch, best_obj, 0, TO_ROOM); + } + } + + /* Mob Movement */ + if (!MOB_FLAGGED(ch, MOB_SENTINEL) && (GET_POS(ch) == POS_STANDING) && + ((door = rand_number(0, 18)) < NUM_OF_DIRS) && CAN_GO(ch, door) && + !ROOM_FLAGGED(EXIT(ch, door)->to_room, ROOM_NOMOB | ROOM_DEATH) && + (!MOB_FLAGGED(ch, MOB_STAY_ZONE) || + (world[EXIT(ch, door)->to_room].zone == world[IN_ROOM(ch)].zone))) { + perform_move(ch, door, 1); + } + + /* Aggressive Mobs */ + if (MOB_FLAGGED(ch, MOB_AGGRESSIVE | MOB_AGGR_TO_ALIGN)) { + found = FALSE; + for (vict = world[IN_ROOM(ch)].people; vict && !found; vict = vict->next_in_room) { + if (IS_NPC(vict) || !CAN_SEE(ch, vict) || PRF_FLAGGED(vict, PRF_NOHASSLE)) + continue; + + if (MOB_FLAGGED(ch, MOB_WIMPY) && AWAKE(vict)) + continue; + + if (MOB_FLAGGED(ch, MOB_AGGRESSIVE ) || + (MOB_FLAGGED(ch, MOB_AGGR_EVIL ) && IS_EVIL(vict)) || + (MOB_FLAGGED(ch, MOB_AGGR_NEUTRAL) && IS_NEUTRAL(vict)) || + (MOB_FLAGGED(ch, MOB_AGGR_GOOD ) && IS_GOOD(vict))) { + + /* Can a master successfully control the charmed monster? */ + if (aggressive_mob_on_a_leash(ch, ch->master, vict)) + continue; + + hit(ch, vict, TYPE_UNDEFINED); + found = TRUE; + } + } + } + + /* Mob Memory */ + if (MOB_FLAGGED(ch, MOB_MEMORY) && MEMORY(ch)) { + found = FALSE; + for (vict = world[IN_ROOM(ch)].people; vict && !found; vict = vict->next_in_room) { + if (IS_NPC(vict) || !CAN_SEE(ch, vict) || PRF_FLAGGED(vict, PRF_NOHASSLE)) + continue; + + for (names = MEMORY(ch); names && !found; names = names->next) { + if (names->id != GET_IDNUM(vict)) + continue; + + /* Can a master successfully control the charmed monster? */ + if (aggressive_mob_on_a_leash(ch, ch->master, vict)) + continue; + + found = TRUE; + act("'Hey! You're the fiend that attacked me!!!', exclaims $n.", FALSE, ch, 0, 0, TO_ROOM); + hit(ch, vict, TYPE_UNDEFINED); + } + } + } + + /* + * Charmed Mob Rebellion + * + * In order to rebel, there need to be more charmed monsters + * than the person can feasibly control at a time. Then the + * mobiles have a chance based on the charisma of their leader. + * + * 1-4 = 0, 5-7 = 1, 8-10 = 2, 11-13 = 3, 14-16 = 4, 17-19 = 5, etc. + */ + if (AFF_FLAGGED(ch, AFF_CHARM) && ch->master && num_followers_charmed(ch->master) > (GET_CHA(ch->master) - 2) / 3) { + if (!aggressive_mob_on_a_leash(ch, ch->master, ch->master)) { + if (CAN_SEE(ch, ch->master) && !PRF_FLAGGED(ch->master, PRF_NOHASSLE)) + hit(ch, ch->master, TYPE_UNDEFINED); + stop_follower(ch); + } + } + + /* Helper Mobs */ + if (MOB_FLAGGED(ch, MOB_HELPER) && !AFF_FLAGGED(ch, AFF_BLIND | AFF_CHARM)) { + found = FALSE; + for (vict = world[IN_ROOM(ch)].people; vict && !found; vict = vict->next_in_room) { + if (ch == vict || !IS_NPC(vict) || !FIGHTING(vict)) + continue; + if (IS_NPC(FIGHTING(vict)) || ch == FIGHTING(vict)) + continue; + + act("$n jumps to the aid of $N!", FALSE, ch, 0, vict, TO_ROOM); + hit(ch, FIGHTING(vict), TYPE_UNDEFINED); + found = TRUE; + } + } + + /* Add new mobile actions here */ + + } /* end for() */ +} + + + +/* Mob Memory Routines */ + +/* make ch remember victim */ +void remember(struct char_data *ch, struct char_data *victim) +{ + memory_rec *tmp; + bool present = FALSE; + + if (!IS_NPC(ch) || IS_NPC(victim) || PRF_FLAGGED(victim, PRF_NOHASSLE)) + return; + + for (tmp = MEMORY(ch); tmp && !present; tmp = tmp->next) + if (tmp->id == GET_IDNUM(victim)) + present = TRUE; + + if (!present) { + CREATE(tmp, memory_rec, 1); + tmp->next = MEMORY(ch); + tmp->id = GET_IDNUM(victim); + MEMORY(ch) = tmp; + } +} + + +/* make ch forget victim */ +void forget(struct char_data *ch, struct char_data *victim) +{ + memory_rec *curr, *prev = NULL; + + if (!(curr = MEMORY(ch))) + return; + + while (curr && curr->id != GET_IDNUM(victim)) { + prev = curr; + curr = curr->next; + } + + if (!curr) + return; /* person wasn't there at all. */ + + if (curr == MEMORY(ch)) + MEMORY(ch) = curr->next; + else + prev->next = curr->next; + + free(curr); +} + + +/* erase ch's memory */ +void clearMemory(struct char_data *ch) +{ + memory_rec *curr, *next; + + curr = MEMORY(ch); + + while (curr) { + next = curr->next; + free(curr); + curr = next; + } + + MEMORY(ch) = NULL; +} + + +/* + * An aggressive mobile wants to attack something. If + * they're under the influence of mind altering PC, then + * see if their master can talk them out of it, eye them + * down, or otherwise intimidate the slave. + */ +bool aggressive_mob_on_a_leash(struct char_data *slave, struct char_data *master, struct char_data *attack) +{ + static int snarl_cmd; + int dieroll; + + if (!master || !AFF_FLAGGED(slave, AFF_CHARM)) + return (FALSE); + + if (!snarl_cmd) + snarl_cmd = find_command("snarl"); + + /* Sit. Down boy! HEEEEeeeel! */ + dieroll = rand_number(1, 20); + if (dieroll != 1 && (dieroll == 20 || dieroll > 10 - GET_CHA(master) + GET_INT(slave))) { + if (snarl_cmd > 0 && attack && !rand_number(0, 3)) { + char victbuf[MAX_NAME_LENGTH + 1]; + + strncpy(victbuf, GET_NAME(attack), sizeof(victbuf)); /* strncpy: OK */ + victbuf[sizeof(victbuf) - 1] = '\0'; + + do_action(slave, victbuf, snarl_cmd, 0); + } + + /* Success! But for how long? Hehe. */ + return (TRUE); + } + + /* So sorry, now you're a player killer... Tsk tsk. */ + return (FALSE); +} + diff --git a/src/modify.c b/src/modify.c new file mode 100644 index 0000000..3e1c420 --- /dev/null +++ b/src/modify.c @@ -0,0 +1,442 @@ +/* ************************************************************************ +* File: modify.c Part of CircleMUD * +* Usage: Run-time modification of game variables * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "comm.h" +#include "spells.h" +#include "mail.h" +#include "boards.h" + +void show_string(struct descriptor_data *d, char *input); + +extern struct spell_info_type spell_info[]; +extern const char *MENU; +extern const char *unused_spellname; /* spell_parser.c */ + +/* local functions */ +void smash_tilde(char *str); +ACMD(do_skillset); +char *next_page(char *str); +int count_pages(char *str); +void paginate_string(char *str, struct descriptor_data *d); + +const char *string_fields[] = +{ + "name", + "short", + "long", + "description", + "title", + "delete-description", + "\n" +}; + + +/* maximum length for text field x+1 */ +int length[] = +{ + 15, + 60, + 256, + 240, + 60 +}; + + +/* ************************************************************************ +* modification of malloc'ed strings * +************************************************************************ */ + +/* + * Put '#if 1' here to erase ~, or roll your own method. A common idea + * is smash/show tilde to convert the tilde to another innocuous character + * to save and then back to display it. Whatever you do, at least keep the + * function around because other MUD packages use it, like mudFTP. + * -gg 9/9/98 + */ +void smash_tilde(char *str) +{ +#if 0 + /* + * Erase any ~'s inserted by people in the editor. This prevents anyone + * using online creation from causing parse errors in the world files. + * Derived from an idea by Sammy <samedi@dhc.net> (who happens to like + * his tildes thank you very much.), -gg 2/20/98 + */ + while ((str = strchr(str, '~')) != NULL) + *str = ' '; +#endif +} + +/* + * Basic API function to start writing somewhere. + * + * 'data' isn't used in stock CircleMUD but you can use it to pass whatever + * else you may want through it. The improved editor patch when updated + * could use it to pass the old text buffer, for instance. + */ +void string_write(struct descriptor_data *d, char **writeto, size_t len, long mailto, void *data) +{ + if (d->character && !IS_NPC(d->character)) + SET_BIT(PLR_FLAGS(d->character), PLR_WRITING); + + if (data) + mudlog(BRF, LVL_IMMORT, TRUE, "SYSERR: string_write: I don't understand special data."); + + d->str = writeto; + d->max_str = len; + d->mail_to = mailto; +} + +/* Add user input to the 'current' string (as defined by d->str) */ +void string_add(struct descriptor_data *d, char *str) +{ + int terminator; + + /* determine if this is the terminal string, and truncate if so */ + /* changed to only accept '@' at the beginning of line - J. Elson 1/17/94 */ + + delete_doubledollar(str); + + if ((terminator = (*str == '@'))) + *str = '\0'; + + smash_tilde(str); + + if (!(*d->str)) { + if (strlen(str) + 3 > d->max_str) { /* \r\n\0 */ + send_to_char(d->character, "String too long - Truncated.\r\n"); + strcpy(&str[d->max_str - 3], "\r\n"); /* strcpy: OK (size checked) */ + CREATE(*d->str, char, d->max_str); + strcpy(*d->str, str); /* strcpy: OK (size checked) */ + terminator = 1; + } else { + CREATE(*d->str, char, strlen(str) + 3); + strcpy(*d->str, str); /* strcpy: OK (size checked) */ + } + } else { + if (strlen(str) + strlen(*d->str) + 3 > d->max_str) { /* \r\n\0 */ + send_to_char(d->character, "String too long. Last line skipped.\r\n"); + terminator = 1; + } else { + RECREATE(*d->str, char, strlen(*d->str) + strlen(str) + 3); /* \r\n\0 */ + strcat(*d->str, str); /* strcat: OK (size precalculated) */ + } + } + + if (terminator) { + if (STATE(d) == CON_PLAYING && (PLR_FLAGGED(d->character, PLR_MAILING))) { + store_mail(d->mail_to, GET_IDNUM(d->character), *d->str); + d->mail_to = 0; + free(*d->str); + free(d->str); + write_to_output(d, "Message sent!\r\n"); + if (!IS_NPC(d->character)) + REMOVE_BIT(PLR_FLAGS(d->character), PLR_MAILING | PLR_WRITING); + } + d->str = NULL; + + if (d->mail_to >= BOARD_MAGIC) { + Board_save_board(d->mail_to - BOARD_MAGIC); + d->mail_to = 0; + } + if (STATE(d) == CON_EXDESC) { + write_to_output(d, "%s", MENU); + STATE(d) = CON_MENU; + } + if (STATE(d) == CON_PLAYING && d->character && !IS_NPC(d->character)) + REMOVE_BIT(PLR_FLAGS(d->character), PLR_WRITING); + } else + strcat(*d->str, "\r\n"); /* strcat: OK (size checked) */ +} + + + +/* ********************************************************************** +* Modification of character skills * +********************************************************************** */ + +ACMD(do_skillset) +{ + struct char_data *vict; + char name[MAX_INPUT_LENGTH]; + char buf[MAX_INPUT_LENGTH], help[MAX_STRING_LENGTH]; + int skill, value, i, qend; + + argument = one_argument(argument, name); + + if (!*name) { /* no arguments. print an informative text */ + send_to_char(ch, "Syntax: skillset <name> '<skill>' <value>\r\n" + "Skill being one of the following:\r\n"); + for (qend = 0, i = 0; i <= TOP_SPELL_DEFINE; i++) { + if (spell_info[i].name == unused_spellname) /* This is valid. */ + continue; + send_to_char(ch, "%18s", spell_info[i].name); + if (qend++ % 4 == 3) + send_to_char(ch, "\r\n"); + } + if (qend % 4 != 0) + send_to_char(ch, "\r\n"); + return; + } + + if (!(vict = get_char_vis(ch, name, NULL, FIND_CHAR_WORLD))) { + send_to_char(ch, "%s", NOPERSON); + return; + } + skip_spaces(&argument); + + /* If there is no chars in argument */ + if (!*argument) { + send_to_char(ch, "Skill name expected.\r\n"); + return; + } + if (*argument != '\'') { + send_to_char(ch, "Skill must be enclosed in: ''\r\n"); + return; + } + /* Locate the last quote and lowercase the magic words (if any) */ + + for (qend = 1; argument[qend] && argument[qend] != '\''; qend++) + argument[qend] = LOWER(argument[qend]); + + if (argument[qend] != '\'') { + send_to_char(ch, "Skill must be enclosed in: ''\r\n"); + return; + } + strcpy(help, (argument + 1)); /* strcpy: OK (MAX_INPUT_LENGTH <= MAX_STRING_LENGTH) */ + help[qend - 1] = '\0'; + if ((skill = find_skill_num(help)) <= 0) { + send_to_char(ch, "Unrecognized skill.\r\n"); + return; + } + argument += qend + 1; /* skip to next parameter */ + argument = one_argument(argument, buf); + + if (!*buf) { + send_to_char(ch, "Learned value expected.\r\n"); + return; + } + value = atoi(buf); + if (value < 0) { + send_to_char(ch, "Minimum value for learned is 0.\r\n"); + return; + } + if (value > 100) { + send_to_char(ch, "Max value for learned is 100.\r\n"); + return; + } + if (IS_NPC(vict)) { + send_to_char(ch, "You can't set NPC skills.\r\n"); + return; + } + + /* + * find_skill_num() guarantees a valid spell_info[] index, or -1, and we + * checked for the -1 above so we are safe here. + */ + SET_SKILL(vict, skill, value); + mudlog(BRF, LVL_IMMORT, TRUE, "%s changed %s's %s to %d.", GET_NAME(ch), GET_NAME(vict), spell_info[skill].name, value); + send_to_char(ch, "You change %s's %s to %d.\r\n", GET_NAME(vict), spell_info[skill].name, value); +} + + + +/********************************************************************* +* New Pagination Code +* Michael Buselli submitted the following code for an enhanced pager +* for CircleMUD. All functions below are his. --JE 8 Mar 96 +* +*********************************************************************/ + +/* Traverse down the string until the begining of the next page has been + * reached. Return NULL if this is the last page of the string. + */ +char *next_page(char *str) +{ + int col = 1, line = 1, spec_code = FALSE; + + for (;; str++) { + /* If end of string, return NULL. */ + if (*str == '\0') + return (NULL); + + /* If we're at the start of the next page, return this fact. */ + else if (line > PAGE_LENGTH) + return (str); + + /* Check for the begining of an ANSI color code block. */ + else if (*str == '\x1B' && !spec_code) + spec_code = TRUE; + + /* Check for the end of an ANSI color code block. */ + else if (*str == 'm' && spec_code) + spec_code = FALSE; + + /* Check for everything else. */ + else if (!spec_code) { + /* Carriage return puts us in column one. */ + if (*str == '\r') + col = 1; + /* Newline puts us on the next line. */ + else if (*str == '\n') + line++; + + /* We need to check here and see if we are over the page width, + * and if so, compensate by going to the begining of the next line. + */ + else if (col++ > PAGE_WIDTH) { + col = 1; + line++; + } + } + } +} + + +/* Function that returns the number of pages in the string. */ +int count_pages(char *str) +{ + int pages; + + for (pages = 1; (str = next_page(str)); pages++); + return (pages); +} + + +/* This function assigns all the pointers for showstr_vector for the + * page_string function, after showstr_vector has been allocated and + * showstr_count set. + */ +void paginate_string(char *str, struct descriptor_data *d) +{ + int i; + + if (d->showstr_count) + *(d->showstr_vector) = str; + + for (i = 1; i < d->showstr_count && str; i++) + str = d->showstr_vector[i] = next_page(str); + + d->showstr_page = 0; +} + + +/* The call that gets the paging ball rolling... */ +void page_string(struct descriptor_data *d, char *str, int keep_internal) +{ + char actbuf[MAX_INPUT_LENGTH] = ""; + + if (!d) + return; + + if (!str || !*str) + return; + + d->showstr_count = count_pages(str); + CREATE(d->showstr_vector, char *, d->showstr_count); + + if (keep_internal) { + d->showstr_head = strdup(str); + paginate_string(d->showstr_head, d); + } else + paginate_string(str, d); + + show_string(d, actbuf); +} + + +/* The call that displays the next page. */ +void show_string(struct descriptor_data *d, char *input) +{ + char buffer[MAX_STRING_LENGTH], buf[MAX_INPUT_LENGTH]; + int diff; + + any_one_arg(input, buf); + + /* Q is for quit. :) */ + if (LOWER(*buf) == 'q') { + free(d->showstr_vector); + d->showstr_vector = NULL; + d->showstr_count = 0; + if (d->showstr_head) { + free(d->showstr_head); + d->showstr_head = NULL; + } + return; + } + /* R is for refresh, so back up one page internally so we can display + * it again. + */ + else if (LOWER(*buf) == 'r') + d->showstr_page = MAX(0, d->showstr_page - 1); + + /* B is for back, so back up two pages internally so we can display the + * correct page here. + */ + else if (LOWER(*buf) == 'b') + d->showstr_page = MAX(0, d->showstr_page - 2); + + /* Feature to 'goto' a page. Just type the number of the page and you + * are there! + */ + else if (isdigit(*buf)) + d->showstr_page = MAX(0, MIN(atoi(buf) - 1, d->showstr_count - 1)); + + else if (*buf) { + send_to_char(d->character, "Valid commands while paging are RETURN, Q, R, B, or a numeric value.\r\n"); + return; + } + /* If we're displaying the last page, just send it to the character, and + * then free up the space we used. + */ + if (d->showstr_page + 1 >= d->showstr_count) { + send_to_char(d->character, "%s", d->showstr_vector[d->showstr_page]); + free(d->showstr_vector); + d->showstr_vector = NULL; + d->showstr_count = 0; + if (d->showstr_head) { + free(d->showstr_head); + d->showstr_head = NULL; + } + } + /* Or if we have more to show.... */ + else { + diff = d->showstr_vector[d->showstr_page + 1] - d->showstr_vector[d->showstr_page]; + if (diff > MAX_STRING_LENGTH - 3) /* 3=\r\n\0 */ + diff = MAX_STRING_LENGTH - 3; + strncpy(buffer, d->showstr_vector[d->showstr_page], diff); /* strncpy: OK (size truncated above) */ + /* + * Fix for prompt overwriting last line in compact mode submitted by + * Peter Ajamian <peter@pajamian.dhs.org> on 04/21/2001 + */ + if (buffer[diff - 2] == '\r' && buffer[diff - 1]=='\n') + buffer[diff] = '\0'; + else if (buffer[diff - 2] == '\n' && buffer[diff - 1] == '\r') + /* This is backwards. Fix it. */ + strcpy(buffer + diff - 2, "\r\n"); /* strcpy: OK (size checked) */ + else if (buffer[diff - 1] == '\r' || buffer[diff - 1] == '\n') + /* Just one of \r\n. Overwrite it. */ + strcpy(buffer + diff - 1, "\r\n"); /* strcpy: OK (size checked) */ + else + /* Tack \r\n onto the end to fix bug with prompt overwriting last line. */ + strcpy(buffer + diff, "\r\n"); /* strcpy: OK (size checked) */ + send_to_char(d->character, "%s", buffer); + d->showstr_page++; + } +} diff --git a/src/objsave.c b/src/objsave.c new file mode 100644 index 0000000..f201591 --- /dev/null +++ b/src/objsave.c @@ -0,0 +1,1166 @@ +/* ************************************************************************ +* File: objsave.c Part of CircleMUD * +* Usage: loading/saving player objects for rent and crash-save * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "comm.h" +#include "handler.h" +#include "db.h" +#include "interpreter.h" +#include "utils.h" +#include "spells.h" + +/* these factors should be unique integers */ +#define RENT_FACTOR 1 +#define CRYO_FACTOR 4 + +#define LOC_INVENTORY 0 +#define MAX_BAG_ROWS 5 + +/* external variables */ +extern struct player_index_element *player_table; +extern int top_of_p_table; +extern int rent_file_timeout, crash_file_timeout; +extern int free_rent; +extern int min_rent_cost; +extern int max_obj_save; /* change in config.c */ + +/* Extern functions */ +ACMD(do_action); +ACMD(do_tell); +SPECIAL(receptionist); +SPECIAL(cryogenicist); +int invalid_class(struct char_data *ch, struct obj_data *obj); + +/* local functions */ +void Crash_extract_norent_eq(struct char_data *ch); +void auto_equip(struct char_data *ch, struct obj_data *obj, int location); +int Crash_offer_rent(struct char_data *ch, struct char_data *recep, int display, int factor); +int Crash_report_unrentables(struct char_data *ch, struct char_data *recep, struct obj_data *obj); +void Crash_report_rent(struct char_data *ch, struct char_data *recep, struct obj_data *obj, long *cost, long *nitems, int display, int factor); +struct obj_data *Obj_from_store(struct obj_file_elem object, int *location); +int Obj_to_store(struct obj_data *obj, FILE *fl, int location); +void update_obj_file(void); +int Crash_write_rentcode(struct char_data *ch, FILE *fl, struct rent_info *rent); +int gen_receptionist(struct char_data *ch, struct char_data *recep, int cmd, char *arg, int mode); +int Crash_save(struct obj_data *obj, FILE *fp, int location); +void Crash_rent_deadline(struct char_data *ch, struct char_data *recep, long cost); +void Crash_restore_weight(struct obj_data *obj); +void Crash_extract_objs(struct obj_data *obj); +int Crash_is_unrentable(struct obj_data *obj); +void Crash_extract_norents(struct obj_data *obj); +void Crash_extract_expensive(struct obj_data *obj); +void Crash_calculate_rent(struct obj_data *obj, int *cost); +void Crash_rentsave(struct char_data *ch, int cost); +void Crash_cryosave(struct char_data *ch, int cost); + + +struct obj_data *Obj_from_store(struct obj_file_elem object, int *location) +{ + struct obj_data *obj; + obj_rnum itemnum; + int j; + + *location = 0; + if ((itemnum = real_object(object.item_number)) == NOTHING) + return (NULL); + + obj = read_object(itemnum, REAL); +#if USE_AUTOEQ + *location = object.location; +#endif + GET_OBJ_VAL(obj, 0) = object.value[0]; + GET_OBJ_VAL(obj, 1) = object.value[1]; + GET_OBJ_VAL(obj, 2) = object.value[2]; + GET_OBJ_VAL(obj, 3) = object.value[3]; + GET_OBJ_EXTRA(obj) = object.extra_flags; + GET_OBJ_WEIGHT(obj) = object.weight; + GET_OBJ_TIMER(obj) = object.timer; + GET_OBJ_AFFECT(obj) = object.bitvector; + + for (j = 0; j < MAX_OBJ_AFFECT; j++) + obj->affected[j] = object.affected[j]; + + return (obj); +} + + + +int Obj_to_store(struct obj_data *obj, FILE *fl, int location) +{ + int j; + struct obj_file_elem object; + + object.item_number = GET_OBJ_VNUM(obj); +#if USE_AUTOEQ + object.location = location; +#endif + object.value[0] = GET_OBJ_VAL(obj, 0); + object.value[1] = GET_OBJ_VAL(obj, 1); + object.value[2] = GET_OBJ_VAL(obj, 2); + object.value[3] = GET_OBJ_VAL(obj, 3); + object.extra_flags = GET_OBJ_EXTRA(obj); + object.weight = GET_OBJ_WEIGHT(obj); + object.timer = GET_OBJ_TIMER(obj); + object.bitvector = GET_OBJ_AFFECT(obj); + for (j = 0; j < MAX_OBJ_AFFECT; j++) + object.affected[j] = obj->affected[j]; + + if (fwrite(&object, sizeof(struct obj_file_elem), 1, fl) < 1) { + perror("SYSERR: error writing object in Obj_to_store"); + return (0); + } + return (1); +} + +/* + * AutoEQ by Burkhard Knopf <burkhard.knopf@informatik.tu-clausthal.de> + */ +void auto_equip(struct char_data *ch, struct obj_data *obj, int location) +{ + int j; + + /* Lots of checks... */ + if (location > 0) { /* Was wearing it. */ + switch (j = (location - 1)) { + case WEAR_LIGHT: + break; + case WEAR_FINGER_R: + case WEAR_FINGER_L: + if (!CAN_WEAR(obj, ITEM_WEAR_FINGER)) /* not fitting :( */ + location = LOC_INVENTORY; + break; + case WEAR_NECK_1: + case WEAR_NECK_2: + if (!CAN_WEAR(obj, ITEM_WEAR_NECK)) + location = LOC_INVENTORY; + break; + case WEAR_BODY: + if (!CAN_WEAR(obj, ITEM_WEAR_BODY)) + location = LOC_INVENTORY; + break; + case WEAR_HEAD: + if (!CAN_WEAR(obj, ITEM_WEAR_HEAD)) + location = LOC_INVENTORY; + break; + case WEAR_LEGS: + if (!CAN_WEAR(obj, ITEM_WEAR_LEGS)) + location = LOC_INVENTORY; + break; + case WEAR_FEET: + if (!CAN_WEAR(obj, ITEM_WEAR_FEET)) + location = LOC_INVENTORY; + break; + case WEAR_HANDS: + if (!CAN_WEAR(obj, ITEM_WEAR_HANDS)) + location = LOC_INVENTORY; + break; + case WEAR_ARMS: + if (!CAN_WEAR(obj, ITEM_WEAR_ARMS)) + location = LOC_INVENTORY; + break; + case WEAR_SHIELD: + if (!CAN_WEAR(obj, ITEM_WEAR_SHIELD)) + location = LOC_INVENTORY; + break; + case WEAR_ABOUT: + if (!CAN_WEAR(obj, ITEM_WEAR_ABOUT)) + location = LOC_INVENTORY; + break; + case WEAR_WAIST: + if (!CAN_WEAR(obj, ITEM_WEAR_WAIST)) + location = LOC_INVENTORY; + break; + case WEAR_WRIST_R: + case WEAR_WRIST_L: + if (!CAN_WEAR(obj, ITEM_WEAR_WRIST)) + location = LOC_INVENTORY; + break; + case WEAR_WIELD: + if (!CAN_WEAR(obj, ITEM_WEAR_WIELD)) + location = LOC_INVENTORY; + break; + case WEAR_HOLD: + if (CAN_WEAR(obj, ITEM_WEAR_HOLD)) + break; + if (IS_WARRIOR(ch) && CAN_WEAR(obj, ITEM_WEAR_WIELD) && GET_OBJ_TYPE(obj) == ITEM_WEAPON) + break; + location = LOC_INVENTORY; + break; + default: + location = LOC_INVENTORY; + } + + if (location > 0) { /* Wearable. */ + if (!GET_EQ(ch,j)) { + /* + * Check the characters's alignment to prevent them from being + * zapped through the auto-equipping. + */ + if (invalid_align(ch, obj) || invalid_class(ch, obj)) + location = LOC_INVENTORY; + else + equip_char(ch, obj, j); + } else { /* Oops, saved a player with double equipment? */ + mudlog(BRF, LVL_IMMORT, TRUE, "SYSERR: autoeq: '%s' already equipped in position %d.", GET_NAME(ch), location); + location = LOC_INVENTORY; + } + } + } + if (location <= 0) /* Inventory */ + obj_to_char(obj, ch); +} + + +int Crash_delete_file(char *name) +{ + char filename[50]; + FILE *fl; + + if (!get_filename(filename, sizeof(filename), CRASH_FILE, name)) + return (0); + if (!(fl = fopen(filename, "rb"))) { + if (errno != ENOENT) /* if it fails but NOT because of no file */ + log("SYSERR: deleting crash file %s (1): %s", filename, strerror(errno)); + return (0); + } + fclose(fl); + + /* if it fails, NOT because of no file */ + if (remove(filename) < 0 && errno != ENOENT) + log("SYSERR: deleting crash file %s (2): %s", filename, strerror(errno)); + + return (1); +} + + +int Crash_delete_crashfile(struct char_data *ch) +{ + char filename[MAX_INPUT_LENGTH]; + struct rent_info rent; + int numread; + FILE *fl; + + if (!get_filename(filename, sizeof(filename), CRASH_FILE, GET_NAME(ch))) + return (0); + if (!(fl = fopen(filename, "rb"))) { + if (errno != ENOENT) /* if it fails, NOT because of no file */ + log("SYSERR: checking for crash file %s (3): %s", filename, strerror(errno)); + return (0); + } + numread = fread(&rent, sizeof(struct rent_info), 1, fl); + fclose(fl); + + if (numread == 0) + return (0); + + if (rent.rentcode == RENT_CRASH) + Crash_delete_file(GET_NAME(ch)); + + return (1); +} + + +int Crash_clean_file(char *name) +{ + char filename[MAX_STRING_LENGTH]; + struct rent_info rent; + int numread; + FILE *fl; + + if (!get_filename(filename, sizeof(filename), CRASH_FILE, name)) + return (0); + /* + * open for write so that permission problems will be flagged now, at boot + * time. + */ + if (!(fl = fopen(filename, "r+b"))) { + if (errno != ENOENT) /* if it fails, NOT because of no file */ + log("SYSERR: OPENING OBJECT FILE %s (4): %s", filename, strerror(errno)); + return (0); + } + numread = fread(&rent, sizeof(struct rent_info), 1, fl); + fclose(fl); + + if (numread == 0) + return (0); + + if ((rent.rentcode == RENT_CRASH) || + (rent.rentcode == RENT_FORCED) || (rent.rentcode == RENT_TIMEDOUT)) { + if (rent.time < time(0) - (crash_file_timeout * SECS_PER_REAL_DAY)) { + const char *filetype; + + Crash_delete_file(name); + switch (rent.rentcode) { + case RENT_CRASH: + filetype = "crash"; + break; + case RENT_FORCED: + filetype = "forced rent"; + break; + case RENT_TIMEDOUT: + filetype = "idlesave"; + break; + default: + filetype = "UNKNOWN!"; + break; + } + log(" Deleting %s's %s file.", name, filetype); + return (1); + } + /* Must retrieve rented items w/in 30 days */ + } else if (rent.rentcode == RENT_RENTED) + if (rent.time < time(0) - (rent_file_timeout * SECS_PER_REAL_DAY)) { + Crash_delete_file(name); + log(" Deleting %s's rent file.", name); + return (1); + } + return (0); +} + + +void update_obj_file(void) +{ + int i; + + for (i = 0; i <= top_of_p_table; i++) + if (*player_table[i].name) + Crash_clean_file(player_table[i].name); +} + + +void Crash_listrent(struct char_data *ch, char *name) +{ + FILE *fl; + char filename[MAX_INPUT_LENGTH]; + struct obj_file_elem object; + struct obj_data *obj; + struct rent_info rent; + int numread; + + if (!get_filename(filename, sizeof(filename), CRASH_FILE, name)) + return; + if (!(fl = fopen(filename, "rb"))) { + send_to_char(ch, "%s has no rent file.\r\n", name); + return; + } + numread = fread(&rent, sizeof(struct rent_info), 1, fl); + + /* Oops, can't get the data, punt. */ + if (numread == 0) { + send_to_char(ch, "Error reading rent information.\r\n"); + fclose(fl); + return; + } + + send_to_char(ch, "%s\r\n", filename); + switch (rent.rentcode) { + case RENT_RENTED: + send_to_char(ch, "Rent\r\n"); + break; + case RENT_CRASH: + send_to_char(ch, "Crash\r\n"); + break; + case RENT_CRYO: + send_to_char(ch, "Cryo\r\n"); + break; + case RENT_TIMEDOUT: + case RENT_FORCED: + send_to_char(ch, "TimedOut\r\n"); + break; + default: + send_to_char(ch, "Undef\r\n"); + break; + } + while (!feof(fl)) { + fread(&object, sizeof(struct obj_file_elem), 1, fl); + if (ferror(fl)) { + fclose(fl); + return; + } + if (!feof(fl)) + if (real_object(object.item_number) != NOTHING) { + obj = read_object(object.item_number, VIRTUAL); +#if USE_AUTOEQ + send_to_char(ch, " [%5d] (%5dau) <%2d> %-20s\r\n", + object.item_number, GET_OBJ_RENT(obj), + object.location, obj->short_description); +#else + send_to_char(ch, " [%5d] (%5dau) %-20s\r\n", + object.item_number, GET_OBJ_RENT(obj), + obj->short_description); +#endif + extract_obj(obj); + } + } + fclose(fl); +} + + +int Crash_write_rentcode(struct char_data *ch, FILE *fl, struct rent_info *rent) +{ + if (fwrite(rent, sizeof(struct rent_info), 1, fl) < 1) { + perror("SYSERR: writing rent code"); + return (0); + } + return (1); +} + + +/* + * Return values: + * 0 - successful load, keep char in rent room. + * 1 - load failure or load of crash items -- put char in temple. + * 2 - rented equipment lost (no $) + */ +int Crash_load(struct char_data *ch) +{ + FILE *fl; + char filename[MAX_STRING_LENGTH]; + struct obj_file_elem object; + struct rent_info rent; + int cost, orig_rent_code, num_objs = 0, j; + float num_of_days; + /* AutoEQ addition. */ + struct obj_data *obj, *obj2, *cont_row[MAX_BAG_ROWS]; + int location; + + /* Empty all of the container lists (you never know ...) */ + for (j = 0; j < MAX_BAG_ROWS; j++) + cont_row[j] = NULL; + + if (!get_filename(filename, sizeof(filename), CRASH_FILE, GET_NAME(ch))) + return (1); + if (!(fl = fopen(filename, "r+b"))) { + if (errno != ENOENT) { /* if it fails, NOT because of no file */ + log("SYSERR: READING OBJECT FILE %s (5): %s", filename, strerror(errno)); + send_to_char(ch, + "\r\n********************* NOTICE *********************\r\n" + "There was a problem loading your objects from disk.\r\n" + "Contact a God for assistance.\r\n"); + } + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s entering game with no equipment.", GET_NAME(ch)); + return (1); + } + if (!feof(fl)) + fread(&rent, sizeof(struct rent_info), 1, fl); + else { + log("SYSERR: Crash_load: %s's rent file was empty!", GET_NAME(ch)); + return (1); + } + + if (rent.rentcode == RENT_RENTED || rent.rentcode == RENT_TIMEDOUT) { + num_of_days = (float) (time(0) - rent.time) / SECS_PER_REAL_DAY; + cost = (int) (rent.net_cost_per_diem * num_of_days); + if (cost > GET_GOLD(ch) + GET_BANK_GOLD(ch)) { + fclose(fl); + mudlog(BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s entering game, rented equipment lost (no $).", GET_NAME(ch)); + Crash_crashsave(ch); + return (2); + } else { + GET_BANK_GOLD(ch) -= MAX(cost - GET_GOLD(ch), 0); + GET_GOLD(ch) = MAX(GET_GOLD(ch) - cost, 0); + save_char(ch); + } + } + switch (orig_rent_code = rent.rentcode) { + case RENT_RENTED: + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s un-renting and entering game.", GET_NAME(ch)); + break; + case RENT_CRASH: + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s retrieving crash-saved items and entering game.", GET_NAME(ch)); + break; + case RENT_CRYO: + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s un-cryo'ing and entering game.", GET_NAME(ch)); + break; + case RENT_FORCED: + case RENT_TIMEDOUT: + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s retrieving force-saved items and entering game.", GET_NAME(ch)); + break; + default: + mudlog(BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, + "SYSERR: %s entering game with undefined rent code %d.", GET_NAME(ch), rent.rentcode); + break; + } + + while (!feof(fl)) { + fread(&object, sizeof(struct obj_file_elem), 1, fl); + if (ferror(fl)) { + perror("SYSERR: Reading crash file: Crash_load"); + fclose(fl); + return (1); + } + if (feof(fl)) + break; + ++num_objs; + if ((obj = Obj_from_store(object, &location)) == NULL) + continue; + + auto_equip(ch, obj, location); + /* + * What to do with a new loaded item: + * + * If there's a list with location less than 1 below this, then its + * container has disappeared from the file so we put the list back into + * the character's inventory. (Equipped items are 0 here.) + * + * If there's a list of contents with location of 1 below this, then we + * check if it is a container: + * - Yes: Get it from the character, fill it, and give it back so we + * have the correct weight. + * - No: The container is missing so we put everything back into the + * character's inventory. + * + * For items with negative location, we check if there is already a list + * of contents with the same location. If so, we put it there and if not, + * we start a new list. + * + * Since location for contents is < 0, the list indices are switched to + * non-negative. + * + * This looks ugly, but it works. + */ + if (location > 0) { /* Equipped */ + for (j = MAX_BAG_ROWS - 1; j > 0; j--) { + if (cont_row[j]) { /* No container, back to inventory. */ + for (; cont_row[j]; cont_row[j] = obj2) { + obj2 = cont_row[j]->next_content; + obj_to_char(cont_row[j], ch); + } + cont_row[j] = NULL; + } + } + if (cont_row[0]) { /* Content list existing. */ + if (GET_OBJ_TYPE(obj) == ITEM_CONTAINER) { + /* Remove object, fill it, equip again. */ + obj = unequip_char(ch, location - 1); + obj->contains = NULL; /* Should be NULL anyway, but just in case. */ + for (; cont_row[0]; cont_row[0] = obj2) { + obj2 = cont_row[0]->next_content; + obj_to_obj(cont_row[0], obj); + } + equip_char(ch, obj, location - 1); + } else { /* Object isn't container, empty the list. */ + for (; cont_row[0]; cont_row[0] = obj2) { + obj2 = cont_row[0]->next_content; + obj_to_char(cont_row[0], ch); + } + cont_row[0] = NULL; + } + } + } else { /* location <= 0 */ + for (j = MAX_BAG_ROWS - 1; j > -location; j--) { + if (cont_row[j]) { /* No container, back to inventory. */ + for (; cont_row[j]; cont_row[j] = obj2) { + obj2 = cont_row[j]->next_content; + obj_to_char(cont_row[j], ch); + } + cont_row[j] = NULL; + } + } + if (j == -location && cont_row[j]) { /* Content list exists. */ + if (GET_OBJ_TYPE(obj) == ITEM_CONTAINER) { + /* Take the item, fill it, and give it back. */ + obj_from_char(obj); + obj->contains = NULL; + for (; cont_row[j]; cont_row[j] = obj2) { + obj2 = cont_row[j]->next_content; + obj_to_obj(cont_row[j], obj); + } + obj_to_char(obj, ch); /* Add to inventory first. */ + } else { /* Object isn't container, empty content list. */ + for (; cont_row[j]; cont_row[j] = obj2) { + obj2 = cont_row[j]->next_content; + obj_to_char(cont_row[j], ch); + } + cont_row[j] = NULL; + } + } + if (location < 0 && location >= -MAX_BAG_ROWS) { + /* + * Let the object be part of the content list but put it at the + * list's end. Thus having the items in the same order as before + * the character rented. + */ + obj_from_char(obj); + if ((obj2 = cont_row[-location - 1]) != NULL) { + while (obj2->next_content) + obj2 = obj2->next_content; + obj2->next_content = obj; + } else + cont_row[-location - 1] = obj; + } + } + } + + /* Little hoarding check. -gg 3/1/98 */ + mudlog(NRM, MAX(GET_INVIS_LEV(ch), LVL_GOD), TRUE, "%s (level %d) has %d object%s (max %d).", + GET_NAME(ch), GET_LEVEL(ch), num_objs, num_objs != 1 ? "s" : "", max_obj_save); + + /* turn this into a crash file by re-writing the control block */ + rent.rentcode = RENT_CRASH; + rent.time = time(0); + rewind(fl); + Crash_write_rentcode(ch, fl, &rent); + + fclose(fl); + + if ((orig_rent_code == RENT_RENTED) || (orig_rent_code == RENT_CRYO)) + return (0); + else + return (1); +} + + + +int Crash_save(struct obj_data *obj, FILE *fp, int location) +{ + struct obj_data *tmp; + int result; + + if (obj) { + Crash_save(obj->next_content, fp, location); + Crash_save(obj->contains, fp, MIN(0, location) - 1); + result = Obj_to_store(obj, fp, location); + + for (tmp = obj->in_obj; tmp; tmp = tmp->in_obj) + GET_OBJ_WEIGHT(tmp) -= GET_OBJ_WEIGHT(obj); + + if (!result) + return (0); + } + return (TRUE); +} + + +void Crash_restore_weight(struct obj_data *obj) +{ + if (obj) { + Crash_restore_weight(obj->contains); + Crash_restore_weight(obj->next_content); + if (obj->in_obj) + GET_OBJ_WEIGHT(obj->in_obj) += GET_OBJ_WEIGHT(obj); + } +} + +/* + * Get !RENT items from equipment to inventory and + * extract !RENT out of worn containers. + */ +void Crash_extract_norent_eq(struct char_data *ch) +{ + int j; + + for (j = 0; j < NUM_WEARS; j++) { + if (GET_EQ(ch, j) == NULL) + continue; + + if (Crash_is_unrentable(GET_EQ(ch, j))) + obj_to_char(unequip_char(ch, j), ch); + else + Crash_extract_norents(GET_EQ(ch, j)); + } +} + +void Crash_extract_objs(struct obj_data *obj) +{ + if (obj) { + Crash_extract_objs(obj->contains); + Crash_extract_objs(obj->next_content); + extract_obj(obj); + } +} + + +int Crash_is_unrentable(struct obj_data *obj) +{ + if (!obj) + return (0); + + if (OBJ_FLAGGED(obj, ITEM_NORENT) || GET_OBJ_RENT(obj) < 0 || + GET_OBJ_RNUM(obj) == NOTHING || GET_OBJ_TYPE(obj) == ITEM_KEY) + return (1); + + return (0); +} + + +void Crash_extract_norents(struct obj_data *obj) +{ + if (obj) { + Crash_extract_norents(obj->contains); + Crash_extract_norents(obj->next_content); + if (Crash_is_unrentable(obj)) + extract_obj(obj); + } +} + + +void Crash_extract_expensive(struct obj_data *obj) +{ + struct obj_data *tobj, *max; + + max = obj; + for (tobj = obj; tobj; tobj = tobj->next_content) + if (GET_OBJ_RENT(tobj) > GET_OBJ_RENT(max)) + max = tobj; + extract_obj(max); +} + + + +void Crash_calculate_rent(struct obj_data *obj, int *cost) +{ + if (obj) { + *cost += MAX(0, GET_OBJ_RENT(obj)); + Crash_calculate_rent(obj->contains, cost); + Crash_calculate_rent(obj->next_content, cost); + } +} + + +void Crash_crashsave(struct char_data *ch) +{ + char buf[MAX_INPUT_LENGTH]; + struct rent_info rent; + int j; + FILE *fp; + + if (IS_NPC(ch)) + return; + + if (!get_filename(buf, sizeof(buf), CRASH_FILE, GET_NAME(ch))) + return; + if (!(fp = fopen(buf, "wb"))) + return; + + rent.rentcode = RENT_CRASH; + rent.time = time(0); + if (!Crash_write_rentcode(ch, fp, &rent)) { + fclose(fp); + return; + } + + for (j = 0; j < NUM_WEARS; j++) + if (GET_EQ(ch, j)) { + if (!Crash_save(GET_EQ(ch, j), fp, j + 1)) { + fclose(fp); + return; + } + Crash_restore_weight(GET_EQ(ch, j)); + } + + if (!Crash_save(ch->carrying, fp, 0)) { + fclose(fp); + return; + } + Crash_restore_weight(ch->carrying); + + fclose(fp); + REMOVE_BIT(PLR_FLAGS(ch), PLR_CRASH); +} + + +void Crash_idlesave(struct char_data *ch) +{ + char buf[MAX_INPUT_LENGTH]; + struct rent_info rent; + int j; + int cost, cost_eq; + FILE *fp; + + if (IS_NPC(ch)) + return; + + if (!get_filename(buf, sizeof(buf), CRASH_FILE, GET_NAME(ch))) + return; + if (!(fp = fopen(buf, "wb"))) + return; + + Crash_extract_norent_eq(ch); + Crash_extract_norents(ch->carrying); + + cost = 0; + Crash_calculate_rent(ch->carrying, &cost); + + cost_eq = 0; + for (j = 0; j < NUM_WEARS; j++) + Crash_calculate_rent(GET_EQ(ch, j), &cost_eq); + + cost += cost_eq; + cost *= 2; /* forcerent cost is 2x normal rent */ + + if (cost > GET_GOLD(ch) + GET_BANK_GOLD(ch)) { + for (j = 0; j < NUM_WEARS; j++) /* Unequip players with low gold. */ + if (GET_EQ(ch, j)) + obj_to_char(unequip_char(ch, j), ch); + + while ((cost > GET_GOLD(ch) + GET_BANK_GOLD(ch)) && ch->carrying) { + Crash_extract_expensive(ch->carrying); + cost = 0; + Crash_calculate_rent(ch->carrying, &cost); + cost *= 2; + } + } + + if (ch->carrying == NULL) { + for (j = 0; j < NUM_WEARS && GET_EQ(ch, j) == NULL; j++) /* Nothing */ ; + if (j == NUM_WEARS) { /* No equipment or inventory. */ + fclose(fp); + Crash_delete_file(GET_NAME(ch)); + return; + } + } + rent.net_cost_per_diem = cost; + + rent.rentcode = RENT_TIMEDOUT; + rent.time = time(0); + rent.gold = GET_GOLD(ch); + rent.account = GET_BANK_GOLD(ch); + if (!Crash_write_rentcode(ch, fp, &rent)) { + fclose(fp); + return; + } + for (j = 0; j < NUM_WEARS; j++) { + if (GET_EQ(ch, j)) { + if (!Crash_save(GET_EQ(ch, j), fp, j + 1)) { + fclose(fp); + return; + } + Crash_restore_weight(GET_EQ(ch, j)); + Crash_extract_objs(GET_EQ(ch, j)); + } + } + if (!Crash_save(ch->carrying, fp, 0)) { + fclose(fp); + return; + } + fclose(fp); + + Crash_extract_objs(ch->carrying); +} + + +void Crash_rentsave(struct char_data *ch, int cost) +{ + char buf[MAX_INPUT_LENGTH]; + struct rent_info rent; + int j; + FILE *fp; + + if (IS_NPC(ch)) + return; + + if (!get_filename(buf, sizeof(buf), CRASH_FILE, GET_NAME(ch))) + return; + if (!(fp = fopen(buf, "wb"))) + return; + + Crash_extract_norent_eq(ch); + Crash_extract_norents(ch->carrying); + + rent.net_cost_per_diem = cost; + rent.rentcode = RENT_RENTED; + rent.time = time(0); + rent.gold = GET_GOLD(ch); + rent.account = GET_BANK_GOLD(ch); + if (!Crash_write_rentcode(ch, fp, &rent)) { + fclose(fp); + return; + } + for (j = 0; j < NUM_WEARS; j++) + if (GET_EQ(ch, j)) { + if (!Crash_save(GET_EQ(ch,j), fp, j + 1)) { + fclose(fp); + return; + } + Crash_restore_weight(GET_EQ(ch, j)); + Crash_extract_objs(GET_EQ(ch, j)); + } + if (!Crash_save(ch->carrying, fp, 0)) { + fclose(fp); + return; + } + fclose(fp); + + Crash_extract_objs(ch->carrying); +} + + +void Crash_cryosave(struct char_data *ch, int cost) +{ + char buf[MAX_INPUT_LENGTH]; + struct rent_info rent; + int j; + FILE *fp; + + if (IS_NPC(ch)) + return; + + if (!get_filename(buf, sizeof(buf), CRASH_FILE, GET_NAME(ch))) + return; + if (!(fp = fopen(buf, "wb"))) + return; + + Crash_extract_norent_eq(ch); + Crash_extract_norents(ch->carrying); + + GET_GOLD(ch) = MAX(0, GET_GOLD(ch) - cost); + + rent.rentcode = RENT_CRYO; + rent.time = time(0); + rent.gold = GET_GOLD(ch); + rent.account = GET_BANK_GOLD(ch); + rent.net_cost_per_diem = 0; + if (!Crash_write_rentcode(ch, fp, &rent)) { + fclose(fp); + return; + } + for (j = 0; j < NUM_WEARS; j++) + if (GET_EQ(ch, j)) { + if (!Crash_save(GET_EQ(ch, j), fp, j + 1)) { + fclose(fp); + return; + } + Crash_restore_weight(GET_EQ(ch, j)); + Crash_extract_objs(GET_EQ(ch, j)); + } + if (!Crash_save(ch->carrying, fp, 0)) { + fclose(fp); + return; + } + fclose(fp); + + Crash_extract_objs(ch->carrying); + SET_BIT(PLR_FLAGS(ch), PLR_CRYO); +} + + +/* ************************************************************************ +* Routines used for the receptionist * +************************************************************************* */ + +void Crash_rent_deadline(struct char_data *ch, struct char_data *recep, + long cost) +{ + char buf[256]; + long rent_deadline; + + if (!cost) + return; + + rent_deadline = ((GET_GOLD(ch) + GET_BANK_GOLD(ch)) / cost); + snprintf(buf, sizeof(buf), "$n tells you, 'You can rent for %ld day%s with the gold you have\r\n" + "on hand and in the bank.'\r\n", rent_deadline, rent_deadline != 1 ? "s" : ""); + act(buf, FALSE, recep, 0, ch, TO_VICT); +} + +int Crash_report_unrentables(struct char_data *ch, struct char_data *recep, + struct obj_data *obj) +{ + int has_norents = 0; + + if (obj) { + if (Crash_is_unrentable(obj)) { + char buf[128]; + + has_norents = 1; + snprintf(buf, sizeof(buf), "$n tells you, 'You cannot store %s.'", OBJS(obj, ch)); + act(buf, FALSE, recep, 0, ch, TO_VICT); + } + has_norents += Crash_report_unrentables(ch, recep, obj->contains); + has_norents += Crash_report_unrentables(ch, recep, obj->next_content); + } + return (has_norents); +} + + + +void Crash_report_rent(struct char_data *ch, struct char_data *recep, + struct obj_data *obj, long *cost, long *nitems, int display, int factor) +{ + if (obj) { + if (!Crash_is_unrentable(obj)) { + (*nitems)++; + *cost += MAX(0, (GET_OBJ_RENT(obj) * factor)); + if (display) { + char buf[256]; + + snprintf(buf, sizeof(buf), "$n tells you, '%5d coins for %s..'", GET_OBJ_RENT(obj) * factor, OBJS(obj, ch)); + act(buf, FALSE, recep, 0, ch, TO_VICT); + } + } + Crash_report_rent(ch, recep, obj->contains, cost, nitems, display, factor); + Crash_report_rent(ch, recep, obj->next_content, cost, nitems, display, factor); + } +} + + + +int Crash_offer_rent(struct char_data *ch, struct char_data *recep, + int display, int factor) +{ + int i; + long totalcost = 0, numitems = 0, norent; + + norent = Crash_report_unrentables(ch, recep, ch->carrying); + for (i = 0; i < NUM_WEARS; i++) + norent += Crash_report_unrentables(ch, recep, GET_EQ(ch, i)); + + if (norent) + return (0); + + totalcost = min_rent_cost * factor; + + Crash_report_rent(ch, recep, ch->carrying, &totalcost, &numitems, display, factor); + + for (i = 0; i < NUM_WEARS; i++) + Crash_report_rent(ch, recep, GET_EQ(ch, i), &totalcost, &numitems, display, factor); + + if (!numitems) { + act("$n tells you, 'But you are not carrying anything! Just quit!'", + FALSE, recep, 0, ch, TO_VICT); + return (0); + } + if (numitems > max_obj_save) { + char buf[256]; + + snprintf(buf, sizeof(buf), "$n tells you, 'Sorry, but I cannot store more than %d items.'", max_obj_save); + act(buf, FALSE, recep, 0, ch, TO_VICT); + return (0); + } + if (display) { + char buf[256]; + + snprintf(buf, sizeof(buf), "$n tells you, 'Plus, my %d coin fee..'", min_rent_cost * factor); + act(buf, FALSE, recep, 0, ch, TO_VICT); + + snprintf(buf, sizeof(buf), "$n tells you, 'For a total of %ld coins%s.'", totalcost, factor == RENT_FACTOR ? " per day" : ""); + act(buf, FALSE, recep, 0, ch, TO_VICT); + + if (totalcost > GET_GOLD(ch) + GET_BANK_GOLD(ch)) { + act("$n tells you, '...which I see you can't afford.'", FALSE, recep, 0, ch, TO_VICT); + return (0); + } else if (factor == RENT_FACTOR) + Crash_rent_deadline(ch, recep, totalcost); + } + return (totalcost); +} + + + +int gen_receptionist(struct char_data *ch, struct char_data *recep, + int cmd, char *arg, int mode) +{ + int cost; + const char *action_table[] = { "smile", "dance", "sigh", "blush", "burp", + "cough", "fart", "twiddle", "yawn" }; + + if (!cmd && !rand_number(0, 5)) { + do_action(recep, NULL, find_command(action_table[rand_number(0, 8)]), 0); + return (FALSE); + } + + if (!ch->desc || IS_NPC(ch)) + return (FALSE); + + if (!CMD_IS("offer") && !CMD_IS("rent")) + return (FALSE); + + if (!AWAKE(recep)) { + send_to_char(ch, "%s is unable to talk to you...\r\n", HSSH(recep)); + return (TRUE); + } + + if (!CAN_SEE(recep, ch)) { + act("$n says, 'I don't deal with people I can't see!'", FALSE, recep, 0, 0, TO_ROOM); + return (TRUE); + } + + if (free_rent) { + act("$n tells you, 'Rent is free here. Just quit, and your objects will be saved!'", + FALSE, recep, 0, ch, TO_VICT); + return (1); + } + + if (CMD_IS("rent")) { + char buf[128]; + + if (!(cost = Crash_offer_rent(ch, recep, FALSE, mode))) + return (TRUE); + if (mode == RENT_FACTOR) + snprintf(buf, sizeof(buf), "$n tells you, 'Rent will cost you %d gold coins per day.'", cost); + else if (mode == CRYO_FACTOR) + snprintf(buf, sizeof(buf), "$n tells you, 'It will cost you %d gold coins to be frozen.'", cost); + act(buf, FALSE, recep, 0, ch, TO_VICT); + + if (cost > GET_GOLD(ch) + GET_BANK_GOLD(ch)) { + act("$n tells you, '...which I see you can't afford.'", + FALSE, recep, 0, ch, TO_VICT); + return (TRUE); + } + if (cost && (mode == RENT_FACTOR)) + Crash_rent_deadline(ch, recep, cost); + + if (mode == RENT_FACTOR) { + act("$n stores your belongings and helps you into your private chamber.", FALSE, recep, 0, ch, TO_VICT); + Crash_rentsave(ch, cost); + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s has rented (%d/day, %d tot.)", + GET_NAME(ch), cost, GET_GOLD(ch) + GET_BANK_GOLD(ch)); + } else { /* cryo */ + act("$n stores your belongings and helps you into your private chamber.\r\n" + "A white mist appears in the room, chilling you to the bone...\r\n" + "You begin to lose consciousness...", + FALSE, recep, 0, ch, TO_VICT); + Crash_cryosave(ch, cost); + mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s has cryo-rented.", GET_NAME(ch)); + SET_BIT(PLR_FLAGS(ch), PLR_CRYO); + } + + act("$n helps $N into $S private chamber.", FALSE, recep, 0, ch, TO_NOTVICT); + + GET_LOADROOM(ch) = GET_ROOM_VNUM(IN_ROOM(ch)); + extract_char(ch); /* It saves. */ + } else { + Crash_offer_rent(ch, recep, TRUE, mode); + act("$N gives $n an offer.", FALSE, ch, 0, recep, TO_ROOM); + } + return (TRUE); +} + + +SPECIAL(receptionist) +{ + return (gen_receptionist(ch, (struct char_data *)me, cmd, argument, RENT_FACTOR)); +} + + +SPECIAL(cryogenicist) +{ + return (gen_receptionist(ch, (struct char_data *)me, cmd, argument, CRYO_FACTOR)); +} + + +void Crash_save_all(void) +{ + struct descriptor_data *d; + for (d = descriptor_list; d; d = d->next) { + if ((STATE(d) == CON_PLAYING) && !IS_NPC(d->character)) { + if (PLR_FLAGGED(d->character, PLR_CRASH)) { + Crash_crashsave(d->character); + save_char(d->character); + REMOVE_BIT(PLR_FLAGS(d->character), PLR_CRASH); + } + } + } +} diff --git a/src/olc.c b/src/olc.c new file mode 100644 index 0000000..4b72710 --- /dev/null +++ b/src/olc.c @@ -0,0 +1,351 @@ +/* ************************************************************************ +* File: olc.c Part of CircleMUD * +* Usage: online creation * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/* + * PLEASE, FOR THE LOVE OF GOD, DON'T TRY TO USE THIS YET!!! + * *** DO *** NOT *** SEND ME MAIL ASKING WHY IT DOESN'T WORK -- IT'S + * NOT DONE!! + */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "olc.h" + +/* OLC command format: + * + * olc {"." | {<"room"|"mobile"|"object"> <number>}} <arguments> + * olc {"set"|"show"} <attribute> <arguments> + */ + +#define OLC_USAGE "Usage: olc { . | set | show | obj | mob | room} [args]\r\n" + +/* local globals */ +struct char_data *olc_ch; + +/* local functions */ +void olc_interpreter(void *targ, int mode, char *arg); +void olc_set_show(struct char_data *ch, int olc_mode, char *arg); +void olc_string(char **string, size_t maxlen, char *arg); +int can_modify(struct char_data *ch, int vnum); +ACMD(do_olc); +void olc_bitvector(int *bv, const char **names, char *arg); + +const char *olc_modes[] = { + "set", /* set OLC characteristics */ + "show", /* show OLC characteristics */ + ".", /* repeat last modification command */ + "room", /* modify a room */ + "mobile", /* modify a mobile */ + "object", /* modify an object */ + "\n" +}; + +const char *olc_commands[] = { + "copy", + "name", + "description", + "aliases", + "\n", /* many more to be added */ +}; + + +/* The actual do_olc command for the interpreter. Determines the target + entity, checks permissions, and passes control to olc_interpreter */ +ACMD(do_olc) +{ + void *olc_targ = NULL; + char mode_arg[MAX_INPUT_LENGTH], arg[MAX_INPUT_LENGTH]; + room_rnum rnum; + room_vnum vnum = NOWHERE; + int olc_mode; + + /* WARNING! **DO NOT** under any circumstances remove the code below!!!! */ + if (strcmp(GET_NAME(ch), "Ras")) { + send_to_char(ch, "OLC is not yet complete. Sorry.\r\n"); + return; + } + /* WARNING! **DO NOT** under any circumstances remove the code above!!!! */ + + /* first, figure out the first (mode) argument */ + half_chop(argument, mode_arg, argument); + if ((olc_mode = search_block(mode_arg, olc_modes, FALSE)) < 0) { + send_to_char(ch, "Invalid mode '%s'.\r\n%s", mode_arg, OLC_USAGE); + return; + } + switch (olc_mode) { + case OLC_SET: + case OLC_SHOW: + olc_set_show(ch, olc_mode, argument); + return; + case OLC_REPEAT: + if (!(olc_mode = GET_LAST_OLC_MODE(ch)) || + ((olc_targ = GET_LAST_OLC_TARG(ch)) == NULL)) { + send_to_char(ch, "No last OLC operation!\r\n"); + return; + } + break; + case OLC_ROOM: + if (isdigit(*argument)) { + /* room specified. take the numeric argument off */ + argument = one_argument(argument, arg); + if (!is_number(arg)) { + send_to_char(ch, "Invalid room vnum '%s'.\r\n", arg); + return; + } + vnum = atoi(arg); + if ((rnum = real_room(vnum)) == NOWHERE) { + send_to_char(ch, "No such room!\r\n"); + return; + } + } else { + rnum = IN_ROOM(ch); + vnum = GET_ROOM_VNUM(IN_ROOM(ch)); + send_to_char(ch, "(Using current room %d)\r\n", vnum); + } + +/* if (!ROOM_FLAGGED(rnum, ROOM_OLC)) + send_to_char(ch, "That room is not modifyable.\r\n"); + else +*/ + olc_targ = (void *) &(world[rnum]); + break; + case OLC_MOB: + argument = one_argument(argument, arg); + if (!is_number(arg)) { + send_to_char(ch, "Invalid mob vnum '%s'.\r\n", arg); + return; + } + vnum = atoi(arg); + if ((rnum = real_mobile(vnum)) == NOBODY) + send_to_char(ch, "No such mobile vnum.\r\n"); + else + olc_targ = (void *) &(mob_proto[rnum]); + break; + case OLC_OBJ: + argument = one_argument(argument, arg); + if (!is_number(arg)) { + send_to_char(ch, "Invalid obj vnum '%s'\r\n", arg); + return; + } + vnum = atoi(arg); + if ((rnum = real_object(vnum)) == NOTHING) + send_to_char(ch, "No object with vnum %d.\r\n", vnum); + else + olc_targ = (void *) &(obj_proto[rnum]); + break; + default: + send_to_char(ch, "Usage: olc {.|set|show|obj|mob|room} [args]\r\n"); + return; + } + + if (olc_targ == NULL) + return; + + if (!can_modify(ch, vnum)) { + send_to_char(ch, "You can't modify that.\r\n"); + return; + } + GET_LAST_OLC_MODE(ch) = olc_mode; + GET_LAST_OLC_TARG(ch) = olc_targ; + + olc_ch = ch; + olc_interpreter(olc_targ, olc_mode, argument); + /* freshen? */ +} + + +/* OLC interpreter command; called by do_olc */ +void olc_interpreter(void *targ, int mode, char *arg) +{ + int error = 0, command; + char command_string[MAX_INPUT_LENGTH]; + struct char_data *olc_mob = NULL; + struct room_data *olc_room = NULL; + struct obj_data *olc_obj = NULL; + + half_chop(arg, command_string, arg); + if ((command = search_block(command_string, olc_commands, FALSE)) < 0) { + send_to_char(olc_ch, "Invalid OLC command '%s'.\r\n", command_string); + return; + } + switch (mode) { + case OLC_ROOM: + olc_room = (struct room_data *) targ; + break; + case OLC_MOB: + olc_mob = (struct char_data *) targ; + break; + case OLC_OBJ: + olc_obj = (struct obj_data *) targ; + break; + default: + log("SYSERR: Invalid OLC mode %d passed to interp.", mode); + return; + } + + + switch (command) { + case OLC_COPY: + switch (mode) { + case OLC_ROOM: + break; + case OLC_MOB: + break; + case OLC_OBJ: + break; + default: + error = 1; + break; + } + break; + case OLC_NAME: + switch (mode) { + case OLC_ROOM: + olc_string(&(olc_room->name), MAX_ROOM_NAME, arg); + break; + case OLC_MOB: + olc_string(&olc_mob->player.short_descr, MAX_MOB_NAME, arg); + break; + case OLC_OBJ: + olc_string(&olc_obj->short_description, MAX_OBJ_NAME, arg); + break; + default: + error = 1; + break; + } + break; + + case OLC_DESC: + switch (mode) { + case OLC_ROOM: + olc_string(&olc_room->description, MAX_ROOM_DESC, arg); + break; + case OLC_MOB: + olc_string(&olc_mob->player.long_descr, MAX_MOB_DESC, arg); + break; + case OLC_OBJ: + olc_string(&olc_obj->description, MAX_OBJ_DESC, arg); + break; + default: + error = 1; + break; + } + break; + + case OLC_ALIASES: + switch (mode) { + case OLC_ROOM: + break; + case OLC_MOB: + break; + case OLC_OBJ: + break; + default: + error = 1; + break; + } + + } +} + + +/* can_modify: determine if a particular char can modify a vnum */ +int can_modify(struct char_data *ch, int vnum) +{ + return (1); +} + + +/* generic fn for modifying a string */ +void olc_string(char **string, size_t maxlen, char *arg) +{ + skip_spaces(&arg); + + if (!*arg) { + send_to_char(olc_ch, "Enter new string (max of %d characters); use '@' on a new line when done.\r\n", (int) maxlen); + **string = '\0'; + string_write(olc_ch->desc, string, maxlen, 0, NULL); + } else { + if (strlen(arg) > maxlen) { + send_to_char(olc_ch, "String too long (cannot be more than %d chars).\r\n", (int) maxlen); + } else { + if (*string != NULL) + free(*string); + *string = strdup(arg); + send_to_char(olc_ch, "%s", OK); + } + } +} + + +/* generic fn for modifying a bitvector */ +void olc_bitvector(int *bv, const char **names, char *arg) +{ + int newbv, flagnum, doremove = 0; + char *this_name; + char buf[MAX_STRING_LENGTH]; + + skip_spaces(&arg); + + if (!*arg) { + send_to_char(olc_ch, "Flag list or flag modifiers required.\r\n"); + return; + } + /* determine if this is 'absolute' or 'relative' mode */ + if (*arg == '+' || *arg == '-') + newbv = *bv; + else + newbv = 0; + + while (*arg) { + arg = one_argument(arg, buf); /* get next argument */ + + /* change to upper-case */ + for (this_name = buf; *this_name; this_name++) + CAP(this_name); + + /* determine if this is an add or a subtract */ + if (*buf == '+' || *buf == '-') { + this_name = buf + 1; + if (*buf == '-') + doremove = TRUE; + else + doremove = FALSE; + } else { + this_name = buf; + doremove = FALSE; + } + + /* figure out which one we're dealing with */ + if ((flagnum = search_block(this_name, names, TRUE)) < 0) + send_to_char(olc_ch, "Unknown flag: %s\r\n", this_name); + else { + if (doremove) + REMOVE_BIT(newbv, (1 << flagnum)); + else + SET_BIT(newbv, (1 << flagnum)); + } + } + + *bv = newbv; + sprintbit(newbv, names, buf, sizeof(buf)); + send_to_char(olc_ch, "Flags now set to: %s\r\n", buf); +} + +void olc_set_show(struct char_data *ch, int olc_mode, char *arg) +{ +} diff --git a/src/olc.h b/src/olc.h new file mode 100644 index 0000000..1da08d3 --- /dev/null +++ b/src/olc.h @@ -0,0 +1,19 @@ +#define OLC_SET 0 +#define OLC_SHOW 1 +#define OLC_REPEAT 2 +#define OLC_ROOM 3 +#define OLC_MOB 4 +#define OLC_OBJ 5 + +#define OLC_COPY 0 +#define OLC_NAME 1 +#define OLC_DESC 2 +#define OLC_ALIASES 3 + + +#define MAX_ROOM_NAME 75 +#define MAX_MOB_NAME 50 +#define MAX_OBJ_NAME 50 +#define MAX_ROOM_DESC 1024 +#define MAX_MOB_DESC 512 +#define MAX_OBJ_DESC 512 diff --git a/src/random.c b/src/random.c new file mode 100644 index 0000000..a7ec777 --- /dev/null +++ b/src/random.c @@ -0,0 +1,91 @@ +/* ************************************************************************ +* File: random.c Part of CircleMUD * +* Usage: pseudo-random number generator * +************************************************************************ */ + +/* + * I am bothered by the non-portablility of 'rand' and 'random' -- rand + * is ANSI C, but on some systems such as Suns, rand has seriously tragic + * spectral properties (the low bit alternates between 0 and 1!). random + * is better but isn't supported by all systems. So, in my quest for Ultimate + * CircleMUD Portability, I decided to include this code for a simple but + * relatively effective random number generator. It's not the best RNG code + * around, but I like it because it's very short and simple, and for our + * purposes it's "random enough". + * --Jeremy Elson 2/23/95 + * + * Now that we're using GNU's autoconf, I've coded Circle to always use + * random(), and automatically link in this object file if random() isn't + * supported on the target system. -JE 2/3/96 + * + * Well, despite autoconf we're back to using this random all the + * time. Oh well, there's no harm in changing my mind on this one + * from release to release... -JE 10/28/97 + */ + +/***************************************************************************/ + +/* + * + * This program is public domain and was written by William S. England + * (Oct 1988). It is based on an article by: + * + * Stephen K. Park and Keith W. Miller. RANDOM NUMBER GENERATORS: + * GOOD ONES ARE HARD TO FIND. Communications of the ACM, + * New York, NY.,October 1988 p.1192 + + The following is a portable c program for generating random numbers. + The modulus and multipilier have been extensively tested and should + not be changed except by someone who is a professional Lehmer generator + writer. THIS GENERATOR REPRESENTS THE MINIMUM STANDARD AGAINST WHICH + OTHER GENERATORS SHOULD BE JUDGED. ("Quote from the referenced article's + authors. WSE" ) +*/ + +#define m (unsigned long)2147483647 +#define q (unsigned long)127773 + +#define a (unsigned int)16807 +#define r (unsigned int)2836 + +/* +** F(z) = (az)%m +** = az-m(az/m) +** +** F(z) = G(z)+mT(z) +** G(z) = a(z%q)- r(z/q) +** T(z) = (z/q) - (az/m) +** +** F(z) = a(z%q)- rz/q+ m((z/q) - a(z/m)) +** = a(z%q)- rz/q+ m(z/q) - az +*/ + +static unsigned long seed; + +/* local functions */ +void circle_srandom(unsigned long initial_seed); +unsigned long circle_random(void); + + +void circle_srandom(unsigned long initial_seed) +{ + seed = initial_seed; +} + + +unsigned long circle_random(void) +{ + int lo, hi, test; + + hi = seed/q; + lo = seed%q; + + test = a*lo - r*hi; + + if (test > 0) + seed = test; + else + seed = test+ m; + + return (seed); +} diff --git a/src/screen.h b/src/screen.h new file mode 100644 index 0000000..afb1f3b --- /dev/null +++ b/src/screen.h @@ -0,0 +1,48 @@ +/* ************************************************************************ +* File: screen.h Part of CircleMUD * +* Usage: header file with ANSI color codes for online color * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define KNRM "\x1B[0m" +#define KRED "\x1B[31m" +#define KGRN "\x1B[32m" +#define KYEL "\x1B[33m" +#define KBLU "\x1B[34m" +#define KMAG "\x1B[35m" +#define KCYN "\x1B[36m" +#define KWHT "\x1B[37m" +#define KNUL "" + +/* conditional color. pass it a pointer to a char_data and a color level. */ +#define C_OFF 0 +#define C_SPR 1 +#define C_NRM 2 +#define C_CMP 3 +#define _clrlevel(ch) (!IS_NPC(ch) ? (PRF_FLAGGED((ch), PRF_COLOR_1) ? 1 : 0) + \ + (PRF_FLAGGED((ch), PRF_COLOR_2) ? 2 : 0) : 0) +#define clr(ch,lvl) (_clrlevel(ch) >= (lvl)) +#define CCNRM(ch,lvl) (clr((ch),(lvl))?KNRM:KNUL) +#define CCRED(ch,lvl) (clr((ch),(lvl))?KRED:KNUL) +#define CCGRN(ch,lvl) (clr((ch),(lvl))?KGRN:KNUL) +#define CCYEL(ch,lvl) (clr((ch),(lvl))?KYEL:KNUL) +#define CCBLU(ch,lvl) (clr((ch),(lvl))?KBLU:KNUL) +#define CCMAG(ch,lvl) (clr((ch),(lvl))?KMAG:KNUL) +#define CCCYN(ch,lvl) (clr((ch),(lvl))?KCYN:KNUL) +#define CCWHT(ch,lvl) (clr((ch),(lvl))?KWHT:KNUL) + +#define COLOR_LEV(ch) (_clrlevel(ch)) + +#define QNRM CCNRM(ch,C_SPR) +#define QRED CCRED(ch,C_SPR) +#define QGRN CCGRN(ch,C_SPR) +#define QYEL CCYEL(ch,C_SPR) +#define QBLU CCBLU(ch,C_SPR) +#define QMAG CCMAG(ch,C_SPR) +#define QCYN CCCYN(ch,C_SPR) +#define QWHT CCWHT(ch,C_SPR) + diff --git a/src/shop.c b/src/shop.c new file mode 100644 index 0000000..2c9d309 --- /dev/null +++ b/src/shop.c @@ -0,0 +1,1532 @@ +/* ************************************************************************ +* File: shop.c Part of CircleMUD * +* Usage: shopkeepers: loading config files, spec procs. * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/*** + * The entire shop rewrite for Circle 3.0 was done by Jeff Fink. Thanks Jeff! + ***/ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "comm.h" +#include "handler.h" +#include "db.h" +#include "interpreter.h" +#include "utils.h" +#include "shop.h" +#include "constants.h" + +/* External variables */ +extern struct time_info_data time_info; + +/* Forward/External function declarations */ +ACMD(do_tell); +ACMD(do_action); +ACMD(do_echo); +ACMD(do_say); +void sort_keeper_objs(struct char_data *keeper, int shop_nr); + +/* Local variables */ +struct shop_data *shop_index; +int top_shop = -1; +int cmd_say, cmd_tell, cmd_emote, cmd_slap, cmd_puke; + +/* local functions */ +char *read_shop_message(int mnum, room_vnum shr, FILE *shop_f, const char *why); +int read_type_list(FILE *shop_f, struct shop_buy_data *list, int new_format, int max); +int read_list(FILE *shop_f, struct shop_buy_data *list, int new_format, int max, int type); +void shopping_list(char *arg, struct char_data *ch, struct char_data *keeper, int shop_nr); +void shopping_value(char *arg, struct char_data *ch, struct char_data *keeper, int shop_nr); +void shopping_sell(char *arg, struct char_data *ch, struct char_data *keeper, int shop_nr); +struct obj_data *get_selling_obj(struct char_data *ch, char *name, struct char_data *keeper, int shop_nr, int msg); +struct obj_data *slide_obj(struct obj_data *obj, struct char_data *keeper, int shop_nr); +void shopping_buy(char *arg, struct char_data *ch, struct char_data *keeper, int shop_nr); +struct obj_data *get_purchase_obj(struct char_data *ch, char *arg, struct char_data *keeper, int shop_nr, int msg); +struct obj_data *get_hash_obj_vis(struct char_data *ch, char *name, struct obj_data *list); +struct obj_data *get_slide_obj_vis(struct char_data *ch, char *name, struct obj_data *list); +void boot_the_shops(FILE *shop_f, char *filename, int rec_count); +void assign_the_shopkeepers(void); +char *customer_string(int shop_nr, int detailed); +void list_all_shops(struct char_data *ch); +void list_detailed_shop(struct char_data *ch, int shop_nr); +void show_shops(struct char_data *ch, char *arg); +int is_ok_char(struct char_data *keeper, struct char_data *ch, int shop_nr); +int is_open(struct char_data *keeper, int shop_nr, int msg); +int is_ok(struct char_data *keeper, struct char_data *ch, int shop_nr); +void push(struct stack_data *stack, int pushval); +int top(struct stack_data *stack); +int pop(struct stack_data *stack); +void evaluate_operation(struct stack_data *ops, struct stack_data *vals); +int find_oper_num(char token); +int evaluate_expression(struct obj_data *obj, char *expr); +int trade_with(struct obj_data *item, int shop_nr); +int same_obj(struct obj_data *obj1, struct obj_data *obj2); +int shop_producing(struct obj_data *item, int shop_nr); +int transaction_amt(char *arg); +char *times_message(struct obj_data *obj, char *name, int num); +int buy_price(struct obj_data *obj, int shop_nr, struct char_data *keeper, struct char_data *buyer); +int sell_price(struct obj_data *obj, int shop_nr, struct char_data *keeper, struct char_data *seller); +char *list_object(struct obj_data *obj, int cnt, int oindex, int shop_nr, struct char_data *keeper, struct char_data *seller); +int ok_shop_room(int shop_nr, room_vnum room); +SPECIAL(shop_keeper); +int ok_damage_shopkeeper(struct char_data *ch, struct char_data *victim); +int add_to_list(struct shop_buy_data *list, int type, int *len, int *val); +int end_read_list(struct shop_buy_data *list, int len, int error); +void read_line(FILE *shop_f, const char *string, void *data); +void destroy_shops(void); + + +/* config arrays */ +const char *operator_str[] = { + "[({", + "])}", + "|+", + "&*", + "^'" +} ; + +/* Constant list for printing out who we sell to */ +const char *trade_letters[] = { + "Good", /* First, the alignment based ones */ + "Evil", + "Neutral", + "Magic User", /* Then the class based ones */ + "Cleric", + "Thief", + "Warrior", + "\n" +}; + + +const char *shop_bits[] = { + "WILL_FIGHT", + "USES_BANK", + "\n" +}; + +int is_ok_char(struct char_data *keeper, struct char_data *ch, int shop_nr) +{ + char buf[MAX_INPUT_LENGTH]; + + if (!CAN_SEE(keeper, ch)) { + char actbuf[MAX_INPUT_LENGTH] = MSG_NO_SEE_CHAR; + do_say(keeper, actbuf, cmd_say, 0); + return (FALSE); + } + if (IS_GOD(ch)) + return (TRUE); + + if ((IS_GOOD(ch) && NOTRADE_GOOD(shop_nr)) || + (IS_EVIL(ch) && NOTRADE_EVIL(shop_nr)) || + (IS_NEUTRAL(ch) && NOTRADE_NEUTRAL(shop_nr))) { + snprintf(buf, sizeof(buf), "%s %s", GET_NAME(ch), MSG_NO_SELL_ALIGN); + do_tell(keeper, buf, cmd_tell, 0); + return (FALSE); + } + if (IS_NPC(ch)) + return (TRUE); + + if ((IS_MAGIC_USER(ch) && NOTRADE_MAGIC_USER(shop_nr)) || + (IS_CLERIC(ch) && NOTRADE_CLERIC(shop_nr)) || + (IS_THIEF(ch) && NOTRADE_THIEF(shop_nr)) || + (IS_WARRIOR(ch) && NOTRADE_WARRIOR(shop_nr))) { + snprintf(buf, sizeof(buf), "%s %s", GET_NAME(ch), MSG_NO_SELL_CLASS); + do_tell(keeper, buf, cmd_tell, 0); + return (FALSE); + } + return (TRUE); +} + + +int is_open(struct char_data *keeper, int shop_nr, int msg) +{ + char buf[MAX_INPUT_LENGTH]; + + *buf = '\0'; + if (SHOP_OPEN1(shop_nr) > time_info.hours) + strlcpy(buf, MSG_NOT_OPEN_YET, sizeof(buf)); + else if (SHOP_CLOSE1(shop_nr) < time_info.hours) { + if (SHOP_OPEN2(shop_nr) > time_info.hours) + strlcpy(buf, MSG_NOT_REOPEN_YET, sizeof(buf)); + else if (SHOP_CLOSE2(shop_nr) < time_info.hours) + strlcpy(buf, MSG_CLOSED_FOR_DAY, sizeof(buf)); + } + if (!*buf) + return (TRUE); + if (msg) + do_say(keeper, buf, cmd_tell, 0); + return (FALSE); +} + + +int is_ok(struct char_data *keeper, struct char_data *ch, int shop_nr) +{ + if (is_open(keeper, shop_nr, TRUE)) + return (is_ok_char(keeper, ch, shop_nr)); + else + return (FALSE); +} + + +void push(struct stack_data *stack, int pushval) +{ + S_DATA(stack, S_LEN(stack)++) = pushval; +} + + +int top(struct stack_data *stack) +{ + if (S_LEN(stack) > 0) + return (S_DATA(stack, S_LEN(stack) - 1)); + else + return (NOTHING); +} + + +int pop(struct stack_data *stack) +{ + if (S_LEN(stack) > 0) + return (S_DATA(stack, --S_LEN(stack))); + else { + log("SYSERR: Illegal expression %d in shop keyword list.", S_LEN(stack)); + return (0); + } +} + + +void evaluate_operation(struct stack_data *ops, struct stack_data *vals) +{ + int oper; + + if ((oper = pop(ops)) == OPER_NOT) + push(vals, !pop(vals)); + else { + int val1 = pop(vals), + val2 = pop(vals); + + /* Compiler would previously short-circuit these. */ + if (oper == OPER_AND) + push(vals, val1 && val2); + else if (oper == OPER_OR) + push(vals, val1 || val2); + } +} + + +int find_oper_num(char token) +{ + int oindex; + + for (oindex = 0; oindex <= MAX_OPER; oindex++) + if (strchr(operator_str[oindex], token)) + return (oindex); + return (NOTHING); +} + + +int evaluate_expression(struct obj_data *obj, char *expr) +{ + struct stack_data ops, vals; + char *ptr, *end, name[MAX_STRING_LENGTH]; + int temp, eindex; + + if (!expr || !*expr) /* Allows opening ( first. */ + return (TRUE); + + ops.len = vals.len = 0; + ptr = expr; + while (*ptr) { + if (isspace(*ptr)) + ptr++; + else { + if ((temp = find_oper_num(*ptr)) == NOTHING) { + end = ptr; + while (*ptr && !isspace(*ptr) && find_oper_num(*ptr) == NOTHING) + ptr++; + strncpy(name, end, ptr - end); /* strncpy: OK (name/end:MAX_STRING_LENGTH) */ + name[ptr - end] = '\0'; + for (eindex = 0; *extra_bits[eindex] != '\n'; eindex++) + if (!str_cmp(name, extra_bits[eindex])) { + push(&vals, OBJ_FLAGGED(obj, 1 << eindex)); + break; + } + if (*extra_bits[eindex] == '\n') + push(&vals, isname(name, obj->name)); + } else { + if (temp != OPER_OPEN_PAREN) + while (top(&ops) > temp) + evaluate_operation(&ops, &vals); + + if (temp == OPER_CLOSE_PAREN) { + if ((temp = pop(&ops)) != OPER_OPEN_PAREN) { + log("SYSERR: Illegal parenthesis in shop keyword expression."); + return (FALSE); + } + } else + push(&ops, temp); + ptr++; + } + } + } + while (top(&ops) != NOTHING) + evaluate_operation(&ops, &vals); + temp = pop(&vals); + if (top(&vals) != NOTHING) { + log("SYSERR: Extra operands left on shop keyword expression stack."); + return (FALSE); + } + return (temp); +} + + +int trade_with(struct obj_data *item, int shop_nr) +{ + int counter; + + if (GET_OBJ_COST(item) < 1) + return (OBJECT_NOVAL); + + if (OBJ_FLAGGED(item, ITEM_NOSELL)) + return (OBJECT_NOTOK); + + for (counter = 0; SHOP_BUYTYPE(shop_nr, counter) != NOTHING; counter++) + if (SHOP_BUYTYPE(shop_nr, counter) == GET_OBJ_TYPE(item)) { + if (GET_OBJ_VAL(item, 2) == 0 && + (GET_OBJ_TYPE(item) == ITEM_WAND || + GET_OBJ_TYPE(item) == ITEM_STAFF)) + return (OBJECT_DEAD); + else if (evaluate_expression(item, SHOP_BUYWORD(shop_nr, counter))) + return (OBJECT_OK); + } + return (OBJECT_NOTOK); +} + + +int same_obj(struct obj_data *obj1, struct obj_data *obj2) +{ + int aindex; + + if (!obj1 || !obj2) + return (obj1 == obj2); + + if (GET_OBJ_RNUM(obj1) != GET_OBJ_RNUM(obj2)) + return (FALSE); + + if (GET_OBJ_COST(obj1) != GET_OBJ_COST(obj2)) + return (FALSE); + + if (GET_OBJ_EXTRA(obj1) != GET_OBJ_EXTRA(obj2)) + return (FALSE); + + for (aindex = 0; aindex < MAX_OBJ_AFFECT; aindex++) + if ((obj1->affected[aindex].location != obj2->affected[aindex].location) || + (obj1->affected[aindex].modifier != obj2->affected[aindex].modifier)) + return (FALSE); + + return (TRUE); +} + + +int shop_producing(struct obj_data *item, int shop_nr) +{ + int counter; + + if (GET_OBJ_RNUM(item) == NOTHING) + return (FALSE); + + for (counter = 0; SHOP_PRODUCT(shop_nr, counter) != NOTHING; counter++) + if (same_obj(item, &obj_proto[SHOP_PRODUCT(shop_nr, counter)])) + return (TRUE); + return (FALSE); +} + + +int transaction_amt(char *arg) +{ + char buf[MAX_INPUT_LENGTH]; + + char *buywhat; + + /* + * If we have two arguments, it means 'buy 5 3', or buy 5 of #3. + * We don't do that if we only have one argument, like 'buy 5', buy #5. + * Code from Andrey Fidrya <andrey@ALEX-UA.COM> + */ + buywhat = one_argument(arg, buf); + if (*buywhat && *buf && is_number(buf)) { + strcpy(arg, arg + strlen(buf) + 1); /* strcpy: OK (always smaller) */ + return (atoi(buf)); + } + return (1); +} + + +char *times_message(struct obj_data *obj, char *name, int num) +{ + static char buf[256]; + size_t len; + char *ptr; + + if (obj) + len = strlcpy(buf, obj->short_description, sizeof(buf)); + else { + if ((ptr = strchr(name, '.')) == NULL) + ptr = name; + else + ptr++; + len = snprintf(buf, sizeof(buf), "%s %s", AN(ptr), ptr); + } + + if (num > 1 && len < sizeof(buf)) + snprintf(buf + len, sizeof(buf) - len, " (x %d)", num); + + return (buf); +} + + +struct obj_data *get_slide_obj_vis(struct char_data *ch, char *name, + struct obj_data *list) +{ + struct obj_data *i, *last_match = NULL; + int j, number; + char tmpname[MAX_INPUT_LENGTH]; + char *tmp; + + strlcpy(tmpname, name, sizeof(tmpname)); + tmp = tmpname; + if (!(number = get_number(&tmp))) + return (NULL); + + for (i = list, j = 1; i && (j <= number); i = i->next_content) + if (isname(tmp, i->name)) + if (CAN_SEE_OBJ(ch, i) && !same_obj(last_match, i)) { + if (j == number) + return (i); + last_match = i; + j++; + } + return (NULL); +} + + +struct obj_data *get_hash_obj_vis(struct char_data *ch, char *name, + struct obj_data *list) +{ + struct obj_data *loop, *last_obj = NULL; + int qindex; + + if (is_number(name)) + qindex = atoi(name); + else if (is_number(name + 1)) + qindex = atoi(name + 1); + else + return (NULL); + + for (loop = list; loop; loop = loop->next_content) + if (CAN_SEE_OBJ(ch, loop) && GET_OBJ_COST(loop) > 0) + if (!same_obj(last_obj, loop)) { + if (--qindex == 0) + return (loop); + last_obj = loop; + } + return (NULL); +} + + +struct obj_data *get_purchase_obj(struct char_data *ch, char *arg, + struct char_data *keeper, int shop_nr, int msg) +{ + char name[MAX_INPUT_LENGTH]; + struct obj_data *obj; + + one_argument(arg, name); + do { + if (*name == '#' || is_number(name)) + obj = get_hash_obj_vis(ch, name, keeper->carrying); + else + obj = get_slide_obj_vis(ch, name, keeper->carrying); + if (!obj) { + if (msg) { + char buf[MAX_INPUT_LENGTH]; + + snprintf(buf, sizeof(buf), shop_index[shop_nr].no_such_item1, GET_NAME(ch)); + do_tell(keeper, buf, cmd_tell, 0); + } + return (NULL); + } + if (GET_OBJ_COST(obj) <= 0) { + extract_obj(obj); + obj = NULL; + } + } while (!obj); + return (obj); +} + + +/* + * Shop purchase adjustment, based on charisma-difference from buyer to keeper. + * + * for i in `seq 15 -15`; do printf " * %3d: %6.4f\n" $i \ + * `echo "scale=4; 1+$i/70" | bc`; done + * + * Shopkeeper higher charisma (markup) + * ^ 15: 1.2142 14: 1.2000 13: 1.1857 12: 1.1714 11: 1.1571 + * | 10: 1.1428 9: 1.1285 8: 1.1142 7: 1.1000 6: 1.0857 + * | 5: 1.0714 4: 1.0571 3: 1.0428 2: 1.0285 1: 1.0142 + * + 0: 1.0000 + * | -1: 0.9858 -2: 0.9715 -3: 0.9572 -4: 0.9429 -5: 0.9286 + * | -6: 0.9143 -7: 0.9000 -8: 0.8858 -9: 0.8715 -10: 0.8572 + * v -11: 0.8429 -12: 0.8286 -13: 0.8143 -14: 0.8000 -15: 0.7858 + * Player higher charisma (discount) + * + * Most mobiles have 11 charisma so an 18 charisma player would get a 10% + * discount beyond the basic price. That assumes they put a lot of points + * into charisma, because on the flip side they'd get 11% inflation by + * having a 3. + */ +int buy_price(struct obj_data *obj, int shop_nr, struct char_data *keeper, struct char_data *buyer) +{ + return (int) (GET_OBJ_COST(obj) * SHOP_BUYPROFIT(shop_nr) + * (1 + (GET_CHA(keeper) - GET_CHA(buyer)) / (float)70)); +} + +/* + * When the shopkeeper is buying, we reverse the discount. Also make sure + * we don't buy for more than we sell for, to prevent infinite money-making. + */ +int sell_price(struct obj_data *obj, int shop_nr, struct char_data *keeper, struct char_data *seller) +{ + float sell_cost_modifier = SHOP_SELLPROFIT(shop_nr) * (1 - (GET_CHA(keeper) - GET_CHA(seller)) / (float)70); + float buy_cost_modifier = SHOP_BUYPROFIT(shop_nr) * (1 + (GET_CHA(keeper) - GET_CHA(seller)) / (float)70); + + if (sell_cost_modifier > buy_cost_modifier) + sell_cost_modifier = buy_cost_modifier; + + return (int) (GET_OBJ_COST(obj) * sell_cost_modifier); +} + + +void shopping_buy(char *arg, struct char_data *ch, struct char_data *keeper, int shop_nr) +{ + char tempstr[MAX_INPUT_LENGTH], tempbuf[MAX_INPUT_LENGTH]; + struct obj_data *obj, *last_obj = NULL; + int goldamt = 0, buynum, bought = 0; + + if (!is_ok(keeper, ch, shop_nr)) + return; + + if (SHOP_SORT(shop_nr) < IS_CARRYING_N(keeper)) + sort_keeper_objs(keeper, shop_nr); + + if ((buynum = transaction_amt(arg)) < 0) { + char buf[MAX_INPUT_LENGTH]; + + snprintf(buf, sizeof(buf), "%s A negative amount? Try selling me something.", + GET_NAME(ch)); + do_tell(keeper, buf, cmd_tell, 0); + return; + } + if (!*arg || !buynum) { + char buf[MAX_INPUT_LENGTH]; + + snprintf(buf, sizeof(buf), "%s What do you want to buy??", GET_NAME(ch)); + do_tell(keeper, buf, cmd_tell, 0); + return; + } + if (!(obj = get_purchase_obj(ch, arg, keeper, shop_nr, TRUE))) + return; + + if (buy_price(obj, shop_nr, keeper, ch) > GET_GOLD(ch) && !IS_GOD(ch)) { + char actbuf[MAX_INPUT_LENGTH]; + + snprintf(actbuf, sizeof(actbuf), shop_index[shop_nr].missing_cash2, GET_NAME(ch)); + do_tell(keeper, actbuf, cmd_tell, 0); + + switch (SHOP_BROKE_TEMPER(shop_nr)) { + case 0: + do_action(keeper, strcpy(actbuf, GET_NAME(ch)), cmd_puke, 0); /* strcpy: OK (MAX_NAME_LENGTH < MAX_INPUT_LENGTH) */ + return; + case 1: + do_echo(keeper, strcpy(actbuf, "smokes on his joint."), cmd_emote, SCMD_EMOTE); /* strcpy: OK */ + return; + default: + return; + } + } + if (IS_CARRYING_N(ch) + 1 > CAN_CARRY_N(ch)) { + send_to_char(ch, "%s: You can't carry any more items.\r\n", fname(obj->name)); + return; + } + if (IS_CARRYING_W(ch) + GET_OBJ_WEIGHT(obj) > CAN_CARRY_W(ch)) { + send_to_char(ch, "%s: You can't carry that much weight.\r\n", fname(obj->name)); + return; + } + while (obj && (GET_GOLD(ch) >= buy_price(obj, shop_nr, keeper, ch) || IS_GOD(ch)) + && IS_CARRYING_N(ch) < CAN_CARRY_N(ch) && bought < buynum + && IS_CARRYING_W(ch) + GET_OBJ_WEIGHT(obj) <= CAN_CARRY_W(ch)) { + int charged; + + bought++; + /* Test if producing shop ! */ + if (shop_producing(obj, shop_nr)) + obj = read_object(GET_OBJ_RNUM(obj), REAL); + else { + obj_from_char(obj); + SHOP_SORT(shop_nr)--; + } + obj_to_char(obj, ch); + + charged = buy_price(obj, shop_nr, keeper, ch); + goldamt += charged; + if (!IS_GOD(ch)) + GET_GOLD(ch) -= charged; + + last_obj = obj; + obj = get_purchase_obj(ch, arg, keeper, shop_nr, FALSE); + if (!same_obj(obj, last_obj)) + break; + } + + if (bought < buynum) { + char buf[MAX_INPUT_LENGTH]; + + if (!obj || !same_obj(last_obj, obj)) + snprintf(buf, sizeof(buf), "%s I only have %d to sell you.", GET_NAME(ch), bought); + else if (GET_GOLD(ch) < buy_price(obj, shop_nr, keeper, ch)) + snprintf(buf, sizeof(buf), "%s You can only afford %d.", GET_NAME(ch), bought); + else if (IS_CARRYING_N(ch) >= CAN_CARRY_N(ch)) + snprintf(buf, sizeof(buf), "%s You can only hold %d.", GET_NAME(ch), bought); + else if (IS_CARRYING_W(ch) + GET_OBJ_WEIGHT(obj) > CAN_CARRY_W(ch)) + snprintf(buf, sizeof(buf), "%s You can only carry %d.", GET_NAME(ch), bought); + else + snprintf(buf, sizeof(buf), "%s Something screwy only gave you %d.", GET_NAME(ch), bought); + do_tell(keeper, buf, cmd_tell, 0); + } + if (!IS_GOD(ch)) + GET_GOLD(keeper) += goldamt; + + strlcpy(tempstr, times_message(ch->carrying, 0, bought), sizeof(tempstr)); + + snprintf(tempbuf, sizeof(tempbuf), "$n buys %s.", tempstr); + act(tempbuf, FALSE, ch, obj, 0, TO_ROOM); + + snprintf(tempbuf, sizeof(tempbuf), shop_index[shop_nr].message_buy, GET_NAME(ch), goldamt); + do_tell(keeper, tempbuf, cmd_tell, 0); + + send_to_char(ch, "You now have %s.\r\n", tempstr); + + if (SHOP_USES_BANK(shop_nr)) + if (GET_GOLD(keeper) > MAX_OUTSIDE_BANK) { + SHOP_BANK(shop_nr) += (GET_GOLD(keeper) - MAX_OUTSIDE_BANK); + GET_GOLD(keeper) = MAX_OUTSIDE_BANK; + } +} + + +struct obj_data *get_selling_obj(struct char_data *ch, char *name, struct char_data *keeper, int shop_nr, int msg) +{ + char buf[MAX_INPUT_LENGTH]; + struct obj_data *obj; + int result; + + if (!(obj = get_obj_in_list_vis(ch, name, NULL, ch->carrying))) { + if (msg) { + char tbuf[MAX_INPUT_LENGTH]; + + snprintf(tbuf, sizeof(tbuf), shop_index[shop_nr].no_such_item2, GET_NAME(ch)); + do_tell(keeper, tbuf, cmd_tell, 0); + } + return (NULL); + } + if ((result = trade_with(obj, shop_nr)) == OBJECT_OK) + return (obj); + + if (!msg) + return (0); + + switch (result) { + case OBJECT_NOVAL: + snprintf(buf, sizeof(buf), "%s You've got to be kidding, that thing is worthless!", GET_NAME(ch)); + break; + case OBJECT_NOTOK: + snprintf(buf, sizeof(buf), shop_index[shop_nr].do_not_buy, GET_NAME(ch)); + break; + case OBJECT_DEAD: + snprintf(buf, sizeof(buf), "%s %s", GET_NAME(ch), MSG_NO_USED_WANDSTAFF); + break; + default: + log("SYSERR: Illegal return value of %d from trade_with() (%s)", result, __FILE__); /* Someone might rename it... */ + snprintf(buf, sizeof(buf), "%s An error has occurred.", GET_NAME(ch)); + break; + } + do_tell(keeper, buf, cmd_tell, 0); + return (NULL); +} + + +struct obj_data *slide_obj(struct obj_data *obj, struct char_data *keeper, + int shop_nr) +/* + This function is a slight hack! To make sure that duplicate items are + only listed once on the "list", this function groups "identical" + objects together on the shopkeeper's inventory list. The hack involves + knowing how the list is put together, and manipulating the order of + the objects on the list. (But since most of DIKU is not encapsulated, + and information hiding is almost never used, it isn't that big a deal) -JF +*/ +{ + struct obj_data *loop; + int temp; + + if (SHOP_SORT(shop_nr) < IS_CARRYING_N(keeper)) + sort_keeper_objs(keeper, shop_nr); + + /* Extract the object if it is identical to one produced */ + if (shop_producing(obj, shop_nr)) { + temp = GET_OBJ_RNUM(obj); + extract_obj(obj); + return (&obj_proto[temp]); + } + SHOP_SORT(shop_nr)++; + loop = keeper->carrying; + obj_to_char(obj, keeper); + keeper->carrying = loop; + while (loop) { + if (same_obj(obj, loop)) { + obj->next_content = loop->next_content; + loop->next_content = obj; + return (obj); + } + loop = loop->next_content; + } + keeper->carrying = obj; + return (obj); +} + + +void sort_keeper_objs(struct char_data *keeper, int shop_nr) +{ + struct obj_data *list = NULL, *temp; + + while (SHOP_SORT(shop_nr) < IS_CARRYING_N(keeper)) { + temp = keeper->carrying; + obj_from_char(temp); + temp->next_content = list; + list = temp; + } + + while (list) { + temp = list; + list = list->next_content; + if (shop_producing(temp, shop_nr) && + !get_obj_in_list_num(GET_OBJ_RNUM(temp), keeper->carrying)) { + obj_to_char(temp, keeper); + SHOP_SORT(shop_nr)++; + } else + slide_obj(temp, keeper, shop_nr); + } +} + + +void shopping_sell(char *arg, struct char_data *ch, struct char_data *keeper, int shop_nr) +{ + char tempstr[MAX_INPUT_LENGTH], name[MAX_INPUT_LENGTH], tempbuf[MAX_INPUT_LENGTH]; + struct obj_data *obj; + int sellnum, sold = 0, goldamt = 0; + + if (!(is_ok(keeper, ch, shop_nr))) + return; + + if ((sellnum = transaction_amt(arg)) < 0) { + char buf[MAX_INPUT_LENGTH]; + + snprintf(buf, sizeof(buf), "%s A negative amount? Try buying something.", GET_NAME(ch)); + do_tell(keeper, buf, cmd_tell, 0); + return; + } + if (!*arg || !sellnum) { + char buf[MAX_INPUT_LENGTH]; + + snprintf(buf, sizeof(buf), "%s What do you want to sell??", GET_NAME(ch)); + do_tell(keeper, buf, cmd_tell, 0); + return; + } + one_argument(arg, name); + if (!(obj = get_selling_obj(ch, name, keeper, shop_nr, TRUE))) + return; + + if (GET_GOLD(keeper) + SHOP_BANK(shop_nr) < sell_price(obj, shop_nr, keeper, ch)) { + char buf[MAX_INPUT_LENGTH]; + + snprintf(buf, sizeof(buf), shop_index[shop_nr].missing_cash1, GET_NAME(ch)); + do_tell(keeper, buf, cmd_tell, 0); + return; + } + while (obj && GET_GOLD(keeper) + SHOP_BANK(shop_nr) >= sell_price(obj, shop_nr, keeper, ch) && sold < sellnum) { + int charged = sell_price(obj, shop_nr, keeper, ch); + + goldamt += charged; + GET_GOLD(keeper) -= charged; + + sold++; + obj_from_char(obj); + slide_obj(obj, keeper, shop_nr); /* Seems we don't use return value. */ + obj = get_selling_obj(ch, name, keeper, shop_nr, FALSE); + } + + if (sold < sellnum) { + char buf[MAX_INPUT_LENGTH]; + + if (!obj) + snprintf(buf, sizeof(buf), "%s You only have %d of those.", GET_NAME(ch), sold); + else if (GET_GOLD(keeper) + SHOP_BANK(shop_nr) < sell_price(obj, shop_nr, keeper, ch)) + snprintf(buf, sizeof(buf), "%s I can only afford to buy %d of those.", GET_NAME(ch), sold); + else + snprintf(buf, sizeof(buf), "%s Something really screwy made me buy %d.", GET_NAME(ch), sold); + + do_tell(keeper, buf, cmd_tell, 0); + } + GET_GOLD(ch) += goldamt; + + strlcpy(tempstr, times_message(0, name, sold), sizeof(tempstr)); + snprintf(tempbuf, sizeof(tempbuf), "$n sells %s.", tempstr); + act(tempbuf, FALSE, ch, obj, 0, TO_ROOM); + + snprintf(tempbuf, sizeof(tempbuf), shop_index[shop_nr].message_sell, GET_NAME(ch), goldamt); + do_tell(keeper, tempbuf, cmd_tell, 0); + + send_to_char(ch, "The shopkeeper now has %s.\r\n", tempstr); + + if (GET_GOLD(keeper) < MIN_OUTSIDE_BANK) { + goldamt = MIN(MAX_OUTSIDE_BANK - GET_GOLD(keeper), SHOP_BANK(shop_nr)); + SHOP_BANK(shop_nr) -= goldamt; + GET_GOLD(keeper) += goldamt; + } +} + + +void shopping_value(char *arg, struct char_data *ch, struct char_data *keeper, int shop_nr) +{ + char buf[MAX_STRING_LENGTH], name[MAX_INPUT_LENGTH]; + struct obj_data *obj; + + if (!is_ok(keeper, ch, shop_nr)) + return; + + if (!*arg) { + snprintf(buf, sizeof(buf), "%s What do you want me to evaluate??", GET_NAME(ch)); + do_tell(keeper, buf, cmd_tell, 0); + return; + } + one_argument(arg, name); + if (!(obj = get_selling_obj(ch, name, keeper, shop_nr, TRUE))) + return; + + snprintf(buf, sizeof(buf), "%s I'll give you %d gold coins for that!", GET_NAME(ch), sell_price(obj, shop_nr, keeper, ch)); + do_tell(keeper, buf, cmd_tell, 0); +} + + +char *list_object(struct obj_data *obj, int cnt, int aindex, int shop_nr, struct char_data *keeper, struct char_data *ch) +{ + static char result[256]; + char itemname[128], + quantity[16]; /* "Unlimited" or "%d" */ + + if (shop_producing(obj, shop_nr)) + strcpy(quantity, "Unlimited"); /* strcpy: OK (for 'quantity >= 10') */ + else + sprintf(quantity, "%d", cnt); /* sprintf: OK (for 'quantity >= 11', 32-bit int) */ + + switch (GET_OBJ_TYPE(obj)) { + case ITEM_DRINKCON: + if (GET_OBJ_VAL(obj, 1)) + snprintf(itemname, sizeof(itemname), "%s of %s", obj->short_description, drinks[GET_OBJ_VAL(obj, 2)]); + else + strlcpy(itemname, obj->short_description, sizeof(itemname)); + break; + + case ITEM_WAND: + case ITEM_STAFF: + snprintf(itemname, sizeof(itemname), "%s%s", obj->short_description, + GET_OBJ_VAL(obj, 2) < GET_OBJ_VAL(obj, 1) ? " (partially used)" : ""); + break; + + default: + strlcpy(itemname, obj->short_description, sizeof(itemname)); + break; + } + CAP(itemname); + + snprintf(result, sizeof(result), " %2d) %9s %-48s %6d\r\n", + aindex, quantity, itemname, buy_price(obj, shop_nr, keeper, ch)); + return (result); +} + + +void shopping_list(char *arg, struct char_data *ch, struct char_data *keeper, int shop_nr) +{ + char buf[MAX_STRING_LENGTH], name[MAX_INPUT_LENGTH]; + struct obj_data *obj, *last_obj = NULL; + int cnt = 0, lindex = 0, found = FALSE; + size_t len; + /* cnt is the number of that particular object available */ + + if (!is_ok(keeper, ch, shop_nr)) + return; + + if (SHOP_SORT(shop_nr) < IS_CARRYING_N(keeper)) + sort_keeper_objs(keeper, shop_nr); + + one_argument(arg, name); + + len = strlcpy(buf, " ## Available Item Cost\r\n" + "-------------------------------------------------------------------------\r\n", sizeof(buf)); + if (keeper->carrying) + for (obj = keeper->carrying; obj; obj = obj->next_content) + if (CAN_SEE_OBJ(ch, obj) && GET_OBJ_COST(obj) > 0) { + if (!last_obj) { + last_obj = obj; + cnt = 1; + } else if (same_obj(last_obj, obj)) + cnt++; + else { + lindex++; + if (!*name || isname(name, last_obj->name)) { + strncat(buf, list_object(last_obj, cnt, lindex, shop_nr, keeper, ch), sizeof(buf) - len - 1); /* strncat: OK */ + len = strlen(buf); + if (len + 1 >= sizeof(buf)) + break; + found = TRUE; + } + cnt = 1; + last_obj = obj; + } + } + lindex++; + if (!last_obj) /* we actually have nothing in our list for sale, period */ + send_to_char(ch, "Currently, there is nothing for sale.\r\n"); + else if (*name && !found) /* nothing the char was looking for was found */ + send_to_char(ch, "Presently, none of those are for sale.\r\n"); + else { + if (!*name || isname(name, last_obj->name)) /* show last obj */ + if (len < sizeof(buf)) + strncat(buf, list_object(last_obj, cnt, lindex, shop_nr, keeper, ch), sizeof(buf) - len - 1); /* strncat: OK */ + page_string(ch->desc, buf, TRUE); + } +} + + +int ok_shop_room(int shop_nr, room_vnum room) +{ + int mindex; + + for (mindex = 0; SHOP_ROOM(shop_nr, mindex) != NOWHERE; mindex++) + if (SHOP_ROOM(shop_nr, mindex) == room) + return (TRUE); + return (FALSE); +} + + +SPECIAL(shop_keeper) +{ + struct char_data *keeper = (struct char_data *)me; + int shop_nr; + + for (shop_nr = 0; shop_nr <= top_shop; shop_nr++) + if (SHOP_KEEPER(shop_nr) == keeper->nr) + break; + + if (shop_nr > top_shop) + return (FALSE); + + if (SHOP_FUNC(shop_nr)) /* Check secondary function */ + if ((SHOP_FUNC(shop_nr)) (ch, me, cmd, argument)) + return (TRUE); + + if (keeper == ch) { + if (cmd) + SHOP_SORT(shop_nr) = 0; /* Safety in case "drop all" */ + return (FALSE); + } + if (!ok_shop_room(shop_nr, GET_ROOM_VNUM(IN_ROOM(ch)))) + return (0); + + if (!AWAKE(keeper)) + return (FALSE); + + if (CMD_IS("steal")) { + char argm[MAX_INPUT_LENGTH]; + + snprintf(argm, sizeof(argm), "$N shouts '%s'", MSG_NO_STEAL_HERE); + act(argm, FALSE, ch, 0, keeper, TO_CHAR); + + do_action(keeper, GET_NAME(ch), cmd_slap, 0); + return (TRUE); + } + + if (CMD_IS("buy")) { + shopping_buy(argument, ch, keeper, shop_nr); + return (TRUE); + } else if (CMD_IS("sell")) { + shopping_sell(argument, ch, keeper, shop_nr); + return (TRUE); + } else if (CMD_IS("value")) { + shopping_value(argument, ch, keeper, shop_nr); + return (TRUE); + } else if (CMD_IS("list")) { + shopping_list(argument, ch, keeper, shop_nr); + return (TRUE); + } + return (FALSE); +} + + +int ok_damage_shopkeeper(struct char_data *ch, struct char_data *victim) +{ + int sindex; + + if (!IS_MOB(victim) || mob_index[GET_MOB_RNUM(victim)].func != shop_keeper) + return (TRUE); + + /* Prevent "invincible" shopkeepers if they're charmed. */ + if (AFF_FLAGGED(victim, AFF_CHARM)) + return (TRUE); + + for (sindex = 0; sindex <= top_shop; sindex++) + if (GET_MOB_RNUM(victim) == SHOP_KEEPER(sindex) && !SHOP_KILL_CHARS(sindex)) { + char buf[MAX_INPUT_LENGTH]; + + snprintf(buf, sizeof(buf), "%s %s", GET_NAME(ch), MSG_CANT_KILL_KEEPER); + do_tell(victim, buf, cmd_tell, 0); + + do_action(victim, GET_NAME(ch), cmd_slap, 0); + return (FALSE); + } + + return (TRUE); +} + + +/* val == obj_vnum and obj_rnum (?) */ +int add_to_list(struct shop_buy_data *list, int type, int *len, int *val) +{ + if (*val != NOTHING) { + if (*len < MAX_SHOP_OBJ) { + if (type == LIST_PRODUCE) + *val = real_object(*val); + if (*val != NOTHING) { + BUY_TYPE(list[*len]) = *val; + BUY_WORD(list[(*len)++]) = NULL; + } else + *val = NOTHING; + return (FALSE); + } else + return (TRUE); + } + return (FALSE); +} + + +int end_read_list(struct shop_buy_data *list, int len, int error) +{ + if (error) + log("SYSERR: Raise MAX_SHOP_OBJ constant in shop.h to %d", len + error); + BUY_WORD(list[len]) = NULL; + BUY_TYPE(list[len++]) = NOTHING; + return (len); +} + + +void read_line(FILE *shop_f, const char *string, void *data) +{ + char buf[READ_SIZE]; + + if (!get_line(shop_f, buf) || !sscanf(buf, string, data)) { + log("SYSERR: Error in shop #%d, near '%s' with '%s'", SHOP_NUM(top_shop), buf, string); + exit(1); + } +} + + +int read_list(FILE *shop_f, struct shop_buy_data *list, int new_format, + int max, int type) +{ + int count, temp, len = 0, error = 0; + + if (new_format) { + for (;;) { + read_line(shop_f, "%d", &temp); + if (temp < 0) /* Always "-1" the string. */ + break; + error += add_to_list(list, type, &len, &temp); + } + } else + for (count = 0; count < max; count++) { + read_line(shop_f, "%d", &temp); + error += add_to_list(list, type, &len, &temp); + } + return (end_read_list(list, len, error)); +} + + +/* END_OF inefficient. */ +int read_type_list(FILE *shop_f, struct shop_buy_data *list, + int new_format, int max) +{ + int tindex, num, len = 0, error = 0; + char *ptr; + char buf[MAX_STRING_LENGTH]; + + if (!new_format) + return (read_list(shop_f, list, 0, max, LIST_TRADE)); + + do { + fgets(buf, sizeof(buf), shop_f); + if ((ptr = strchr(buf, ';')) != NULL) + *ptr = '\0'; + else + *(END_OF(buf) - 1) = '\0'; + + num = NOTHING; + + if (strncmp(buf, "-1", 4) != 0) + for (tindex = 0; *item_types[tindex] != '\n'; tindex++) + if (!strn_cmp(item_types[tindex], buf, strlen(item_types[tindex]))) { + num = tindex; + strcpy(buf, buf + strlen(item_types[tindex])); /* strcpy: OK (always smaller) */ + break; + } + + ptr = buf; + if (num == NOTHING) { + sscanf(buf, "%d", &num); + while (!isdigit(*ptr)) + ptr++; + while (isdigit(*ptr)) + ptr++; + } + while (isspace(*ptr)) + ptr++; + while (isspace(*(END_OF(ptr) - 1))) + *(END_OF(ptr) - 1) = '\0'; + error += add_to_list(list, LIST_TRADE, &len, &num); + if (*ptr) + BUY_WORD(list[len - 1]) = strdup(ptr); + } while (num >= 0); + return (end_read_list(list, len, error)); +} + + +char *read_shop_message(int mnum, room_vnum shr, FILE *shop_f, const char *why) +{ + int cht, ss = 0, ds = 0, err = 0; + char *tbuf; + + if (!(tbuf = fread_string(shop_f, why))) + return (NULL); + + for (cht = 0; tbuf[cht]; cht++) { + if (tbuf[cht] != '%') + continue; + + if (tbuf[cht + 1] == 's') + ss++; + else if (tbuf[cht + 1] == 'd' && (mnum == 5 || mnum == 6)) { + if (ss == 0) { + log("SYSERR: Shop #%d has %%d before %%s, message #%d.", shr, mnum); + err++; + } + ds++; + } else if (tbuf[cht + 1] != '%') { + log("SYSERR: Shop #%d has invalid format '%%%c' in message #%d.", shr, tbuf[cht + 1], mnum); + err++; + } + } + + if (ss > 1 || ds > 1) { + log("SYSERR: Shop #%d has too many specifiers for message #%d. %%s=%d %%d=%d", shr, mnum, ss, ds); + err++; + } + + if (err) { + free(tbuf); + return (NULL); + } + return (tbuf); +} + + +void boot_the_shops(FILE *shop_f, char *filename, int rec_count) +{ + char *buf, buf2[256]; + int temp, count, new_format = FALSE; + struct shop_buy_data list[MAX_SHOP_OBJ + 1]; + int done = FALSE; + + snprintf(buf2, sizeof(buf2), "beginning of shop file %s", filename); + + while (!done) { + buf = fread_string(shop_f, buf2); + if (*buf == '#') { /* New shop */ + sscanf(buf, "#%d\n", &temp); + snprintf(buf2, sizeof(buf2), "shop #%d in shop file %s", temp, filename); + free(buf); /* Plug memory leak! */ + top_shop++; + if (!top_shop) + CREATE(shop_index, struct shop_data, rec_count); + SHOP_NUM(top_shop) = temp; + temp = read_list(shop_f, list, new_format, MAX_PROD, LIST_PRODUCE); + CREATE(shop_index[top_shop].producing, obj_vnum, temp); + for (count = 0; count < temp; count++) + SHOP_PRODUCT(top_shop, count) = BUY_TYPE(list[count]); + + read_line(shop_f, "%f", &SHOP_BUYPROFIT(top_shop)); + read_line(shop_f, "%f", &SHOP_SELLPROFIT(top_shop)); + + temp = read_type_list(shop_f, list, new_format, MAX_TRADE); + CREATE(shop_index[top_shop].type, struct shop_buy_data, temp); + for (count = 0; count < temp; count++) { + SHOP_BUYTYPE(top_shop, count) = BUY_TYPE(list[count]); + SHOP_BUYWORD(top_shop, count) = BUY_WORD(list[count]); + } + + shop_index[top_shop].no_such_item1 = read_shop_message(0, SHOP_NUM(top_shop), shop_f, buf2); + shop_index[top_shop].no_such_item2 = read_shop_message(1, SHOP_NUM(top_shop), shop_f, buf2); + shop_index[top_shop].do_not_buy = read_shop_message(2, SHOP_NUM(top_shop), shop_f, buf2); + shop_index[top_shop].missing_cash1 = read_shop_message(3, SHOP_NUM(top_shop), shop_f, buf2); + shop_index[top_shop].missing_cash2 = read_shop_message(4, SHOP_NUM(top_shop), shop_f, buf2); + shop_index[top_shop].message_buy = read_shop_message(5, SHOP_NUM(top_shop), shop_f, buf2); + shop_index[top_shop].message_sell = read_shop_message(6, SHOP_NUM(top_shop), shop_f, buf2); + read_line(shop_f, "%d", &SHOP_BROKE_TEMPER(top_shop)); + read_line(shop_f, "%d", &SHOP_BITVECTOR(top_shop)); + read_line(shop_f, "%hd", &SHOP_KEEPER(top_shop)); + + SHOP_KEEPER(top_shop) = real_mobile(SHOP_KEEPER(top_shop)); + read_line(shop_f, "%d", &SHOP_TRADE_WITH(top_shop)); + + temp = read_list(shop_f, list, new_format, 1, LIST_ROOM); + CREATE(shop_index[top_shop].in_room, room_vnum, temp); + for (count = 0; count < temp; count++) + SHOP_ROOM(top_shop, count) = BUY_TYPE(list[count]); + + read_line(shop_f, "%d", &SHOP_OPEN1(top_shop)); + read_line(shop_f, "%d", &SHOP_CLOSE1(top_shop)); + read_line(shop_f, "%d", &SHOP_OPEN2(top_shop)); + read_line(shop_f, "%d", &SHOP_CLOSE2(top_shop)); + + SHOP_BANK(top_shop) = 0; + SHOP_SORT(top_shop) = 0; + SHOP_FUNC(top_shop) = NULL; + } else { + if (*buf == '$') /* EOF */ + done = TRUE; + else if (strstr(buf, VERSION3_TAG)) /* New format marker */ + new_format = TRUE; + free(buf); /* Plug memory leak! */ + } + } +} + + +void assign_the_shopkeepers(void) +{ + int cindex; + + cmd_say = find_command("say"); + cmd_tell = find_command("tell"); + cmd_emote = find_command("emote"); + cmd_slap = find_command("slap"); + cmd_puke = find_command("puke"); + + for (cindex = 0; cindex <= top_shop; cindex++) { + if (SHOP_KEEPER(cindex) == NOBODY) + continue; + + /* Having SHOP_FUNC() as 'shop_keeper' will cause infinite recursion. */ + if (mob_index[SHOP_KEEPER(cindex)].func && mob_index[SHOP_KEEPER(cindex)].func != shop_keeper) + SHOP_FUNC(cindex) = mob_index[SHOP_KEEPER(cindex)].func; + + mob_index[SHOP_KEEPER(cindex)].func = shop_keeper; + } +} + + +char *customer_string(int shop_nr, int detailed) +{ + int sindex = 0, flag = 1, nlen; + size_t len = 0; + static char buf[256]; + + while (*trade_letters[sindex] != '\n' && len + 1 < sizeof(buf)) { + if (detailed) { + if (!IS_SET(flag, SHOP_TRADE_WITH(shop_nr))) { + nlen = snprintf(buf + len, sizeof(buf) - len, ", %s", trade_letters[sindex]); + + if (len + nlen >= sizeof(buf) || nlen < 0) + break; + + len += nlen; + } + } else { + buf[len++] = (IS_SET(flag, SHOP_TRADE_WITH(shop_nr)) ? '_' : *trade_letters[sindex]); + buf[len] = '\0'; + + if (len >= sizeof(buf)) + break; + } + + sindex++; + flag <<= 1; + } + + buf[sizeof(buf) - 1] = '\0'; + return (buf); +} + + +/* END_OF inefficient */ +void list_all_shops(struct char_data *ch) +{ + const char *list_all_shops_header = + " ## Virtual Where Keeper Buy Sell Customers\r\n" + "---------------------------------------------------------\r\n"; + int shop_nr, headerlen = strlen(list_all_shops_header); + size_t len = 0; + char buf[MAX_STRING_LENGTH], buf1[16]; + + *buf = '\0'; + for (shop_nr = 0; shop_nr <= top_shop && len < sizeof(buf); shop_nr++) { + /* New page in page_string() mechanism, print the header again. */ + if (!(shop_nr % (PAGE_LENGTH - 2))) { + /* + * If we don't have enough room for the header, or all we have room left + * for is the header, then don't add it and just quit now. + */ + if (len + headerlen + 1 >= sizeof(buf)) + break; + strcpy(buf + len, list_all_shops_header); /* strcpy: OK (length checked above) */ + len += headerlen; + } + + if (SHOP_KEEPER(shop_nr) == NOBODY) + strcpy(buf1, "<NONE>"); /* strcpy: OK (for 'buf1 >= 7') */ + else + sprintf(buf1, "%6d", mob_index[SHOP_KEEPER(shop_nr)].vnum); /* sprintf: OK (for 'buf1 >= 11', 32-bit int) */ + + len += snprintf(buf + len, sizeof(buf) - len, + "%3d %6d %6d %s %3.2f %3.2f %s\r\n", + shop_nr + 1, SHOP_NUM(shop_nr), SHOP_ROOM(shop_nr, 0), buf1, + SHOP_SELLPROFIT(shop_nr), SHOP_BUYPROFIT(shop_nr), + customer_string(shop_nr, FALSE)); + } + + page_string(ch->desc, buf, TRUE); +} + + +void list_detailed_shop(struct char_data *ch, int shop_nr) +{ + struct char_data *k; + int sindex, column; + char *ptrsave; + + send_to_char(ch, "Vnum: [%5d], Rnum: [%5d]\r\n", SHOP_NUM(shop_nr), shop_nr + 1); + + + send_to_char(ch, "Rooms: "); + column = 12; /* ^^^ strlen ^^^ */ + for (sindex = 0; SHOP_ROOM(shop_nr, sindex) != NOWHERE; sindex++) { + char buf1[128]; + int linelen, temp; + + if (sindex) { + send_to_char(ch, ", "); + column += 2; + } + + if ((temp = real_room(SHOP_ROOM(shop_nr, sindex))) != NOWHERE) + linelen = snprintf(buf1, sizeof(buf1), "%s (#%d)", world[temp].name, GET_ROOM_VNUM(temp)); + else + linelen = snprintf(buf1, sizeof(buf1), "<UNKNOWN> (#%d)", SHOP_ROOM(shop_nr, sindex)); + + /* Implementing word-wrapping: assumes screen-size == 80 */ + if (linelen + column >= 78 && column >= 20) { + send_to_char(ch, "\r\n "); + /* 12 is to line up with "Rooms:" printed first, and spaces above. */ + column = 12; + } + + if (!send_to_char(ch, "%s", buf1)) + return; + column += linelen; + } + if (!sindex) + send_to_char(ch, "Rooms: None!"); + + send_to_char(ch, "\r\nShopkeeper: "); + if (SHOP_KEEPER(shop_nr) != NOBODY) { + send_to_char(ch, "%s (#%d), Special Function: %s\r\n", + GET_NAME(&mob_proto[SHOP_KEEPER(shop_nr)]), + mob_index[SHOP_KEEPER(shop_nr)].vnum, + YESNO(SHOP_FUNC(shop_nr))); + + if ((k = get_char_num(SHOP_KEEPER(shop_nr)))) + send_to_char(ch, "Coins: [%9d], Bank: [%9d] (Total: %d)\r\n", + GET_GOLD(k), SHOP_BANK(shop_nr), GET_GOLD(k) + SHOP_BANK(shop_nr)); + } else + send_to_char(ch, "<NONE>\r\n"); + + + send_to_char(ch, "Customers: %s\r\n", (ptrsave = customer_string(shop_nr, TRUE)) ? ptrsave : "None"); + + + send_to_char(ch, "Produces: "); + column = 12; /* ^^^ strlen ^^^ */ + for (sindex = 0; SHOP_PRODUCT(shop_nr, sindex) != NOTHING; sindex++) { + char buf1[128]; + int linelen; + + if (sindex) { + send_to_char(ch, ", "); + column += 2; + } + linelen = snprintf(buf1, sizeof(buf1), "%s (#%d)", + obj_proto[SHOP_PRODUCT(shop_nr, sindex)].short_description, + obj_index[SHOP_PRODUCT(shop_nr, sindex)].vnum); + + /* Implementing word-wrapping: assumes screen-size == 80 */ + if (linelen + column >= 78 && column >= 20) { + send_to_char(ch, "\r\n "); + /* 12 is to line up with "Produces:" printed first, and spaces above. */ + column = 12; + } + + if (!send_to_char(ch, "%s", buf1)) + return; + column += linelen; + } + if (!sindex) + send_to_char(ch, "Produces: Nothing!"); + + send_to_char(ch, "\r\nBuys: "); + column = 12; /* ^^^ strlen ^^^ */ + for (sindex = 0; SHOP_BUYTYPE(shop_nr, sindex) != NOTHING; sindex++) { + char buf1[128]; + size_t linelen; + + if (sindex) { + send_to_char(ch, ", "); + column += 2; + } + + linelen = snprintf(buf1, sizeof(buf1), "%s (#%d) [%s]", + item_types[SHOP_BUYTYPE(shop_nr, sindex)], + SHOP_BUYTYPE(shop_nr, sindex), + SHOP_BUYWORD(shop_nr, sindex) ? SHOP_BUYWORD(shop_nr, sindex) : "all"); + + /* Implementing word-wrapping: assumes screen-size == 80 */ + if (linelen + column >= 78 && column >= 20) { + send_to_char(ch, "\r\n "); + /* 12 is to line up with "Buys:" printed first, and spaces above. */ + column = 12; + } + + if (!send_to_char(ch, "%s", buf1)) + return; + column += linelen; + } + if (!sindex) + send_to_char(ch, "Buys: Nothing!"); + + send_to_char(ch, "\r\nBuy at: [%4.2f], Sell at: [%4.2f], Open: [%d-%d, %d-%d]\r\n", + SHOP_SELLPROFIT(shop_nr), SHOP_BUYPROFIT(shop_nr), SHOP_OPEN1(shop_nr), + SHOP_CLOSE1(shop_nr), SHOP_OPEN2(shop_nr), SHOP_CLOSE2(shop_nr)); + + + /* Need a local buffer. */ + { + char buf1[128]; + sprintbit(SHOP_BITVECTOR(shop_nr), shop_bits, buf1, sizeof(buf1)); + send_to_char(ch, "Bits: %s\r\n", buf1); + } +} + + +void show_shops(struct char_data *ch, char *arg) +{ + int shop_nr; + + if (!*arg) + list_all_shops(ch); + else { + if (!str_cmp(arg, ".")) { + for (shop_nr = 0; shop_nr <= top_shop; shop_nr++) + if (ok_shop_room(shop_nr, GET_ROOM_VNUM(IN_ROOM(ch)))) + break; + + if (shop_nr > top_shop) { + send_to_char(ch, "This isn't a shop!\r\n"); + return; + } + } else if (is_number(arg)) + shop_nr = atoi(arg) - 1; + else + shop_nr = -1; + + if (shop_nr < 0 || shop_nr > top_shop) { + send_to_char(ch, "Illegal shop number.\r\n"); + return; + } + list_detailed_shop(ch, shop_nr); + } +} + + +void destroy_shops(void) +{ + ssize_t cnt, itr; + + if (!shop_index) + return; + + for (cnt = 0; cnt <= top_shop; cnt++) { + if (shop_index[cnt].no_such_item1) + free(shop_index[cnt].no_such_item1); + if (shop_index[cnt].no_such_item2) + free(shop_index[cnt].no_such_item2); + if (shop_index[cnt].missing_cash1) + free(shop_index[cnt].missing_cash1); + if (shop_index[cnt].missing_cash2) + free(shop_index[cnt].missing_cash2); + if (shop_index[cnt].do_not_buy) + free(shop_index[cnt].do_not_buy); + if (shop_index[cnt].message_buy) + free(shop_index[cnt].message_buy); + if (shop_index[cnt].message_sell) + free(shop_index[cnt].message_sell); + if (shop_index[cnt].in_room) + free(shop_index[cnt].in_room); + if (shop_index[cnt].producing) + free(shop_index[cnt].producing); + + if (shop_index[cnt].type) { + for (itr = 0; BUY_TYPE(shop_index[cnt].type[itr]) != NOTHING; itr++) + if (BUY_WORD(shop_index[cnt].type[itr])) + free(BUY_WORD(shop_index[cnt].type[itr])); + free(shop_index[cnt].type); + } + } + + free(shop_index); + shop_index = NULL; + top_shop = -1; +} diff --git a/src/shop.h b/src/shop.h new file mode 100644 index 0000000..9af970a --- /dev/null +++ b/src/shop.h @@ -0,0 +1,146 @@ +/* ************************************************************************ +* File: shop.h Part of CircleMUD * +* Usage: shop file definitions, structures, constants * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + + +struct shop_buy_data { + int type; + char *keywords; +}; + +#define BUY_TYPE(i) ((i).type) +#define BUY_WORD(i) ((i).keywords) + +struct shop_data { + room_vnum vnum; /* Virtual number of this shop */ + obj_vnum *producing; /* Which item to produce (virtual) */ + float profit_buy; /* Factor to multiply cost with */ + float profit_sell; /* Factor to multiply cost with */ + struct shop_buy_data *type; /* Which items to trade */ + char *no_such_item1; /* Message if keeper hasn't got an item */ + char *no_such_item2; /* Message if player hasn't got an item */ + char *missing_cash1; /* Message if keeper hasn't got cash */ + char *missing_cash2; /* Message if player hasn't got cash */ + char *do_not_buy; /* If keeper dosn't buy such things */ + char *message_buy; /* Message when player buys item */ + char *message_sell; /* Message when player sells item */ + int temper1; /* How does keeper react if no money */ + bitvector_t bitvector; /* Can attack? Use bank? Cast here? */ + mob_rnum keeper; /* The mobile who owns the shop (rnum) */ + int with_who; /* Who does the shop trade with? */ + room_vnum *in_room; /* Where is the shop? */ + int open1, open2; /* When does the shop open? */ + int close1, close2; /* When does the shop close? */ + int bankAccount; /* Store all gold over 15000 (disabled) */ + int lastsort; /* How many items are sorted in inven? */ + SPECIAL (*func); /* Secondary spec_proc for shopkeeper */ +}; + + +#define MAX_TRADE 5 /* List maximums for compatibility */ +#define MAX_PROD 5 /* with shops before v3.0 */ +#define VERSION3_TAG "v3.0" /* The file has v3.0 shops in it! */ +#define MAX_SHOP_OBJ 100 /* "Soft" maximum for list maximums */ + + +/* Pretty general macros that could be used elsewhere */ +#define IS_GOD(ch) (!IS_NPC(ch) && (GET_LEVEL(ch) >= LVL_GOD)) +#define END_OF(buffer) ((buffer) + strlen((buffer))) + + +/* Possible states for objects trying to be sold */ +#define OBJECT_DEAD 0 +#define OBJECT_NOTOK 1 +#define OBJECT_OK 2 +#define OBJECT_NOVAL 3 + + +/* Types of lists to read */ +#define LIST_PRODUCE 0 +#define LIST_TRADE 1 +#define LIST_ROOM 2 + + +/* Whom will we not trade with (bitvector for SHOP_TRADE_WITH()) */ +#define TRADE_NOGOOD (1 << 0) +#define TRADE_NOEVIL (1 << 1) +#define TRADE_NONEUTRAL (1 << 2) +#define TRADE_NOMAGIC_USER (1 << 3) +#define TRADE_NOCLERIC (1 << 4) +#define TRADE_NOTHIEF (1 << 5) +#define TRADE_NOWARRIOR (1 << 6) + + +struct stack_data { + int data[100]; + int len; +} ; + +#define S_DATA(stack, index) ((stack)->data[(index)]) +#define S_LEN(stack) ((stack)->len) + + +/* Which expression type we are now parsing */ +#define OPER_OPEN_PAREN 0 +#define OPER_CLOSE_PAREN 1 +#define OPER_OR 2 +#define OPER_AND 3 +#define OPER_NOT 4 +#define MAX_OPER 4 + + +#define SHOP_NUM(i) (shop_index[(i)].vnum) +#define SHOP_KEEPER(i) (shop_index[(i)].keeper) +#define SHOP_OPEN1(i) (shop_index[(i)].open1) +#define SHOP_CLOSE1(i) (shop_index[(i)].close1) +#define SHOP_OPEN2(i) (shop_index[(i)].open2) +#define SHOP_CLOSE2(i) (shop_index[(i)].close2) +#define SHOP_ROOM(i, num) (shop_index[(i)].in_room[(num)]) +#define SHOP_BUYTYPE(i, num) (BUY_TYPE(shop_index[(i)].type[(num)])) +#define SHOP_BUYWORD(i, num) (BUY_WORD(shop_index[(i)].type[(num)])) +#define SHOP_PRODUCT(i, num) (shop_index[(i)].producing[(num)]) +#define SHOP_BANK(i) (shop_index[(i)].bankAccount) +#define SHOP_BROKE_TEMPER(i) (shop_index[(i)].temper1) +#define SHOP_BITVECTOR(i) (shop_index[(i)].bitvector) +#define SHOP_TRADE_WITH(i) (shop_index[(i)].with_who) +#define SHOP_SORT(i) (shop_index[(i)].lastsort) +#define SHOP_BUYPROFIT(i) (shop_index[(i)].profit_buy) +#define SHOP_SELLPROFIT(i) (shop_index[(i)].profit_sell) +#define SHOP_FUNC(i) (shop_index[(i)].func) + +#define NOTRADE_GOOD(i) (IS_SET(SHOP_TRADE_WITH((i)), TRADE_NOGOOD)) +#define NOTRADE_EVIL(i) (IS_SET(SHOP_TRADE_WITH((i)), TRADE_NOEVIL)) +#define NOTRADE_NEUTRAL(i) (IS_SET(SHOP_TRADE_WITH((i)), TRADE_NONEUTRAL)) +#define NOTRADE_MAGIC_USER(i) (IS_SET(SHOP_TRADE_WITH((i)), TRADE_NOMAGIC_USER)) +#define NOTRADE_CLERIC(i) (IS_SET(SHOP_TRADE_WITH((i)), TRADE_NOCLERIC)) +#define NOTRADE_THIEF(i) (IS_SET(SHOP_TRADE_WITH((i)), TRADE_NOTHIEF)) +#define NOTRADE_WARRIOR(i) (IS_SET(SHOP_TRADE_WITH((i)), TRADE_NOWARRIOR)) + + + +#define WILL_START_FIGHT (1 << 0) +#define WILL_BANK_MONEY (1 << 1) + +#define SHOP_KILL_CHARS(i) (IS_SET(SHOP_BITVECTOR(i), WILL_START_FIGHT)) +#define SHOP_USES_BANK(i) (IS_SET(SHOP_BITVECTOR(i), WILL_BANK_MONEY)) + + +#define MIN_OUTSIDE_BANK 5000 +#define MAX_OUTSIDE_BANK 15000 + +#define MSG_NOT_OPEN_YET "Come back later!" +#define MSG_NOT_REOPEN_YET "Sorry, we have closed, but come back later." +#define MSG_CLOSED_FOR_DAY "Sorry, come back tomorrow." +#define MSG_NO_STEAL_HERE "$n is a bloody thief!" +#define MSG_NO_SEE_CHAR "I don't trade with someone I can't see!" +#define MSG_NO_SELL_ALIGN "Get out of here before I call the guards!" +#define MSG_NO_SELL_CLASS "We don't serve your kind here!" +#define MSG_NO_USED_WANDSTAFF "I don't buy used up wands or staves!" +#define MSG_CANT_KILL_KEEPER "Get out of here before I call the guards!" + diff --git a/src/spec_assign.c b/src/spec_assign.c new file mode 100644 index 0000000..2bc387e --- /dev/null +++ b/src/spec_assign.c @@ -0,0 +1,307 @@ +/* ************************************************************************ +* File: spec_assign.c Part of CircleMUD * +* Usage: Functions to assign function pointers to objs/mobs/rooms * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "db.h" +#include "interpreter.h" +#include "utils.h" + + +/* external globals */ +extern int dts_are_dumps; +extern int mini_mud; + +/* external functions */ +SPECIAL(dump); +SPECIAL(pet_shops); +SPECIAL(postmaster); +SPECIAL(cityguard); +SPECIAL(receptionist); +SPECIAL(cryogenicist); +SPECIAL(guild_guard); +SPECIAL(guild); +SPECIAL(puff); +SPECIAL(fido); +SPECIAL(janitor); +SPECIAL(mayor); +SPECIAL(snake); +SPECIAL(thief); +SPECIAL(magic_user); +SPECIAL(bank); +SPECIAL(gen_board); +void assign_kings_castle(void); + +/* local functions */ +void assign_mobiles(void); +void assign_objects(void); +void assign_rooms(void); +void ASSIGNROOM(room_vnum room, SPECIAL(fname)); +void ASSIGNMOB(mob_vnum mob, SPECIAL(fname)); +void ASSIGNOBJ(obj_vnum obj, SPECIAL(fname)); + +/* functions to perform assignments */ + +void ASSIGNMOB(mob_vnum mob, SPECIAL(fname)) +{ + mob_rnum rnum; + + if ((rnum = real_mobile(mob)) != NOBODY) + mob_index[rnum].func = fname; + else if (!mini_mud) + log("SYSERR: Attempt to assign spec to non-existant mob #%d", mob); +} + +void ASSIGNOBJ(obj_vnum obj, SPECIAL(fname)) +{ + obj_rnum rnum; + + if ((rnum = real_object(obj)) != NOTHING) + obj_index[rnum].func = fname; + else if (!mini_mud) + log("SYSERR: Attempt to assign spec to non-existant obj #%d", obj); +} + +void ASSIGNROOM(room_vnum room, SPECIAL(fname)) +{ + room_rnum rnum; + + if ((rnum = real_room(room)) != NOWHERE) + world[rnum].func = fname; + else if (!mini_mud) + log("SYSERR: Attempt to assign spec to non-existant room #%d", room); +} + + +/* ******************************************************************** +* Assignments * +******************************************************************** */ + +/* assign special procedures to mobiles */ +void assign_mobiles(void) +{ + assign_kings_castle(); + + ASSIGNMOB(1, puff); + + /* Immortal Zone */ + ASSIGNMOB(1200, receptionist); + ASSIGNMOB(1201, postmaster); + ASSIGNMOB(1202, janitor); + + /* Midgaard */ + ASSIGNMOB(3005, receptionist); + ASSIGNMOB(3010, postmaster); + ASSIGNMOB(3020, guild); + ASSIGNMOB(3021, guild); + ASSIGNMOB(3022, guild); + ASSIGNMOB(3023, guild); + ASSIGNMOB(3024, guild_guard); + ASSIGNMOB(3025, guild_guard); + ASSIGNMOB(3026, guild_guard); + ASSIGNMOB(3027, guild_guard); + ASSIGNMOB(3059, cityguard); + ASSIGNMOB(3060, cityguard); + ASSIGNMOB(3061, janitor); + ASSIGNMOB(3062, fido); + ASSIGNMOB(3066, fido); + ASSIGNMOB(3067, cityguard); + ASSIGNMOB(3068, janitor); + ASSIGNMOB(3095, cryogenicist); + ASSIGNMOB(3105, mayor); + + /* MORIA */ + ASSIGNMOB(4000, snake); + ASSIGNMOB(4001, snake); + ASSIGNMOB(4053, snake); + ASSIGNMOB(4100, magic_user); + ASSIGNMOB(4102, snake); + ASSIGNMOB(4103, thief); + + /* Redferne's */ + ASSIGNMOB(7900, cityguard); + + /* PYRAMID */ + ASSIGNMOB(5300, snake); + ASSIGNMOB(5301, snake); + ASSIGNMOB(5304, thief); + ASSIGNMOB(5305, thief); + ASSIGNMOB(5309, magic_user); /* should breath fire */ + ASSIGNMOB(5311, magic_user); + ASSIGNMOB(5313, magic_user); /* should be a cleric */ + ASSIGNMOB(5314, magic_user); /* should be a cleric */ + ASSIGNMOB(5315, magic_user); /* should be a cleric */ + ASSIGNMOB(5316, magic_user); /* should be a cleric */ + ASSIGNMOB(5317, magic_user); + + /* High Tower Of Sorcery */ + ASSIGNMOB(2501, magic_user); /* should likely be cleric */ + ASSIGNMOB(2504, magic_user); + ASSIGNMOB(2507, magic_user); + ASSIGNMOB(2508, magic_user); + ASSIGNMOB(2510, magic_user); + ASSIGNMOB(2511, thief); + ASSIGNMOB(2514, magic_user); + ASSIGNMOB(2515, magic_user); + ASSIGNMOB(2516, magic_user); + ASSIGNMOB(2517, magic_user); + ASSIGNMOB(2518, magic_user); + ASSIGNMOB(2520, magic_user); + ASSIGNMOB(2521, magic_user); + ASSIGNMOB(2522, magic_user); + ASSIGNMOB(2523, magic_user); + ASSIGNMOB(2524, magic_user); + ASSIGNMOB(2525, magic_user); + ASSIGNMOB(2526, magic_user); + ASSIGNMOB(2527, magic_user); + ASSIGNMOB(2528, magic_user); + ASSIGNMOB(2529, magic_user); + ASSIGNMOB(2530, magic_user); + ASSIGNMOB(2531, magic_user); + ASSIGNMOB(2532, magic_user); + ASSIGNMOB(2533, magic_user); + ASSIGNMOB(2534, magic_user); + ASSIGNMOB(2536, magic_user); + ASSIGNMOB(2537, magic_user); + ASSIGNMOB(2538, magic_user); + ASSIGNMOB(2540, magic_user); + ASSIGNMOB(2541, magic_user); + ASSIGNMOB(2548, magic_user); + ASSIGNMOB(2549, magic_user); + ASSIGNMOB(2552, magic_user); + ASSIGNMOB(2553, magic_user); + ASSIGNMOB(2554, magic_user); + ASSIGNMOB(2556, magic_user); + ASSIGNMOB(2557, magic_user); + ASSIGNMOB(2559, magic_user); + ASSIGNMOB(2560, magic_user); + ASSIGNMOB(2562, magic_user); + ASSIGNMOB(2564, magic_user); + + /* SEWERS */ + ASSIGNMOB(7006, snake); + ASSIGNMOB(7009, magic_user); + ASSIGNMOB(7200, magic_user); + ASSIGNMOB(7201, magic_user); + ASSIGNMOB(7202, magic_user); + + /* FOREST */ + ASSIGNMOB(6112, magic_user); + ASSIGNMOB(6113, snake); + ASSIGNMOB(6114, magic_user); + ASSIGNMOB(6115, magic_user); + ASSIGNMOB(6116, magic_user); /* should be a cleric */ + ASSIGNMOB(6117, magic_user); + + /* ARACHNOS */ + ASSIGNMOB(6302, magic_user); + ASSIGNMOB(6309, magic_user); + ASSIGNMOB(6312, magic_user); + ASSIGNMOB(6314, magic_user); + ASSIGNMOB(6315, magic_user); + + /* Desert */ + ASSIGNMOB(5004, magic_user); + ASSIGNMOB(5005, guild_guard); /* brass dragon */ + ASSIGNMOB(5010, magic_user); + ASSIGNMOB(5014, magic_user); + + /* Drow City */ + ASSIGNMOB(5103, magic_user); + ASSIGNMOB(5104, magic_user); + ASSIGNMOB(5107, magic_user); + ASSIGNMOB(5108, magic_user); + + /* Old Thalos */ + ASSIGNMOB(5200, magic_user); + ASSIGNMOB(5201, magic_user); + ASSIGNMOB(5209, magic_user); + + /* New Thalos */ +/* 5481 - Cleric (or Mage... but he IS a high priest... *shrug*) */ + ASSIGNMOB(5404, receptionist); + ASSIGNMOB(5421, magic_user); + ASSIGNMOB(5422, magic_user); + ASSIGNMOB(5423, magic_user); + ASSIGNMOB(5424, magic_user); + ASSIGNMOB(5425, magic_user); + ASSIGNMOB(5426, magic_user); + ASSIGNMOB(5427, magic_user); + ASSIGNMOB(5428, magic_user); + ASSIGNMOB(5434, cityguard); + ASSIGNMOB(5440, magic_user); + ASSIGNMOB(5455, magic_user); + ASSIGNMOB(5461, cityguard); + ASSIGNMOB(5462, cityguard); + ASSIGNMOB(5463, cityguard); + ASSIGNMOB(5482, cityguard); +/* +5400 - Guildmaster (Mage) +5401 - Guildmaster (Cleric) +5402 - Guildmaster (Warrior) +5403 - Guildmaster (Thief) +5456 - Guildguard (Mage) +5457 - Guildguard (Cleric) +5458 - Guildguard (Warrior) +5459 - Guildguard (Thief) +*/ + + /* ROME */ + ASSIGNMOB(12009, magic_user); + ASSIGNMOB(12018, cityguard); + ASSIGNMOB(12020, magic_user); + ASSIGNMOB(12021, cityguard); + ASSIGNMOB(12025, magic_user); + ASSIGNMOB(12030, magic_user); + ASSIGNMOB(12031, magic_user); + ASSIGNMOB(12032, magic_user); + + /* King Welmar's Castle (not covered in castle.c) */ + ASSIGNMOB(15015, thief); /* Ergan... have a better idea? */ + ASSIGNMOB(15032, magic_user); /* Pit Fiend, have something better? Use it */ + + /* DWARVEN KINGDOM */ + ASSIGNMOB(6500, cityguard); + ASSIGNMOB(6502, magic_user); + ASSIGNMOB(6509, magic_user); + ASSIGNMOB(6516, magic_user); +} + + + +/* assign special procedures to objects */ +void assign_objects(void) +{ + ASSIGNOBJ(3096, gen_board); /* social board */ + ASSIGNOBJ(3097, gen_board); /* freeze board */ + ASSIGNOBJ(3098, gen_board); /* immortal board */ + ASSIGNOBJ(3099, gen_board); /* mortal board */ + + ASSIGNOBJ(3034, bank); /* atm */ + ASSIGNOBJ(3036, bank); /* cashcard */ +} + + + +/* assign special procedures to rooms */ +void assign_rooms(void) +{ + room_rnum i; + + ASSIGNROOM(3030, dump); + ASSIGNROOM(3031, pet_shops); + + if (dts_are_dumps) + for (i = 0; i <= top_of_world; i++) + if (ROOM_FLAGGED(i, ROOM_DEATH)) + world[i].func = dump; +} diff --git a/src/spec_procs.c b/src/spec_procs.c new file mode 100644 index 0000000..a80bdfa --- /dev/null +++ b/src/spec_procs.c @@ -0,0 +1,755 @@ +/* ************************************************************************ +* File: spec_procs.c Part of CircleMUD * +* Usage: implementation of special procedures for mobiles/objects/rooms * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "interpreter.h" +#include "handler.h" +#include "db.h" +#include "spells.h" +#include "constants.h" + +/* external vars */ +extern struct time_info_data time_info; +extern struct spell_info_type spell_info[]; +extern struct guild_info_type guild_info[]; + +/* extern functions */ +ACMD(do_drop); +ACMD(do_gen_door); +ACMD(do_say); +ACMD(do_action); + +/* local functions */ +void sort_spells(void); +int compare_spells(const void *x, const void *y); +const char *how_good(int percent); +void list_skills(struct char_data *ch); +SPECIAL(guild); +SPECIAL(dump); +SPECIAL(mayor); +void npc_steal(struct char_data *ch, struct char_data *victim); +SPECIAL(snake); +SPECIAL(thief); +SPECIAL(magic_user); +SPECIAL(guild_guard); +SPECIAL(puff); +SPECIAL(fido); +SPECIAL(janitor); +SPECIAL(cityguard); +SPECIAL(pet_shops); +SPECIAL(bank); + + +/* ******************************************************************** +* Special procedures for mobiles * +******************************************************************** */ + +int spell_sort_info[MAX_SKILLS + 1]; + +int compare_spells(const void *x, const void *y) +{ + int a = *(const int *)x, + b = *(const int *)y; + + return strcmp(spell_info[a].name, spell_info[b].name); +} + +void sort_spells(void) +{ + int a; + + /* initialize array, avoiding reserved. */ + for (a = 1; a <= MAX_SKILLS; a++) + spell_sort_info[a] = a; + + qsort(&spell_sort_info[1], MAX_SKILLS, sizeof(int), compare_spells); +} + +const char *how_good(int percent) +{ + if (percent < 0) + return " error)"; + if (percent == 0) + return " (not learned)"; + if (percent <= 10) + return " (awful)"; + if (percent <= 20) + return " (bad)"; + if (percent <= 40) + return " (poor)"; + if (percent <= 55) + return " (average)"; + if (percent <= 70) + return " (fair)"; + if (percent <= 80) + return " (good)"; + if (percent <= 85) + return " (very good)"; + + return " (superb)"; +} + +const char *prac_types[] = { + "spell", + "skill" +}; + +#define LEARNED_LEVEL 0 /* % known which is considered "learned" */ +#define MAX_PER_PRAC 1 /* max percent gain in skill per practice */ +#define MIN_PER_PRAC 2 /* min percent gain in skill per practice */ +#define PRAC_TYPE 3 /* should it say 'spell' or 'skill'? */ + +/* actual prac_params are in class.c */ +extern int prac_params[4][NUM_CLASSES]; + +#define LEARNED(ch) (prac_params[LEARNED_LEVEL][(int)GET_CLASS(ch)]) +#define MINGAIN(ch) (prac_params[MIN_PER_PRAC][(int)GET_CLASS(ch)]) +#define MAXGAIN(ch) (prac_params[MAX_PER_PRAC][(int)GET_CLASS(ch)]) +#define SPLSKL(ch) (prac_types[prac_params[PRAC_TYPE][(int)GET_CLASS(ch)]]) + +void list_skills(struct char_data *ch) +{ + const char *overflow = "\r\n**OVERFLOW**\r\n"; + int i, sortpos, nlen; + size_t len = 0; + char buf2[MAX_STRING_LENGTH]; + + if (!GET_PRACTICES(ch)) { + send_to_char(ch, "You have no practice sessions remaining.\r\n"); + return; + } + + len = snprintf(buf2, sizeof(buf2), "You have %d practice session%s remaining.\r\n" + "You know of the following %ss:\r\n", GET_PRACTICES(ch), + GET_PRACTICES(ch) == 1 ? "" : "s", SPLSKL(ch)); + + for (sortpos = 1; sortpos <= MAX_SKILLS; sortpos++) { + i = spell_sort_info[sortpos]; + if (GET_LEVEL(ch) >= spell_info[i].min_level[(int) GET_CLASS(ch)]) { + nlen = snprintf(buf2 + len, sizeof(buf2) - len, "%-20s %s\r\n", spell_info[i].name, how_good(GET_SKILL(ch, i))); + if (len + nlen >= sizeof(buf2) || nlen < 0) + break; + len += nlen; + } + } + if (len >= sizeof(buf2)) + strcpy(buf2 + sizeof(buf2) - strlen(overflow) - 1, overflow); /* strcpy: OK */ + + page_string(ch->desc, buf2, TRUE); +} + + +SPECIAL(guild) +{ + int skill_num, percent; + + if (IS_NPC(ch) || !CMD_IS("practice")) + return (FALSE); + + skip_spaces(&argument); + + if (!*argument) { + list_skills(ch); + return (TRUE); + } + if (GET_PRACTICES(ch) <= 0) { + send_to_char(ch, "You do not seem to be able to practice now.\r\n"); + return (TRUE); + } + + skill_num = find_skill_num(argument); + + if (skill_num < 1 || + GET_LEVEL(ch) < spell_info[skill_num].min_level[(int) GET_CLASS(ch)]) { + send_to_char(ch, "You do not know of that %s.\r\n", SPLSKL(ch)); + return (TRUE); + } + if (GET_SKILL(ch, skill_num) >= LEARNED(ch)) { + send_to_char(ch, "You are already learned in that area.\r\n"); + return (TRUE); + } + send_to_char(ch, "You practice for a while...\r\n"); + GET_PRACTICES(ch)--; + + percent = GET_SKILL(ch, skill_num); + percent += MIN(MAXGAIN(ch), MAX(MINGAIN(ch), int_app[GET_INT(ch)].learn)); + + SET_SKILL(ch, skill_num, MIN(LEARNED(ch), percent)); + + if (GET_SKILL(ch, skill_num) >= LEARNED(ch)) + send_to_char(ch, "You are now learned in that area.\r\n"); + + return (TRUE); +} + + + +SPECIAL(dump) +{ + struct obj_data *k; + int value = 0; + + for (k = world[IN_ROOM(ch)].contents; k; k = world[IN_ROOM(ch)].contents) { + act("$p vanishes in a puff of smoke!", FALSE, 0, k, 0, TO_ROOM); + extract_obj(k); + } + + if (!CMD_IS("drop")) + return (FALSE); + + do_drop(ch, argument, cmd, SCMD_DROP); + + for (k = world[IN_ROOM(ch)].contents; k; k = world[IN_ROOM(ch)].contents) { + act("$p vanishes in a puff of smoke!", FALSE, 0, k, 0, TO_ROOM); + value += MAX(1, MIN(50, GET_OBJ_COST(k) / 10)); + extract_obj(k); + } + + if (value) { + send_to_char(ch, "You are awarded for outstanding performance.\r\n"); + act("$n has been awarded for being a good citizen.", TRUE, ch, 0, 0, TO_ROOM); + + if (GET_LEVEL(ch) < 3) + gain_exp(ch, value); + else + GET_GOLD(ch) += value; + } + return (TRUE); +} + + +SPECIAL(mayor) +{ + char actbuf[MAX_INPUT_LENGTH]; + + const char open_path[] = + "W3a3003b33000c111d0d111Oe333333Oe22c222112212111a1S."; + const char close_path[] = + "W3a3003b33000c111d0d111CE333333CE22c222112212111a1S."; + + static const char *path = NULL; + static int path_index; + static bool move = FALSE; + + if (!move) { + if (time_info.hours == 6) { + move = TRUE; + path = open_path; + path_index = 0; + } else if (time_info.hours == 20) { + move = TRUE; + path = close_path; + path_index = 0; + } + } + if (cmd || !move || (GET_POS(ch) < POS_SLEEPING) || + (GET_POS(ch) == POS_FIGHTING)) + return (FALSE); + + switch (path[path_index]) { + case '0': + case '1': + case '2': + case '3': + perform_move(ch, path[path_index] - '0', 1); + break; + + case 'W': + GET_POS(ch) = POS_STANDING; + act("$n awakens and groans loudly.", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'S': + GET_POS(ch) = POS_SLEEPING; + act("$n lies down and instantly falls asleep.", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'a': + act("$n says 'Hello Honey!'", FALSE, ch, 0, 0, TO_ROOM); + act("$n smirks.", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'b': + act("$n says 'What a view! I must get something done about that dump!'", + FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'c': + act("$n says 'Vandals! Youngsters nowadays have no respect for anything!'", + FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'd': + act("$n says 'Good day, citizens!'", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'e': + act("$n says 'I hereby declare the bazaar open!'", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'E': + act("$n says 'I hereby declare Midgaard closed!'", FALSE, ch, 0, 0, TO_ROOM); + break; + + case 'O': + do_gen_door(ch, strcpy(actbuf, "gate"), 0, SCMD_UNLOCK); /* strcpy: OK */ + do_gen_door(ch, strcpy(actbuf, "gate"), 0, SCMD_OPEN); /* strcpy: OK */ + break; + + case 'C': + do_gen_door(ch, strcpy(actbuf, "gate"), 0, SCMD_CLOSE); /* strcpy: OK */ + do_gen_door(ch, strcpy(actbuf, "gate"), 0, SCMD_LOCK); /* strcpy: OK */ + break; + + case '.': + move = FALSE; + break; + + } + + path_index++; + return (FALSE); +} + + +/* ******************************************************************** +* General special procedures for mobiles * +******************************************************************** */ + + +void npc_steal(struct char_data *ch, struct char_data *victim) +{ + int gold; + + if (IS_NPC(victim)) + return; + if (GET_LEVEL(victim) >= LVL_IMMORT) + return; + if (!CAN_SEE(ch, victim)) + return; + + if (AWAKE(victim) && (rand_number(0, GET_LEVEL(ch)) == 0)) { + act("You discover that $n has $s hands in your wallet.", FALSE, ch, 0, victim, TO_VICT); + act("$n tries to steal gold from $N.", TRUE, ch, 0, victim, TO_NOTVICT); + } else { + /* Steal some gold coins */ + gold = (GET_GOLD(victim) * rand_number(1, 10)) / 100; + if (gold > 0) { + GET_GOLD(ch) += gold; + GET_GOLD(victim) -= gold; + } + } +} + + +/* + * Quite lethal to low-level characters. + */ +SPECIAL(snake) +{ + if (cmd || GET_POS(ch) != POS_FIGHTING || !FIGHTING(ch)) + return (FALSE); + + if (IN_ROOM(FIGHTING(ch)) != IN_ROOM(ch) || rand_number(0, GET_LEVEL(ch)) != 0) + return (FALSE); + + act("$n bites $N!", 1, ch, 0, FIGHTING(ch), TO_NOTVICT); + act("$n bites you!", 1, ch, 0, FIGHTING(ch), TO_VICT); + call_magic(ch, FIGHTING(ch), 0, SPELL_POISON, GET_LEVEL(ch), CAST_SPELL); + return (TRUE); +} + + +SPECIAL(thief) +{ + struct char_data *cons; + + if (cmd || GET_POS(ch) != POS_STANDING) + return (FALSE); + + for (cons = world[IN_ROOM(ch)].people; cons; cons = cons->next_in_room) + if (!IS_NPC(cons) && GET_LEVEL(cons) < LVL_IMMORT && !rand_number(0, 4)) { + npc_steal(ch, cons); + return (TRUE); + } + + return (FALSE); +} + + +SPECIAL(magic_user) +{ + struct char_data *vict; + + if (cmd || GET_POS(ch) != POS_FIGHTING) + return (FALSE); + + /* pseudo-randomly choose someone in the room who is fighting me */ + for (vict = world[IN_ROOM(ch)].people; vict; vict = vict->next_in_room) + if (FIGHTING(vict) == ch && !rand_number(0, 4)) + break; + + /* if I didn't pick any of those, then just slam the guy I'm fighting */ + if (vict == NULL && IN_ROOM(FIGHTING(ch)) == IN_ROOM(ch)) + vict = FIGHTING(ch); + + /* Hm...didn't pick anyone...I'll wait a round. */ + if (vict == NULL) + return (TRUE); + + if (GET_LEVEL(ch) > 13 && rand_number(0, 10) == 0) + cast_spell(ch, vict, NULL, SPELL_POISON); + + if (GET_LEVEL(ch) > 7 && rand_number(0, 8) == 0) + cast_spell(ch, vict, NULL, SPELL_BLINDNESS); + + if (GET_LEVEL(ch) > 12 && rand_number(0, 12) == 0) { + if (IS_EVIL(ch)) + cast_spell(ch, vict, NULL, SPELL_ENERGY_DRAIN); + else if (IS_GOOD(ch)) + cast_spell(ch, vict, NULL, SPELL_DISPEL_EVIL); + } + + if (rand_number(0, 4)) + return (TRUE); + + switch (GET_LEVEL(ch)) { + case 4: + case 5: + cast_spell(ch, vict, NULL, SPELL_MAGIC_MISSILE); + break; + case 6: + case 7: + cast_spell(ch, vict, NULL, SPELL_CHILL_TOUCH); + break; + case 8: + case 9: + cast_spell(ch, vict, NULL, SPELL_BURNING_HANDS); + break; + case 10: + case 11: + cast_spell(ch, vict, NULL, SPELL_SHOCKING_GRASP); + break; + case 12: + case 13: + cast_spell(ch, vict, NULL, SPELL_LIGHTNING_BOLT); + break; + case 14: + case 15: + case 16: + case 17: + cast_spell(ch, vict, NULL, SPELL_COLOR_SPRAY); + break; + default: + cast_spell(ch, vict, NULL, SPELL_FIREBALL); + break; + } + return (TRUE); + +} + + +/* ******************************************************************** +* Special procedures for mobiles * +******************************************************************** */ + +SPECIAL(guild_guard) +{ + int i; + struct char_data *guard = (struct char_data *)me; + const char *buf = "The guard humiliates you, and blocks your way.\r\n"; + const char *buf2 = "The guard humiliates $n, and blocks $s way."; + + if (!IS_MOVE(cmd) || AFF_FLAGGED(guard, AFF_BLIND)) + return (FALSE); + + if (GET_LEVEL(ch) >= LVL_IMMORT) + return (FALSE); + + for (i = 0; guild_info[i].guild_room != NOWHERE; i++) { + /* Wrong guild or not trying to enter. */ + if (GET_ROOM_VNUM(IN_ROOM(ch)) != guild_info[i].guild_room || cmd != guild_info[i].direction) + continue; + + /* Allow the people of the guild through. */ + if (!IS_NPC(ch) && GET_CLASS(ch) == guild_info[i].pc_class) + continue; + + send_to_char(ch, "%s", buf); + act(buf2, FALSE, ch, 0, 0, TO_ROOM); + return (TRUE); + } + + return (FALSE); +} + + + +SPECIAL(puff) +{ + char actbuf[MAX_INPUT_LENGTH]; + + if (cmd) + return (FALSE); + + switch (rand_number(0, 60)) { + case 0: + do_say(ch, strcpy(actbuf, "My god! It's full of stars!"), 0, 0); /* strcpy: OK */ + return (TRUE); + case 1: + do_say(ch, strcpy(actbuf, "How'd all those fish get up here?"), 0, 0); /* strcpy: OK */ + return (TRUE); + case 2: + do_say(ch, strcpy(actbuf, "I'm a very female dragon."), 0, 0); /* strcpy: OK */ + return (TRUE); + case 3: + do_say(ch, strcpy(actbuf, "I've got a peaceful, easy feeling."), 0, 0); /* strcpy: OK */ + return (TRUE); + default: + return (FALSE); + } +} + + + +SPECIAL(fido) +{ + struct obj_data *i, *temp, *next_obj; + + if (cmd || !AWAKE(ch)) + return (FALSE); + + for (i = world[IN_ROOM(ch)].contents; i; i = i->next_content) { + if (!IS_CORPSE(i)) + continue; + + act("$n savagely devours a corpse.", FALSE, ch, 0, 0, TO_ROOM); + for (temp = i->contains; temp; temp = next_obj) { + next_obj = temp->next_content; + obj_from_obj(temp); + obj_to_room(temp, IN_ROOM(ch)); + } + extract_obj(i); + return (TRUE); + } + + return (FALSE); +} + + + +SPECIAL(janitor) +{ + struct obj_data *i; + + if (cmd || !AWAKE(ch)) + return (FALSE); + + for (i = world[IN_ROOM(ch)].contents; i; i = i->next_content) { + if (!CAN_WEAR(i, ITEM_WEAR_TAKE)) + continue; + if (GET_OBJ_TYPE(i) != ITEM_DRINKCON && GET_OBJ_COST(i) >= 15) + continue; + act("$n picks up some trash.", FALSE, ch, 0, 0, TO_ROOM); + obj_from_room(i); + obj_to_char(i, ch); + return (TRUE); + } + + return (FALSE); +} + + +SPECIAL(cityguard) +{ + struct char_data *tch, *evil, *spittle; + int max_evil, min_cha; + + if (cmd || !AWAKE(ch) || FIGHTING(ch)) + return (FALSE); + + max_evil = 1000; + min_cha = 6; + spittle = evil = NULL; + + for (tch = world[IN_ROOM(ch)].people; tch; tch = tch->next_in_room) { + if (!CAN_SEE(ch, tch)) + continue; + + if (!IS_NPC(tch) && PLR_FLAGGED(tch, PLR_KILLER)) { + act("$n screams 'HEY!!! You're one of those PLAYER KILLERS!!!!!!'", FALSE, ch, 0, 0, TO_ROOM); + hit(ch, tch, TYPE_UNDEFINED); + return (TRUE); + } + + if (!IS_NPC(tch) && PLR_FLAGGED(tch, PLR_THIEF)) { + act("$n screams 'HEY!!! You're one of those PLAYER THIEVES!!!!!!'", FALSE, ch, 0, 0, TO_ROOM); + hit(ch, tch, TYPE_UNDEFINED); + return (TRUE); + } + + if (FIGHTING(tch) && GET_ALIGNMENT(tch) < max_evil && (IS_NPC(tch) || IS_NPC(FIGHTING(tch)))) { + max_evil = GET_ALIGNMENT(tch); + evil = tch; + } + + if (GET_CHA(tch) < min_cha) { + spittle = tch; + min_cha = GET_CHA(tch); + } + } + + if (evil && GET_ALIGNMENT(FIGHTING(evil)) >= 0) { + act("$n screams 'PROTECT THE INNOCENT! BANZAI! CHARGE! ARARARAGGGHH!'", FALSE, ch, 0, 0, TO_ROOM); + hit(ch, evil, TYPE_UNDEFINED); + return (TRUE); + } + + /* Reward the socially inept. */ + if (spittle && !rand_number(0, 9)) { + static int spit_social; + + if (!spit_social) + spit_social = find_command("spit"); + + if (spit_social > 0) { + char spitbuf[MAX_NAME_LENGTH + 1]; + + strncpy(spitbuf, GET_NAME(spittle), sizeof(spitbuf)); /* strncpy: OK */ + spitbuf[sizeof(spitbuf) - 1] = '\0'; + + do_action(ch, spitbuf, spit_social, 0); + return (TRUE); + } + } + + return (FALSE); +} + + +#define PET_PRICE(pet) (GET_LEVEL(pet) * 300) + +SPECIAL(pet_shops) +{ + char buf[MAX_STRING_LENGTH], pet_name[256]; + room_rnum pet_room; + struct char_data *pet; + + /* Gross. */ + pet_room = IN_ROOM(ch) + 1; + + if (CMD_IS("list")) { + send_to_char(ch, "Available pets are:\r\n"); + for (pet = world[pet_room].people; pet; pet = pet->next_in_room) { + /* No, you can't have the Implementor as a pet if he's in there. */ + if (!IS_NPC(pet)) + continue; + send_to_char(ch, "%8d - %s\r\n", PET_PRICE(pet), GET_NAME(pet)); + } + return (TRUE); + } else if (CMD_IS("buy")) { + + two_arguments(argument, buf, pet_name); + + if (!(pet = get_char_room(buf, NULL, pet_room)) || !IS_NPC(pet)) { + send_to_char(ch, "There is no such pet!\r\n"); + return (TRUE); + } + if (GET_GOLD(ch) < PET_PRICE(pet)) { + send_to_char(ch, "You don't have enough gold!\r\n"); + return (TRUE); + } + GET_GOLD(ch) -= PET_PRICE(pet); + + pet = read_mobile(GET_MOB_RNUM(pet), REAL); + GET_EXP(pet) = 0; + SET_BIT(AFF_FLAGS(pet), AFF_CHARM); + + if (*pet_name) { + snprintf(buf, sizeof(buf), "%s %s", pet->player.name, pet_name); + /* free(pet->player.name); don't free the prototype! */ + pet->player.name = strdup(buf); + + snprintf(buf, sizeof(buf), "%sA small sign on a chain around the neck says 'My name is %s'\r\n", + pet->player.description, pet_name); + /* free(pet->player.description); don't free the prototype! */ + pet->player.description = strdup(buf); + } + char_to_room(pet, IN_ROOM(ch)); + add_follower(pet, ch); + + /* Be certain that pets can't get/carry/use/wield/wear items */ + IS_CARRYING_W(pet) = 1000; + IS_CARRYING_N(pet) = 100; + + send_to_char(ch, "May you enjoy your pet.\r\n"); + act("$n buys $N as a pet.", FALSE, ch, 0, pet, TO_ROOM); + + return (TRUE); + } + + /* All commands except list and buy */ + return (FALSE); +} + + + +/* ******************************************************************** +* Special procedures for objects * +******************************************************************** */ + + +SPECIAL(bank) +{ + int amount; + + if (CMD_IS("balance")) { + if (GET_BANK_GOLD(ch) > 0) + send_to_char(ch, "Your current balance is %d coins.\r\n", GET_BANK_GOLD(ch)); + else + send_to_char(ch, "You currently have no money deposited.\r\n"); + return (TRUE); + } else if (CMD_IS("deposit")) { + if ((amount = atoi(argument)) <= 0) { + send_to_char(ch, "How much do you want to deposit?\r\n"); + return (TRUE); + } + if (GET_GOLD(ch) < amount) { + send_to_char(ch, "You don't have that many coins!\r\n"); + return (TRUE); + } + GET_GOLD(ch) -= amount; + GET_BANK_GOLD(ch) += amount; + send_to_char(ch, "You deposit %d coins.\r\n", amount); + act("$n makes a bank transaction.", TRUE, ch, 0, FALSE, TO_ROOM); + return (TRUE); + } else if (CMD_IS("withdraw")) { + if ((amount = atoi(argument)) <= 0) { + send_to_char(ch, "How much do you want to withdraw?\r\n"); + return (TRUE); + } + if (GET_BANK_GOLD(ch) < amount) { + send_to_char(ch, "You don't have that many coins deposited!\r\n"); + return (TRUE); + } + GET_GOLD(ch) += amount; + GET_BANK_GOLD(ch) -= amount; + send_to_char(ch, "You withdraw %d coins.\r\n", amount); + act("$n makes a bank transaction.", TRUE, ch, 0, FALSE, TO_ROOM); + return (TRUE); + } else + return (FALSE); +} + diff --git a/src/spell_parser.c b/src/spell_parser.c new file mode 100644 index 0000000..636b2b3 --- /dev/null +++ b/src/spell_parser.c @@ -0,0 +1,1009 @@ +/* ************************************************************************ +* File: spell_parser.c Part of CircleMUD * +* Usage: top-level magic routines; outside points of entry to magic sys. * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + + +#include "conf.h" +#include "sysdep.h" + + +#include "structs.h" +#include "utils.h" +#include "interpreter.h" +#include "spells.h" +#include "handler.h" +#include "comm.h" +#include "db.h" + + +#define SINFO spell_info[spellnum] + +/* local globals */ +struct spell_info_type spell_info[TOP_SPELL_DEFINE + 1]; + +/* local functions */ +void say_spell(struct char_data *ch, int spellnum, struct char_data *tch, struct obj_data *tobj); +void spello(int spl, const char *name, int max_mana, int min_mana, int mana_change, int minpos, int targets, int violent, int routines, const char *wearoff); +int mag_manacost(struct char_data *ch, int spellnum); +ACMD(do_cast); +void unused_spell(int spl); +void mag_assign_spells(void); + +/* + * This arrangement is pretty stupid, but the number of skills is limited by + * the playerfile. We can arbitrarily increase the number of skills by + * increasing the space in the playerfile. Meanwhile, 200 should provide + * ample slots for skills. + */ + +struct syllable { + const char *org; + const char *news; +}; + + +struct syllable syls[] = { + {" ", " "}, + {"ar", "abra"}, + {"ate", "i"}, + {"cau", "kada"}, + {"blind", "nose"}, + {"bur", "mosa"}, + {"cu", "judi"}, + {"de", "oculo"}, + {"dis", "mar"}, + {"ect", "kamina"}, + {"en", "uns"}, + {"gro", "cra"}, + {"light", "dies"}, + {"lo", "hi"}, + {"magi", "kari"}, + {"mon", "bar"}, + {"mor", "zak"}, + {"move", "sido"}, + {"ness", "lacri"}, + {"ning", "illa"}, + {"per", "duda"}, + {"ra", "gru"}, + {"re", "candus"}, + {"son", "sabru"}, + {"tect", "infra"}, + {"tri", "cula"}, + {"ven", "nofo"}, + {"word of", "inset"}, + {"a", "i"}, {"b", "v"}, {"c", "q"}, {"d", "m"}, {"e", "o"}, {"f", "y"}, {"g", "t"}, + {"h", "p"}, {"i", "u"}, {"j", "y"}, {"k", "t"}, {"l", "r"}, {"m", "w"}, {"n", "b"}, + {"o", "a"}, {"p", "s"}, {"q", "d"}, {"r", "f"}, {"s", "g"}, {"t", "h"}, {"u", "e"}, + {"v", "z"}, {"w", "x"}, {"x", "n"}, {"y", "l"}, {"z", "k"}, {"", ""} +}; + +const char *unused_spellname = "!UNUSED!"; /* So we can get &unused_spellname */ + +int mag_manacost(struct char_data *ch, int spellnum) +{ + return MAX(SINFO.mana_max - (SINFO.mana_change * + (GET_LEVEL(ch) - SINFO.min_level[(int) GET_CLASS(ch)])), + SINFO.mana_min); +} + + +void say_spell(struct char_data *ch, int spellnum, struct char_data *tch, + struct obj_data *tobj) +{ + char lbuf[256], buf[256], buf1[256], buf2[256]; /* FIXME */ + const char *format; + + struct char_data *i; + int j, ofs = 0; + + *buf = '\0'; + strlcpy(lbuf, skill_name(spellnum), sizeof(lbuf)); + + while (lbuf[ofs]) { + for (j = 0; *(syls[j].org); j++) { + if (!strncmp(syls[j].org, lbuf + ofs, strlen(syls[j].org))) { + strcat(buf, syls[j].news); /* strcat: BAD */ + ofs += strlen(syls[j].org); + break; + } + } + /* i.e., we didn't find a match in syls[] */ + if (!*syls[j].org) { + log("No entry in syllable table for substring of '%s'", lbuf); + ofs++; + } + } + + if (tch != NULL && IN_ROOM(tch) == IN_ROOM(ch)) { + if (tch == ch) + format = "$n closes $s eyes and utters the words, '%s'."; + else + format = "$n stares at $N and utters the words, '%s'."; + } else if (tobj != NULL && + ((IN_ROOM(tobj) == IN_ROOM(ch)) || (tobj->carried_by == ch))) + format = "$n stares at $p and utters the words, '%s'."; + else + format = "$n utters the words, '%s'."; + + snprintf(buf1, sizeof(buf1), format, skill_name(spellnum)); + snprintf(buf2, sizeof(buf2), format, buf); + + for (i = world[IN_ROOM(ch)].people; i; i = i->next_in_room) { + if (i == ch || i == tch || !i->desc || !AWAKE(i)) + continue; + if (GET_CLASS(ch) == GET_CLASS(i)) + perform_act(buf1, ch, tobj, tch, i); + else + perform_act(buf2, ch, tobj, tch, i); + } + + if (tch != NULL && tch != ch && IN_ROOM(tch) == IN_ROOM(ch)) { + snprintf(buf1, sizeof(buf1), "$n stares at you and utters the words, '%s'.", + GET_CLASS(ch) == GET_CLASS(tch) ? skill_name(spellnum) : buf); + act(buf1, FALSE, ch, NULL, tch, TO_VICT); + } +} + +/* + * This function should be used anytime you are not 100% sure that you have + * a valid spell/skill number. A typical for() loop would not need to use + * this because you can guarantee > 0 and <= TOP_SPELL_DEFINE. + */ +const char *skill_name(int num) +{ + if (num > 0 && num <= TOP_SPELL_DEFINE) + return (spell_info[num].name); + else if (num == -1) + return ("UNUSED"); + else + return ("UNDEFINED"); +} + + +int find_skill_num(char *name) +{ + int skindex, ok; + char *temp, *temp2; + char first[256], first2[256], tempbuf[256]; + + for (skindex = 1; skindex <= TOP_SPELL_DEFINE; skindex++) { + if (is_abbrev(name, spell_info[skindex].name)) + return (skindex); + + ok = TRUE; + strlcpy(tempbuf, spell_info[skindex].name, sizeof(tempbuf)); /* strlcpy: OK */ + temp = any_one_arg(tempbuf, first); + temp2 = any_one_arg(name, first2); + while (*first && *first2 && ok) { + if (!is_abbrev(first2, first)) + ok = FALSE; + temp = any_one_arg(temp, first); + temp2 = any_one_arg(temp2, first2); + } + + if (ok && !*first2) + return (skindex); + } + + return (-1); +} + + + +/* + * This function is the very heart of the entire magic system. All + * invocations of all types of magic -- objects, spoken and unspoken PC + * and NPC spells, the works -- all come through this function eventually. + * This is also the entry point for non-spoken or unrestricted spells. + * Spellnum 0 is legal but silently ignored here, to make callers simpler. + */ +int call_magic(struct char_data *caster, struct char_data *cvict, + struct obj_data *ovict, int spellnum, int level, int casttype) +{ + int savetype; + + if (spellnum < 1 || spellnum > TOP_SPELL_DEFINE) + return (0); + + if (ROOM_FLAGGED(IN_ROOM(caster), ROOM_NOMAGIC)) { + send_to_char(caster, "Your magic fizzles out and dies.\r\n"); + act("$n's magic fizzles out and dies.", FALSE, caster, 0, 0, TO_ROOM); + return (0); + } + if (ROOM_FLAGGED(IN_ROOM(caster), ROOM_PEACEFUL) && + (SINFO.violent || IS_SET(SINFO.routines, MAG_DAMAGE))) { + send_to_char(caster, "A flash of white light fills the room, dispelling your violent magic!\r\n"); + act("White light from no particular source suddenly fills the room, then vanishes.", FALSE, caster, 0, 0, TO_ROOM); + return (0); + } + /* determine the type of saving throw */ + switch (casttype) { + case CAST_STAFF: + case CAST_SCROLL: + case CAST_POTION: + case CAST_WAND: + savetype = SAVING_ROD; + break; + case CAST_SPELL: + savetype = SAVING_SPELL; + break; + default: + savetype = SAVING_BREATH; + break; + } + + + if (IS_SET(SINFO.routines, MAG_DAMAGE)) + if (mag_damage(level, caster, cvict, spellnum, savetype) == -1) + return (-1); /* Successful and target died, don't cast again. */ + + if (IS_SET(SINFO.routines, MAG_AFFECTS)) + mag_affects(level, caster, cvict, spellnum, savetype); + + if (IS_SET(SINFO.routines, MAG_UNAFFECTS)) + mag_unaffects(level, caster, cvict, spellnum, savetype); + + if (IS_SET(SINFO.routines, MAG_POINTS)) + mag_points(level, caster, cvict, spellnum, savetype); + + if (IS_SET(SINFO.routines, MAG_ALTER_OBJS)) + mag_alter_objs(level, caster, ovict, spellnum, savetype); + + if (IS_SET(SINFO.routines, MAG_GROUPS)) + mag_groups(level, caster, spellnum, savetype); + + if (IS_SET(SINFO.routines, MAG_MASSES)) + mag_masses(level, caster, spellnum, savetype); + + if (IS_SET(SINFO.routines, MAG_AREAS)) + mag_areas(level, caster, spellnum, savetype); + + if (IS_SET(SINFO.routines, MAG_SUMMONS)) + mag_summons(level, caster, ovict, spellnum, savetype); + + if (IS_SET(SINFO.routines, MAG_CREATIONS)) + mag_creations(level, caster, spellnum); + + if (IS_SET(SINFO.routines, MAG_MANUAL)) + switch (spellnum) { + case SPELL_CHARM: MANUAL_SPELL(spell_charm); break; + case SPELL_CREATE_WATER: MANUAL_SPELL(spell_create_water); break; + case SPELL_DETECT_POISON: MANUAL_SPELL(spell_detect_poison); break; + case SPELL_ENCHANT_WEAPON: MANUAL_SPELL(spell_enchant_weapon); break; + case SPELL_IDENTIFY: MANUAL_SPELL(spell_identify); break; + case SPELL_LOCATE_OBJECT: MANUAL_SPELL(spell_locate_object); break; + case SPELL_SUMMON: MANUAL_SPELL(spell_summon); break; + case SPELL_WORD_OF_RECALL: MANUAL_SPELL(spell_recall); break; + case SPELL_TELEPORT: MANUAL_SPELL(spell_teleport); break; + } + + return (1); +} + +/* + * mag_objectmagic: This is the entry-point for all magic items. This should + * only be called by the 'quaff', 'use', 'recite', etc. routines. + * + * For reference, object values 0-3: + * staff - [0] level [1] max charges [2] num charges [3] spell num + * wand - [0] level [1] max charges [2] num charges [3] spell num + * scroll - [0] level [1] spell num [2] spell num [3] spell num + * potion - [0] level [1] spell num [2] spell num [3] spell num + * + * Staves and wands will default to level 14 if the level is not specified; + * the DikuMUD format did not specify staff and wand levels in the world + * files (this is a CircleMUD enhancement). + */ +void mag_objectmagic(struct char_data *ch, struct obj_data *obj, + char *argument) +{ + char arg[MAX_INPUT_LENGTH]; + int i, k; + struct char_data *tch = NULL, *next_tch; + struct obj_data *tobj = NULL; + + one_argument(argument, arg); + + k = generic_find(arg, FIND_CHAR_ROOM | FIND_OBJ_INV | FIND_OBJ_ROOM | + FIND_OBJ_EQUIP, ch, &tch, &tobj); + + switch (GET_OBJ_TYPE(obj)) { + case ITEM_STAFF: + act("You tap $p three times on the ground.", FALSE, ch, obj, 0, TO_CHAR); + if (obj->action_description) + act(obj->action_description, FALSE, ch, obj, 0, TO_ROOM); + else + act("$n taps $p three times on the ground.", FALSE, ch, obj, 0, TO_ROOM); + + if (GET_OBJ_VAL(obj, 2) <= 0) { + send_to_char(ch, "It seems powerless.\r\n"); + act("Nothing seems to happen.", FALSE, ch, obj, 0, TO_ROOM); + } else { + GET_OBJ_VAL(obj, 2)--; + WAIT_STATE(ch, PULSE_VIOLENCE); + /* Level to cast spell at. */ + k = GET_OBJ_VAL(obj, 0) ? GET_OBJ_VAL(obj, 0) : DEFAULT_STAFF_LVL; + + /* + * Problem : Area/mass spells on staves can cause crashes. + * Solution: Remove the special nature of area/mass spells on staves. + * Problem : People like that behavior. + * Solution: We special case the area/mass spells here. + */ + if (HAS_SPELL_ROUTINE(GET_OBJ_VAL(obj, 3), MAG_MASSES | MAG_AREAS)) { + for (i = 0, tch = world[IN_ROOM(ch)].people; tch; tch = tch->next_in_room) + i++; + while (i-- > 0) + call_magic(ch, NULL, NULL, GET_OBJ_VAL(obj, 3), k, CAST_STAFF); + } else { + for (tch = world[IN_ROOM(ch)].people; tch; tch = next_tch) { + next_tch = tch->next_in_room; + if (ch != tch) + call_magic(ch, tch, NULL, GET_OBJ_VAL(obj, 3), k, CAST_STAFF); + } + } + } + break; + case ITEM_WAND: + if (k == FIND_CHAR_ROOM) { + if (tch == ch) { + act("You point $p at yourself.", FALSE, ch, obj, 0, TO_CHAR); + act("$n points $p at $mself.", FALSE, ch, obj, 0, TO_ROOM); + } else { + act("You point $p at $N.", FALSE, ch, obj, tch, TO_CHAR); + if (obj->action_description) + act(obj->action_description, FALSE, ch, obj, tch, TO_ROOM); + else + act("$n points $p at $N.", TRUE, ch, obj, tch, TO_ROOM); + } + } else if (tobj != NULL) { + act("You point $p at $P.", FALSE, ch, obj, tobj, TO_CHAR); + if (obj->action_description) + act(obj->action_description, FALSE, ch, obj, tobj, TO_ROOM); + else + act("$n points $p at $P.", TRUE, ch, obj, tobj, TO_ROOM); + } else if (IS_SET(spell_info[GET_OBJ_VAL(obj, 3)].routines, MAG_AREAS | MAG_MASSES)) { + /* Wands with area spells don't need to be pointed. */ + act("You point $p outward.", FALSE, ch, obj, NULL, TO_CHAR); + act("$n points $p outward.", TRUE, ch, obj, NULL, TO_ROOM); + } else { + act("At what should $p be pointed?", FALSE, ch, obj, NULL, TO_CHAR); + return; + } + + if (GET_OBJ_VAL(obj, 2) <= 0) { + send_to_char(ch, "It seems powerless.\r\n"); + act("Nothing seems to happen.", FALSE, ch, obj, 0, TO_ROOM); + return; + } + GET_OBJ_VAL(obj, 2)--; + WAIT_STATE(ch, PULSE_VIOLENCE); + if (GET_OBJ_VAL(obj, 0)) + call_magic(ch, tch, tobj, GET_OBJ_VAL(obj, 3), + GET_OBJ_VAL(obj, 0), CAST_WAND); + else + call_magic(ch, tch, tobj, GET_OBJ_VAL(obj, 3), + DEFAULT_WAND_LVL, CAST_WAND); + break; + case ITEM_SCROLL: + if (*arg) { + if (!k) { + act("There is nothing to here to affect with $p.", FALSE, + ch, obj, NULL, TO_CHAR); + return; + } + } else + tch = ch; + + act("You recite $p which dissolves.", TRUE, ch, obj, 0, TO_CHAR); + if (obj->action_description) + act(obj->action_description, FALSE, ch, obj, NULL, TO_ROOM); + else + act("$n recites $p.", FALSE, ch, obj, NULL, TO_ROOM); + + WAIT_STATE(ch, PULSE_VIOLENCE); + for (i = 1; i <= 3; i++) + if (call_magic(ch, tch, tobj, GET_OBJ_VAL(obj, i), + GET_OBJ_VAL(obj, 0), CAST_SCROLL) <= 0) + break; + + if (obj != NULL) + extract_obj(obj); + break; + case ITEM_POTION: + tch = ch; + act("You quaff $p.", FALSE, ch, obj, NULL, TO_CHAR); + if (obj->action_description) + act(obj->action_description, FALSE, ch, obj, NULL, TO_ROOM); + else + act("$n quaffs $p.", TRUE, ch, obj, NULL, TO_ROOM); + + WAIT_STATE(ch, PULSE_VIOLENCE); + for (i = 1; i <= 3; i++) + if (call_magic(ch, ch, NULL, GET_OBJ_VAL(obj, i), + GET_OBJ_VAL(obj, 0), CAST_POTION) <= 0) + break; + + if (obj != NULL) + extract_obj(obj); + break; + default: + log("SYSERR: Unknown object_type %d in mag_objectmagic.", + GET_OBJ_TYPE(obj)); + break; + } +} + + +/* + * cast_spell is used generically to cast any spoken spell, assuming we + * already have the target char/obj and spell number. It checks all + * restrictions, etc., prints the words, etc. + * + * Entry point for NPC casts. Recommended entry point for spells cast + * by NPCs via specprocs. + */ +int cast_spell(struct char_data *ch, struct char_data *tch, + struct obj_data *tobj, int spellnum) +{ + if (spellnum < 0 || spellnum > TOP_SPELL_DEFINE) { + log("SYSERR: cast_spell trying to call spellnum %d/%d.", spellnum, + TOP_SPELL_DEFINE); + return (0); + } + + if (GET_POS(ch) < SINFO.min_position) { + switch (GET_POS(ch)) { + case POS_SLEEPING: + send_to_char(ch, "You dream about great magical powers.\r\n"); + break; + case POS_RESTING: + send_to_char(ch, "You cannot concentrate while resting.\r\n"); + break; + case POS_SITTING: + send_to_char(ch, "You can't do this sitting!\r\n"); + break; + case POS_FIGHTING: + send_to_char(ch, "Impossible! You can't concentrate enough!\r\n"); + break; + default: + send_to_char(ch, "You can't do much of anything like this!\r\n"); + break; + } + return (0); + } + if (AFF_FLAGGED(ch, AFF_CHARM) && (ch->master == tch)) { + send_to_char(ch, "You are afraid you might hurt your master!\r\n"); + return (0); + } + if ((tch != ch) && IS_SET(SINFO.targets, TAR_SELF_ONLY)) { + send_to_char(ch, "You can only cast this spell upon yourself!\r\n"); + return (0); + } + if ((tch == ch) && IS_SET(SINFO.targets, TAR_NOT_SELF)) { + send_to_char(ch, "You cannot cast this spell upon yourself!\r\n"); + return (0); + } + if (IS_SET(SINFO.routines, MAG_GROUPS) && !AFF_FLAGGED(ch, AFF_GROUP)) { + send_to_char(ch, "You can't cast this spell if you're not in a group!\r\n"); + return (0); + } + send_to_char(ch, "%s", OK); + say_spell(ch, spellnum, tch, tobj); + + return (call_magic(ch, tch, tobj, spellnum, GET_LEVEL(ch), CAST_SPELL)); +} + + +/* + * do_cast is the entry point for PC-casted spells. It parses the arguments, + * determines the spell number and finds a target, throws the die to see if + * the spell can be cast, checks for sufficient mana and subtracts it, and + * passes control to cast_spell(). + */ +ACMD(do_cast) +{ + struct char_data *tch = NULL; + struct obj_data *tobj = NULL; + char *s, *t; + int mana, spellnum, i, target = 0; + + if (IS_NPC(ch)) + return; + + /* get: blank, spell name, target name */ + s = strtok(argument, "'"); + + if (s == NULL) { + send_to_char(ch, "Cast what where?\r\n"); + return; + } + s = strtok(NULL, "'"); + if (s == NULL) { + send_to_char(ch, "Spell names must be enclosed in the Holy Magic Symbols: '\r\n"); + return; + } + t = strtok(NULL, "\0"); + + /* spellnum = search_block(s, spells, 0); */ + spellnum = find_skill_num(s); + + if ((spellnum < 1) || (spellnum > MAX_SPELLS)) { + send_to_char(ch, "Cast what?!?\r\n"); + return; + } + if (GET_LEVEL(ch) < SINFO.min_level[(int) GET_CLASS(ch)]) { + send_to_char(ch, "You do not know that spell!\r\n"); + return; + } + if (GET_SKILL(ch, spellnum) == 0) { + send_to_char(ch, "You are unfamiliar with that spell.\r\n"); + return; + } + /* Find the target */ + if (t != NULL) { + char arg[MAX_INPUT_LENGTH]; + + strlcpy(arg, t, sizeof(arg)); + one_argument(arg, t); + skip_spaces(&t); + } + if (IS_SET(SINFO.targets, TAR_IGNORE)) { + target = TRUE; + } else if (t != NULL && *t) { + if (!target && (IS_SET(SINFO.targets, TAR_CHAR_ROOM))) { + if ((tch = get_char_vis(ch, t, NULL, FIND_CHAR_ROOM)) != NULL) + target = TRUE; + } + if (!target && IS_SET(SINFO.targets, TAR_CHAR_WORLD)) + if ((tch = get_char_vis(ch, t, NULL, FIND_CHAR_WORLD)) != NULL) + target = TRUE; + + if (!target && IS_SET(SINFO.targets, TAR_OBJ_INV)) + if ((tobj = get_obj_in_list_vis(ch, t, NULL, ch->carrying)) != NULL) + target = TRUE; + + if (!target && IS_SET(SINFO.targets, TAR_OBJ_EQUIP)) { + for (i = 0; !target && i < NUM_WEARS; i++) + if (GET_EQ(ch, i) && isname(t, GET_EQ(ch, i)->name)) { + tobj = GET_EQ(ch, i); + target = TRUE; + } + } + if (!target && IS_SET(SINFO.targets, TAR_OBJ_ROOM)) + if ((tobj = get_obj_in_list_vis(ch, t, NULL, world[IN_ROOM(ch)].contents)) != NULL) + target = TRUE; + + if (!target && IS_SET(SINFO.targets, TAR_OBJ_WORLD)) + if ((tobj = get_obj_vis(ch, t, NULL)) != NULL) + target = TRUE; + + } else { /* if target string is empty */ + if (!target && IS_SET(SINFO.targets, TAR_FIGHT_SELF)) + if (FIGHTING(ch) != NULL) { + tch = ch; + target = TRUE; + } + if (!target && IS_SET(SINFO.targets, TAR_FIGHT_VICT)) + if (FIGHTING(ch) != NULL) { + tch = FIGHTING(ch); + target = TRUE; + } + /* if no target specified, and the spell isn't violent, default to self */ + if (!target && IS_SET(SINFO.targets, TAR_CHAR_ROOM) && + !SINFO.violent) { + tch = ch; + target = TRUE; + } + if (!target) { + send_to_char(ch, "Upon %s should the spell be cast?\r\n", + IS_SET(SINFO.targets, TAR_OBJ_ROOM | TAR_OBJ_INV | TAR_OBJ_WORLD | TAR_OBJ_EQUIP) ? "what" : "who"); + return; + } + } + + if (target && (tch == ch) && SINFO.violent) { + send_to_char(ch, "You shouldn't cast that on yourself -- could be bad for your health!\r\n"); + return; + } + if (!target) { + send_to_char(ch, "Cannot find the target of your spell!\r\n"); + return; + } + mana = mag_manacost(ch, spellnum); + if ((mana > 0) && (GET_MANA(ch) < mana) && (GET_LEVEL(ch) < LVL_IMMORT)) { + send_to_char(ch, "You haven't the energy to cast that spell!\r\n"); + return; + } + + /* You throws the dice and you takes your chances.. 101% is total failure */ + if (rand_number(0, 101) > GET_SKILL(ch, spellnum)) { + WAIT_STATE(ch, PULSE_VIOLENCE); + if (!tch || !skill_message(0, ch, tch, spellnum)) + send_to_char(ch, "You lost your concentration!\r\n"); + if (mana > 0) + GET_MANA(ch) = MAX(0, MIN(GET_MAX_MANA(ch), GET_MANA(ch) - (mana / 2))); + if (SINFO.violent && tch && IS_NPC(tch)) + hit(tch, ch, TYPE_UNDEFINED); + } else { /* cast spell returns 1 on success; subtract mana & set waitstate */ + if (cast_spell(ch, tch, tobj, spellnum)) { + WAIT_STATE(ch, PULSE_VIOLENCE); + if (mana > 0) + GET_MANA(ch) = MAX(0, MIN(GET_MAX_MANA(ch), GET_MANA(ch) - mana)); + } + } +} + + + +void spell_level(int spell, int chclass, int level) +{ + int bad = 0; + + if (spell < 0 || spell > TOP_SPELL_DEFINE) { + log("SYSERR: attempting assign to illegal spellnum %d/%d", spell, TOP_SPELL_DEFINE); + return; + } + + if (chclass < 0 || chclass >= NUM_CLASSES) { + log("SYSERR: assigning '%s' to illegal class %d/%d.", skill_name(spell), + chclass, NUM_CLASSES - 1); + bad = 1; + } + + if (level < 1 || level > LVL_IMPL) { + log("SYSERR: assigning '%s' to illegal level %d/%d.", skill_name(spell), + level, LVL_IMPL); + bad = 1; + } + + if (!bad) + spell_info[spell].min_level[chclass] = level; +} + + +/* Assign the spells on boot up */ +void spello(int spl, const char *name, int max_mana, int min_mana, + int mana_change, int minpos, int targets, int violent, int routines, const char *wearoff) +{ + int i; + + for (i = 0; i < NUM_CLASSES; i++) + spell_info[spl].min_level[i] = LVL_IMMORT; + spell_info[spl].mana_max = max_mana; + spell_info[spl].mana_min = min_mana; + spell_info[spl].mana_change = mana_change; + spell_info[spl].min_position = minpos; + spell_info[spl].targets = targets; + spell_info[spl].violent = violent; + spell_info[spl].routines = routines; + spell_info[spl].name = name; + spell_info[spl].wear_off_msg = wearoff; +} + + +void unused_spell(int spl) +{ + int i; + + for (i = 0; i < NUM_CLASSES; i++) + spell_info[spl].min_level[i] = LVL_IMPL + 1; + spell_info[spl].mana_max = 0; + spell_info[spl].mana_min = 0; + spell_info[spl].mana_change = 0; + spell_info[spl].min_position = 0; + spell_info[spl].targets = 0; + spell_info[spl].violent = 0; + spell_info[spl].routines = 0; + spell_info[spl].name = unused_spellname; +} + +#define skillo(skill, name) spello(skill, name, 0, 0, 0, 0, 0, 0, 0, NULL); + + +/* + * Arguments for spello calls: + * + * spellnum, maxmana, minmana, manachng, minpos, targets, violent?, routines. + * + * spellnum: Number of the spell. Usually the symbolic name as defined in + * spells.h (such as SPELL_HEAL). + * + * spellname: The name of the spell. + * + * maxmana : The maximum mana this spell will take (i.e., the mana it + * will take when the player first gets the spell). + * + * minmana : The minimum mana this spell will take, no matter how high + * level the caster is. + * + * manachng: The change in mana for the spell from level to level. This + * number should be positive, but represents the reduction in mana cost as + * the caster's level increases. + * + * minpos : Minimum position the caster must be in for the spell to work + * (usually fighting or standing). targets : A "list" of the valid targets + * for the spell, joined with bitwise OR ('|'). + * + * violent : TRUE or FALSE, depending on if this is considered a violent + * spell and should not be cast in PEACEFUL rooms or on yourself. Should be + * set on any spell that inflicts damage, is considered aggressive (i.e. + * charm, curse), or is otherwise nasty. + * + * routines: A list of magic routines which are associated with this spell + * if the spell uses spell templates. Also joined with bitwise OR ('|'). + * + * See the CircleMUD documentation for a more detailed description of these + * fields. + */ + +/* + * NOTE: SPELL LEVELS ARE NO LONGER ASSIGNED HERE AS OF Circle 3.0 bpl9. + * In order to make this cleaner, as well as to make adding new classes + * much easier, spell levels are now assigned in class.c. You only need + * a spello() call to define a new spell; to decide who gets to use a spell + * or skill, look in class.c. -JE 5 Feb 1996 + */ + +void mag_assign_spells(void) +{ + int i; + + /* Do not change the loop below. */ + for (i = 0; i <= TOP_SPELL_DEFINE; i++) + unused_spell(i); + /* Do not change the loop above. */ + + spello(SPELL_ANIMATE_DEAD, "animate dead", 35, 10, 3, POS_STANDING, + TAR_OBJ_ROOM, FALSE, MAG_SUMMONS, + NULL); + + spello(SPELL_ARMOR, "armor", 30, 15, 3, POS_FIGHTING, + TAR_CHAR_ROOM, FALSE, MAG_AFFECTS, + "You feel less protected."); + + spello(SPELL_BLESS, "bless", 35, 5, 3, POS_STANDING, + TAR_CHAR_ROOM | TAR_OBJ_INV, FALSE, MAG_AFFECTS | MAG_ALTER_OBJS, + "You feel less righteous."); + + spello(SPELL_BLINDNESS, "blindness", 35, 25, 1, POS_STANDING, + TAR_CHAR_ROOM | TAR_NOT_SELF, FALSE, MAG_AFFECTS, + "You feel a cloak of blindness dissolve."); + + spello(SPELL_BURNING_HANDS, "burning hands", 30, 10, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_CALL_LIGHTNING, "call lightning", 40, 25, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_CHARM, "charm person", 75, 50, 2, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_NOT_SELF, TRUE, MAG_MANUAL, + "You feel more self-confident."); + + spello(SPELL_CHILL_TOUCH, "chill touch", 30, 10, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE | MAG_AFFECTS, + "You feel your strength return."); + + spello(SPELL_CLONE, "clone", 80, 65, 5, POS_STANDING, + TAR_SELF_ONLY, FALSE, MAG_SUMMONS, + NULL); + + spello(SPELL_COLOR_SPRAY, "color spray", 30, 15, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_CONTROL_WEATHER, "control weather", 75, 25, 5, POS_STANDING, + TAR_IGNORE, FALSE, MAG_MANUAL, + NULL); + + spello(SPELL_CREATE_FOOD, "create food", 30, 5, 4, POS_STANDING, + TAR_IGNORE, FALSE, MAG_CREATIONS, + NULL); + + spello(SPELL_CREATE_WATER, "create water", 30, 5, 4, POS_STANDING, + TAR_OBJ_INV | TAR_OBJ_EQUIP, FALSE, MAG_MANUAL, + NULL); + + spello(SPELL_CURE_BLIND, "cure blind", 30, 5, 2, POS_STANDING, + TAR_CHAR_ROOM, FALSE, MAG_UNAFFECTS, + NULL); + + spello(SPELL_CURE_CRITIC, "cure critic", 30, 10, 2, POS_FIGHTING, + TAR_CHAR_ROOM, FALSE, MAG_POINTS, + NULL); + + spello(SPELL_CURE_LIGHT, "cure light", 30, 10, 2, POS_FIGHTING, + TAR_CHAR_ROOM, FALSE, MAG_POINTS, + NULL); + + spello(SPELL_CURSE, "curse", 80, 50, 2, POS_STANDING, + TAR_CHAR_ROOM | TAR_OBJ_INV, TRUE, MAG_AFFECTS | MAG_ALTER_OBJS, + "You feel more optimistic."); + + spello(SPELL_DETECT_ALIGN, "detect alignment", 20, 10, 2, POS_STANDING, + TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS, + "You feel less aware."); + + spello(SPELL_DETECT_INVIS, "detect invisibility", 20, 10, 2, POS_STANDING, + TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS, + "Your eyes stop tingling."); + + spello(SPELL_DETECT_MAGIC, "detect magic", 20, 10, 2, POS_STANDING, + TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS, + "The detect magic wears off."); + + spello(SPELL_DETECT_POISON, "detect poison", 15, 5, 1, POS_STANDING, + TAR_CHAR_ROOM | TAR_OBJ_INV | TAR_OBJ_ROOM, FALSE, MAG_MANUAL, + "The detect poison wears off."); + + spello(SPELL_DISPEL_EVIL, "dispel evil", 40, 25, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_DISPEL_GOOD, "dispel good", 40, 25, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_EARTHQUAKE, "earthquake", 40, 25, 3, POS_FIGHTING, + TAR_IGNORE, TRUE, MAG_AREAS, + NULL); + + spello(SPELL_ENCHANT_WEAPON, "enchant weapon", 150, 100, 10, POS_STANDING, + TAR_OBJ_INV, FALSE, MAG_MANUAL, + NULL); + + spello(SPELL_ENERGY_DRAIN, "energy drain", 40, 25, 1, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE | MAG_MANUAL, + NULL); + + spello(SPELL_GROUP_ARMOR, "group armor", 50, 30, 2, POS_STANDING, + TAR_IGNORE, FALSE, MAG_GROUPS, + NULL); + + spello(SPELL_FIREBALL, "fireball", 40, 30, 2, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_GROUP_HEAL, "group heal", 80, 60, 5, POS_STANDING, + TAR_IGNORE, FALSE, MAG_GROUPS, + NULL); + + spello(SPELL_HARM, "harm", 75, 45, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_HEAL, "heal", 60, 40, 3, POS_FIGHTING, + TAR_CHAR_ROOM, FALSE, MAG_POINTS | MAG_UNAFFECTS, + NULL); + + spello(SPELL_INFRAVISION, "infravision", 25, 10, 1, POS_STANDING, + TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS, + "Your night vision seems to fade."); + + spello(SPELL_INVISIBLE, "invisibility", 35, 25, 1, POS_STANDING, + TAR_CHAR_ROOM | TAR_OBJ_INV | TAR_OBJ_ROOM, FALSE, MAG_AFFECTS | MAG_ALTER_OBJS, + "You feel yourself exposed."); + + spello(SPELL_LIGHTNING_BOLT, "lightning bolt", 30, 15, 1, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_LOCATE_OBJECT, "locate object", 25, 20, 1, POS_STANDING, + TAR_OBJ_WORLD, FALSE, MAG_MANUAL, + NULL); + + spello(SPELL_MAGIC_MISSILE, "magic missile", 25, 10, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_POISON, "poison", 50, 20, 3, POS_STANDING, + TAR_CHAR_ROOM | TAR_NOT_SELF | TAR_OBJ_INV, TRUE, + MAG_AFFECTS | MAG_ALTER_OBJS, + "You feel less sick."); + + spello(SPELL_PROT_FROM_EVIL, "protection from evil", 40, 10, 3, POS_STANDING, + TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS, + "You feel less protected."); + + spello(SPELL_REMOVE_CURSE, "remove curse", 45, 25, 5, POS_STANDING, + TAR_CHAR_ROOM | TAR_OBJ_INV | TAR_OBJ_EQUIP, FALSE, + MAG_UNAFFECTS | MAG_ALTER_OBJS, + NULL); + + spello(SPELL_REMOVE_POISON, "remove poison", 40, 8, 4, POS_STANDING, + TAR_CHAR_ROOM | TAR_OBJ_INV | TAR_OBJ_ROOM, FALSE, MAG_UNAFFECTS | MAG_ALTER_OBJS, + NULL); + + spello(SPELL_SANCTUARY, "sanctuary", 110, 85, 5, POS_STANDING, + TAR_CHAR_ROOM, FALSE, MAG_AFFECTS, + "The white aura around your body fades."); + + spello(SPELL_SENSE_LIFE, "sense life", 20, 10, 2, POS_STANDING, + TAR_CHAR_ROOM | TAR_SELF_ONLY, FALSE, MAG_AFFECTS, + "You feel less aware of your surroundings."); + + spello(SPELL_SHOCKING_GRASP, "shocking grasp", 30, 15, 3, POS_FIGHTING, + TAR_CHAR_ROOM | TAR_FIGHT_VICT, TRUE, MAG_DAMAGE, + NULL); + + spello(SPELL_SLEEP, "sleep", 40, 25, 5, POS_STANDING, + TAR_CHAR_ROOM, TRUE, MAG_AFFECTS, + "You feel less tired."); + + spello(SPELL_STRENGTH, "strength", 35, 30, 1, POS_STANDING, + TAR_CHAR_ROOM, FALSE, MAG_AFFECTS, + "You feel weaker."); + + spello(SPELL_SUMMON, "summon", 75, 50, 3, POS_STANDING, + TAR_CHAR_WORLD | TAR_NOT_SELF, FALSE, MAG_MANUAL, + NULL); + + spello(SPELL_TELEPORT, "teleport", 75, 50, 3, POS_STANDING, + TAR_CHAR_ROOM, FALSE, MAG_MANUAL, + NULL); + + spello(SPELL_WATERWALK, "waterwalk", 40, 20, 2, POS_STANDING, + TAR_CHAR_ROOM, FALSE, MAG_AFFECTS, + "Your feet seem less buoyant."); + + spello(SPELL_WORD_OF_RECALL, "word of recall", 20, 10, 2, POS_FIGHTING, + TAR_CHAR_ROOM, FALSE, MAG_MANUAL, + NULL); + + + /* NON-castable spells should appear below here. */ + + spello(SPELL_IDENTIFY, "identify", 0, 0, 0, 0, + TAR_CHAR_ROOM | TAR_OBJ_INV | TAR_OBJ_ROOM, FALSE, MAG_MANUAL, + NULL); + + /* + * These spells are currently not used, not implemented, and not castable. + * Values for the 'breath' spells are filled in assuming a dragon's breath. + */ + + spello(SPELL_FIRE_BREATH, "fire breath", 0, 0, 0, POS_SITTING, + TAR_IGNORE, TRUE, 0, + NULL); + + spello(SPELL_GAS_BREATH, "gas breath", 0, 0, 0, POS_SITTING, + TAR_IGNORE, TRUE, 0, + NULL); + + spello(SPELL_FROST_BREATH, "frost breath", 0, 0, 0, POS_SITTING, + TAR_IGNORE, TRUE, 0, + NULL); + + spello(SPELL_ACID_BREATH, "acid breath", 0, 0, 0, POS_SITTING, + TAR_IGNORE, TRUE, 0, + NULL); + + spello(SPELL_LIGHTNING_BREATH, "lightning breath", 0, 0, 0, POS_SITTING, + TAR_IGNORE, TRUE, 0, + NULL); + + /* + * Declaration of skills - this actually doesn't do anything except + * set it up so that immortals can use these skills by default. The + * min level to use the skill for other classes is set up in class.c. + */ + + skillo(SKILL_BACKSTAB, "backstab"); + skillo(SKILL_BASH, "bash"); + skillo(SKILL_HIDE, "hide"); + skillo(SKILL_KICK, "kick"); + skillo(SKILL_PICK_LOCK, "pick lock"); + skillo(SKILL_RESCUE, "rescue"); + skillo(SKILL_SNEAK, "sneak"); + skillo(SKILL_STEAL, "steal"); + skillo(SKILL_TRACK, "track"); +} + diff --git a/src/spells.c b/src/spells.c new file mode 100644 index 0000000..0d35911 --- /dev/null +++ b/src/spells.c @@ -0,0 +1,406 @@ +/* ************************************************************************ +* File: spells.c Part of CircleMUD * +* Usage: Implementation of "manual spells". Circle 2.2 spell compat. * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" +#include "comm.h" +#include "spells.h" +#include "handler.h" +#include "db.h" +#include "constants.h" +#include "interpreter.h" + + +/* external variables */ +extern room_rnum r_mortal_start_room; +extern int mini_mud; +extern int pk_allowed; + +/* external functions */ +void clearMemory(struct char_data *ch); +void weight_change_object(struct obj_data *obj, int weight); +int mag_savingthrow(struct char_data *ch, int type, int modifier); +void name_to_drinkcon(struct obj_data *obj, int type); +void name_from_drinkcon(struct obj_data *obj); +int compute_armor_class(struct char_data *ch); + +/* + * Special spells appear below. + */ + +ASPELL(spell_create_water) +{ + int water; + + if (ch == NULL || obj == NULL) + return; + /* level = MAX(MIN(level, LVL_IMPL), 1); - not used */ + + if (GET_OBJ_TYPE(obj) == ITEM_DRINKCON) { + if ((GET_OBJ_VAL(obj, 2) != LIQ_WATER) && (GET_OBJ_VAL(obj, 1) != 0)) { + name_from_drinkcon(obj); + GET_OBJ_VAL(obj, 2) = LIQ_SLIME; + name_to_drinkcon(obj, LIQ_SLIME); + } else { + water = MAX(GET_OBJ_VAL(obj, 0) - GET_OBJ_VAL(obj, 1), 0); + if (water > 0) { + if (GET_OBJ_VAL(obj, 1) >= 0) + name_from_drinkcon(obj); + GET_OBJ_VAL(obj, 2) = LIQ_WATER; + GET_OBJ_VAL(obj, 1) += water; + name_to_drinkcon(obj, LIQ_WATER); + weight_change_object(obj, water); + act("$p is filled.", FALSE, ch, obj, 0, TO_CHAR); + } + } + } +} + + +ASPELL(spell_recall) +{ + if (victim == NULL || IS_NPC(victim)) + return; + + act("$n disappears.", TRUE, victim, 0, 0, TO_ROOM); + char_from_room(victim); + char_to_room(victim, r_mortal_start_room); + act("$n appears in the middle of the room.", TRUE, victim, 0, 0, TO_ROOM); + look_at_room(victim, 0); +} + + +ASPELL(spell_teleport) +{ + room_rnum to_room; + + if (victim == NULL || IS_NPC(victim)) + return; + + do { + to_room = rand_number(0, top_of_world); + } while (ROOM_FLAGGED(to_room, ROOM_PRIVATE | ROOM_DEATH | ROOM_GODROOM)); + + act("$n slowly fades out of existence and is gone.", + FALSE, victim, 0, 0, TO_ROOM); + char_from_room(victim); + char_to_room(victim, to_room); + act("$n slowly fades into existence.", FALSE, victim, 0, 0, TO_ROOM); + look_at_room(victim, 0); +} + +#define SUMMON_FAIL "You failed.\r\n" + +ASPELL(spell_summon) +{ + if (ch == NULL || victim == NULL) + return; + + if (GET_LEVEL(victim) > MIN(LVL_IMMORT - 1, level + 3)) { + send_to_char(ch, "%s", SUMMON_FAIL); + return; + } + + if (!pk_allowed) { + if (MOB_FLAGGED(victim, MOB_AGGRESSIVE)) { + act("As the words escape your lips and $N travels\r\n" + "through time and space towards you, you realize that $E is\r\n" + "aggressive and might harm you, so you wisely send $M back.", + FALSE, ch, 0, victim, TO_CHAR); + return; + } + if (!IS_NPC(victim) && !PRF_FLAGGED(victim, PRF_SUMMONABLE) && + !PLR_FLAGGED(victim, PLR_KILLER)) { + send_to_char(victim, "%s just tried to summon you to: %s.\r\n" + "%s failed because you have summon protection on.\r\n" + "Type NOSUMMON to allow other players to summon you.\r\n", + GET_NAME(ch), world[IN_ROOM(ch)].name, + (ch->player.sex == SEX_MALE) ? "He" : "She"); + + send_to_char(ch, "You failed because %s has summon protection on.\r\n", GET_NAME(victim)); + mudlog(BRF, LVL_IMMORT, TRUE, "%s failed summoning %s to %s.", GET_NAME(ch), GET_NAME(victim), world[IN_ROOM(ch)].name); + return; + } + } + + if (MOB_FLAGGED(victim, MOB_NOSUMMON) || + (IS_NPC(victim) && mag_savingthrow(victim, SAVING_SPELL, 0))) { + send_to_char(ch, "%s", SUMMON_FAIL); + return; + } + + act("$n disappears suddenly.", TRUE, victim, 0, 0, TO_ROOM); + + char_from_room(victim); + char_to_room(victim, IN_ROOM(ch)); + + act("$n arrives suddenly.", TRUE, victim, 0, 0, TO_ROOM); + act("$n has summoned you!", FALSE, ch, 0, victim, TO_VICT); + look_at_room(victim, 0); +} + + + +ASPELL(spell_locate_object) +{ + struct obj_data *i; + char name[MAX_INPUT_LENGTH]; + int j; + + /* + * FIXME: This is broken. The spell parser routines took the argument + * the player gave to the spell and located an object with that keyword. + * Since we're passed the object and not the keyword we can only guess + * at what the player originally meant to search for. -gg + */ + strlcpy(name, fname(obj->name), sizeof(name)); + j = level / 2; + + for (i = object_list; i && (j > 0); i = i->next) { + if (!isname(name, i->name)) + continue; + + send_to_char(ch, "%c%s", UPPER(*i->short_description), i->short_description); + + if (i->carried_by) + send_to_char(ch, " is being carried by %s.\r\n", PERS(i->carried_by, ch)); + else if (IN_ROOM(i) != NOWHERE) + send_to_char(ch, " is in %s.\r\n", world[IN_ROOM(i)].name); + else if (i->in_obj) + send_to_char(ch, " is in %s.\r\n", i->in_obj->short_description); + else if (i->worn_by) + send_to_char(ch, " is being worn by %s.\r\n", PERS(i->worn_by, ch)); + else + send_to_char(ch, "'s location is uncertain.\r\n"); + + j--; + } + + if (j == level / 2) + send_to_char(ch, "You sense nothing.\r\n"); +} + + + +ASPELL(spell_charm) +{ + struct affected_type af; + + if (victim == NULL || ch == NULL) + return; + + if (victim == ch) + send_to_char(ch, "You like yourself even better!\r\n"); + else if (!IS_NPC(victim) && !PRF_FLAGGED(victim, PRF_SUMMONABLE)) + send_to_char(ch, "You fail because SUMMON protection is on!\r\n"); + else if (AFF_FLAGGED(victim, AFF_SANCTUARY)) + send_to_char(ch, "Your victim is protected by sanctuary!\r\n"); + else if (MOB_FLAGGED(victim, MOB_NOCHARM)) + send_to_char(ch, "Your victim resists!\r\n"); + else if (AFF_FLAGGED(ch, AFF_CHARM)) + send_to_char(ch, "You can't have any followers of your own!\r\n"); + else if (AFF_FLAGGED(victim, AFF_CHARM) || level < GET_LEVEL(victim)) + send_to_char(ch, "You fail.\r\n"); + /* player charming another player - no legal reason for this */ + else if (!pk_allowed && !IS_NPC(victim)) + send_to_char(ch, "You fail - shouldn't be doing it anyway.\r\n"); + else if (circle_follow(victim, ch)) + send_to_char(ch, "Sorry, following in circles can not be allowed.\r\n"); + else if (mag_savingthrow(victim, SAVING_PARA, 0)) + send_to_char(ch, "Your victim resists!\r\n"); + else { + if (victim->master) + stop_follower(victim); + + add_follower(victim, ch); + + af.type = SPELL_CHARM; + af.duration = 24 * 2; + if (GET_CHA(ch)) + af.duration *= GET_CHA(ch); + if (GET_INT(victim)) + af.duration /= GET_INT(victim); + af.modifier = 0; + af.location = 0; + af.bitvector = AFF_CHARM; + affect_to_char(victim, &af); + + act("Isn't $n just such a nice fellow?", FALSE, ch, 0, victim, TO_VICT); + if (IS_NPC(victim)) + REMOVE_BIT(MOB_FLAGS(victim), MOB_SPEC); + } +} + + + +ASPELL(spell_identify) +{ + int i, found; + size_t len; + + if (obj) { + char bitbuf[MAX_STRING_LENGTH]; + + sprinttype(GET_OBJ_TYPE(obj), item_types, bitbuf, sizeof(bitbuf)); + send_to_char(ch, "You feel informed:\r\nObject '%s', Item type: %s\r\n", obj->short_description, bitbuf); + + if (GET_OBJ_AFFECT(obj)) { + sprintbit(GET_OBJ_AFFECT(obj), affected_bits, bitbuf, sizeof(bitbuf)); + send_to_char(ch, "Item will give you following abilities: %s\r\n", bitbuf); + } + + sprintbit(GET_OBJ_EXTRA(obj), extra_bits, bitbuf, sizeof(bitbuf)); + send_to_char(ch, "Item is: %s\r\n", bitbuf); + + send_to_char(ch, "Weight: %d, Value: %d, Rent: %d\r\n", GET_OBJ_WEIGHT(obj), GET_OBJ_COST(obj), GET_OBJ_RENT(obj)); + + switch (GET_OBJ_TYPE(obj)) { + case ITEM_SCROLL: + case ITEM_POTION: + len = i = 0; + + if (GET_OBJ_VAL(obj, 1) >= 1) { + i = snprintf(bitbuf + len, sizeof(bitbuf) - len, " %s", skill_name(GET_OBJ_VAL(obj, 1))); + if (i >= 0) + len += i; + } + + if (GET_OBJ_VAL(obj, 2) >= 1 && len < sizeof(bitbuf)) { + i = snprintf(bitbuf + len, sizeof(bitbuf) - len, " %s", skill_name(GET_OBJ_VAL(obj, 2))); + if (i >= 0) + len += i; + } + + if (GET_OBJ_VAL(obj, 3) >= 1 && len < sizeof(bitbuf)) { + i = snprintf(bitbuf + len, sizeof(bitbuf) - len, " %s", skill_name(GET_OBJ_VAL(obj, 3))); + if (i >= 0) + len += i; + } + + send_to_char(ch, "This %s casts: %s\r\n", item_types[(int) GET_OBJ_TYPE(obj)], bitbuf); + break; + case ITEM_WAND: + case ITEM_STAFF: + send_to_char(ch, "This %s casts: %s\r\nIt has %d maximum charge%s and %d remaining.\r\n", + item_types[(int) GET_OBJ_TYPE(obj)], skill_name(GET_OBJ_VAL(obj, 3)), + GET_OBJ_VAL(obj, 1), GET_OBJ_VAL(obj, 1) == 1 ? "" : "s", GET_OBJ_VAL(obj, 2)); + break; + case ITEM_WEAPON: + send_to_char(ch, "Damage Dice is '%dD%d' for an average per-round damage of %.1f.\r\n", + GET_OBJ_VAL(obj, 1), GET_OBJ_VAL(obj, 2), ((GET_OBJ_VAL(obj, 2) + 1) / 2.0) * GET_OBJ_VAL(obj, 1)); + break; + case ITEM_ARMOR: + send_to_char(ch, "AC-apply is %d\r\n", GET_OBJ_VAL(obj, 0)); + break; + } + found = FALSE; + for (i = 0; i < MAX_OBJ_AFFECT; i++) { + if ((obj->affected[i].location != APPLY_NONE) && + (obj->affected[i].modifier != 0)) { + if (!found) { + send_to_char(ch, "Can affect you as :\r\n"); + found = TRUE; + } + sprinttype(obj->affected[i].location, apply_types, bitbuf, sizeof(bitbuf)); + send_to_char(ch, " Affects: %s By %d\r\n", bitbuf, obj->affected[i].modifier); + } + } + } else if (victim) { /* victim */ + send_to_char(ch, "Name: %s\r\n", GET_NAME(victim)); + if (!IS_NPC(victim)) + send_to_char(ch, "%s is %d years, %d months, %d days and %d hours old.\r\n", + GET_NAME(victim), age(victim)->year, age(victim)->month, + age(victim)->day, age(victim)->hours); + send_to_char(ch, "Height %d cm, Weight %d pounds\r\n", GET_HEIGHT(victim), GET_WEIGHT(victim)); + send_to_char(ch, "Level: %d, Hits: %d, Mana: %d\r\n", GET_LEVEL(victim), GET_HIT(victim), GET_MANA(victim)); + send_to_char(ch, "AC: %d, Hitroll: %d, Damroll: %d\r\n", compute_armor_class(victim), GET_HITROLL(victim), GET_DAMROLL(victim)); + send_to_char(ch, "Str: %d/%d, Int: %d, Wis: %d, Dex: %d, Con: %d, Cha: %d\r\n", + GET_STR(victim), GET_ADD(victim), GET_INT(victim), + GET_WIS(victim), GET_DEX(victim), GET_CON(victim), GET_CHA(victim)); + } +} + + + +/* + * Cannot use this spell on an equipped object or it will mess up the + * wielding character's hit/dam totals. + */ +ASPELL(spell_enchant_weapon) +{ + int i; + + if (ch == NULL || obj == NULL) + return; + + /* Either already enchanted or not a weapon. */ + if (GET_OBJ_TYPE(obj) != ITEM_WEAPON || OBJ_FLAGGED(obj, ITEM_MAGIC)) + return; + + /* Make sure no other affections. */ + for (i = 0; i < MAX_OBJ_AFFECT; i++) + if (obj->affected[i].location != APPLY_NONE) + return; + + SET_BIT(GET_OBJ_EXTRA(obj), ITEM_MAGIC); + + obj->affected[0].location = APPLY_HITROLL; + obj->affected[0].modifier = 1 + (level >= 18); + + obj->affected[1].location = APPLY_DAMROLL; + obj->affected[1].modifier = 1 + (level >= 20); + + if (IS_GOOD(ch)) { + SET_BIT(GET_OBJ_EXTRA(obj), ITEM_ANTI_EVIL); + act("$p glows blue.", FALSE, ch, obj, 0, TO_CHAR); + } else if (IS_EVIL(ch)) { + SET_BIT(GET_OBJ_EXTRA(obj), ITEM_ANTI_GOOD); + act("$p glows red.", FALSE, ch, obj, 0, TO_CHAR); + } else + act("$p glows yellow.", FALSE, ch, obj, 0, TO_CHAR); +} + + +ASPELL(spell_detect_poison) +{ + if (victim) { + if (victim == ch) { + if (AFF_FLAGGED(victim, AFF_POISON)) + send_to_char(ch, "You can sense poison in your blood.\r\n"); + else + send_to_char(ch, "You feel healthy.\r\n"); + } else { + if (AFF_FLAGGED(victim, AFF_POISON)) + act("You sense that $E is poisoned.", FALSE, ch, 0, victim, TO_CHAR); + else + act("You sense that $E is healthy.", FALSE, ch, 0, victim, TO_CHAR); + } + } + + if (obj) { + switch (GET_OBJ_TYPE(obj)) { + case ITEM_DRINKCON: + case ITEM_FOUNTAIN: + case ITEM_FOOD: + if (GET_OBJ_VAL(obj, 3)) + act("You sense that $p has been contaminated.",FALSE,ch,obj,0,TO_CHAR); + else + act("You sense that $p is safe for consumption.", FALSE, ch, obj, 0, + TO_CHAR); + break; + default: + send_to_char(ch, "You sense that it should not be consumed.\r\n"); + } + } +} diff --git a/src/spells.h b/src/spells.h new file mode 100644 index 0000000..846156a --- /dev/null +++ b/src/spells.h @@ -0,0 +1,272 @@ +/* ************************************************************************ +* File: spells.h Part of CircleMUD * +* Usage: header file: constants and fn prototypes for spell system * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +#define DEFAULT_STAFF_LVL 12 +#define DEFAULT_WAND_LVL 12 + +#define CAST_UNDEFINED (-1) +#define CAST_SPELL 0 +#define CAST_POTION 1 +#define CAST_WAND 2 +#define CAST_STAFF 3 +#define CAST_SCROLL 4 + +#define MAG_DAMAGE (1 << 0) +#define MAG_AFFECTS (1 << 1) +#define MAG_UNAFFECTS (1 << 2) +#define MAG_POINTS (1 << 3) +#define MAG_ALTER_OBJS (1 << 4) +#define MAG_GROUPS (1 << 5) +#define MAG_MASSES (1 << 6) +#define MAG_AREAS (1 << 7) +#define MAG_SUMMONS (1 << 8) +#define MAG_CREATIONS (1 << 9) +#define MAG_MANUAL (1 << 10) + + +#define TYPE_UNDEFINED (-1) +#define SPELL_RESERVED_DBC 0 /* SKILL NUMBER ZERO -- RESERVED */ + +/* PLAYER SPELLS -- Numbered from 1 to MAX_SPELLS */ + +#define SPELL_ARMOR 1 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_TELEPORT 2 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_BLESS 3 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_BLINDNESS 4 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_BURNING_HANDS 5 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CALL_LIGHTNING 6 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CHARM 7 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CHILL_TOUCH 8 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CLONE 9 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_COLOR_SPRAY 10 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CONTROL_WEATHER 11 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CREATE_FOOD 12 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CREATE_WATER 13 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CURE_BLIND 14 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CURE_CRITIC 15 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CURE_LIGHT 16 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_CURSE 17 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_DETECT_ALIGN 18 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_DETECT_INVIS 19 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_DETECT_MAGIC 20 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_DETECT_POISON 21 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_DISPEL_EVIL 22 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_EARTHQUAKE 23 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_ENCHANT_WEAPON 24 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_ENERGY_DRAIN 25 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_FIREBALL 26 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_HARM 27 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_HEAL 28 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_INVISIBLE 29 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_LIGHTNING_BOLT 30 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_LOCATE_OBJECT 31 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_MAGIC_MISSILE 32 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_POISON 33 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_PROT_FROM_EVIL 34 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_REMOVE_CURSE 35 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_SANCTUARY 36 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_SHOCKING_GRASP 37 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_SLEEP 38 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_STRENGTH 39 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_SUMMON 40 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_VENTRILOQUATE 41 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_WORD_OF_RECALL 42 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_REMOVE_POISON 43 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_SENSE_LIFE 44 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_ANIMATE_DEAD 45 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_DISPEL_GOOD 46 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_GROUP_ARMOR 47 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_GROUP_HEAL 48 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_GROUP_RECALL 49 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_INFRAVISION 50 /* Reserved Skill[] DO NOT CHANGE */ +#define SPELL_WATERWALK 51 /* Reserved Skill[] DO NOT CHANGE */ +/* Insert new spells here, up to MAX_SPELLS */ +#define MAX_SPELLS 130 + +/* PLAYER SKILLS - Numbered from MAX_SPELLS+1 to MAX_SKILLS */ +#define SKILL_BACKSTAB 131 /* Reserved Skill[] DO NOT CHANGE */ +#define SKILL_BASH 132 /* Reserved Skill[] DO NOT CHANGE */ +#define SKILL_HIDE 133 /* Reserved Skill[] DO NOT CHANGE */ +#define SKILL_KICK 134 /* Reserved Skill[] DO NOT CHANGE */ +#define SKILL_PICK_LOCK 135 /* Reserved Skill[] DO NOT CHANGE */ +/* Undefined 136 */ +#define SKILL_RESCUE 137 /* Reserved Skill[] DO NOT CHANGE */ +#define SKILL_SNEAK 138 /* Reserved Skill[] DO NOT CHANGE */ +#define SKILL_STEAL 139 /* Reserved Skill[] DO NOT CHANGE */ +#define SKILL_TRACK 140 /* Reserved Skill[] DO NOT CHANGE */ +/* New skills may be added here up to MAX_SKILLS (200) */ + + +/* + * NON-PLAYER AND OBJECT SPELLS AND SKILLS + * The practice levels for the spells and skills below are _not_ recorded + * in the playerfile; therefore, the intended use is for spells and skills + * associated with objects (such as SPELL_IDENTIFY used with scrolls of + * identify) or non-players (such as NPC-only spells). + */ + +#define SPELL_IDENTIFY 201 +#define SPELL_FIRE_BREATH 202 +#define SPELL_GAS_BREATH 203 +#define SPELL_FROST_BREATH 204 +#define SPELL_ACID_BREATH 205 +#define SPELL_LIGHTNING_BREATH 206 + +#define TOP_SPELL_DEFINE 299 +/* NEW NPC/OBJECT SPELLS can be inserted here up to 299 */ + + +/* WEAPON ATTACK TYPES */ + +#define TYPE_HIT 300 +#define TYPE_STING 301 +#define TYPE_WHIP 302 +#define TYPE_SLASH 303 +#define TYPE_BITE 304 +#define TYPE_BLUDGEON 305 +#define TYPE_CRUSH 306 +#define TYPE_POUND 307 +#define TYPE_CLAW 308 +#define TYPE_MAUL 309 +#define TYPE_THRASH 310 +#define TYPE_PIERCE 311 +#define TYPE_BLAST 312 +#define TYPE_PUNCH 313 +#define TYPE_STAB 314 + +/* new attack types can be added here - up to TYPE_SUFFERING */ +#define TYPE_SUFFERING 399 + + + +#define SAVING_PARA 0 +#define SAVING_ROD 1 +#define SAVING_PETRI 2 +#define SAVING_BREATH 3 +#define SAVING_SPELL 4 + + +#define TAR_IGNORE (1 << 0) +#define TAR_CHAR_ROOM (1 << 1) +#define TAR_CHAR_WORLD (1 << 2) +#define TAR_FIGHT_SELF (1 << 3) +#define TAR_FIGHT_VICT (1 << 4) +#define TAR_SELF_ONLY (1 << 5) /* Only a check, use with i.e. TAR_CHAR_ROOM */ +#define TAR_NOT_SELF (1 << 6) /* Only a check, use with i.e. TAR_CHAR_ROOM */ +#define TAR_OBJ_INV (1 << 7) +#define TAR_OBJ_ROOM (1 << 8) +#define TAR_OBJ_WORLD (1 << 9) +#define TAR_OBJ_EQUIP (1 << 10) + +struct spell_info_type { + byte min_position; /* Position for caster */ + int mana_min; /* Min amount of mana used by a spell (highest lev) */ + int mana_max; /* Max amount of mana used by a spell (lowest lev) */ + int mana_change; /* Change in mana used by spell from lev to lev */ + + int min_level[NUM_CLASSES]; + int routines; + byte violent; + int targets; /* See below for use with TAR_XXX */ + const char *name; /* Input size not limited. Originates from string constants. */ + const char *wear_off_msg; /* Input size not limited. Originates from string constants. */ +}; + +/* Possible Targets: + + bit 0 : IGNORE TARGET + bit 1 : PC/NPC in room + bit 2 : PC/NPC in world + bit 3 : Object held + bit 4 : Object in inventory + bit 5 : Object in room + bit 6 : Object in world + bit 7 : If fighting, and no argument, select tar_char as self + bit 8 : If fighting, and no argument, select tar_char as victim (fighting) + bit 9 : If no argument, select self, if argument check that it IS self. + +*/ + +#define SPELL_TYPE_SPELL 0 +#define SPELL_TYPE_POTION 1 +#define SPELL_TYPE_WAND 2 +#define SPELL_TYPE_STAFF 3 +#define SPELL_TYPE_SCROLL 4 + + +/* Attacktypes with grammar */ + +struct attack_hit_type { + const char *singular; + const char *plural; +}; + + +#define ASPELL(spellname) \ +void spellname(int level, struct char_data *ch, \ + struct char_data *victim, struct obj_data *obj) + +#define MANUAL_SPELL(spellname) spellname(level, caster, cvict, ovict); + +ASPELL(spell_create_water); +ASPELL(spell_recall); +ASPELL(spell_teleport); +ASPELL(spell_summon); +ASPELL(spell_locate_object); +ASPELL(spell_charm); +ASPELL(spell_information); +ASPELL(spell_identify); +ASPELL(spell_enchant_weapon); +ASPELL(spell_detect_poison); + +/* basic magic calling functions */ + +int find_skill_num(char *name); + +int mag_damage(int level, struct char_data *ch, struct char_data *victim, + int spellnum, int savetype); + +void mag_affects(int level, struct char_data *ch, struct char_data *victim, + int spellnum, int savetype); + +void mag_groups(int level, struct char_data *ch, int spellnum, int savetype); + +void mag_masses(int level, struct char_data *ch, int spellnum, int savetype); + +void mag_areas(int level, struct char_data *ch, int spellnum, int savetype); + +void mag_summons(int level, struct char_data *ch, struct obj_data *obj, + int spellnum, int savetype); + +void mag_points(int level, struct char_data *ch, struct char_data *victim, + int spellnum, int savetype); + +void mag_unaffects(int level, struct char_data *ch, struct char_data *victim, + int spellnum, int type); + +void mag_alter_objs(int level, struct char_data *ch, struct obj_data *obj, + int spellnum, int type); + +void mag_creations(int level, struct char_data *ch, int spellnum); + +int call_magic(struct char_data *caster, struct char_data *cvict, + struct obj_data *ovict, int spellnum, int level, int casttype); + +void mag_objectmagic(struct char_data *ch, struct obj_data *obj, + char *argument); + +int cast_spell(struct char_data *ch, struct char_data *tch, + struct obj_data *tobj, int spellnum); + + +/* other prototypes */ +void spell_level(int spell, int chclass, int level); +void init_spell_levels(void); +const char *skill_name(int num); diff --git a/src/structs.h b/src/structs.h new file mode 100644 index 0000000..9a8d67d --- /dev/null +++ b/src/structs.h @@ -0,0 +1,1103 @@ +/* ************************************************************************ +* File: structs.h Part of CircleMUD * +* Usage: header file for central structures and contstants * +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/* + * Intended use of this macro is to allow external packages to work with + * a variety of CircleMUD versions without modifications. For instance, + * an IS_CORPSE() macro was introduced in pl13. Any future code add-ons + * could take into account the CircleMUD version and supply their own + * definition for the macro if used on an older version of CircleMUD. + * You are supposed to compare this with the macro CIRCLEMUD_VERSION() + * in utils.h. See there for usage. + */ +#define _CIRCLEMUD 0x030100 /* Major/Minor/Patchlevel - MMmmPP */ + +/* + * If you want equipment to be automatically equipped to the same place + * it was when players rented, set the define below to 1. Please note + * that this will require erasing or converting all of your rent files. + * And of course, you have to recompile everything. We need this feature + * for CircleMUD to be complete but we refuse to break binary file + * compatibility. + */ +#define USE_AUTOEQ 0 /* TRUE/FALSE aren't defined yet. */ + + +/* preamble *************************************************************/ + +/* + * As of bpl20, it should be safe to use unsigned data types for the + * various virtual and real number data types. There really isn't a + * reason to use signed anymore so use the unsigned types and get + * 65,535 objects instead of 32,768. + * + * NOTE: This will likely be unconditionally unsigned later. + */ +#define CIRCLE_UNSIGNED_INDEX 0 /* 0 = signed, 1 = unsigned */ + +#if CIRCLE_UNSIGNED_INDEX +# define IDXTYPE ush_int +# define NOWHERE ((IDXTYPE)~0) +# define NOTHING ((IDXTYPE)~0) +# define NOBODY ((IDXTYPE)~0) +#else +# define IDXTYPE sh_int +# define NOWHERE (-1) /* nil reference for rooms */ +# define NOTHING (-1) /* nil reference for objects */ +# define NOBODY (-1) /* nil reference for mobiles */ +#endif + +#define SPECIAL(name) \ + int (name)(struct char_data *ch, void *me, int cmd, char *argument) + + +/* room-related defines *************************************************/ + + +/* The cardinal directions: used as index to room_data.dir_option[] */ +#define NORTH 0 +#define EAST 1 +#define SOUTH 2 +#define WEST 3 +#define UP 4 +#define DOWN 5 + + +/* Room flags: used in room_data.room_flags */ +/* WARNING: In the world files, NEVER set the bits marked "R" ("Reserved") */ +#define ROOM_DARK (1 << 0) /* Dark */ +#define ROOM_DEATH (1 << 1) /* Death trap */ +#define ROOM_NOMOB (1 << 2) /* MOBs not allowed */ +#define ROOM_INDOORS (1 << 3) /* Indoors */ +#define ROOM_PEACEFUL (1 << 4) /* Violence not allowed */ +#define ROOM_SOUNDPROOF (1 << 5) /* Shouts, gossip blocked */ +#define ROOM_NOTRACK (1 << 6) /* Track won't go through */ +#define ROOM_NOMAGIC (1 << 7) /* Magic not allowed */ +#define ROOM_TUNNEL (1 << 8) /* room for only 1 pers */ +#define ROOM_PRIVATE (1 << 9) /* Can't teleport in */ +#define ROOM_GODROOM (1 << 10) /* LVL_GOD+ only allowed */ +#define ROOM_HOUSE (1 << 11) /* (R) Room is a house */ +#define ROOM_HOUSE_CRASH (1 << 12) /* (R) House needs saving */ +#define ROOM_ATRIUM (1 << 13) /* (R) The door to a house */ +#define ROOM_OLC (1 << 14) /* (R) Modifyable/!compress */ +#define ROOM_BFS_MARK (1 << 15) /* (R) breath-first srch mrk */ + + +/* Exit info: used in room_data.dir_option.exit_info */ +#define EX_ISDOOR (1 << 0) /* Exit is a door */ +#define EX_CLOSED (1 << 1) /* The door is closed */ +#define EX_LOCKED (1 << 2) /* The door is locked */ +#define EX_PICKPROOF (1 << 3) /* Lock can't be picked */ + + +/* Sector types: used in room_data.sector_type */ +#define SECT_INSIDE 0 /* Indoors */ +#define SECT_CITY 1 /* In a city */ +#define SECT_FIELD 2 /* In a field */ +#define SECT_FOREST 3 /* In a forest */ +#define SECT_HILLS 4 /* In the hills */ +#define SECT_MOUNTAIN 5 /* On a mountain */ +#define SECT_WATER_SWIM 6 /* Swimmable water */ +#define SECT_WATER_NOSWIM 7 /* Water - need a boat */ +#define SECT_FLYING 8 /* Wheee! */ +#define SECT_UNDERWATER 9 /* Underwater */ + + +/* char and mob-related defines *****************************************/ + + +/* PC classes */ +#define CLASS_UNDEFINED (-1) +#define CLASS_MAGIC_USER 0 +#define CLASS_CLERIC 1 +#define CLASS_THIEF 2 +#define CLASS_WARRIOR 3 + +#define NUM_CLASSES 4 /* This must be the number of classes!! */ + +/* NPC classes (currently unused - feel free to implement!) */ +#define CLASS_OTHER 0 +#define CLASS_UNDEAD 1 +#define CLASS_HUMANOID 2 +#define CLASS_ANIMAL 3 +#define CLASS_DRAGON 4 +#define CLASS_GIANT 5 + + +/* Sex */ +#define SEX_NEUTRAL 0 +#define SEX_MALE 1 +#define SEX_FEMALE 2 + + +/* Positions */ +#define POS_DEAD 0 /* dead */ +#define POS_MORTALLYW 1 /* mortally wounded */ +#define POS_INCAP 2 /* incapacitated */ +#define POS_STUNNED 3 /* stunned */ +#define POS_SLEEPING 4 /* sleeping */ +#define POS_RESTING 5 /* resting */ +#define POS_SITTING 6 /* sitting */ +#define POS_FIGHTING 7 /* fighting */ +#define POS_STANDING 8 /* standing */ + + +/* Player flags: used by char_data.char_specials.act */ +#define PLR_KILLER (1 << 0) /* Player is a player-killer */ +#define PLR_THIEF (1 << 1) /* Player is a player-thief */ +#define PLR_FROZEN (1 << 2) /* Player is frozen */ +#define PLR_DONTSET (1 << 3) /* Don't EVER set (ISNPC bit) */ +#define PLR_WRITING (1 << 4) /* Player writing (board/mail/olc) */ +#define PLR_MAILING (1 << 5) /* Player is writing mail */ +#define PLR_CRASH (1 << 6) /* Player needs to be crash-saved */ +#define PLR_SITEOK (1 << 7) /* Player has been site-cleared */ +#define PLR_NOSHOUT (1 << 8) /* Player not allowed to shout/goss */ +#define PLR_NOTITLE (1 << 9) /* Player not allowed to set title */ +#define PLR_DELETED (1 << 10) /* Player deleted - space reusable */ +#define PLR_LOADROOM (1 << 11) /* Player uses nonstandard loadroom */ +#define PLR_NOWIZLIST (1 << 12) /* Player shouldn't be on wizlist */ +#define PLR_NODELETE (1 << 13) /* Player shouldn't be deleted */ +#define PLR_INVSTART (1 << 14) /* Player should enter game wizinvis */ +#define PLR_CRYO (1 << 15) /* Player is cryo-saved (purge prog) */ +#define PLR_NOTDEADYET (1 << 16) /* (R) Player being extracted. */ + + +/* Mobile flags: used by char_data.char_specials.act */ +#define MOB_SPEC (1 << 0) /* Mob has a callable spec-proc */ +#define MOB_SENTINEL (1 << 1) /* Mob should not move */ +#define MOB_SCAVENGER (1 << 2) /* Mob picks up stuff on the ground */ +#define MOB_ISNPC (1 << 3) /* (R) Automatically set on all Mobs */ +#define MOB_AWARE (1 << 4) /* Mob can't be backstabbed */ +#define MOB_AGGRESSIVE (1 << 5) /* Mob auto-attacks everybody nearby */ +#define MOB_STAY_ZONE (1 << 6) /* Mob shouldn't wander out of zone */ +#define MOB_WIMPY (1 << 7) /* Mob flees if severely injured */ +#define MOB_AGGR_EVIL (1 << 8) /* Auto-attack any evil PC's */ +#define MOB_AGGR_GOOD (1 << 9) /* Auto-attack any good PC's */ +#define MOB_AGGR_NEUTRAL (1 << 10) /* Auto-attack any neutral PC's */ +#define MOB_MEMORY (1 << 11) /* remember attackers if attacked */ +#define MOB_HELPER (1 << 12) /* attack PCs fighting other NPCs */ +#define MOB_NOCHARM (1 << 13) /* Mob can't be charmed */ +#define MOB_NOSUMMON (1 << 14) /* Mob can't be summoned */ +#define MOB_NOSLEEP (1 << 15) /* Mob can't be slept */ +#define MOB_NOBASH (1 << 16) /* Mob can't be bashed (e.g. trees) */ +#define MOB_NOBLIND (1 << 17) /* Mob can't be blinded */ +#define MOB_NOTDEADYET (1 << 18) /* (R) Mob being extracted. */ + + +/* Preference flags: used by char_data.player_specials.pref */ +#define PRF_BRIEF (1 << 0) /* Room descs won't normally be shown */ +#define PRF_COMPACT (1 << 1) /* No extra CRLF pair before prompts */ +#define PRF_DEAF (1 << 2) /* Can't hear shouts */ +#define PRF_NOTELL (1 << 3) /* Can't receive tells */ +#define PRF_DISPHP (1 << 4) /* Display hit points in prompt */ +#define PRF_DISPMANA (1 << 5) /* Display mana points in prompt */ +#define PRF_DISPMOVE (1 << 6) /* Display move points in prompt */ +#define PRF_AUTOEXIT (1 << 7) /* Display exits in a room */ +#define PRF_NOHASSLE (1 << 8) /* Aggr mobs won't attack */ +#define PRF_QUEST (1 << 9) /* On quest */ +#define PRF_SUMMONABLE (1 << 10) /* Can be summoned */ +#define PRF_NOREPEAT (1 << 11) /* No repetition of comm commands */ +#define PRF_HOLYLIGHT (1 << 12) /* Can see in dark */ +#define PRF_COLOR_1 (1 << 13) /* Color (low bit) */ +#define PRF_COLOR_2 (1 << 14) /* Color (high bit) */ +#define PRF_NOWIZ (1 << 15) /* Can't hear wizline */ +#define PRF_LOG1 (1 << 16) /* On-line System Log (low bit) */ +#define PRF_LOG2 (1 << 17) /* On-line System Log (high bit) */ +#define PRF_NOAUCT (1 << 18) /* Can't hear auction channel */ +#define PRF_NOGOSS (1 << 19) /* Can't hear gossip channel */ +#define PRF_NOGRATZ (1 << 20) /* Can't hear grats channel */ +#define PRF_ROOMFLAGS (1 << 21) /* Can see room flags (ROOM_x) */ +#define PRF_DISPAUTO (1 << 22) /* Show prompt HP, MP, MV when < 30%. */ + +/* Affect bits: used in char_data.char_specials.saved.affected_by */ +/* WARNING: In the world files, NEVER set the bits marked "R" ("Reserved") */ +#define AFF_BLIND (1 << 0) /* (R) Char is blind */ +#define AFF_INVISIBLE (1 << 1) /* Char is invisible */ +#define AFF_DETECT_ALIGN (1 << 2) /* Char is sensitive to align*/ +#define AFF_DETECT_INVIS (1 << 3) /* Char can see invis chars */ +#define AFF_DETECT_MAGIC (1 << 4) /* Char is sensitive to magic*/ +#define AFF_SENSE_LIFE (1 << 5) /* Char can sense hidden life*/ +#define AFF_WATERWALK (1 << 6) /* Char can walk on water */ +#define AFF_SANCTUARY (1 << 7) /* Char protected by sanct. */ +#define AFF_GROUP (1 << 8) /* (R) Char is grouped */ +#define AFF_CURSE (1 << 9) /* Char is cursed */ +#define AFF_INFRAVISION (1 << 10) /* Char can see in dark */ +#define AFF_POISON (1 << 11) /* (R) Char is poisoned */ +#define AFF_PROTECT_EVIL (1 << 12) /* Char protected from evil */ +#define AFF_PROTECT_GOOD (1 << 13) /* Char protected from good */ +#define AFF_SLEEP (1 << 14) /* (R) Char magically asleep */ +#define AFF_NOTRACK (1 << 15) /* Char can't be tracked */ +#define AFF_UNUSED16 (1 << 16) /* Room for future expansion */ +#define AFF_UNUSED17 (1 << 17) /* Room for future expansion */ +#define AFF_SNEAK (1 << 18) /* Char can move quietly */ +#define AFF_HIDE (1 << 19) /* Char is hidden */ +#define AFF_UNUSED20 (1 << 20) /* Room for future expansion */ +#define AFF_CHARM (1 << 21) /* Char is charmed */ + + +/* Modes of connectedness: used by descriptor_data.state */ +#define CON_PLAYING 0 /* Playing - Nominal state */ +#define CON_CLOSE 1 /* User disconnect, remove character. */ +#define CON_GET_NAME 2 /* By what name ..? */ +#define CON_NAME_CNFRM 3 /* Did I get that right, x? */ +#define CON_PASSWORD 4 /* Password: */ +#define CON_NEWPASSWD 5 /* Give me a password for x */ +#define CON_CNFPASSWD 6 /* Please retype password: */ +#define CON_QSEX 7 /* Sex? */ +#define CON_QCLASS 8 /* Class? */ +#define CON_RMOTD 9 /* PRESS RETURN after MOTD */ +#define CON_MENU 10 /* Your choice: (main menu) */ +#define CON_EXDESC 11 /* Enter a new description: */ +#define CON_CHPWD_GETOLD 12 /* Changing passwd: get old */ +#define CON_CHPWD_GETNEW 13 /* Changing passwd: get new */ +#define CON_CHPWD_VRFY 14 /* Verify new password */ +#define CON_DELCNF1 15 /* Delete confirmation 1 */ +#define CON_DELCNF2 16 /* Delete confirmation 2 */ +#define CON_DISCONNECT 17 /* In-game link loss (leave character) */ + +/* Character equipment positions: used as index for char_data.equipment[] */ +/* NOTE: Don't confuse these constants with the ITEM_ bitvectors + which control the valid places you can wear a piece of equipment */ +#define WEAR_LIGHT 0 +#define WEAR_FINGER_R 1 +#define WEAR_FINGER_L 2 +#define WEAR_NECK_1 3 +#define WEAR_NECK_2 4 +#define WEAR_BODY 5 +#define WEAR_HEAD 6 +#define WEAR_LEGS 7 +#define WEAR_FEET 8 +#define WEAR_HANDS 9 +#define WEAR_ARMS 10 +#define WEAR_SHIELD 11 +#define WEAR_ABOUT 12 +#define WEAR_WAIST 13 +#define WEAR_WRIST_R 14 +#define WEAR_WRIST_L 15 +#define WEAR_WIELD 16 +#define WEAR_HOLD 17 + +#define NUM_WEARS 18 /* This must be the # of eq positions!! */ + + +/* object-related defines ********************************************/ + + +/* Item types: used by obj_data.obj_flags.type_flag */ +#define ITEM_LIGHT 1 /* Item is a light source */ +#define ITEM_SCROLL 2 /* Item is a scroll */ +#define ITEM_WAND 3 /* Item is a wand */ +#define ITEM_STAFF 4 /* Item is a staff */ +#define ITEM_WEAPON 5 /* Item is a weapon */ +#define ITEM_FIREWEAPON 6 /* Unimplemented */ +#define ITEM_MISSILE 7 /* Unimplemented */ +#define ITEM_TREASURE 8 /* Item is a treasure, not gold */ +#define ITEM_ARMOR 9 /* Item is armor */ +#define ITEM_POTION 10 /* Item is a potion */ +#define ITEM_WORN 11 /* Unimplemented */ +#define ITEM_OTHER 12 /* Misc object */ +#define ITEM_TRASH 13 /* Trash - shopkeeps won't buy */ +#define ITEM_TRAP 14 /* Unimplemented */ +#define ITEM_CONTAINER 15 /* Item is a container */ +#define ITEM_NOTE 16 /* Item is note */ +#define ITEM_DRINKCON 17 /* Item is a drink container */ +#define ITEM_KEY 18 /* Item is a key */ +#define ITEM_FOOD 19 /* Item is food */ +#define ITEM_MONEY 20 /* Item is money (gold) */ +#define ITEM_PEN 21 /* Item is a pen */ +#define ITEM_BOAT 22 /* Item is a boat */ +#define ITEM_FOUNTAIN 23 /* Item is a fountain */ + + +/* Take/Wear flags: used by obj_data.obj_flags.wear_flags */ +#define ITEM_WEAR_TAKE (1 << 0) /* Item can be takes */ +#define ITEM_WEAR_FINGER (1 << 1) /* Can be worn on finger */ +#define ITEM_WEAR_NECK (1 << 2) /* Can be worn around neck */ +#define ITEM_WEAR_BODY (1 << 3) /* Can be worn on body */ +#define ITEM_WEAR_HEAD (1 << 4) /* Can be worn on head */ +#define ITEM_WEAR_LEGS (1 << 5) /* Can be worn on legs */ +#define ITEM_WEAR_FEET (1 << 6) /* Can be worn on feet */ +#define ITEM_WEAR_HANDS (1 << 7) /* Can be worn on hands */ +#define ITEM_WEAR_ARMS (1 << 8) /* Can be worn on arms */ +#define ITEM_WEAR_SHIELD (1 << 9) /* Can be used as a shield */ +#define ITEM_WEAR_ABOUT (1 << 10) /* Can be worn about body */ +#define ITEM_WEAR_WAIST (1 << 11) /* Can be worn around waist */ +#define ITEM_WEAR_WRIST (1 << 12) /* Can be worn on wrist */ +#define ITEM_WEAR_WIELD (1 << 13) /* Can be wielded */ +#define ITEM_WEAR_HOLD (1 << 14) /* Can be held */ + + +/* Extra object flags: used by obj_data.obj_flags.extra_flags */ +#define ITEM_GLOW (1 << 0) /* Item is glowing */ +#define ITEM_HUM (1 << 1) /* Item is humming */ +#define ITEM_NORENT (1 << 2) /* Item cannot be rented */ +#define ITEM_NODONATE (1 << 3) /* Item cannot be donated */ +#define ITEM_NOINVIS (1 << 4) /* Item cannot be made invis */ +#define ITEM_INVISIBLE (1 << 5) /* Item is invisible */ +#define ITEM_MAGIC (1 << 6) /* Item is magical */ +#define ITEM_NODROP (1 << 7) /* Item is cursed: can't drop */ +#define ITEM_BLESS (1 << 8) /* Item is blessed */ +#define ITEM_ANTI_GOOD (1 << 9) /* Not usable by good people */ +#define ITEM_ANTI_EVIL (1 << 10) /* Not usable by evil people */ +#define ITEM_ANTI_NEUTRAL (1 << 11) /* Not usable by neutral people */ +#define ITEM_ANTI_MAGIC_USER (1 << 12) /* Not usable by mages */ +#define ITEM_ANTI_CLERIC (1 << 13) /* Not usable by clerics */ +#define ITEM_ANTI_THIEF (1 << 14) /* Not usable by thieves */ +#define ITEM_ANTI_WARRIOR (1 << 15) /* Not usable by warriors */ +#define ITEM_NOSELL (1 << 16) /* Shopkeepers won't touch it */ + + +/* Modifier constants used with obj affects ('A' fields) */ +#define APPLY_NONE 0 /* No effect */ +#define APPLY_STR 1 /* Apply to strength */ +#define APPLY_DEX 2 /* Apply to dexterity */ +#define APPLY_INT 3 /* Apply to intelligence */ +#define APPLY_WIS 4 /* Apply to wisdom */ +#define APPLY_CON 5 /* Apply to constitution */ +#define APPLY_CHA 6 /* Apply to charisma */ +#define APPLY_CLASS 7 /* Reserved */ +#define APPLY_LEVEL 8 /* Reserved */ +#define APPLY_AGE 9 /* Apply to age */ +#define APPLY_CHAR_WEIGHT 10 /* Apply to weight */ +#define APPLY_CHAR_HEIGHT 11 /* Apply to height */ +#define APPLY_MANA 12 /* Apply to max mana */ +#define APPLY_HIT 13 /* Apply to max hit points */ +#define APPLY_MOVE 14 /* Apply to max move points */ +#define APPLY_GOLD 15 /* Reserved */ +#define APPLY_EXP 16 /* Reserved */ +#define APPLY_AC 17 /* Apply to Armor Class */ +#define APPLY_HITROLL 18 /* Apply to hitroll */ +#define APPLY_DAMROLL 19 /* Apply to damage roll */ +#define APPLY_SAVING_PARA 20 /* Apply to save throw: paralz */ +#define APPLY_SAVING_ROD 21 /* Apply to save throw: rods */ +#define APPLY_SAVING_PETRI 22 /* Apply to save throw: petrif */ +#define APPLY_SAVING_BREATH 23 /* Apply to save throw: breath */ +#define APPLY_SAVING_SPELL 24 /* Apply to save throw: spells */ + + +/* Container flags - value[1] */ +#define CONT_CLOSEABLE (1 << 0) /* Container can be closed */ +#define CONT_PICKPROOF (1 << 1) /* Container is pickproof */ +#define CONT_CLOSED (1 << 2) /* Container is closed */ +#define CONT_LOCKED (1 << 3) /* Container is locked */ + + +/* Some different kind of liquids for use in values of drink containers */ +#define LIQ_WATER 0 +#define LIQ_BEER 1 +#define LIQ_WINE 2 +#define LIQ_ALE 3 +#define LIQ_DARKALE 4 +#define LIQ_WHISKY 5 +#define LIQ_LEMONADE 6 +#define LIQ_FIREBRT 7 +#define LIQ_LOCALSPC 8 +#define LIQ_SLIME 9 +#define LIQ_MILK 10 +#define LIQ_TEA 11 +#define LIQ_COFFE 12 +#define LIQ_BLOOD 13 +#define LIQ_SALTWATER 14 +#define LIQ_CLEARWATER 15 + + +/* other miscellaneous defines *******************************************/ + + +/* Player conditions */ +#define DRUNK 0 +#define FULL 1 +#define THIRST 2 + + +/* Sun state for weather_data */ +#define SUN_DARK 0 +#define SUN_RISE 1 +#define SUN_LIGHT 2 +#define SUN_SET 3 + + +/* Sky conditions for weather_data */ +#define SKY_CLOUDLESS 0 +#define SKY_CLOUDY 1 +#define SKY_RAINING 2 +#define SKY_LIGHTNING 3 + + +/* Rent codes */ +#define RENT_UNDEF 0 +#define RENT_CRASH 1 +#define RENT_RENTED 2 +#define RENT_CRYO 3 +#define RENT_FORCED 4 +#define RENT_TIMEDOUT 5 + + +/* other #defined constants **********************************************/ + +/* + * **DO**NOT** blindly change the number of levels in your MUD merely by + * changing these numbers and without changing the rest of the code to match. + * Other changes throughout the code are required. See coding.doc for + * details. + * + * LVL_IMPL should always be the HIGHEST possible immortal level, and + * LVL_IMMORT should always be the LOWEST immortal level. The number of + * mortal levels will always be LVL_IMMORT - 1. + */ +#define LVL_IMPL 34 +#define LVL_GRGOD 33 +#define LVL_GOD 32 +#define LVL_IMMORT 31 + +/* Level of the 'freeze' command */ +#define LVL_FREEZE LVL_GRGOD + +#define NUM_OF_DIRS 6 /* number of directions in a room (nsewud) */ +#define MAGIC_NUMBER (0x06) /* Arbitrary number that won't be in a string */ + +/* + * OPT_USEC determines how many commands will be processed by the MUD per + * second and how frequently it does socket I/O. A low setting will cause + * actions to be executed more frequently but will increase overhead due to + * more cycling to check. A high setting (e.g. 1 Hz) may upset your players + * as actions (such as large speedwalking chains) take longer to be executed. + * You shouldn't need to adjust this. + */ +#define OPT_USEC 100000 /* 10 passes per second */ +#define PASSES_PER_SEC (1000000 / OPT_USEC) +#define RL_SEC * PASSES_PER_SEC + +#define PULSE_ZONE (10 RL_SEC) +#define PULSE_MOBILE (10 RL_SEC) +#define PULSE_VIOLENCE ( 2 RL_SEC) +#define PULSE_AUTOSAVE (60 RL_SEC) +#define PULSE_IDLEPWD (15 RL_SEC) +#define PULSE_SANITY (30 RL_SEC) +#define PULSE_USAGE (5 * 60 RL_SEC) /* 5 mins */ +#define PULSE_TIMESAVE (30 * 60 RL_SEC) /* should be >= SECS_PER_MUD_HOUR */ + +/* Variables for the output buffering system */ +#define MAX_SOCK_BUF (12 * 1024) /* Size of kernel's sock buf */ +#define MAX_PROMPT_LENGTH 96 /* Max length of prompt */ +#define GARBAGE_SPACE 32 /* Space for **OVERFLOW** etc */ +#define SMALL_BUFSIZE 1024 /* Static output buffer size */ +/* Max amount of output that can be buffered */ +#define LARGE_BUFSIZE (MAX_SOCK_BUF - GARBAGE_SPACE - MAX_PROMPT_LENGTH) + +#define HISTORY_SIZE 5 /* Keep last 5 commands. */ +#define MAX_STRING_LENGTH 8192 +#define MAX_INPUT_LENGTH 256 /* Max length per *line* of input */ +#define MAX_RAW_INPUT_LENGTH 512 /* Max size of *raw* input */ +#define MAX_MESSAGES 60 +#define MAX_NAME_LENGTH 20 /* Used in char_file_u *DO*NOT*CHANGE* */ +#define MAX_PWD_LENGTH 10 /* Used in char_file_u *DO*NOT*CHANGE* */ +#define MAX_TITLE_LENGTH 80 /* Used in char_file_u *DO*NOT*CHANGE* */ +#define HOST_LENGTH 30 /* Used in char_file_u *DO*NOT*CHANGE* */ +#define EXDSCR_LENGTH 240 /* Used in char_file_u *DO*NOT*CHANGE* */ +#define MAX_TONGUE 3 /* Used in char_file_u *DO*NOT*CHANGE* */ +#define MAX_SKILLS 200 /* Used in char_file_u *DO*NOT*CHANGE* */ +#define MAX_AFFECT 32 /* Used in char_file_u *DO*NOT*CHANGE* */ +#define MAX_OBJ_AFFECT 6 /* Used in obj_file_elem *DO*NOT*CHANGE* */ +#define MAX_NOTE_LENGTH 1000 /* arbitrary */ + +/* + * A MAX_PWD_LENGTH of 10 will cause BSD-derived systems with MD5 passwords + * and GNU libc 2 passwords to be truncated. On BSD this will enable anyone + * with a name longer than 5 character to log in with any password. If you + * have such a system, it is suggested you change the limit to 20. + * + * Please note that this will erase your player files. If you are not + * prepared to do so, simply erase these lines but heed the above warning. + */ +#if defined(HAVE_UNSAFE_CRYPT) && MAX_PWD_LENGTH == 10 +#error You need to increase MAX_PWD_LENGTH to at least 20. +#error See the comment near these errors for more explanation. +#endif + +/********************************************************************** +* Structures * +**********************************************************************/ + + +typedef signed char sbyte; +typedef unsigned char ubyte; +typedef signed short int sh_int; +typedef unsigned short int ush_int; +#if !defined(__cplusplus) /* Anyone know a portable method? */ +typedef char bool; +#endif + +#if !defined(CIRCLE_WINDOWS) || defined(LCC_WIN32) /* Hm, sysdep.h? */ +typedef signed char byte; +#endif + +/* Various virtual (human-reference) number types. */ +typedef IDXTYPE room_vnum; +typedef IDXTYPE obj_vnum; +typedef IDXTYPE mob_vnum; +typedef IDXTYPE zone_vnum; +typedef IDXTYPE shop_vnum; + +/* Various real (array-reference) number types. */ +typedef IDXTYPE room_rnum; +typedef IDXTYPE obj_rnum; +typedef IDXTYPE mob_rnum; +typedef IDXTYPE zone_rnum; +typedef IDXTYPE shop_rnum; + + +/* + * Bitvector type for 32 bit unsigned long bitvectors. + * 'unsigned long long' will give you at least 64 bits if you have GCC. + * + * Since we don't want to break the pfiles, you'll have to search throughout + * the code for "bitvector_t" and change them yourself if you'd like this + * extra flexibility. + */ +typedef unsigned long int bitvector_t; + +/* Extra description: used in objects, mobiles, and rooms */ +struct extra_descr_data { + char *keyword; /* Keyword in look/examine */ + char *description; /* What to see */ + struct extra_descr_data *next; /* Next in list */ +}; + + +/* object-related structures ******************************************/ + + +/* object flags; used in obj_data */ +struct obj_flag_data { + int value[4]; /* Values of the item (see list) */ + byte type_flag; /* Type of item */ + int /*bitvector_t*/ wear_flags; /* Where you can wear it */ + int /*bitvector_t*/ extra_flags; /* If it hums, glows, etc. */ + int weight; /* Weigt what else */ + int cost; /* Value when sold (gp.) */ + int cost_per_day; /* Cost to keep pr. real day */ + int timer; /* Timer for object */ + long /*bitvector_t*/ bitvector; /* To set chars bits */ +}; + + +/* Used in obj_file_elem *DO*NOT*CHANGE* */ +struct obj_affected_type { + byte location; /* Which ability to change (APPLY_XXX) */ + sbyte modifier; /* How much it changes by */ +}; + + +/* ================== Memory Structure for Objects ================== */ +struct obj_data { + obj_vnum item_number; /* Where in data-base */ + room_rnum in_room; /* In what room -1 when conta/carr */ + + struct obj_flag_data obj_flags;/* Object information */ + struct obj_affected_type affected[MAX_OBJ_AFFECT]; /* affects */ + + char *name; /* Title of object :get etc. */ + char *description; /* When in room */ + char *short_description; /* when worn/carry/in cont. */ + char *action_description; /* What to write when used */ + struct extra_descr_data *ex_description; /* extra descriptions */ + struct char_data *carried_by; /* Carried by :NULL in room/conta */ + struct char_data *worn_by; /* Worn by? */ + sh_int worn_on; /* Worn where? */ + + struct obj_data *in_obj; /* In what object NULL when none */ + struct obj_data *contains; /* Contains objects */ + + struct obj_data *next_content; /* For 'contains' lists */ + struct obj_data *next; /* For the object list */ +}; +/* ======================================================================= */ + + +/* ====================== File Element for Objects ======================= */ +/* BEWARE: Changing it will ruin rent files */ +struct obj_file_elem { + obj_vnum item_number; + +#if USE_AUTOEQ + sh_int location; +#endif + int value[4]; + int /*bitvector_t*/ extra_flags; + int weight; + int timer; + long /*bitvector_t*/ bitvector; + struct obj_affected_type affected[MAX_OBJ_AFFECT]; +}; + + +/* header block for rent files. BEWARE: Changing it will ruin rent files */ +struct rent_info { + int time; + int rentcode; + int net_cost_per_diem; + int gold; + int account; + int nitems; + int spare0; + int spare1; + int spare2; + int spare3; + int spare4; + int spare5; + int spare6; + int spare7; +}; +/* ======================================================================= */ + + +/* room-related structures ************************************************/ + + +struct room_direction_data { + char *general_description; /* When look DIR. */ + + char *keyword; /* for open/close */ + + sh_int /*bitvector_t*/ exit_info; /* Exit info */ + obj_vnum key; /* Key's number (-1 for no key) */ + room_rnum to_room; /* Where direction leads (NOWHERE) */ +}; + + +/* ================== Memory Structure for room ======================= */ +struct room_data { + room_vnum number; /* Rooms number (vnum) */ + zone_rnum zone; /* Room zone (for resetting) */ + int sector_type; /* sector type (move/hide) */ + char *name; /* Rooms name 'You are ...' */ + char *description; /* Shown when entered */ + struct extra_descr_data *ex_description; /* for examine/look */ + struct room_direction_data *dir_option[NUM_OF_DIRS]; /* Directions */ + int /*bitvector_t*/ room_flags; /* DEATH,DARK ... etc */ + + byte light; /* Number of lightsources in room */ + SPECIAL(*func); + + struct obj_data *contents; /* List of items in room */ + struct char_data *people; /* List of NPC / PC in room */ +}; +/* ====================================================================== */ + + +/* char-related structures ************************************************/ + + +/* memory structure for characters */ +struct memory_rec_struct { + long id; + struct memory_rec_struct *next; +}; + +typedef struct memory_rec_struct memory_rec; + + +/* This structure is purely intended to be an easy way to transfer */ +/* and return information about time (real or mudwise). */ +struct time_info_data { + int hours, day, month; + sh_int year; +}; + + +/* These data contain information about a players time data */ +struct time_data { + time_t birth; /* This represents the characters age */ + time_t logon; /* Time of the last logon (used to calculate played) */ + int played; /* This is the total accumulated time played in secs */ +}; + + +/* general player-related info, usually PC's and NPC's */ +struct char_player_data { + char passwd[MAX_PWD_LENGTH+1]; /* character's password */ + char *name; /* PC / NPC s name (kill ... ) */ + char *short_descr; /* for NPC 'actions' */ + char *long_descr; /* for 'look' */ + char *description; /* Extra descriptions */ + char *title; /* PC / NPC's title */ + byte sex; /* PC / NPC's sex */ + byte chclass; /* PC / NPC's class */ + byte level; /* PC / NPC's level */ + sh_int hometown; /* PC s Hometown (zone) */ + struct time_data time; /* PC's AGE in days */ + ubyte weight; /* PC / NPC's weight */ + ubyte height; /* PC / NPC's height */ +}; + + +/* Char's abilities. Used in char_file_u *DO*NOT*CHANGE* */ +struct char_ability_data { + sbyte str; + sbyte str_add; /* 000 - 100 if strength 18 */ + sbyte intel; + sbyte wis; + sbyte dex; + sbyte con; + sbyte cha; +}; + + +/* Char's points. Used in char_file_u *DO*NOT*CHANGE* */ +struct char_point_data { + sh_int mana; + sh_int max_mana; /* Max mana for PC/NPC */ + sh_int hit; + sh_int max_hit; /* Max hit for PC/NPC */ + sh_int move; + sh_int max_move; /* Max move for PC/NPC */ + + sh_int armor; /* Internal -100..100, external -10..10 AC */ + int gold; /* Money carried */ + int bank_gold; /* Gold the char has in a bank account */ + int exp; /* The experience of the player */ + + sbyte hitroll; /* Any bonus or penalty to the hit roll */ + sbyte damroll; /* Any bonus or penalty to the damage roll */ +}; + + +/* + * char_special_data_saved: specials which both a PC and an NPC have in + * common, but which must be saved to the playerfile for PC's. + * + * WARNING: Do not change this structure. Doing so will ruin the + * playerfile. If you want to add to the playerfile, use the spares + * in player_special_data. + */ +struct char_special_data_saved { + int alignment; /* +-1000 for alignments */ + long idnum; /* player's idnum; -1 for mobiles */ + long /*bitvector_t*/ act; /* act flag for NPC's; player flag for PC's */ + + long /*bitvector_t*/ affected_by; + /* Bitvector for spells/skills affected by */ + sh_int apply_saving_throw[5]; /* Saving throw (Bonuses) */ +}; + + +/* Special playing constants shared by PCs and NPCs which aren't in pfile */ +struct char_special_data { + struct char_data *fighting; /* Opponent */ + struct char_data *hunting; /* Char hunted by this char */ + + byte position; /* Standing, fighting, sleeping, etc. */ + + int carry_weight; /* Carried weight */ + byte carry_items; /* Number of items carried */ + int timer; /* Timer for update */ + + struct char_special_data_saved saved; /* constants saved in plrfile */ +}; + + +/* + * If you want to add new values to the playerfile, do it here. DO NOT + * ADD, DELETE OR MOVE ANY OF THE VARIABLES - doing so will change the + * size of the structure and ruin the playerfile. However, you can change + * the names of the spares to something more meaningful, and then use them + * in your new code. They will automatically be transferred from the + * playerfile into memory when players log in. + */ +struct player_special_data_saved { + byte skills[MAX_SKILLS+1]; /* array of skills plus skill 0 */ + byte PADDING0; /* used to be spells_to_learn */ + bool talks[MAX_TONGUE]; /* PC s Tongues 0 for NPC */ + int wimp_level; /* Below this # of hit points, flee! */ + byte freeze_level; /* Level of god who froze char, if any */ + sh_int invis_level; /* level of invisibility */ + room_vnum load_room; /* Which room to place char in */ + long /*bitvector_t*/ pref; /* preference flags for PC's. */ + ubyte bad_pws; /* number of bad password attemps */ + sbyte conditions[3]; /* Drunk, full, thirsty */ + + /* spares below for future expansion. You can change the names from + 'sparen' to something meaningful, but don't change the order. */ + + ubyte spare0; + ubyte spare1; + ubyte spare2; + ubyte spare3; + ubyte spare4; + ubyte spare5; + int spells_to_learn; /* How many can you learn yet this level*/ + int spare7; + int spare8; + int spare9; + int spare10; + int spare11; + int spare12; + int spare13; + int spare14; + int spare15; + int spare16; + long spare17; + long spare18; + long spare19; + long spare20; + long spare21; +}; + +/* + * Specials needed only by PCs, not NPCs. Space for this structure is + * not allocated in memory for NPCs, but it is for PCs and the portion + * of it labelled 'saved' is saved in the playerfile. This structure can + * be changed freely; beware, though, that changing the contents of + * player_special_data_saved will corrupt the playerfile. + */ +struct player_special_data { + struct player_special_data_saved saved; + + char *poofin; /* Description on arrival of a god. */ + char *poofout; /* Description upon a god's exit. */ + struct alias_data *aliases; /* Character's aliases */ + long last_tell; /* idnum of last tell from */ + void *last_olc_targ; /* olc control */ + int last_olc_mode; /* olc control */ +}; + + +/* Specials used by NPCs, not PCs */ +struct mob_special_data { + memory_rec *memory; /* List of attackers to remember */ + byte attack_type; /* The Attack Type Bitvector for NPC's */ + byte default_pos; /* Default position for NPC */ + byte damnodice; /* The number of damage dice's */ + byte damsizedice; /* The size of the damage dice's */ +}; + + +/* An affect structure. Used in char_file_u *DO*NOT*CHANGE* */ +struct affected_type { + sh_int type; /* The type of spell that caused this */ + sh_int duration; /* For how long its effects will last */ + sbyte modifier; /* This is added to apropriate ability */ + byte location; /* Tells which ability to change(APPLY_XXX)*/ + long /*bitvector_t*/ bitvector; /* Tells which bits to set (AFF_XXX) */ + + struct affected_type *next; +}; + + +/* Structure used for chars following other chars */ +struct follow_type { + struct char_data *follower; + struct follow_type *next; +}; + + +/* ================== Structure for player/non-player ===================== */ +struct char_data { + int pfilepos; /* playerfile pos */ + mob_rnum nr; /* Mob's rnum */ + room_rnum in_room; /* Location (real room number) */ + room_rnum was_in_room; /* location for linkdead people */ + int wait; /* wait for how many loops */ + + struct char_player_data player; /* Normal data */ + struct char_ability_data real_abils; /* Abilities without modifiers */ + struct char_ability_data aff_abils; /* Abils with spells/stones/etc */ + struct char_point_data points; /* Points */ + struct char_special_data char_specials; /* PC/NPC specials */ + struct player_special_data *player_specials; /* PC specials */ + struct mob_special_data mob_specials; /* NPC specials */ + + struct affected_type *affected; /* affected by what spells */ + struct obj_data *equipment[NUM_WEARS];/* Equipment array */ + + struct obj_data *carrying; /* Head of list */ + struct descriptor_data *desc; /* NULL for mobiles */ + + struct char_data *next_in_room; /* For room->people - list */ + struct char_data *next; /* For either monster or ppl-list */ + struct char_data *next_fighting; /* For fighting list */ + + struct follow_type *followers; /* List of chars followers */ + struct char_data *master; /* Who is char following? */ +}; +/* ====================================================================== */ + + +/* ==================== File Structure for Player ======================= */ +/* BEWARE: Changing it will ruin the playerfile */ +struct char_file_u { + /* char_player_data */ + char name[MAX_NAME_LENGTH+1]; + char description[EXDSCR_LENGTH]; + char title[MAX_TITLE_LENGTH+1]; + byte sex; + byte chclass; + byte level; + sh_int hometown; + time_t birth; /* Time of birth of character */ + int played; /* Number of secs played in total */ + ubyte weight; + ubyte height; + + char pwd[MAX_PWD_LENGTH+1]; /* character's password */ + + struct char_special_data_saved char_specials_saved; + struct player_special_data_saved player_specials_saved; + struct char_ability_data abilities; + struct char_point_data points; + struct affected_type affected[MAX_AFFECT]; + + time_t last_logon; /* Time (in secs) of last logon */ + char host[HOST_LENGTH+1]; /* host of last logon */ +}; +/* ====================================================================== */ + + +/* descriptor-related structures ******************************************/ + + +struct txt_block { + char *text; + int aliased; + struct txt_block *next; +}; + + +struct txt_q { + struct txt_block *head; + struct txt_block *tail; +}; + + +struct descriptor_data { + socket_t descriptor; /* file descriptor for socket */ + char host[HOST_LENGTH+1]; /* hostname */ + byte bad_pws; /* number of bad pw attemps this login */ + byte idle_tics; /* tics idle at password prompt */ + int connected; /* mode of 'connectedness' */ + int desc_num; /* unique num assigned to desc */ + time_t login_time; /* when the person connected */ + char *showstr_head; /* for keeping track of an internal str */ + char **showstr_vector; /* for paging through texts */ + int showstr_count; /* number of pages to page through */ + int showstr_page; /* which page are we currently showing? */ + char **str; /* for the modify-str system */ + size_t max_str; /* - */ + long mail_to; /* name for mail system */ + int has_prompt; /* is the user at a prompt? */ + char inbuf[MAX_RAW_INPUT_LENGTH]; /* buffer for raw input */ + char last_input[MAX_INPUT_LENGTH]; /* the last input */ + char small_outbuf[SMALL_BUFSIZE]; /* standard output buffer */ + char *output; /* ptr to the current output buffer */ + char **history; /* History of commands, for ! mostly. */ + int history_pos; /* Circular array position. */ + int bufptr; /* ptr to end of current output */ + int bufspace; /* space left in the output buffer */ + struct txt_block *large_outbuf; /* ptr to large buffer, if we need it */ + struct txt_q input; /* q of unprocessed input */ + struct char_data *character; /* linked to char */ + struct char_data *original; /* original char if switched */ + struct descriptor_data *snooping; /* Who is this char snooping */ + struct descriptor_data *snoop_by; /* And who is snooping this char */ + struct descriptor_data *next; /* link to next descriptor */ +}; + + +/* other miscellaneous structures ***************************************/ + + +struct msg_type { + char *attacker_msg; /* message to attacker */ + char *victim_msg; /* message to victim */ + char *room_msg; /* message to room */ +}; + + +struct message_type { + struct msg_type die_msg; /* messages when death */ + struct msg_type miss_msg; /* messages when miss */ + struct msg_type hit_msg; /* messages when hit */ + struct msg_type god_msg; /* messages when hit on god */ + struct message_type *next; /* to next messages of this kind. */ +}; + + +struct message_list { + int a_type; /* Attack type */ + int number_of_attacks; /* How many attack messages to chose from. */ + struct message_type *msg; /* List of messages. */ +}; + + +struct dex_skill_type { + sh_int p_pocket; + sh_int p_locks; + sh_int traps; + sh_int sneak; + sh_int hide; +}; + + +struct dex_app_type { + sh_int reaction; + sh_int miss_att; + sh_int defensive; +}; + + +struct str_app_type { + sh_int tohit; /* To Hit (THAC0) Bonus/Penalty */ + sh_int todam; /* Damage Bonus/Penalty */ + sh_int carry_w; /* Maximum weight that can be carrried */ + sh_int wield_w; /* Maximum weight that can be wielded */ +}; + + +struct wis_app_type { + byte bonus; /* how many practices player gains per lev */ +}; + + +struct int_app_type { + byte learn; /* how many % a player learns a spell/skill */ +}; + + +struct con_app_type { + sh_int hitp; + sh_int shock; +}; + + +struct weather_data { + int pressure; /* How is the pressure ( Mb ) */ + int change; /* How fast and what way does it change. */ + int sky; /* How is the sky. */ + int sunlight; /* And how much sun. */ +}; + + +/* + * Element in monster and object index-tables. + * + * NOTE: Assumes sizeof(mob_vnum) >= sizeof(obj_vnum) + */ +struct index_data { + mob_vnum vnum; /* virtual number of this mob/obj */ + int number; /* number of existing units of this mob/obj */ + SPECIAL(*func); +}; + +struct guild_info_type { + int pc_class; + room_vnum guild_room; + int direction; +}; diff --git a/src/sysdep.h b/src/sysdep.h new file mode 100644 index 0000000..9b77648 --- /dev/null +++ b/src/sysdep.h @@ -0,0 +1,694 @@ +/* ************************************************************************ +* File: sysdep.h Part of CircleMUD * +* Usage: machine-specific defs based on values in conf.h (from configure)* +* * +* All rights reserved. See license.doc for complete information. * +* * +* Copyright (C) 1993, 94 by the Trustees of the Johns Hopkins University * +* CircleMUD is based on DikuMUD, Copyright (C) 1990, 1991. * +************************************************************************ */ + +/* Configurables: */ + +/* + * CircleMUD uses the crypt(3) function to encrypt player passwords in the + * playerfile so that they are never stored in plaintext form. However, + * due to U.S. export restrictions on machine-readable cryptographic + * software, the crypt() function is not available on some operating + * systems such as FreeBSD. By default, the 'configure' script will + * determine if you have crypt() available and enable or disable password + * encryption appropriately. #define NOCRYPT (by uncommenting the line + * below) if you'd like to explicitly disable password encryption (i.e., + * if you have moved your MUD from an OS that does not support encryption + * to one that does.) + * + * See running.doc for details. + */ + +/* #define NOCRYPT */ + +/**************************************************************************/ + +/* + * If you are porting CircleMUD to a new (untested) platform and you find + * that POSIX-standard non-blocking I/O does *not* work, you can define + * the constant below to have Circle work around the problem. Not having + * non-blocking I/O can cause the MUD to freeze if someone types part of + * a command while the MUD waits for the remainder of the command. + * + * NOTE: **DO** **NOT** use this constant unless you are SURE you understand + * exactly what non-blocking I/O is, and you are SURE that your operating + * system does NOT have it! (The only UNIX system I've ever seen that has + * broken POSIX non-blocking I/O is AIX 3.2.) If your MUD is freezing but + * you're not sure why, do NOT use this constant. Use this constant ONLY + * if you're sure that your MUD is freezing because of a non-blocking I/O + * problem. + * + * See running.doc for details. + */ + +/* #define POSIX_NONBLOCK_BROKEN */ + +/**************************************************************************/ + +/* + * The Circle code prototypes library functions to avoid compiler warnings. + * (Operating system header files *should* do this, but sometimes don't.) + * However, Circle's prototypes cause the compilation to fail under some + * combinations of operating systems and compilers. + * + * If your compiler reports "conflicting types" for functions, you need to + * define this constant to turn off library function prototyping. Note, + * **DO** **NOT** blindly turn on this constant unless you're sure the + * problem is type conflicts between my header files and the header files + * of your operating system. The error message will look something like + * this: + * + * In file included from comm.c:14: + * sysdep.h:207: conflicting types for `random' + * /usr/local/lib/gcc-lib/alpha-dec-osf3.2/2.7.2/include/stdlib.h:253: + * previous declaration of `random' + * + * See running.doc for details. + */ + +/* #define NO_LIBRARY_PROTOTYPES */ + +/**************************************************************************/ + +/* + * If using the GNU C library, version 2+, then you can have it trace + * memory allocations to check for leaks, uninitialized uses, and bogus + * free() calls. To see if your version supports it, run: + * + * info libc 'Allocation Debugging' 'Tracing malloc' + * + * Example usage (Bourne shell): + * + * MALLOC_TRACE=/tmp/circle-trace bin/circle + * + * After it finishes: + * + * mtrace bin/circle /tmp/circle-trace + * + * (Stock CircleMUD produces a file approximately 1.5 megabytes in size + * just running in Syntax Check mode.) + * + * NOTE: The GNU C library version 2.1.3 leaks a tiny bit of memory + * by itself. You will see something similar to: + * + * - 0000000000 Free 36910 was never alloc'd /lib/libcrypt.so.1:(fcrypt+0x883)[0x4001b9ef] + * + * Memory not freed: + * ----------------- + * Address Size Caller + * 0x080ca830 0xf at /lib/libc.so.6:(__strdup+0x29)[0x400a6a09] + * 0x080ca848 0xc at /lib/libc.so.6:(adjtime+0x25c)[0x400d127c] + * 0x080ca858 0xc at /lib/libc.so.6:(adjtime+0x25c)[0x400d127c] + * 0x080ca868 0xc at /lib/libc.so.6:(adjtime+0x25c)[0x400d127c] + * + * But with GNU C library version 2.2.4: + * + * No memory leaks. + * + * Read the entire "Allocation Debugging" section of the GNU C library + * documentation before setting this to '1'. + */ + +#define CIRCLE_GNU_LIBC_MEMORY_TRACK 0 /* 0 = off, 1 = on */ + + +/************************************************************************/ +/*** Do not change anything below this line *****************************/ +/************************************************************************/ + +/* + * Set up various machine-specific things based on the values determined + * from configure and conf.h. + */ + +/* Standard C headers *************************************************/ + +#include <stdio.h> +#include <ctype.h> +#include <stdarg.h> + +#ifdef HAVE_STRING_H +#include <string.h> +#endif + +#ifdef HAVE_STRINGS_H +#include <strings.h> +#endif + + +#if (defined (STDC_HEADERS) || defined (__GNU_LIBRARY__)) +#include <stdlib.h> + +#else /* No standard headers. */ + +#ifdef HAVE_MEMORY_H +#include <memory.h> +#endif + +extern char *malloc(), *calloc(), *realloc(); +extern void free (); + +extern void abort (), exit (); + +#endif /* Standard headers. */ + +/* POSIX compliance *************************************************/ + +#ifdef HAVE_SYS_TYPES_H +# include <sys/types.h> +#endif + +#ifdef CIRCLE_WINDOWS +# include <sys\types.h> +#endif + +#ifdef HAVE_UNISTD_H +# include <unistd.h> +#endif + +/* Now, we #define POSIX if we have a POSIX system. */ + +#ifdef HAVE_UNISTD_H +/* Ultrix's unistd.h always defines _POSIX_VERSION, but you only get + POSIX.1 behavior with `cc -YPOSIX', which predefines POSIX itself! */ +#if defined (_POSIX_VERSION) && !defined (ultrix) +#define POSIX +#endif + +/* Some systems define _POSIX_VERSION but are not really POSIX.1. */ +#if (defined (butterfly) || defined (__arm) || \ + (defined (__mips) && defined (_SYSTYPE_SVR3)) || \ + (defined (sequent) && defined (i386))) +#undef POSIX +#endif +#endif /* HAVE_UNISTD_H */ + +#if !defined (POSIX) && defined (_AIX) && defined (_POSIX_SOURCE) +#define POSIX +#endif + +#if defined(_AIX) +#define POSIX_NONBLOCK_BROKEN +#endif + + +/* Header files *******************************************************/ + + +/* Header files common to all source files */ + +#ifdef HAVE_LIMITS_H +#include <limits.h> +#endif + +#ifdef HAVE_ERRNO_H +#include <errno.h> +#endif + +#ifdef HAVE_NET_ERRNO_H +#include <net/errno.h> +#endif + +/* Macintosh */ +#ifdef HAVE_SYS_ERRNO_H +#include <sys/errno.h> +#endif + +#ifdef HAVE_CRYPT_H +#include <crypt.h> +#endif + +#ifdef TIME_WITH_SYS_TIME +# include <sys/time.h> +# include <time.h> +#else +# if HAVE_SYS_TIME_H +# include <sys/time.h> +# else +# include <time.h> +# endif +#endif + +#ifdef HAVE_ASSERT_H +#include <assert.h> +#else +#define assert(arg) +#endif + + +/* Header files only used in comm.c and some of the utils */ + +#if defined(__COMM_C__) || defined(CIRCLE_UTIL) + +#ifndef HAVE_STRUCT_IN_ADDR +struct in_addr { + unsigned long int s_addr; /* for inet_addr, etc. */ +} +#endif + +#ifdef HAVE_SYS_SELECT_H +#include <sys/select.h> +#endif + +#ifdef HAVE_FCNTL_H +#include <fcntl.h> +#endif + +#ifdef HAVE_SYS_FCNTL_H +#include <sys/fcntl.h> +#endif + +#ifdef HAVE_SYS_SOCKET_H +# include <sys/socket.h> +#endif + +#ifdef HAVE_SYS_RESOURCE_H +# include <sys/resource.h> +#endif + +#ifdef HAVE_SYS_WAIT_H +# include <sys/wait.h> +#endif + +#ifdef HAVE_NETINET_IN_H +# include <netinet/in.h> +#endif + +#ifdef HAVE_ARPA_INET_H +# include <arpa/inet.h> +#endif + +#ifdef HAVE_NETDB_H +# include <netdb.h> +#endif + +#ifdef HAVE_SIGNAL_H +# ifndef _POSIX_C_SOURCE +# define _POSIX_C_SOURCE 2 +# include <signal.h> +# undef _POSIX_C_SOURCE +# else +# include <signal.h> /* GNU libc 6 already defines _POSIX_C_SOURCE. */ +# endif +#endif + +#ifdef HAVE_SYS_UIO_H +# include <sys/uio.h> +#endif + +#endif /* __COMM_C__ && CIRCLE_UNIX */ + + +/* Header files that are only used in act.other.c */ +#ifdef __ACT_OTHER_C__ + +#ifdef HAVE_SYS_STAT_H +# include <sys/stat.h> +#endif + +#endif /* __ACT_OTHER_C__ */ + + +/* Basic system dependencies *******************************************/ + +#if CIRCLE_GNU_LIBC_MEMORY_TRACK && !defined(HAVE_MCHECK_H) +#error "Cannot use GNU C library memory tracking without <mcheck.h>" +#endif + +/* strcasecmp -> stricmp -> str_cmp */ +#if defined(HAVE_STRCASECMP) +# define str_cmp strcasecmp +#elif defined(HAVE_STRICMP) +# define str_cmp stricmp +#endif + +/* strncasecmp -> strnicmp -> strn_cmp */ +#if defined(HAVE_STRNCASECMP) +# define strn_cmp strncasecmp +#elif defined(HAVE_STRNICMP) +# define strn_cmp strnicmp +#endif + +#if !defined(__GNUC__) +# define __attribute__(x) /* nothing */ +#endif + +#if defined(__MWERKS__) +# define isascii(c) (((c) & ~0x7f) == 0) /* So easy to have, but ... */ +#endif + +/* Socket/header miscellany. */ + +#if defined(CIRCLE_WINDOWS) /* Definitions for Win32 */ + +# define snprintf _snprintf +# define vsnprintf _vsnprintf +# define PATH_MAX MAX_PATH + +# if !defined(__BORLANDC__) && !defined(LCC_WIN32) /* MSVC */ +# define chdir _chdir +# pragma warning(disable:4761) /* Integral size mismatch. */ +# pragma warning(disable:4244) /* Possible loss of data. */ +# endif + +# if defined(__BORLANDC__) /* Silence warnings we don't care about. */ +# pragma warn -par /* to turn off >parameter< 'ident' is never used. */ +# pragma warn -pia /* to turn off possibly incorrect assignment. 'if (!(x=a))' */ +# pragma warn -sig /* to turn off conversion may lose significant digits. */ +# endif + +# ifndef _WINSOCK2API_ /* Winsock1 and Winsock 2 conflict. */ +# include <winsock.h> +# endif + +# ifndef FD_SETSIZE /* MSVC 6 is reported to have 64. */ +# define FD_SETSIZE 1024 +# endif + +#elif defined(CIRCLE_VMS) + +/* + * Necessary Definitions For DEC C With DEC C Sockets Under OpenVMS. + */ +# if defined(DECC) +# include <stdio.h> +# include <time.h> +# include <stropts.h> +# include <unixio.h> +# endif + +#elif !defined(CIRCLE_MACINTOSH) && !defined(CIRCLE_UNIX) && !defined(CIRCLE_ACORN) +# error "You forgot to include conf.h or do not have a valid system define." +#endif + +/* SOCKET -- must be after the winsock.h #include. */ +#ifdef CIRCLE_WINDOWS +# define CLOSE_SOCKET(sock) closesocket(sock) + typedef SOCKET socket_t; +#else +# define CLOSE_SOCKET(sock) close(sock) + typedef int socket_t; +#endif + +#if defined(__cplusplus) /* C++ */ +#define cpp_extern extern +#else /* C */ +#define cpp_extern /* Nothing */ +#endif + +/* Guess if we have the getrlimit()/setrlimit() functions */ +#if defined(RLIMIT_NOFILE) || defined (RLIMIT_OFILE) +#define HAS_RLIMIT +#if !defined (RLIMIT_NOFILE) +# define RLIMIT_NOFILE RLIMIT_OFILE +#endif +#endif + + +/* Make sure we have STDERR_FILENO */ +#ifndef STDERR_FILENO +#define STDERR_FILENO 2 +#endif + +/* Make sure we have STDOUT_FILENO too. */ +#ifndef STDOUT_FILENO +#define STDOUT_FILENO 1 +#endif + +#if !defined(HAVE_SNPRINTF) || !defined(HAVE_VSNPRINTF) +# include "bsd-snprintf.h" +#endif + +/* Function prototypes ************************************************/ + +/* + * For reasons that perplex me, the header files of many OS's do not contain + * function prototypes for the standard C library functions. This produces + * annoying warning messages (sometimes, a huge number of them) on such OS's + * when compiling with gcc's -Wall. + * + * Some versions of CircleMUD prior to 3.0 patchlevel 9 attempted to + * include prototypes taken from OS man pages for a large number of + * OS's in the header files. I now think such an approach is a bad + * idea: maintaining that list is very difficult and time-consuming, + * and when new revisions of OS's are released with new header files, + * Circle can break if the prototypes contained in Circle's .h files + * differs from the new OS header files; for example, Circle 3.0 + * patchlevel 8 failed with compiler errors under Solaris 2.5 and + * Linux 1.3.xx whereas under previous revisions of those OS's it had + * been fine. + * + * Thus, to silence the compiler warnings but still maintain some level of + * portability (albiet at the expense of worse error checking in the code), + * my solution is to define a "typeless" function prototype for all problem + * functions that have not already been prototyped by the OS. --JE + * + * 20 Mar 96: My quest is not yet over. These definitions still cause + * clashes with some compilers. Therefore, we only use these prototypes + * if we're using gcc (which makes sense, since they're only here for gcc's + * -Wall option in the first place), and configure tells gcc to use + * -fno-strict-prototypes, so that these definitions don't clash with + * previous prototypes. + * + * 4 June 96: The quest continues. OSF/1 still doesn't like these + * prototypes, even with gcc and -fno-strict-prototypes. I've created + * the constant NO_LIBRARY_PROTOTYPES to allow people to turn off the + * prototyping. + * + * 27 Oct 97: This is driving me crazy but I think I've finally come + * up with the solution that will work. I've changed the configure + * script to detect which prototypes exist already; this header file + * only prototypes functions that aren't already prototyped by the + * system headers. A clash should be impossible. This should give us + * our strong type-checking back. This should be the last word on + * this issue! + */ + +#ifndef NO_LIBRARY_PROTOTYPES + +#ifdef NEED_ATOI_PROTO + int atoi(const char *str); +#endif + +#ifdef NEED_ATOL_PROTO + long atol(const char *str); +#endif + +/* + * bzero is deprecated - use memset() instead. Not directly used in Circle + * but the prototype needed for FD_xxx macros on some machines. + */ +#ifdef NEED_BZERO_PROTO + void bzero(char *b, int length); +#endif + +#ifdef NEED_CRYPT_PROTO + char *crypt(const char *key, const char *salt); +#endif + +#ifdef NEED_FCLOSE_PROTO + int fclose(FILE *stream); +#endif + +#ifdef NEED_FDOPEN_PROTO + FILE *fdopen(int fd, const char *mode); +#endif + +#ifdef NEED_FFLUSH_PROTO + int fflush(FILE *stream); +#endif + +#ifdef NEED_FPRINTF_PROTO + int fprintf(FILE *strm, const char *format, /* args */ ... ); +#endif + +#ifdef NEED_FREAD_PROTO + size_t fread(void *ptr, size_t size, size_t nitems, FILE *stream); +#endif + +#ifdef NEED_FSCANF_PROTO + int fscanf(FILE *strm, const char *format, ...); +#endif + +#ifdef NEED_FSEEK_PROTO + int fseek(FILE *stream, long offset, int ptrname); +#endif + +#ifdef NEED_FWRITE_PROTO + size_t fwrite(const void *ptr, size_t size, size_t nitems, FILE *stream); +#endif + +#ifdef NEED_GETPID_PROTO + pid_t getpid(void); +#endif + +#ifdef NEED_PERROR_PROTO + void perror(const char *s); +#endif + +#ifdef NEED_QSORT_PROTO + void qsort(void *base, size_t nel, size_t width, + int (*compar) (const void *, const void *)); +#endif + +#ifdef NEED_REWIND_PROTO + void rewind(FILE *stream); +#endif + +#ifdef NEED_SPRINTF_PROTO + int sprintf(char *s, const char *format, /* args */ ... ); +#endif + +#ifdef NEED_SSCANF_PROTO + int sscanf(const char *s, const char *format, ...); +#endif + +#ifdef NEED_STRDUP_PROTO + char *strdup(const char *txt); +#endif + +#ifdef NEED_STRERROR_PROTO + char *strerror(int errnum); +#endif + +#ifdef NEED_STRLCPY_PROTO + size_t strlcpy(char *dest, const char *src, size_t copylen); +#endif + +#ifdef NEED_SYSTEM_PROTO + int system(const char *string); +#endif + +#ifdef NEED_TIME_PROTO + time_t time(time_t *tloc); +#endif + +#ifdef NEED_UNLINK_PROTO + int unlink(const char *path); +#endif + +#ifdef NEED_REMOVE_PROTO + int remove(const char *path); +#endif + +/* Function prototypes that are only used in comm.c and some of the utils */ + +#if defined(__COMM_C__) || defined(CIRCLE_UTIL) + +#ifdef NEED_ACCEPT_PROTO + int accept(socket_t s, struct sockaddr *addr, int *addrlen); +#endif + +#ifdef NEED_BIND_PROTO + int bind(socket_t s, const struct sockaddr *name, int namelen); +#endif + +#ifdef NEED_CHDIR_PROTO + int chdir(const char *path); +#endif + +#ifdef NEED_CLOSE_PROTO + int close(int fildes); +#endif + +#ifdef NEED_FCNTL_PROTO + int fcntl(int fildes, int cmd, /* arg */ ...); +#endif + +#ifdef NEED_FPUTC_PROTO + int fputc(char c, FILE *stream); +#endif + +#ifdef NEED_FPUTS_PROTO + int fputs(const char *s, FILE *stream); +#endif + +#ifdef NEED_GETPEERNAME_PROTO + int getpeername(socket_t s, struct sockaddr *name, int *namelen); +#endif + +#if defined(HAS_RLIMIT) && defined(NEED_GETRLIMIT_PROTO) + int getrlimit(int resource, struct rlimit *rlp); +#endif + +#ifdef NEED_GETSOCKNAME_PROTO + int getsockname(socket_t s, struct sockaddr *name, int *namelen); +#endif + +#ifdef NEED_GETTIMEOFDAY_PROTO + int gettimeofday(struct timeval *tp, void * ); +#endif + +#ifdef NEED_HTONL_PROTO + ulong htonl(u_long hostlong); +#endif + +#ifdef NEED_HTONS_PROTO + u_short htons(u_short hostshort); +#endif + +#if defined(HAVE_INET_ADDR) && defined(NEED_INET_ADDR_PROTO) + unsigned long int inet_addr(const char *cp); +#endif + +#if defined(HAVE_INET_ATON) && defined(NEED_INET_ATON_PROTO) + int inet_aton(const char *cp, struct in_addr *inp); +#endif + +#ifdef NEED_INET_NTOA_PROTO + char *inet_ntoa(const struct in_addr in); +#endif + +#ifdef NEED_LISTEN_PROTO + int listen(socket_t s, int backlog); +#endif + +#ifdef NEED_NTOHL_PROTO + u_long ntohl(u_long netlong); +#endif + +#ifdef NEED_PRINTF_PROTO + int printf(char *format, ...); +#endif + +#ifdef NEED_READ_PROTO + ssize_t read(int fildes, void *buf, size_t nbyte); +#endif + +#ifdef NEED_SELECT_PROTO + int select(int nfds, fd_set *readfds, fd_set *writefds, + fd_set *exceptfds, struct timeval *timeout); +#endif + +#ifdef NEED_SETITIMER_PROTO + int setitimer(int which, const struct itimerval *value, + struct itimerval *ovalue); +#endif + +#if defined(HAS_RLIMIT) && defined(NEED_SETRLIMIT_PROTO) + int setrlimit(int resource, const struct rlimit *rlp); +#endif + +#ifdef NEED_SETSOCKOPT_PROTO + int setsockopt(socket_t s, int level, int optname, const char *optval, + int optlen); +#endif + +#ifdef NEED_SOCKET_PROTO + int socket(int domain, int type, int protocol); +#endif + +#ifdef NEED_WRITE_PROTO + ssize_t write(int fildes, const void *buf, size_t nbyte); +#endif + +#endif /* __COMM_C__ */ + + +#endif /* NO_LIBRARY_PROTOTYPES */ diff --git a/src/telnet.h b/src/telnet.h new file mode 100644 index 0000000..25085b8 --- /dev/null +++ b/src/telnet.h @@ -0,0 +1,319 @@ +/* + * Copyright (c) 1983, 1993 + * The Regents of the University of California. All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + * + * @(#)telnet.h 8.2 (Berkeley) 12/15/93 + */ + +#ifndef _ARPA_TELNET_H +#define _ARPA_TELNET_H + +/* + * Definitions for the TELNET protocol. + */ +#define IAC 255 /* interpret as command: */ +#define DONT 254 /* you are not to use option */ +#define DO 253 /* please, you use option */ +#define WONT 252 /* I won't use option */ +#define WILL 251 /* I will use option */ +#define SB 250 /* interpret as subnegotiation */ +#define GA 249 /* you may reverse the line */ +#define EL 248 /* erase the current line */ +#define EC 247 /* erase the current character */ +#define AYT 246 /* are you there */ +#define AO 245 /* abort output--but let prog finish */ +#define IP 244 /* interrupt process--permanently */ +#define BREAK 243 /* break */ +#define DM 242 /* data mark--for connect. cleaning */ +#define NOP 241 /* nop */ +#define SE 240 /* end sub negotiation */ +#define EOR 239 /* end of record (transparent mode) */ +#define ABORT 238 /* Abort process */ +#define SUSP 237 /* Suspend process */ +#define xEOF 236 /* End of file: EOF is already used... */ + +#define SYNCH 242 /* for telfunc calls */ + +#ifdef TELCMDS +char *telcmds[] = { + "EOF", "SUSP", "ABORT", "EOR", + "SE", "NOP", "DMARK", "BRK", "IP", "AO", "AYT", "EC", + "EL", "GA", "SB", "WILL", "WONT", "DO", "DONT", "IAC", 0, +}; +#else +extern char *telcmds[]; +#endif + +#define TELCMD_FIRST xEOF +#define TELCMD_LAST IAC +#define TELCMD_OK(x) ((unsigned int)(x) <= TELCMD_LAST && \ + (unsigned int)(x) >= TELCMD_FIRST) +#define TELCMD(x) telcmds[(x)-TELCMD_FIRST] + +/* telnet options */ +#define TELOPT_BINARY 0 /* 8-bit data path */ +#define TELOPT_ECHO 1 /* echo */ +#define TELOPT_RCP 2 /* prepare to reconnect */ +#define TELOPT_SGA 3 /* suppress go ahead */ +#define TELOPT_NAMS 4 /* approximate message size */ +#define TELOPT_STATUS 5 /* give status */ +#define TELOPT_TM 6 /* timing mark */ +#define TELOPT_RCTE 7 /* remote controlled transmission and echo */ +#define TELOPT_NAOL 8 /* negotiate about output line width */ +#define TELOPT_NAOP 9 /* negotiate about output page size */ +#define TELOPT_NAOCRD 10 /* negotiate about CR disposition */ +#define TELOPT_NAOHTS 11 /* negotiate about horizontal tabstops */ +#define TELOPT_NAOHTD 12 /* negotiate about horizontal tab disposition */ +#define TELOPT_NAOFFD 13 /* negotiate about formfeed disposition */ +#define TELOPT_NAOVTS 14 /* negotiate about vertical tab stops */ +#define TELOPT_NAOVTD 15 /* negotiate about vertical tab disposition */ +#define TELOPT_NAOLFD 16 /* negotiate about output LF disposition */ +#define TELOPT_XASCII 17 /* extended ascic character set */ +#define TELOPT_LOGOUT 18 /* force logout */ +#define TELOPT_BM 19 /* byte macro */ +#define TELOPT_DET 20 /* data entry terminal */ +#define TELOPT_SUPDUP 21 /* supdup protocol */ +#define TELOPT_SUPDUPOUTPUT 22 /* supdup output */ +#define TELOPT_SNDLOC 23 /* send location */ +#define TELOPT_TTYPE 24 /* terminal type */ +#define TELOPT_EOR 25 /* end or record */ +#define TELOPT_TUID 26 /* TACACS user identification */ +#define TELOPT_OUTMRK 27 /* output marking */ +#define TELOPT_TTYLOC 28 /* terminal location number */ +#define TELOPT_3270REGIME 29 /* 3270 regime */ +#define TELOPT_X3PAD 30 /* X.3 PAD */ +#define TELOPT_NAWS 31 /* window size */ +#define TELOPT_TSPEED 32 /* terminal speed */ +#define TELOPT_LFLOW 33 /* remote flow control */ +#define TELOPT_LINEMODE 34 /* Linemode option */ +#define TELOPT_XDISPLOC 35 /* X Display Location */ +#define TELOPT_OLD_ENVIRON 36 /* Old - Environment variables */ +#define TELOPT_AUTHENTICATION 37/* Authenticate */ +#define TELOPT_ENCRYPT 38 /* Encryption option */ +#define TELOPT_NEW_ENVIRON 39 /* New - Environment variables */ +#define TELOPT_EXOPL 255 /* extended-options-list */ + + +#define NTELOPTS (1+TELOPT_NEW_ENVIRON) +#ifdef TELOPTS +char *telopts[NTELOPTS+1] = { + "BINARY", "ECHO", "RCP", "SUPPRESS GO AHEAD", "NAME", + "STATUS", "TIMING MARK", "RCTE", "NAOL", "NAOP", + "NAOCRD", "NAOHTS", "NAOHTD", "NAOFFD", "NAOVTS", + "NAOVTD", "NAOLFD", "EXTEND ASCII", "LOGOUT", "BYTE MACRO", + "DATA ENTRY TERMINAL", "SUPDUP", "SUPDUP OUTPUT", + "SEND LOCATION", "TERMINAL TYPE", "END OF RECORD", + "TACACS UID", "OUTPUT MARKING", "TTYLOC", + "3270 REGIME", "X.3 PAD", "NAWS", "TSPEED", "LFLOW", + "LINEMODE", "XDISPLOC", "OLD-ENVIRON", "AUTHENTICATION", + "ENCRYPT", "NEW-ENVIRON", + 0, +}; +#define TELOPT_FIRST TELOPT_BINARY +#define TELOPT_LAST TELOPT_NEW_ENVIRON +#define TELOPT_OK(x) ((unsigned int)(x) <= TELOPT_LAST) +#define TELOPT(x) telopts[(x)-TELOPT_FIRST] +#endif + +/* sub-option qualifiers */ +#define TELQUAL_IS 0 /* option is... */ +#define TELQUAL_SEND 1 /* send option */ +#define TELQUAL_INFO 2 /* ENVIRON: informational version of IS */ +#define TELQUAL_REPLY 2 /* AUTHENTICATION: client version of IS */ +#define TELQUAL_NAME 3 /* AUTHENTICATION: client version of IS */ + +#define LFLOW_OFF 0 /* Disable remote flow control */ +#define LFLOW_ON 1 /* Enable remote flow control */ +#define LFLOW_RESTART_ANY 2 /* Restart output on any char */ +#define LFLOW_RESTART_XON 3 /* Restart output only on XON */ + +/* + * LINEMODE suboptions + */ + +#define LM_MODE 1 +#define LM_FORWARDMASK 2 +#define LM_SLC 3 + +#define MODE_EDIT 0x01 +#define MODE_TRAPSIG 0x02 +#define MODE_ACK 0x04 +#define MODE_SOFT_TAB 0x08 +#define MODE_LIT_ECHO 0x10 + +#define MODE_MASK 0x1f + +/* Not part of protocol, but needed to simplify things... */ +#define MODE_FLOW 0x0100 +#define MODE_ECHO 0x0200 +#define MODE_INBIN 0x0400 +#define MODE_OUTBIN 0x0800 +#define MODE_FORCE 0x1000 + +#define SLC_SYNCH 1 +#define SLC_BRK 2 +#define SLC_IP 3 +#define SLC_AO 4 +#define SLC_AYT 5 +#define SLC_EOR 6 +#define SLC_ABORT 7 +#define SLC_EOF 8 +#define SLC_SUSP 9 +#define SLC_EC 10 +#define SLC_EL 11 +#define SLC_EW 12 +#define SLC_RP 13 +#define SLC_LNEXT 14 +#define SLC_XON 15 +#define SLC_XOFF 16 +#define SLC_FORW1 17 +#define SLC_FORW2 18 + +#define NSLC 18 + +/* + * For backwards compatability, we define SLC_NAMES to be the + * list of names if SLC_NAMES is not defined. + */ +#define SLC_NAMELIST "0", "SYNCH", "BRK", "IP", "AO", "AYT", "EOR", \ + "ABORT", "EOF", "SUSP", "EC", "EL", "EW", "RP", \ + "LNEXT", "XON", "XOFF", "FORW1", "FORW2", 0, +#ifdef SLC_NAMES +char *slc_names[] = { + SLC_NAMELIST +}; +#else +extern char *slc_names[]; +#define SLC_NAMES SLC_NAMELIST +#endif + +#define SLC_NAME_OK(x) ((unsigned int)(x) <= NSLC) +#define SLC_NAME(x) slc_names[x] + +#define SLC_NOSUPPORT 0 +#define SLC_CANTCHANGE 1 +#define SLC_VARIABLE 2 +#define SLC_DEFAULT 3 +#define SLC_LEVELBITS 0x03 + +#define SLC_FUNC 0 +#define SLC_FLAGS 1 +#define SLC_VALUE 2 + +#define SLC_ACK 0x80 +#define SLC_FLUSHIN 0x40 +#define SLC_FLUSHOUT 0x20 + +#define OLD_ENV_VAR 1 +#define OLD_ENV_VALUE 0 +#define NEW_ENV_VAR 0 +#define NEW_ENV_VALUE 1 +#define ENV_ESC 2 +#define ENV_USERVAR 3 + +/* + * AUTHENTICATION suboptions + */ + +/* + * Who is authenticating who ... + */ +#define AUTH_WHO_CLIENT 0 /* Client authenticating server */ +#define AUTH_WHO_SERVER 1 /* Server authenticating client */ +#define AUTH_WHO_MASK 1 + +/* + * amount of authentication done + */ +#define AUTH_HOW_ONE_WAY 0 +#define AUTH_HOW_MUTUAL 2 +#define AUTH_HOW_MASK 2 + +#define AUTHTYPE_NULL 0 +#define AUTHTYPE_KERBEROS_V4 1 +#define AUTHTYPE_KERBEROS_V5 2 +#define AUTHTYPE_SPX 3 +#define AUTHTYPE_MINK 4 +#define AUTHTYPE_CNT 5 + +#define AUTHTYPE_TEST 99 + +#ifdef AUTH_NAMES +char *authtype_names[] = { + "NULL", "KERBEROS_V4", "KERBEROS_V5", "SPX", "MINK", 0, +}; +#else +extern char *authtype_names[]; +#endif + +#define AUTHTYPE_NAME_OK(x) ((unsigned int)(x) < AUTHTYPE_CNT) +#define AUTHTYPE_NAME(x) authtype_names[x] + +/* + * ENCRYPTion suboptions + */ +#define ENCRYPT_IS 0 /* I pick encryption type ... */ +#define ENCRYPT_SUPPORT 1 /* I support encryption types ... */ +#define ENCRYPT_REPLY 2 /* Initial setup response */ +#define ENCRYPT_START 3 /* Am starting to send encrypted */ +#define ENCRYPT_END 4 /* Am ending encrypted */ +#define ENCRYPT_REQSTART 5 /* Request you start encrypting */ +#define ENCRYPT_REQEND 6 /* Request you send encrypting */ +#define ENCRYPT_ENC_KEYID 7 +#define ENCRYPT_DEC_KEYID 8 +#define ENCRYPT_CNT 9 + +#define ENCTYPE_ANY 0 +#define ENCTYPE_DES_CFB64 1 +#define ENCTYPE_DES_OFB64 2 +#define ENCTYPE_CNT 3 + +#ifdef ENCRYPT_NAMES +char *encrypt_names[] = { + "IS", "SUPPORT", "REPLY", "START", "END", + "REQUEST-START", "REQUEST-END", "ENC-KEYID", "DEC-KEYID", + 0, +}; +char *enctype_names[] = { + "ANY", "DES_CFB64", "DES_OFB64", 0, +}; +#else +extern char *encrypt_names[]; +extern char *enctype_names[]; +#endif + + +#define ENCRYPT_NAME_OK(x) ((unsigned int)(x) < ENCRYPT_CNT) +#define ENCRYPT_NAME(x) encrypt_names[x] + +#define ENCTYPE_NAME_OK(x) ((unsigned int)(x) < ENCTYPE_CNT) +#define ENCTYPE_NAME(x) enctype_names[x] +#endif /* _ARPA_TELNET_H */ diff --git a/src/util/.gitignore b/src/util/.gitignore new file mode 100644 index 0000000..f3c7a7c --- /dev/null +++ b/src/util/.gitignore @@ -0,0 +1 @@ +Makefile diff --git a/src/util/Makefile.in b/src/util/Makefile.in new file mode 100644 index 0000000..7caba5c --- /dev/null +++ b/src/util/Makefile.in @@ -0,0 +1,91 @@ +# CircleMUD Makefile.in - Makefile template used by 'configure' +# for the 'util' directory + +# C compiler to use +CC = @CC@ + +# Any special flags you want to pass to the compiler +MYFLAGS = @MYFLAGS@ -DCIRCLE_UTIL + +#flags for profiling (see hacker.doc for more information) +PROFILE = + +############################################################################## +# Do Not Modify Anything Below This Line (unless you know what you're doing) # +############################################################################## + +# binary destination directory +BINDIR = ../../bin +# location of Circle include files +INCDIR = .. + +CFLAGS = @CFLAGS@ $(MYFLAGS) $(PROFILE) -I$(INCDIR) + +default: all + +all: $(BINDIR)/autowiz $(BINDIR)/delobjs $(BINDIR)/listrent \ + $(BINDIR)/mudpasswd $(BINDIR)/play2to3 $(BINDIR)/purgeplay \ + $(BINDIR)/shopconv $(BINDIR)/showplay $(BINDIR)/sign $(BINDIR)/split \ + $(BINDIR)/wld2html + +autowiz: $(BINDIR)/autowiz + +delobjs: $(BINDIR)/delobjs + +listrent: $(BINDIR)/listrent + +mudpasswd: $(BINDIR)/mudpasswd + +play2to3: $(BINDIR)/play2to3 + +purgeplay: $(BINDIR)/purgeplay + +shopconv: $(BINDIR)/shopconv + +showplay: $(BINDIR)/showplay + +sign: $(BINDIR)/sign + +split: $(BINDIR)/split + +wld2html: $(BINDIR)/wld2html + +$(BINDIR)/autowiz: autowiz.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h \ + $(INCDIR)/structs.h $(INCDIR)/utils.h $(INCDIR)/db.h + $(CC) $(CFLAGS) -o $(BINDIR)/autowiz autowiz.c + +$(BINDIR)/delobjs: delobjs.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h \ + $(INCDIR)/structs.h $(INCDIR)/utils.h + $(CC) $(CFLAGS) -o $(BINDIR)/delobjs delobjs.c + +$(BINDIR)/listrent: listrent.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h \ + $(INCDIR)/structs.h + $(CC) $(CFLAGS) -o $(BINDIR)/listrent listrent.c + +$(BINDIR)/mudpasswd: mudpasswd.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h \ + $(INCDIR)/structs.h $(INCDIR)/utils.h + $(CC) $(CFLAGS) -o $(BINDIR)/mudpasswd mudpasswd.c @CRYPTLIB@ + +$(BINDIR)/play2to3: play2to3.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h + $(CC) $(CFLAGS) -o $(BINDIR)/play2to3 play2to3.c + +$(BINDIR)/purgeplay: purgeplay.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h \ + $(INCDIR)/structs.h $(INCDIR)/utils.h + $(CC) $(CFLAGS) -o $(BINDIR)/purgeplay purgeplay.c + +$(BINDIR)/shopconv: shopconv.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h \ + $(INCDIR)/structs.h $(INCDIR)/db.h $(INCDIR)/utils.h $(INCDIR)/shop.h + $(CC) $(CFLAGS) -o $(BINDIR)/shopconv shopconv.c + +$(BINDIR)/showplay: showplay.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h \ + $(INCDIR)/structs.h + $(CC) $(CFLAGS) -o $(BINDIR)/showplay showplay.c + +$(BINDIR)/sign: sign.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h + $(CC) $(CFLAGS) -o $(BINDIR)/sign sign.c @NETLIB@ + +$(BINDIR)/split: split.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h + $(CC) $(CFLAGS) -o $(BINDIR)/split split.c + +$(BINDIR)/wld2html: wld2html.c $(INCDIR)/conf.h $(INCDIR)/sysdep.h + $(CC) $(CFLAGS) -o $(BINDIR)/wld2html wld2html.c diff --git a/src/util/autowiz.c b/src/util/autowiz.c new file mode 100644 index 0000000..33dd65c --- /dev/null +++ b/src/util/autowiz.c @@ -0,0 +1,257 @@ +/* ************************************************************************ +* file: autowiz.c Part of CircleMUD * +* Usage: self-updating wizlists * +* Written by Jeremy Elson * +* All Rights Reserved * +* Copyright (C) 1993 The Trustees of The Johns Hopkins University * +************************************************************************* */ + + +/* + WARNING: THIS CODE IS A HACK. WE CAN NOT AND WILL NOT BE RESPONSIBLE + FOR ANY NASUEA, DIZZINESS, VOMITING, OR SHORTNESS OF BREATH RESULTING + FROM READING THIS CODE. PREGNANT WOMEN AND INDIVIDUALS WITH BACK + INJURIES, HEART CONDITIONS, OR ARE UNDER THE CARE OF A PHYSICIAN SHOULD + NOT READ THIS CODE. + + -- The Management + */ + +#include "conf.h" +#include "sysdep.h" + +#include <signal.h> + +#include "structs.h" +#include "utils.h" +#include "db.h" + +#define IMM_LMARG " " +#define IMM_NSIZE 16 +#define LINE_LEN 64 +#define MIN_LEVEL LVL_IMMORT + +/* max level that should be in columns instead of centered */ +#define COL_LEVEL LVL_IMMORT + +struct name_rec { + char name[25]; + struct name_rec *next; +}; + +struct control_rec { + int level; + char *level_name; +}; + +struct level_rec { + struct control_rec *params; + struct level_rec *next; + struct name_rec *names; +}; + +struct control_rec level_params[] = +{ + {LVL_IMMORT, "Immortals"}, + {LVL_GOD, "Gods"}, + {LVL_GRGOD, "Greater Gods"}, + {LVL_IMPL, "Implementors"}, + {0, ""} +}; + + +struct level_rec *levels = 0; + +void initialize(void) +{ + struct level_rec *tmp; + int i = 0; + + while (level_params[i].level > 0) { + tmp = (struct level_rec *) malloc(sizeof(struct level_rec)); + tmp->names = 0; + tmp->params = &(level_params[i++]); + tmp->next = levels; + levels = tmp; + } +} + + +void read_file(void) +{ + void add_name(byte level, char *name); + + struct char_file_u player; + FILE *fl; + + if (!(fl = fopen(PLAYER_FILE, "rb"))) { + perror("Error opening playerfile"); + exit(1); + } + while (!feof(fl)) { + fread(&player, sizeof(struct char_file_u), 1, fl); + if (!feof(fl) && player.level >= MIN_LEVEL && + !(IS_SET(player.char_specials_saved.act, PLR_FROZEN)) && + !(IS_SET(player.char_specials_saved.act, PLR_NOWIZLIST)) && + !(IS_SET(player.char_specials_saved.act, PLR_DELETED))) + add_name(player.level, player.name); + } + + fclose(fl); +} + + +void add_name(byte level, char *name) +{ + struct name_rec *tmp; + struct level_rec *curr_level; + char *ptr; + + if (!*name) + return; + + for (ptr = name; *ptr; ptr++) + if (!isalpha(*ptr)) + return; + + tmp = (struct name_rec *) malloc(sizeof(struct name_rec)); + strcpy(tmp->name, name); + tmp->next = 0; + + curr_level = levels; + while (curr_level->params->level > level) + curr_level = curr_level->next; + + tmp->next = curr_level->names; + curr_level->names = tmp; +} + + +void sort_names(void) +{ + struct level_rec *curr_level; + struct name_rec *a, *b; + char temp[100]; + + for (curr_level = levels; curr_level; curr_level = curr_level->next) { + for (a = curr_level->names; a && a->next; a = a->next) { + for (b = a->next; b; b = b->next) { + if (strcmp(a->name, b->name) > 0) { + strcpy(temp, a->name); + strcpy(a->name, b->name); + strcpy(b->name, temp); + } + } + } + } +} + + +void write_wizlist(FILE * out, int minlev, int maxlev) +{ + char buf[100]; + struct level_rec *curr_level; + struct name_rec *curr_name; + int i, j; + + fprintf(out, +"*************************************************************************\n" +"* The following people have reached immortality on CircleMUD. They are *\n" +"* to be treated with respect and awe. Occasional prayers to them are *\n" +"* advisable. Annoying them is not recommended. Stealing from them is *\n" +"* punishable by immediate death. *\n" +"*************************************************************************\n\n"); + + for (curr_level = levels; curr_level; curr_level = curr_level->next) { + if (curr_level->params->level < minlev || + curr_level->params->level > maxlev) + continue; + i = 39 - (strlen(curr_level->params->level_name) >> 1); + for (j = 1; j <= i; j++) + fputc(' ', out); + fprintf(out, "%s\n", curr_level->params->level_name); + for (j = 1; j <= i; j++) + fputc(' ', out); + for (j = 1; j <= strlen(curr_level->params->level_name); j++) + fputc('~', out); + fprintf(out, "\n"); + + strcpy(buf, ""); + curr_name = curr_level->names; + while (curr_name) { + strcat(buf, curr_name->name); + if (strlen(buf) > LINE_LEN) { + if (curr_level->params->level <= COL_LEVEL) + fprintf(out, IMM_LMARG); + else { + i = 40 - (strlen(buf) >> 1); + for (j = 1; j <= i; j++) + fputc(' ', out); + } + fprintf(out, "%s\n", buf); + strcpy(buf, ""); + } else { + if (curr_level->params->level <= COL_LEVEL) { + for (j = 1; j <= (IMM_NSIZE - strlen(curr_name->name)); j++) + strcat(buf, " "); + } + if (curr_level->params->level > COL_LEVEL) + strcat(buf, " "); + } + curr_name = curr_name->next; + } + + if (*buf) { + if (curr_level->params->level <= COL_LEVEL) + fprintf(out, "%s%s\n", IMM_LMARG, buf); + else { + i = 40 - (strlen(buf) >> 1); + for (j = 1; j <= i; j++) + fputc(' ', out); + fprintf(out, "%s\n", buf); + } + } + fprintf(out, "\n"); + } +} + + + + +int main(int argc, char **argv) +{ + int wizlevel, immlevel, pid = 0; + FILE *fl; + + if (argc != 5 && argc != 6) { + printf("Format: %s wizlev wizlistfile immlev immlistfile [pid to signal]\n", + argv[0]); + exit(0); + } + wizlevel = atoi(argv[1]); + immlevel = atoi(argv[3]); + +#ifdef CIRCLE_UNIX /* Perhaps #ifndef CIRCLE_WINDOWS but ... */ + if (argc == 6) + pid = atoi(argv[5]); +#endif + + initialize(); + read_file(); + sort_names(); + + fl = fopen(argv[2], "w"); + write_wizlist(fl, wizlevel, LVL_IMPL); + fclose(fl); + + fl = fopen(argv[4], "w"); + write_wizlist(fl, immlevel, wizlevel - 1); + fclose(fl); + +#ifdef CIRCLE_UNIX /* ... I don't have the platforms to test. */ + if (pid) + kill(pid, SIGUSR1); +#endif + + return (0); +} diff --git a/src/util/delobjs.c b/src/util/delobjs.c new file mode 100644 index 0000000..cc20619 --- /dev/null +++ b/src/util/delobjs.c @@ -0,0 +1,93 @@ +/* ************************************************************************ +* file: delobjs.c Part of CircleMud * +* Usage: deleting object files for players who are not in the playerfile * +* Written by Jeremy Elson 4/2/93 * +* All Rights Reserved * +* Copyright (C) 1993 The Trustees of The Johns Hopkins University * +************************************************************************* */ + +/* + I recommend you use the script in the lib/plrobjs directory instead of + invoking this program directly; however, you can use this program thusly: + + usage: switch into an obj directory; type: delobjs <plrfile> <obj wildcard> + */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" + +struct name_element { + char name[20]; + struct name_element *next; +}; + +struct name_element *name_list = 0; + +void do_purge(int argc, char **argv) +{ + int x; + struct name_element *tmp; + char name[1024]; + int found; + + for (x = 2; x < argc; x++) { + found = 0; + strcpy(name, argv[x]); + *(strchr(name, '.')) = '\0'; + for (tmp = name_list; !found && tmp; tmp = tmp->next) + if (!strcmp(tmp->name, name)) + found = 1; + if (!found) { + remove(argv[x]); + printf("Deleting %s\n", argv[x]); + } + } +} + + + + +int main(int argc, char **argv) +{ + char *ptr; + struct char_file_u player; + int okay; + struct name_element *tmp; + FILE *fl; + + if (argc < 3) { + printf("Usage: %s <playerfile-name> <file1> <file2> ... <filen>\n", + argv[0]); + exit(1); + } + if (!(fl = fopen(argv[1], "rb"))) { + perror("Unable to open playerfile for reading"); + exit(1); + } + while (1) { + fread(&player, sizeof(player), 1, fl); + + if (feof(fl)) { + fclose(fl); + do_purge(argc, argv); + exit(0); + } + okay = 1; + + for (ptr = player.name; *ptr; ptr++) + *ptr = LOWER(*ptr); + + if (player.char_specials_saved.act & PLR_DELETED) + okay = 0; + + if (okay) { + tmp = (struct name_element *) malloc(sizeof(struct name_element)); + tmp->next = name_list; + strcpy(tmp->name, player.name); + name_list = tmp; + } + } +} diff --git a/src/util/listrent.c b/src/util/listrent.c new file mode 100644 index 0000000..ac2bece --- /dev/null +++ b/src/util/listrent.c @@ -0,0 +1,71 @@ +/* ************************************************************************ +* file: listrent.c Part of CircleMUD * +* Usage: list player rent files * +* Written by Jeremy Elson * +* All Rights Reserved * +* Copyright (C) 1993 The Trustees of The Johns Hopkins University * +************************************************************************* */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" + +void Crash_listrent(char *fname); + +int main(int argc, char **argv) +{ + int x; + + for (x = 1; x < argc; x++) + Crash_listrent(argv[x]); + + return (0); +} + + +void Crash_listrent(char *fname) +{ + FILE *fl; + char buf[MAX_STRING_LENGTH]; + struct obj_file_elem object; + struct rent_info rent; + + if (!(fl = fopen(fname, "rb"))) { + sprintf(buf, "%s has no rent file.\r\n", fname); + printf("%s", buf); + return; + } + sprintf(buf, "%s\r\n", fname); + if (!feof(fl)) + fread(&rent, sizeof(struct rent_info), 1, fl); + switch (rent.rentcode) { + case RENT_RENTED: + strcat(buf, "Rent\r\n"); + break; + case RENT_CRASH: + strcat(buf, "Crash\r\n"); + break; + case RENT_CRYO: + strcat(buf, "Cryo\r\n"); + break; + case RENT_TIMEDOUT: + case RENT_FORCED: + strcat(buf, "TimedOut\r\n"); + break; + default: + strcat(buf, "Undef\r\n"); + break; + } + while (!feof(fl)) { + fread(&object, sizeof(struct obj_file_elem), 1, fl); + if (ferror(fl)) { + fclose(fl); + return; + } + if (!feof(fl)) + sprintf(buf, "%s[%5d] %s\n", buf, object.item_number, fname); + } + printf("%s", buf); + fclose(fl); +} diff --git a/src/util/mudpasswd.c b/src/util/mudpasswd.c new file mode 100644 index 0000000..9ebf6ae --- /dev/null +++ b/src/util/mudpasswd.c @@ -0,0 +1,84 @@ +/* ************************************************************************ +* file: mudpasswd.c Part of CircleMud * +* Usage: changing passwords of chars in a Diku playerifle * +* Copyright (C) 1990, 1991 - see 'license.doc' for complete information. * +* All Rights Reserved * +************************************************************************* */ + + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" + + +int str_eq(char *s, char *t) +{ + for (;;) { + if (*s == 0 && *t == 0) + return (TRUE); + if (LOWER(*s) != LOWER(*t)) + return (FALSE); + s++; + t++; + } +} + + +void pword(char *filename, char *name, char *password) +{ + FILE *fl; + struct char_file_u buf; + int found = FALSE; + long size; + + if (!(fl = fopen(filename, "r+"))) { + perror(filename); + exit(1); + } + fseek(fl, 0L, SEEK_END); + size = ftell(fl); + rewind(fl); + if (size % sizeof(struct char_file_u)) { + fprintf(stderr, "\aWARNING: File size does not match structure, recompile mudpasswd.\n"); + fclose(fl); + exit(1); + } + + for (;;) { + fread(&buf, sizeof(buf), 1, fl); + if (feof(fl)) + break; + + if (str_eq(name, buf.name)) { + found = TRUE; + strncpy(buf.pwd, CRYPT(password, buf.name), MAX_PWD_LENGTH); + if (fseek(fl, -1L * sizeof(buf), SEEK_CUR) != 0) + perror("fseek"); + if (fwrite(&buf, sizeof(buf), 1, fl) != 1) + perror("fwrite"); + if (fseek(fl, 0L, SEEK_CUR) != 0) + perror("fseek"); + } + } + + if (found) { + printf("%s password is now %s\n", name, password); + } else { + printf("%s not found\n", name); + } + + fclose(fl); +} + + +int main(int argc, char **argv) +{ + if (argc != 4) + fprintf(stderr, "Usage: %s playerfile character-name new-password\n", argv[0]); + else + pword(argv[1], argv[2], argv[3]); + + return (0); +} diff --git a/src/util/play2to3.c b/src/util/play2to3.c new file mode 100644 index 0000000..a3f9d33 --- /dev/null +++ b/src/util/play2to3.c @@ -0,0 +1,379 @@ +/* + + play2to3.c - CircleMUD v2.2-to-v3.0 player file converter + + June 12th, 1995 + + This is a quick&dirty hack to convert a player file from CircleMUD v2.2 + to CircleMUD v3.0. As far as I know it works and it should be portable, + but I have only compiled and tested it under Linux 1.1.59. + + Edward Almasy + almasy@axis.com + + */ + +#include "conf.h" +#include "sysdep.h" + +typedef signed char sbyte; +typedef unsigned char ubyte; +typedef signed short int sh_int; +typedef unsigned short int ush_int; +typedef char bool; +typedef char byte; +typedef sh_int room_num; + +#define THREE_MAX_NAME_LENGTH 20 +#define THREE_MAX_PWD_LENGTH 10 +#define THREE_MAX_TITLE_LENGTH 80 +#define THREE_HOST_LENGTH 30 +#define THREE_EXDSCR_LENGTH 240 +#define THREE_MAX_TONGUE 3 +#define THREE_MAX_SKILLS 200 +#define THREE_MAX_AFFECT 32 + +struct THREE_char_ability_data { + sbyte str; + sbyte str_add; /* 000 - 100 if strength 18 */ + sbyte intel; + sbyte wis; + sbyte dex; + sbyte con; + sbyte cha; +}; + +struct THREE_char_point_data { + sh_int mana; + sh_int max_mana; /* Max mana for PC/NPC */ + sh_int hit; + sh_int max_hit; /* Max hit for PC/NPC */ + sh_int move; + sh_int max_move; /* Max move for PC/NPC */ + sh_int armor; /* Internal -100..100, external -10..10 AC */ + int gold; /* Money carried */ + int bank_gold; /* Gold the char has in a bank account */ + int exp; /* The experience of the player */ + sbyte hitroll; /* Any bonus or penalty to the hit roll */ + sbyte damroll; /* Any bonus or penalty to the damage roll */ +}; + +struct THREE_char_special_data_saved { + int alignment; /* +-1000 for alignments */ + long idnum; /* player's idnum; -1 for mobiles */ + long act; /* act flag for NPC's; player flag for PC's */ + long affected_by; /* Bitvector for spells/skills affected by */ + sh_int apply_saving_throw[5]; /* Saving throw (Bonuses) */ +}; + +struct THREE_player_special_data_saved { + byte skills[THREE_MAX_SKILLS + 1]; /* array of skills plus skill 0 */ + byte spells_to_learn; /* How many can you learn yet this level */ + bool talks[THREE_MAX_TONGUE]; /* PC s Tongues 0 for NPC */ + int wimp_level; /* Below this # of hit points, flee! */ + byte freeze_level; /* Level of god who froze char, if any */ + sh_int invis_level; /* level of invisibility */ + room_num load_room; /* Which room to place char in */ + long pref; /* preference flags for PC's. */ + ubyte bad_pws; /* number of bad password attemps */ + sbyte conditions[3]; /* Drunk, full, thirsty */ + ubyte spare0; + ubyte spare1; + ubyte spare2; + ubyte spare3; + ubyte spare4; + ubyte spare5; + int spare6; + int spare7; + int spare8; + int spare9; + int spare10; + int spare11; + int spare12; + int spare13; + int spare14; + int spare15; + int spare16; + long spare17; + long spare18; + long spare19; + long spare20; + long spare21; +}; + +/* An affect structure. Used in char_file_u *DO*NOT*CHANGE* */ +struct THREE_affected_type { + sh_int type; /* The type of spell that caused this */ + sh_int duration; /* For how long its effects will last */ + sbyte modifier; /* This is added to apropriate ability */ + byte location; /* Tells which ability to change(APPLY_XXX) */ + long bitvector; /* Tells which bits to set (AFF_XXX) */ + + struct THREE_affected_type *next; +}; + +struct THREE_char_file_u { + char name[THREE_MAX_NAME_LENGTH + 1]; + char description[THREE_EXDSCR_LENGTH]; + char title[THREE_MAX_TITLE_LENGTH + 1]; + byte sex; + byte class; + byte level; + sh_int hometown; + time_t birth; /* Time of birth of character */ + int played; /* Number of secs played in total */ + ubyte weight; + ubyte height; + char pwd[THREE_MAX_PWD_LENGTH + 1]; /* character's password */ + + struct THREE_char_special_data_saved char_specials_saved; + struct THREE_player_special_data_saved player_specials_saved; + struct THREE_char_ability_data abilities; + struct THREE_char_point_data points; + struct THREE_affected_type affected[THREE_MAX_AFFECT]; + + time_t last_logon; /* Time (in secs) of last logon */ + char host[THREE_HOST_LENGTH + 1]; /* host of last logon */ +}; + +#define TWO_MAX_PWD_LENGTH 10 +#define TWO_HOST_LEN 30 +#define TWO_MAX_TOUNGE 3 +#define TWO_MAX_SKILLS 128 +#define TWO_MAX_AFFECT 32 + +struct TWO_char_ability_data { + sbyte str; + sbyte str_add; /* 000 - 100 if strength 18 */ + sbyte intel; + sbyte wis; + sbyte dex; + sbyte con; +}; + +struct TWO_char_point_data { + sh_int mana; + sh_int max_mana; /* Max move for PC/NPC */ + sh_int hit; + sh_int max_hit; /* Max hit for PC/NPC */ + sh_int move; + sh_int max_move; /* Max move for PC/NPC */ + sh_int armor; /* Internal -100..100, external -10..10 AC */ + int gold; /* Money carried */ + int bank_gold; /* Gold the char has in a bank account */ + int exp; /* The experience of the player */ + sbyte hitroll; /* Any bonus or penalty to the hit roll */ + sbyte damroll; /* Any bonus or penalty to the damage roll */ +}; + +struct TWO_char_special2_data { + long idnum; /* player's idnum */ + sh_int load_room; /* Which room to place char in */ + byte spells_to_learn; /* How many can you learn yet this level */ + int alignment; /* +-1000 for alignments */ + long act; /* act flag for NPC's; player flag for PC's */ + long pref; /* preference flags for PC's. */ + int wimp_level; /* Below this # of hit points, flee! */ + byte freeze_level; /* Level of god who froze char, if any */ + ubyte bad_pws; /* number of bad password attemps */ + sh_int apply_saving_throw[5]; /* Saving throw (Bonuses) */ + sbyte conditions[3]; /* Drunk full etc. */ + ubyte spare0; + ubyte spare1; + ubyte spare2; + ubyte spare3; + ubyte spare4; + ubyte spare5; + ubyte spare6; + ubyte spare7; + ubyte spare8; + ubyte spare9; + ubyte spare10; + ubyte spare11; + long spare12; + long spare13; + long spare14; + long spare15; + long spare16; + long spare17; + long spare18; + long spare19; + long spare20; + long spare21; +}; + +/* Used in CHAR_FILE_U *DO*NOT*CHANGE* */ +struct TWO_affected_type { + sbyte type; /* The type of spell that caused this */ + sh_int duration; /* For how long its effects will last */ + sbyte modifier; /* This is added to apropriate ability */ + byte location; /* Tells which ability to change(APPLY_XXX) */ + long bitvector; /* Tells which bits to set (AFF_XXX) */ + struct TWO_affected_type *next; +}; + +struct TWO_char_file_u { + byte sex; + byte class; + byte level; + time_t birth; /* Time of birth of character */ + int played; /* Number of secs played in total */ + ubyte weight; + ubyte height; + char title[80]; + sh_int hometown; + char description[240]; + bool talks[TWO_MAX_TOUNGE]; + struct TWO_char_ability_data abilities; + struct TWO_char_point_data points; + byte skills[TWO_MAX_SKILLS]; + struct TWO_affected_type affected[TWO_MAX_AFFECT]; + struct TWO_char_special2_data specials2; + time_t last_logon; /* Time (in secs) of last logon */ + char host[TWO_HOST_LEN + 1]; /* host of last logon */ + char name[20]; + char pwd[TWO_MAX_PWD_LENGTH + 1]; +}; + + +int main(int argc, char *argv[]) +{ + struct TWO_char_file_u stTwo; + struct THREE_char_file_u stThree; + FILE *ptTwoHndl; + FILE *ptThreeHndl; + int iIndex; + char *apcClassAbbrev[] = + {"Mu", "Cl", "Th", "Wa"}; + int aiSkillMappings[] = + {138, 133, 139, 131, 135, 134, 132, 137}; + + if (argc < 3) { + printf("usage: play2to3 [old 2.2 player file] [new 3.0 player file]\n"); + exit(1); + } + ptTwoHndl = fopen(argv[1], "rb"); + if (ptTwoHndl == NULL) { + printf("unable to open source file \"%s\"\n", argv[1]); + exit(1); + } + ptThreeHndl = fopen(argv[2], "wb"); + if (ptThreeHndl == NULL) { + printf("unable to open destination file \"%s\"\n", argv[2]); + exit(1); + } + while (!feof(ptTwoHndl)) { + fread(&stTwo, sizeof(struct TWO_char_file_u), 1, ptTwoHndl); + + strcpy(stThree.name, stTwo.name); + strcpy(stThree.description, stTwo.description); + strcpy(stThree.title, stTwo.title); + stThree.sex = stTwo.sex; + stThree.class = stTwo.class - 1; + stThree.level = stTwo.level; + stThree.hometown = stTwo.hometown; + stThree.birth = stTwo.birth; + stThree.played = stTwo.played; + stThree.weight = stTwo.weight; + stThree.height = stTwo.height; + strcpy(stThree.pwd, stTwo.pwd); + + stThree.char_specials_saved.alignment = stTwo.specials2.alignment; + stThree.char_specials_saved.idnum = stTwo.specials2.idnum; + stThree.char_specials_saved.act = stTwo.specials2.act; + stThree.char_specials_saved.affected_by = 0; /* ??? */ + for (iIndex = 0; iIndex < 5; iIndex++) + stThree.char_specials_saved.apply_saving_throw[iIndex] = + stTwo.specials2.apply_saving_throw[iIndex]; + + for (iIndex = 0; iIndex < THREE_MAX_SKILLS; iIndex++) + stThree.player_specials_saved.skills[iIndex] = 0; + for (iIndex = 0; iIndex < 53; iIndex++) + if (iIndex > 44) { + stThree.player_specials_saved.skills[ + aiSkillMappings[iIndex - 45]] = stTwo.skills[iIndex]; + } else + stThree.player_specials_saved.skills[iIndex] = + stTwo.skills[iIndex]; + stThree.player_specials_saved.spells_to_learn = + stTwo.specials2.spells_to_learn; + for (iIndex = 0; iIndex < THREE_MAX_TONGUE; iIndex++) + stThree.player_specials_saved.talks[iIndex] = stTwo.talks[iIndex]; + stThree.player_specials_saved.wimp_level = stTwo.specials2.wimp_level; + stThree.player_specials_saved.freeze_level = + stTwo.specials2.freeze_level; + stThree.player_specials_saved.invis_level = 0; + stThree.player_specials_saved.load_room = stTwo.specials2.load_room; + stThree.player_specials_saved.pref = stTwo.specials2.pref; + stThree.player_specials_saved.bad_pws = stTwo.specials2.bad_pws; + for (iIndex = 0; iIndex < 3; iIndex++) + stThree.player_specials_saved.conditions[iIndex] = + stTwo.specials2.conditions[iIndex]; + stThree.player_specials_saved.spare0 = 0; + stThree.player_specials_saved.spare1 = 0; + stThree.player_specials_saved.spare2 = 0; + stThree.player_specials_saved.spare3 = 0; + stThree.player_specials_saved.spare4 = 0; + stThree.player_specials_saved.spare5 = 0; + stThree.player_specials_saved.spare6 = 0; + stThree.player_specials_saved.spare7 = 0; + stThree.player_specials_saved.spare8 = 0; + stThree.player_specials_saved.spare9 = 0; + stThree.player_specials_saved.spare10 = 0; + stThree.player_specials_saved.spare11 = 0; + stThree.player_specials_saved.spare12 = 0; + stThree.player_specials_saved.spare13 = 0; + stThree.player_specials_saved.spare14 = 0; + stThree.player_specials_saved.spare15 = 0; + stThree.player_specials_saved.spare16 = 0; + stThree.player_specials_saved.spare17 = 0; + stThree.player_specials_saved.spare18 = 0; + stThree.player_specials_saved.spare19 = 0; + stThree.player_specials_saved.spare20 = 0; + stThree.player_specials_saved.spare21 = 0; + + stThree.abilities.str = stTwo.abilities.str; + stThree.abilities.str_add = stTwo.abilities.str_add; + stThree.abilities.intel = stTwo.abilities.intel; + stThree.abilities.wis = stTwo.abilities.wis; + stThree.abilities.dex = stTwo.abilities.dex; + stThree.abilities.con = stTwo.abilities.con; + stThree.abilities.cha = 12; + + stThree.points.mana = stTwo.points.mana; + stThree.points.max_mana = stTwo.points.max_mana; + stThree.points.hit = stTwo.points.hit; + stThree.points.max_hit = stTwo.points.max_hit; + stThree.points.move = stTwo.points.move; + stThree.points.max_move = stTwo.points.max_move; + stThree.points.armor = stTwo.points.armor; + stThree.points.gold = stTwo.points.gold; + stThree.points.bank_gold = stTwo.points.bank_gold; + stThree.points.exp = stTwo.points.exp; + stThree.points.hitroll = stTwo.points.hitroll; + stThree.points.damroll = stTwo.points.damroll; + + for (iIndex = 0; iIndex < TWO_MAX_AFFECT; iIndex++) { + stThree.affected[iIndex].type = stTwo.affected[iIndex].type; + stThree.affected[iIndex].duration = stTwo.affected[iIndex].duration; + stThree.affected[iIndex].modifier = stTwo.affected[iIndex].modifier; + stThree.affected[iIndex].location = stTwo.affected[iIndex].location; + stThree.affected[iIndex].bitvector = stTwo.affected[iIndex].bitvector; + stThree.affected[iIndex].next = NULL; + } + + stThree.last_logon = stTwo.last_logon; + strcpy(stThree.host, stTwo.host); + + printf("[%2d %s] %s %s\n", + stThree.level, apcClassAbbrev[(int)stThree.class], + stThree.name, stThree.title); + + fwrite(&stThree, sizeof(struct THREE_char_file_u), 1, ptThreeHndl); + } + + fclose(ptThreeHndl); + fclose(ptTwoHndl); + + return (0); +} diff --git a/src/util/purgeplay.c b/src/util/purgeplay.c new file mode 100644 index 0000000..39118e9 --- /dev/null +++ b/src/util/purgeplay.c @@ -0,0 +1,120 @@ +/* ************************************************************************ +* file: purgeplay.c Part of CircleMUD * +* Usage: purge useless chars from playerfile * +* All Rights Reserved * +* Copyright (C) 1992, 1993 The Trustees of The Johns Hopkins University * +************************************************************************* */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "utils.h" + + +void purge(char *filename) +{ + FILE *fl; + FILE *outfile; + struct char_file_u player; + int okay, num = 0; + long timeout, size; + char *ptr, reason[80]; + + if (!(fl = fopen(filename, "r+"))) { + printf("Can't open %s.", filename); + exit(1); + } + fseek(fl, 0L, SEEK_END); + size = ftell(fl); + rewind(fl); + if (size % sizeof(struct char_file_u)) { + fprintf(stderr, "\aWARNING: File size does not match structure, recompile purgeplay.\n"); + fclose(fl); + exit(1); + } + + outfile = fopen("players.new", "w"); + printf("Deleting: \n"); + + for (;;) { + fread(&player, sizeof(struct char_file_u), 1, fl); + if (feof(fl)) { + fclose(fl); + fclose(outfile); + printf("Done.\n"); + exit(0); + } + okay = 1; + *reason = '\0'; + + for (ptr = player.name; *ptr; ptr++) + if (!isalpha(*ptr) || *ptr == ' ') { + okay = 0; + strcpy(reason, "Invalid name"); + } + if (player.level == 0) { + okay = 0; + strcpy(reason, "Never entered game"); + } + if (player.level < 0 || player.level > LVL_IMPL) { + okay = 0; + strcpy(reason, "Invalid level"); + } + /* now, check for timeouts. They only apply if the char is not + cryo-rented. Lev 32-34 do not time out. */ + + timeout = 1000; + + if (okay && player.level <= LVL_IMMORT) { + + if (!(player.char_specials_saved.act & PLR_CRYO)) { + if (player.level == 1) timeout = 4; /* Lev 1 : 4 days */ + else if (player.level <= 4) timeout = 7; /* Lev 2-4 : 7 days */ + else if (player.level <= 10) timeout = 30; /* Lev 5-10: 30 days */ + else if (player.level <= LVL_IMMORT - 1) + timeout = 60; /* Lev 11-30: 60 days */ + else if (player.level <= LVL_IMMORT) + timeout = 90; /* Lev 31: 90 days */ + } else + timeout = 90; + + timeout *= SECS_PER_REAL_DAY; + + if ((time(0) - player.last_logon) > timeout) { + okay = 0; + sprintf(reason, "Level %2d idle for %3ld days", player.level, + ((time(0) - player.last_logon) / SECS_PER_REAL_DAY)); + } + } + if (player.char_specials_saved.act & PLR_DELETED) { + okay = 0; + sprintf(reason, "Deleted flag set"); + } + + /* Don't delete for *any* of the above reasons if they have NODELETE */ + if (!okay && (player.char_specials_saved.act & PLR_NODELETE)) { + okay = 2; + strcat(reason, "; NOT deleted."); + } + if (okay) + fwrite(&player, sizeof(struct char_file_u), 1, outfile); + else + printf("%4d. %-20s %s\n", ++num, player.name, reason); + + if (okay == 2) + fprintf(stderr, "%-20s %s\n", player.name, reason); + } +} + + + +int main(int argc, char *argv[]) +{ + if (argc != 2) + printf("Usage: %s playerfile-name\n", argv[0]); + else + purge(argv[1]); + + return (0); +} diff --git a/src/util/scheck b/src/util/scheck new file mode 100644 index 0000000..fc977ca --- /dev/null +++ b/src/util/scheck @@ -0,0 +1,3 @@ +scheck (the syntax checker) no longer exists as an independent utility. +If you want to check the syntax of the world files, just use the -c +switch on the main server. diff --git a/src/util/shopconv.c b/src/util/shopconv.c new file mode 100644 index 0000000..1dbaa60 --- /dev/null +++ b/src/util/shopconv.c @@ -0,0 +1,190 @@ +/* code to convert 2.20 shop files to 3.0 shop files - written by Jeff Fink */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" +#include "db.h" +#include "utils.h" +#include "shop.h" + +void basic_mud_log(const char *x, ...) +{ + puts(x); +} + +char *fread_string(FILE * fl, const char *error) +{ + char buf[MAX_STRING_LENGTH], tmp[512], *rslt, *point; + int flag; + + *buf = '\0'; + + do { + if (!fgets(tmp, sizeof(tmp), fl)) { + printf("fread_string: format error at or near %s\n", error); + exit(1); + } + if (strlen(tmp) + strlen(buf) > MAX_STRING_LENGTH) { + printf("SYSERR: fread_string: string too large (shopconv.c)"); + exit(1); + } else + strcat(buf, tmp); + + for (point = buf + strlen(buf) - 2; point >= buf && isspace(*point); + point--); + if ((flag = (*point == '~'))) { + if (*(buf + strlen(buf) - 3) == '\n') + *(buf + strlen(buf) - 2) = '\0'; + else + *(buf + strlen(buf) - 2) = '\0'; + } + } while (!flag); + + /* do the allocate boogie */ + + if (strlen(buf) > 0) { + CREATE(rslt, char, strlen(buf) + 1); + strcpy(rslt, buf); + } else + rslt = NULL; + return (rslt); +} + + +void do_list(FILE * shop_f, FILE * newshop_f, int max) +{ + int count, temp; + char buf[MAX_STRING_LENGTH]; + + for (count = 0; count < max; count++) { + fscanf(shop_f, "%d", &temp); + fgets(buf, MAX_STRING_LENGTH - 1, shop_f); + if (temp > 0) + fprintf(newshop_f, "%d%s", temp, buf); + } + + fprintf(newshop_f, "-1\n"); +} + + +void do_float(FILE * shop_f, FILE * newshop_f) +{ + float f; + char str[20]; + + fscanf(shop_f, "%f \n", &f); + sprintf(str, "%f", f); + while ((str[strlen(str) - 1] == '0') && (str[strlen(str) - 2] != '.')) + str[strlen(str) - 1] = 0; + fprintf(newshop_f, "%s \n", str); +} + + +void do_int(FILE * shop_f, FILE * newshop_f) +{ + int i; + + fscanf(shop_f, "%d \n", &i); + fprintf(newshop_f, "%d \n", i); +} + + +void do_string(FILE * shop_f, FILE * newshop_f, char *msg) +{ + char *ptr; + + ptr = fread_string(shop_f, msg); + fprintf(newshop_f, "%s~\n", ptr); + free(ptr); +} + + +int boot_the_shops(FILE * shop_f, FILE * newshop_f, char *filename) +{ + char *buf, buf2[150]; + int temp, count; + + sprintf(buf2, "beginning of shop file %s", filename); + fprintf(newshop_f, "CircleMUD %s Shop File~\n", VERSION3_TAG); + for (;;) { + buf = fread_string(shop_f, buf2); + if (*buf == '#') { /* New shop */ + sscanf(buf, "#%d\n", &temp); + sprintf(buf2, "shop #%d in shop file %s", temp, filename); + fprintf(newshop_f, "#%d~\n", temp); + free(buf); /* Plug memory leak! */ + printf(" #%d\n", temp); + + do_list(shop_f, newshop_f, MAX_PROD); /* Produced Items */ + + do_float(shop_f, newshop_f); /* Ratios */ + do_float(shop_f, newshop_f); + + do_list(shop_f, newshop_f, MAX_TRADE); /* Bought Items */ + + for (count = 0; count < 7; count++) /* Keeper msgs */ + do_string(shop_f, newshop_f, buf2); + + for (count = 0; count < 5; count++) /* Misc */ + do_int(shop_f, newshop_f); + fprintf(newshop_f, "-1\n"); + for (count = 0; count < 4; count++) /* Open/Close */ + do_int(shop_f, newshop_f); + + } else { + if (*buf == '$') { /* EOF */ + free(buf); /* Plug memory leak! */ + fprintf(newshop_f, "$~\n"); + break; + } else if (strstr(buf, VERSION3_TAG)) { + printf("%s: New format detected, conversion aborted!\n", filename); + free(buf); /* Plug memory leak! */ + return (1); + } + } + } + return (0); +} + +int main(int argc, char *argv[]) +{ + FILE *sfp, *nsfp; + char fn[256], part[256]; + int result, index; + + if (argc < 2) { + printf("Usage: shopconv <file1> [file2] [file3] ...\n"); + exit(1); + } + for (index = 1; index < argc; index++) { + sprintf(fn, "%s", argv[index]); + sprintf(part, "mv %s %s.tmp", fn, fn); + system(part); + sprintf(part, "%s.tmp", fn); + sfp = fopen(part, "r"); + if (sfp == NULL) { + strcat(fn, " could not be opened"); + perror(fn); + } else { + if ((nsfp = fopen(fn, "w")) == NULL) { + printf("Error writing to %s.\n", fn); + continue; + } + printf("%s:\n", fn); + result = boot_the_shops(sfp, nsfp, fn); + fclose(nsfp); + fclose(sfp); + if (result) { + sprintf(part, "mv %s.tmp %s", fn, fn); + system(part); + } else { + sprintf(part, "mv %s.tmp %s.bak", fn, fn); + system(part); + printf("Done!\n"); + } + } + } + + return (0); +} diff --git a/src/util/showplay.c b/src/util/showplay.c new file mode 100644 index 0000000..ec2aad6 --- /dev/null +++ b/src/util/showplay.c @@ -0,0 +1,91 @@ +/* ************************************************************************ +* file: showplay.c Part of CircleMud * +* Usage: list a diku playerfile * +* Copyright (C) 1990, 1991 - see 'license.doc' for complete information. * +* All Rights Reserved * +************************************************************************* */ + +#include "conf.h" +#include "sysdep.h" + +#include "structs.h" + + +void show(char *filename) +{ + char sexname; + char classname[10]; + FILE *fl; + struct char_file_u player; + int num = 0; + long size; + + if (!(fl = fopen(filename, "r+"))) { + perror("error opening playerfile"); + exit(1); + } + fseek(fl, 0L, SEEK_END); + size = ftell(fl); + rewind(fl); + if (size % sizeof(struct char_file_u)) { + fprintf(stderr, "\aWARNING: File size does not match structure, recompile showplay.\n"); + fclose(fl); + exit(1); + } + + for (;;) { + fread(&player, sizeof(struct char_file_u), 1, fl); + if (feof(fl)) { + fclose(fl); + exit(0); + } + switch (player.chclass) { + case CLASS_THIEF: + strcpy(classname, "Th"); + break; + case CLASS_WARRIOR: + strcpy(classname, "Wa"); + break; + case CLASS_MAGIC_USER: + strcpy(classname, "Mu"); + break; + case CLASS_CLERIC: + strcpy(classname, "Cl"); + break; + default: + strcpy(classname, "--"); + break; + } + + switch (player.sex) { + case SEX_FEMALE: + sexname = 'F'; + break; + case SEX_MALE: + sexname = 'M'; + break; + case SEX_NEUTRAL: + sexname = 'N'; + break; + default: + sexname = '-'; + break; + } + + printf("%5d. ID: %5ld (%c) [%2d %s] %-16s %9dg %9db\n", ++num, + player.char_specials_saved.idnum, sexname, player.level, + classname, player.name, player.points.gold, + player.points.bank_gold); + } +} + + +int main(int argc, char **argv) +{ + if (argc != 2) + printf("Usage: %s playerfile-name\n", argv[0]); + else + show(argv[1]); + + return (0); +} diff --git a/src/util/sign.c b/src/util/sign.c new file mode 100644 index 0000000..857337e --- /dev/null +++ b/src/util/sign.c @@ -0,0 +1,159 @@ +/* + * sign.c: a program to present text on a TCP port + * + * Author: Jeremy Elson (jelson@circlemud.org) + * Usage: sign <port> <filename> or + * sign <port> - + * + * '-' indicates file should be read from stdin. + * + * This program is in the public domain. It may be copied, redistributed, + * reused, modified, etc., but a notice of my authorship must be maintained. + * + * This program comes with no warranty of any kind, expressed or implied. + */ + +#define MAX_FILESIZE 8192 +#define LINEBUF_SIZE 128 + +#include "conf.h" +#include "sysdep.h" + + +/* + * init_socket sets up the mother descriptor - creates the socket, sets + * its options up, binds it, and listens. + */ +int init_socket(int port) +{ + int s, opt; + struct sockaddr_in sa; + + /* + * Should the first argument to socket() be AF_INET or PF_INET? I don't + * know, take your pick. PF_INET seems to be more widely adopted, and + * Comer (_Internetworking with TCP/IP_) even makes a point to say that + * people erroneously use AF_INET with socket() when they should be using + * PF_INET. However, the man pages of some systems indicate that AF_INET + * is correct; some such as ConvexOS even say that you can use either one. + * All implementations I've seen define AF_INET and PF_INET to be the same + * number anyway, so ths point is (hopefully) moot. + */ + + if ((s = socket(PF_INET, SOCK_STREAM, 0)) < 0) { + perror("Create socket"); + exit(1); + } +#if defined(SO_REUSEADDR) + opt = 1; + if (setsockopt(s, SOL_SOCKET, SO_REUSEADDR, (char *) &opt, sizeof(opt)) < 0) { + perror("setsockopt REUSEADDR"); + exit(1); + } +#endif + +#if defined(SO_LINGER) + { + struct linger ld; + + ld.l_onoff = 0; + ld.l_linger = 0; + if (setsockopt(s, SOL_SOCKET, SO_LINGER, (char *) &ld, sizeof(ld)) < 0) { + perror("setsockopt LINGER"); + exit(1); + } + } +#endif + + sa.sin_family = AF_INET; + sa.sin_port = htons(port); + sa.sin_addr.s_addr = htonl(INADDR_ANY); + + if (bind(s, (struct sockaddr *) &sa, sizeof(sa)) < 0) { + perror("bind"); + close(s); + exit(1); + } + listen(s, 5); + return (s); +} + + +char *get_text(char *fname) +{ + static char t[MAX_FILESIZE]; + char tmp[LINEBUF_SIZE + 2]; + FILE *fl = NULL; + + *t = '\0'; + + if (!strcmp(fname, "-")) { + fl = stdin; + if (isatty(STDIN_FILENO)) + fprintf(stderr, "Enter sign text; terminate with Ctrl-D.\n"); + } else { + if (!(fl = fopen(fname, "r"))) { + perror(fname); + exit(1); + } + } + + while (fgets(tmp, LINEBUF_SIZE, fl)) { + if (strlen(tmp) + strlen(t) < MAX_FILESIZE - 1) + strcat(t, strcat(tmp, "\r")); + else { + fprintf(stderr, "String too long. Truncated.\n"); + break; + } + } + + return (t); +} + + +/* clean up our zombie kids to avoid defunct processes */ +RETSIGTYPE reap(int sig) +{ + while (waitpid(-1, NULL, WNOHANG) > 0); + + signal(SIGCHLD, reap); +} + + +int main(int argc, char *argv[]) +{ + char *txt; + int desc, remaining, bytes_written, len, s, port, child; + + if (argc != 3 || (port = atoi(argv[1])) < 1024) { + fprintf(stderr, "usage: %s <portnum> <\"-\" | filename>\n", argv[0]); + exit(1); + } + s = init_socket(port); + len = strlen(txt = get_text(argv[2])); + + if ((child = fork()) > 0) { + fprintf(stderr, "Sign started on port %d (pid %d).\n", port, child); + exit(0); + } + signal(SIGCHLD, reap); + + for (;;) { + if ((desc = accept(s, (struct sockaddr *) NULL, 0)) < 0) + continue; + + if (fork() == 0) { + remaining = len; + do { + if ((bytes_written = write(desc, txt, remaining)) < 0) + exit(0); + else { + txt += bytes_written; + remaining -= bytes_written; + } + } while (remaining > 0); + exit(0); + } + close(desc); + } +} diff --git a/src/util/split.c b/src/util/split.c new file mode 100644 index 0000000..4693381 --- /dev/null +++ b/src/util/split.c @@ -0,0 +1,57 @@ +/* ************************************************************************ +* file: split.c Part of CircleMud * +* Usage: split one large file into multiple smaller ones, with index * +* Written by Jeremy Elson * +* All Rights Reserved * +* Copyright (C) 1993 The Trustees of The Johns Hopkins University * +************************************************************************* */ + +/* + * This utility is meant to split a large file into multiple smaller ones, + * mainly to help break huge world files (ala Diku) into zone-sized files + * that are easier to manage. + * + * At each point in the original file where you want a break, insert a line + * containng "=filename" at the break point. + */ + +#define INDEX_NAME "index" +#define BSZ 256 +#define MAGIC_CHAR '=' + +#include "conf.h" +#include "sysdep.h" + +int main(void) +{ + char line[BSZ + 1]; + FILE *index = 0, *outfile = 0; + + if (!(index = fopen(INDEX_NAME, "w"))) { + perror("error opening index for write"); + exit(1); + } + while (fgets(line, BSZ, stdin)) { + if (*line == MAGIC_CHAR) { + *(strchr(line, '\n')) = '\0'; + if (outfile) { +/* fputs("$\n", outfile);*/ + fclose(outfile); + } + if (!(outfile = fopen((line + 1), "a"))) { + perror("Error opening output file"); + exit(0); + } + fputs(line + 1, index); + fputs("\n", index); + } else if (outfile) + fputs(line, outfile); + } + + fputs("$\r\n", index); + fclose(index); + if (outfile) + fclose(outfile); + + return (0); +} diff --git a/src/util/wld2html.c b/src/util/wld2html.c new file mode 100644 index 0000000..3c0d16a --- /dev/null +++ b/src/util/wld2html.c @@ -0,0 +1,513 @@ +/* ************************************************************************ +* File: wld2html.c * +* Usage: Convert a DikuMUD .wld file into a series of .html files * +* * +* This program is in the public domain. * +* Written (QUICKLY AND DIRTILY) by Jeremy Elson (jelson@circlemud.org) * +* Based on the Circle 3.0 syntax checker program (scheck.c) * +************************************************************************ */ + +#define log(msg) fprintf(stderr, "%s\n", msg) + +#include "conf.h" +#include "sysdep.h" + + +#define NOWHERE -1 /* nil reference for room-database */ + +/* The cardinal directions: used as index to room_data.dir_option[] */ +#define NORTH 0 +#define EAST 1 +#define SOUTH 2 +#define WEST 3 +#define UP 4 +#define DOWN 5 + +#define NUM_OF_DIRS 6 + +#define CREATE(result, type, number) do {\ + if (!((result) = (type *) calloc ((number), sizeof(type))))\ + { perror("malloc failure"); abort(); } } while(0) + + +/* Exit info: used in room_data.dir_option.exit_info */ +#define EX_ISDOOR (1 << 0) /* Exit is a door */ +#define EX_CLOSED (1 << 1) /* The door is closed */ +#define EX_LOCKED (1 << 2) /* The door is locked */ +#define EX_PICKPROOF (1 << 3) /* Lock can't be picked */ + +#define MAX_STRING_LENGTH 8192 + +typedef signed char sbyte; +typedef unsigned char ubyte; +typedef signed short int sh_int; +typedef unsigned short int ush_int; +typedef char bool; +typedef char byte; + +typedef sh_int room_num; +typedef sh_int obj_num; + + +char buf[MAX_STRING_LENGTH]; +char buf1[MAX_STRING_LENGTH]; +char buf2[MAX_STRING_LENGTH]; +char arg[MAX_STRING_LENGTH]; + +int get_line(FILE * fl, char *buf); +int real_room(int virtual, int reference); + +/* room-related structures *********************************************** */ + + +struct room_direction_data { + char *general_description; /* When look DIR. */ + + char *keyword; /* for open/close */ + + sh_int exit_info; /* Exit info */ + obj_num key; /* Key's number (-1 for no key) */ + room_num to_room; /* Where direction leads (NOWHERE) */ +}; + +struct extra_descr_data { + char *keyword; /* Keyword in look/examine */ + char *description; /* What to see */ + struct extra_descr_data *next; /* Next in list */ +}; + +struct reset_com { + char command; /* current command */ + + bool if_flag; /* if TRUE: exe only if preceding exe'd */ + int arg1; /* */ + int arg2; /* Arguments to the command */ + int arg3; /* */ + + /* + * Commands: * 'M': Read a mobile * 'O': Read an object * + * 'G': Give obj to mob * 'P': Put obj in obj * 'G': Obj to char * + * 'E': Obj to char equip * 'D': Set state of door * + */ +}; + + + +struct zone_data { + char *name; /* name of this zone */ + int lifespan; /* how long between resets (minutes) */ + int age; /* current age of this zone (minutes) */ + int top; /* upper limit for rooms in this zone */ + + int reset_mode; /* conditions for reset (see below) */ + int number; /* virtual number of this zone */ + struct reset_com *cmd; /* command table for reset */ + + /* + * Reset mode: * 0: Don't reset, and don't + * update age. * 1: Reset if no PC's are located in zone. * 2: Just + * reset. * + */ +}; + +/* ================== Memory Structure for room ======================= */ +struct room_data { + room_num number; /* Rooms number (vnum) */ + sh_int zone; /* Room zone (for resetting) */ + int sector_type; /* sector type (move/hide) */ + char *name; /* Rooms name 'You are ...' */ + char *description; /* Shown when entered */ + struct extra_descr_data *ex_description; /* for examine/look */ + struct room_direction_data *dir_option[NUM_OF_DIRS]; /* Directions */ + int room_flags; /* DEATH,DARK ... etc */ + + byte light; /* Number of lightsources in room */ +}; + +/* ====================================================================== */ + + +/************************************************************************** +* declarations of most of the 'global' variables * +************************************************************************ */ + +struct room_data *world = NULL; /* array of rooms */ +int top_of_world = 0; /* ref to top element of world */ + + + +/* local functions */ +char *fread_string(FILE * fl, char *error); +void setup_dir(FILE * fl, int room, int dir); +void index_boot(char *name); +void discrete_load(FILE * fl); +void parse_room(FILE * fl, int virtual_nr); +void parse_mobile(FILE * mob_f, int nr); +char *parse_object(FILE * obj_f, int nr); +void assign_rooms(void); +void renum_world(void); +void write_output(void); + + +char *dir_names[] = +{"North", "East", "South", "West", "Up", "Down"}; + + +/************************************************************************* +* routines for booting the system * +*********************************************************************** */ + +/* body of the booting system */ +int main(int argc, char **argv) +{ + if (argc != 2) { + fprintf(stderr, "Usage: %s <world-file-name>\n", argv[0]); + exit(1); + } + index_boot(argv[1]); + + log("Renumbering rooms."); + renum_world(); + + log("Writing output."); + write_output(); + log("Done."); + + return (0); +} + + +void write_output(void) +{ + int i; + FILE *fl; + char buf[128]; + register int door, found; + + for (i = 0; i <= top_of_world; i++) { + sprintf(buf, "Writing %d.html", world[i].number); + log(buf); + sprintf(buf, "%d.html", world[i].number); + + if (!(fl = fopen(buf, "w"))) { + perror("opening output file"); + exit(1); + } + fprintf(fl, "<title> %s

commit 9e3609695345bc32a99cf12e17150a4f0aab2802 Author: Polonkai Gergely Date: Sat Mar 3 21:35:30 2012 +0100 Added CircleMUD 3.1 as initial commit diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..9eb0607 --- /dev/null +++ b/.gitignore @@ -0,0 +1,3 @@ +config.log +config.cache +config.status diff --git a/ChangeLog b/ChangeLog new file mode 100644 index 0000000..a57065e --- /dev/null +++ b/ChangeLog @@ -0,0 +1,4253 @@ +Release history: + +Version 3.1 (yes, no beta pl): November 18, 2002 +Version 3.00 beta pl22 release: October 4, 2002 +Version 3.00 beta pl21 release: April 15, 2002 +Version 3.00 beta pl20 release: January 15, 2002 +Version 3.00 beta pl19 release: August 14, 2001 +Version 3.00 beta pl18 release: March 18, 2001 +Version 3.00 beta pl17 release: January 23, 2000 +Version 3.00 beta pl16 release: August 30, 1999 +Version 3.00 beta pl15 release: March 16, 1999 +Version 3.00 beta pl14 release: July 3, 1998 +Version 3.00 beta pl13a release: June 4, 1998 +Version 3.00 beta pl13 release: June 1, 1998 +Version 3.00 beta pl12 release: October 29, 1997 +Version 3.00 beta pl11 release: April 14, 1996 +Version 3.00 beta pl10 release: March 11, 1996 +Version 3.00 beta pl9 release: February 6, 1996 +Version 3.00 beta pl8 release: May 23, 1995 +Version 3.00 beta pl7 release: March 9, 1995 +Version 3.00 beta pl6 release: March 6, 1995 +Version 3.00 beta pl5 release: February 23, 1995 +Version 3.00 beta pl4 release: September 28, 1994 +Version 3.00 beta pl1-3, internal releases for beta-testers. +Version 3.00 alpha: Ran on net for testing. Code not released. +Version 2.20 release: November 17, 1993 +Version 2.11 release: September 19, 1993 +Version 2.10 release: September 1, 1993 +Version 2.02 release: Late August 1993 +Version 2.01 release: Early August 1993 +Version 2.00 release: July 16, 1993 (Initial public release) + + + +Legend +------ +JE = Jeremy Elson (jelson@circlemud.org) Since Jul 16, 1993 +AE = Alex Fletcher (furry@circlemud.org) Since Feb 23, 1995 +GG = George Greer (greerga@circlemud.org) Since Oct 14, 1997 +DK = Daniel A. Koepke (dkoepke@circlemud.org) Since Jul 11, 1999 + + New applicants must have a last name alphabetically after +'Koepke' and will only be accepted on December 2, 2001. + +--- CircleMUD 3.0 patchlevel 3 + +8/31/94 JE Added a GET_REAL_LEVEL macro which returns the actual + level taking switched characters into account. Used + in CAN_SEE so that switched immorts can't see invis + gods. + +8/31/94 JE Added restriction to interpreter.c so that immort commands + cannot be used by NPCs. Removed all the IS_NPC checks from + the individual god commands since they are now redundant. + +8/31/94 JE Made newsign.c into sign.c and deleted the old DIKU sign.c. + newsign.c forks to handle its kids and is generally more + concise and robust. + +8/31/94 JE Changed the type argument of affect_from_char and + affected_by_spell to sh_int (from char) to match the fact + that the 'type' member of the affected_type structure is + now a sh_int instead of a char. Spotted by Jean-Jack + Riethoven. + +8/31/94 JE Fixed MIN statement using uninitialized 'water' var in + spell_create_water. Spotted by JJR. + +8/31/94 JE Ken Cavness noted that MOBs were getting past guildguards. + Not surprising, since I changed the relationship between + do_move/do_simple_move/perform_move so many times. The + discipline has now changed again; MOBs calling perform_move + must call with 3rd arg of 1 instead of 0. Changed the + arg from 'following' to 'need_specials_check' so its purpose + would be clearer. + +8/31/94 JE Added 'worn_on' short integer to obj_data structure to go + with worn_by char_data pointer. Indicates which eq pos + eq is being worn on. (Will be used to facilitate a cleaner + version of objectmagic.) + +8/31/94 JE extract_obj now automatically unequips the obj first if it + is being used as equipment (uses worn_by and the new worn_on). + do_use no longer unequips. objectmagic didn't have to be + changed since extract_obj automatically does the work now. :) + +8/31/94 JE Fixed cityguard routine with a CAN_SEE check so that blinded + guards no longer banzai people, and so that guards don't + banzai invis people etc. Spotted by Ken Cavness. + +8/31/94 JE Fixed do_reply to make sure the person you're replying to + is still in the game before calling perform_tell. Note, I + think it still may be possible for your reply to go to + someone else if the recipient logs out and someone else logs + in. In particular, this will break in a big way if I ever + implement some scheme where it keeps a pool of char_data + structures for reuse. + +8/31/94 JE CHA added to display when rerolling a character. + +8/31/94 JE Changed TOUNGE to TONGUE throughout. + +8/31/94 JE Made the '*' (ignore) case in zone reset tables (used for + invalid vnums) set last_cmd = 0 for proper resetting. + +8/31/94 JE Enhanced (added?) NeXT compatibility with FOPEN_MAX, my_signal, + and O_NDELAY. + +8/31/94 JE Changed boards back to listing lowest to highest since people + seemed to hate it the other way. + +8/31/94 JE Added sanity checks to perform_move since king_welmar seems + to cause crashes when he's moving on occasion, and I'd rather + remove that area than try to debug it. + +8/31/94 JE Changed 'SEC' to 'RL_SEC' in structs.h to avoid conflicts + with many OS's #defines of SEC + +9/1/94 JE Good God, is it September already? + +9/1/94 JE Changed list_skills to accumulate in a buffer instead of + using send_to_char, and use page_string. This system really + sucks. There should be a "page_to_char" command, or something. + It shouldn't even require too much conceptual difference now + that output buffers are limited! + +9/1/94 JE Added a 'sort_spells()' function and changed list_skills + to use sorted spell list instead of arbitrarily ordered list. + sort_spells() called once on boot from db.c. + +9/1/94 JE Finally finished making the background story paged. Now that + process_input and command_interpreter, etc., have been + rewritten, all it took was changing it from SEND_TO_Q to + page_string. Whoo hoo! + +9/1/94 JE Jeff Fink suggested having perform_act do some run-time + sanity checking in order to make it more robust. Thus, + I created the CHECK_NULL macro for it in comm.c. + +9/1/94 JE Made mobs hit you if you try to cast an offensive spell + at them and fail. + +9/1/94 JE Completed line-by-line zone-parsing routines. Instead of + using scanf() to read from disk, Circle now uses fgets(). + This allows MUCH more robustness, more accurate and sensitive + error-checking of zone files, both at boot-time and run-time. + In addition, the error reporting now gives you a specific + _line number_ in the zone file of the error. :) + +9/2/94 JE Made a 'qecho' command, combined with qsay in do_qcomm + of act.comm.c. + +9/2/94 JE Updated the README file. + +9/2/94 JE Circle 3.00 beta patchlevel 3 released + + +-- Patchlevel 4 + + +9/9/94 JE Added IS_NPC check to do_score to prevent crashes. + +9/9/94 JE Added #undef MAX and MIN for NeXT compatibility. + +9/19/94 JE Started work again after 10 days of real life (school's + starting up again, ya know.) + +9/19/94 JE Changed lantern-handling in update_char_objects in handler.c; + now gives warning one tick before the light expires (idea + from Chris ) and correctly + decrements world[ch->in_room].light as it should have from + the very beginning. + +9/19/94 JE Changed the build_house parser in house.c to allow for + a house which has more than one exit (i.e., only one of + which is access-controlled) because people seem to want + multi-room access-controlled areas. + +9/19/94 JE Fixed multi-room-shared-atrium bug in house_control_house, + house.c (I haven't heard of this bug ever manifesting itself + but looking at the code I realized the error.) + + +9/19/94 JE Changed 'long' to 'time_t' where appropriate. + +9/19/94 JE Added graceful handling of missing playerfile in db.c + + +-- Patchlevel 5 + +10/4/94 JE ban.c:98: long int format, time_t arg, fixed with cast + +10/4/94 JE Made default action of hcontrol to be a help screen; + added 'show' subcommand. + +10/4/94 JE Added reni's NeXT function prototypes to utils.h + +10/5/94 JE Fixed !IS_NPC in do_score (act.informative.c) + +10/9/94 JE Added charisma-to-25 code to do_restore (act.wizard.c) + +-- Sanity break + +2/20/95 JE Added max length check to set_title in limits.c -- all + title setting should go through this function + +2/22/95 JE Added check for null name in 'show player' + +2/22/95 JE included unistd.h in house.c, boards.c and objsave.c + for unlink prototype + +2/22/95 JE Low-lev imms can no longer see invstart people above their + level entering game + +2/22/95 JE Changed 'color' and 'syslog' to show current levels if typed + without arguments, instead of help text. + +2/22/95 JE fixed castle by adding terminator to end of move string + reported by Ed Mackey (emackey@BIX.com) + +2/22/95 JE If you try to return to your original body, and someone else + has connected into it, disconnect them. act.wizard.c, + do_return(). + reported by Aaron Mills + +2/22/95 JE interpreter.c - changed the code to sense if a switched + persona of yourself is connected when you log in. Should + make switch more stable. + reported by Aaron Mills + +2/22/95 JE new timediff in comm.c to work on systems for which + tv_sec and tv_usec are unsigned + reported by Steven Serocki + +2/22/95 JE change RLIMIT code for systems that don't have RLIMIT_INFINITY + reported by Steven Serocki + +2/22/95 JE changed title_type[4][35] to [NUM_CLASSES][LVL_IMPL + 1] + throughout + reported by Darel Cullen + +2/22/95 JE changed "his arm" to "$s arm" in act.obj.c + reported by Chris Epler + +2/22/95 JE act.other.c, do_quit() -- kill off all sockets connected to + the same player as the one who is trying to quit. Helps to + maintain sanity as well as prevent duping. + duping reported by Chris Epler + +2/22/95 JE installed new version of Jeff Fink's shop.c code + +2/22/95 JE Patched bug in Jeff Fink's shop code reported by him. + Patch sent by Jeff Fink + +2/22/95 JE created player_specials structure for new players coming in + after having been deleted. Yet another example of a bug that + could have been avoided completely if we'd been using C++. + Reported by Jeff Fink + +2/22/95 JE Added code to support 'R' command in zone resets (remove + obj from room). Code sent by Jeff Fink. + +2/22/95 JE Changed plain 'stat' to make better assumptions about what + you're trying to stat. + Code sent by Jeff Fink + +2/22/95 JE Added go_gen_door code written by Jeff Fink to eliminate + duplication of checks, etc. for open/close/lock/unlock/pick + +2/22/95 JE Fixed shop code -- changed keeper = 0 to keeper = me + +2/22/95 JE Added magic_alter_objs code submitted by Jeff Fink + +2/22/95 JE Added break statement to mag_damage, energy drain + Spotted by Jeff Fink + +2/22/95 JE Added ASCII flag system to db.c for world, obj, mob files + +2/22/95 JE Brought in the new 3.0 world files from Furry + +2/23/95 JE Created 'random.c' as Circle's new, portable random number + generator. + +2/23/95 JE Added 'POSIX_NONBLOCK_BROKEN' option to work around OSs + such as AIX which don't implement POSIX nonblocking I/O + correctly, causing the MUD to hang in places such as the + Password: prompt. + +2/23/95 JE Added a case for SGI (IRIX) in utils.h OS-specific header + section for cleaner compiles + + +-- Patchlevel 6 + +2/24/95 JE Fixed asciiflag_conv in db.c for uppercase flags (typo, + 'a' instead of 'A'). + +2/24/95 JE Added max_bad_pws to config.c. + +2/24/95 JE (logged retroactively) Added max_filesize to config.c to + set max limit on size of bug, typo and idea files to prevent + bombing + +2/24/95 JE Moved 'pfilepos' from descriptor_data to char_data where is + belongs. More logical, plus fixes the switch-into-a-PC-and + save bug reported on rec.games.mud.diku by + shruew@amiserv.xnet.com (Johnny Mnemonic). + +2/24/95 JE Similarly moved password from descriptor to character. + +2/24/95 JE Changed nonblock to OR-in O_NONBLOCK to the current flag + bitvector of descriptors instead of setting directly. + +2/24/95 JE Changed 'last_tell' (used by reply) to use player ID number + instead of a pointer to the character. Much safer because + I don't have to worry about pointer reuse, plus it'll still + work if the person you're replying to logs out and back in + again. + +2/24/95 JE Changed distribution-default of nameserver_is_slow to NO. + +2/24/95 JE Fixed src/util/showplay.c + +2/24/95 JE Added MAG_ALTER_OBJS to SPELL_INVISIBILITY in spell_parser.c + +2/25/95 JE Fixed PC/NPC checks in act.wizard.c, do_set. + Reported by Eric Green and Stefan Wasilewski + +2/25/95 JE Fixed carried-by/worn-by reporting of objects + act.wizard.c, do_stat_object. + Reported by Eric Green and Stefan Wasilewski + +2/25/95 JE Deleted 'equipment status' from do_stat_obj in act.wizard.c + --didn't seem particularly useful and took up valuable screen + space + +2/25/95 JE do_wiznet, act.wizard.c, wiznet chops off first letter of + message when levels are used. Reported by Eric Green and + Stefan Wasilewski + +2/25/95 JE do_ungroup, act.other.c, fixed so that disbanding a group + doesn't un-charm charmed mobs following you. + Reported by Eric Green and Stefan Wasilewski + +2/25/95 JE magic.c, changed so you can't sanct sancted mobs + Reported by Eric Green and Stefan Wasilewski + +2/25/95 JE Brought in fixed world files from furry and corresponding + castle.c and spec_assign.c for new specproc assignments + +2/26/95 JE Removed minor output display but on object statting, do_stat, + act.wizard.c Spotted by Eric Green. + +2/26/95 JE Added max string length checks in perform_subst(), comm.c + Reported by Eric Green and Stefan Wasilewski. Also added + comments to the function. + +2/26/95 JE Similar length checks in perform_complex_alias, interpreter.c + +2/26/95 JE Made buffers MAX_INPUT_LENGTH size to handle very large output; + tmp_name in interpreter.c, *_search in do_who and do_users + in act.informative.c + +2/26/95 JE Rewrote most of do_group, act.other.c + +2/26/95 JE do_ungroup, act.other.c - disbanding a group also ungroups + yourself. + +2/27/95 JE Added olc.c and olc.h. + +2/28/95 JE Added bank card specproc to spec_assign.c + +2/28/95 JE Updated FAQ and README-BETA + +3/3/95 JE Patchlevel 6 released + + +--- Patchlevel 7 + +3/4/95 JE Added PFILEPOS assignment in interpreter.c so deleted + characters are not replicated in plrfile. (near "Did I get + that right, X?") + +3/4/95- JE Extensive rewrite of documentation +3/7/95 + +3/8/95 JE Changed qecho to LVL_IMMORT (interpreter.c) + +3/8/95 JE Created GET_PFILEPOS macro and used it throughout. + +3/8/95 JE Changed extern declaration of thaco in fight.c from [4][35] + to [NUM_CLASSES][LVL_IMPL+1]. Spotted by Marcin Zaranski. + +3/8/95 JE Problems reported with stop_fighting called when char not + fighting. Most probably the call of stop_fighting() in + hit() when ch->in_room != vict->in_room. Added check for + FIGHTING(ch) before calling stop_fighting. Also made + stop_fighting tolerant of being called at the wrong time. + Problem spotted by Marcin Zaranski. + +3/8/95 JE Also changed stop_fighting to use REMOVE_FROM_LIST macro. + +3/9/95 JE Implemented ROOM_TUNNEL. + +3/9/95 JE Fixed a bug causing the MUD to crash under pathological + input-overflow conditions (such as someone holding down a + key for 60 seconds.) + Reported by Carl Tashian + +3/9/95 JE "set class" output corrected. + Spotted by Ryan Baker . + +3/9/95 JE Added Jeff Fink's do_gen_door patch for picking. Also + initialized obj and vict to NULL, might have been causing + double messages. + +3/9/95 JE Fixed find_door to give a better message with a null arg. + +3/9/95 JE Brought in new version of world files from Furry + Deleted that stupid '#99999' from the end of all the world + files since the new parser doesn't need them. + +3/9/95 JE Changed perform_group so "group all" doesn't group people + you can't see. + + +--- Patchlevel 8 + +5/5/95 JE Changed my email address to jelson@jhu.edu throughout. + +5/5/95 JE Implemented AFF_WATERWALK flag. + +5/5/95 JE Implemented MOB_AWARE flag (mobs that cannot be backstabbed). + +5/5/95 JE Implemented MOB_NOBASH flag. + +5/5/95 JE db.c, added support for type E (Enhanced) mobs + +5/5/95 JE Implemented ROOM_PEACEFUL flag (rooms in which fighting + is not permitted.) + +5/5/95 JE Implemented ROOM_NOTRACK flag. + +5/5/95 JE Implemented AFF_NOTRACK. + +5/5/95 JE Added some sanity checking to obj_to_obj. + +5/5/95 JE Neatened up the saving throw table in magic.c. + +5/10/95 JE Implemented bless and curse spells for objects. + Code submitted by Jeff Fink. + +5/10/95 JE Implemented poisoned objects and remove-poison for objs. + Code submitted by Jeff Fink. + +5/10/95 JE Implemented MOB_NOCHARM flag. + +5/17/95 JE Completely new building.doc world builders' documentation. + +5/20/95 JE Imported latest version of Furry's world files + +5/21/95 JE handler.c, extract_char()... if a char is extracted and + has no descriptor associated with it, free the char. + Prevents a memory leak if players get purged. + Suggested by Eric Green. + +5/21/95 JE Set mob's default charisma to 11. + Spotted by Jeff Fink. + +5/21/95 JE Changed obj num loaded for 'create food' to 10, waybread. + +5/21/95 JE Removed strange code from db.c, reset_zone, 'O' command, + that seemed to prevent two objs of the same vnum from being + loaded in the same room. + Suggested by Jeff Fink. + +5/21/95 JE handler.c, affect_join() - fixed bug preventing spells + with multiple effects from coexisting. + First reported by Thomas Katzlberger. + +5/21/95 JE boards.c - changed board so it will respond to 'examine' + as well as 'look' + Suggested by Chris Epler. + +5/21/95 JE Initialized GET_LAST_TELL to NOBODY. + Spotted by Eric Green and Stefan Wasilewski + +5/21/95 JE Changed around wiz-invisibility for better compatibility with + the 'visible' command, and to give better messages. + Suggested by Chris Epler. + +5/21/95 JE Fixed mag_groups so caster is only hit once per cast. + Spotted by dodger@WPI.EDU (DoDGeR) + +5/21/95 JE Fixed the bug causing crashes on some systems if an + incorrect class is entered when a new character is created. + For the record I think this was happening on architectures + on which the 'char' type is defined as being unsigned. + +5/21/95 JE Made is_abbrev asymmetrical as it should be; fixes + "look ingerwal" as being interpreted as "look in" + Reported by Mike Higuchi and others. + +5/21/95 JE Changed spells_to_learn from byte to int; used one of the + spares in the playerfile so that people already running + MUDs with 3.0 won't get screwed (grrrrr....). + Spotted by Marcin + +5/21/95 JE spell_parser.c, say_spell() - target of spell now only + sees caster casting if they're in the room together. + Spotted by Marcin + +5/21/95 JE Also changed say_spell so that object messages will be + correctly reported if target obj is in caster's inventory + as well as in same room. + +5/21/95 JE Changed mag_alter_objs to give the room a message as well + as the caster. + +5/21/95 JE handler.c, char_from_room(), changed so that if char is + fighting when removed from room, stop_fighting is called + immediately to stop the fight. + Problem found by Marcin + +5/21/95 JE Corrected errors with RUSAGE section in comm.c. + Spotted by Thomas Knight + +5/21/95 JE Fixed the ancient "pour canteen out" bug -- the problem + was that any drink container whose weight was less than + its quantity could go negative since the MUD assumes that + all drinks weigh one pound per unit of drink. parse_room, + db.c, now checks drink containers and fountains to make + sure that weight is greater than quantity. + +5/21/95 JE Fixed the cleaning woman in Welmar's castle so that she + only picks up trash. + Fix submitted by Christopher Dickey + +5/21/95 JE Fixed up show_string so that the display works properly; + fix submitted by Michael Buselli + +5/21/95 JE Player killers' damage no longer set to 0 if they're inflicting + damage on themselves. + Reported by Julian Fong. + +5/21/95 JE Fixed do_gen_door to correctly sense when no arg is given. + Problem spotted by Eric Green + +5/21/95 JE *** WAIT_STATE set for all uses of magic items *** + Suggested by Eric Green + +5/21/95 JE Found irrefutable clues & figured out who shot Mr. Burns. + +5/21/95 JE Bug in mobact.c prevented alignment-aggressive monsters from + working if they were set not in conjunction with the normal + AGGRESSIVE bit. + Problem spotted by Chris Epler + +5/21/95 JE Problem with HELPER mobs getting extra hits fixed. + Problem spotted by Chris Epler + +5/22/95 JE Created the CircleMUD License. Changed Makefile so that + the license is displayed the first time the MUD is compiled. + Sorry if this is a dickish thing to do, but it's a Derek + Snyder countermeasure. + +5/22/95 JE Added logging for whole-world-resets using zreset command. + +5/22/95 JE fight.c, hit() -- Changed declaration of all intermediate + vars used to calculate hitroll and damroll to be int to + avoid problems with unsigned bytes on certain architectures. + Same change to 'percent' vars in act.offensive.c. + Suggested by Al Thompson + +5/22/95 JE Rewrote mag_affects in magic.c to be more readable and easier + to use, as well as correcting some old bugs (i.e., being able + to un-affect mobs by re-affecting them and then waiting for + the affect to fade.) + +5/22/95 JE fight.c, damage() - WIMPY mobs do not flee if they are + damaging themselves. + +5/22/95 JE comm.c, close_socket(). When a player loses link, all + players with same idnum are also disconnected. Fixes a + duping bug. + Found by Clay Hardin + +5/22/95 JE Added "NOEFFECT" char constant to config.c. + +5/22/95 JE Fixed bug in zone-reset 'R' command where second arg was + being resolved as a room vnum instead of an obj vnum. + Fix sent in by BUG. + +5/22/95 JE Added two prototypes to comm.h so that comm.c will compile + cleanly under Ultrix. + +5/22/95 JE spell_parser.c, cast_spell() - prevents ungrouped chars from + casting MAG_GROUPS classes of spells (returns error msg and + does not take mana). + +5/22/95 JE Added the GET_EQ macro for character equipment and SECT + macro for sector types; changed code throughout to use + the new macros. + +5/22/95 JE act.movement.c, has_boat - added has_boat function so that + unwearable boats in inventory and boats worn will work as + boats. + +5/22/95 JE Added sun386 (SunOS 4.0.x) compatibility by defining + sigaction as signal for it. + Patch sent by Tim Aldric. + +5/22/95 JE Implemented detect poison as a manual spell. + +5/22/95 JE Fixed up mag_areas (generally) and earthquake (specifically). + +5/22/95 JE Changed 'invis' command so it will not work on mobs. + Bug spotted by v932459@si.hhs.nl. + +5/23/95 JE Fixed get_char_room_vis so that you can no longer access + PC's throughout the world with the '.' syntax. (Oops..) + +5/23/95 JE Changed GET_POS==FIGHTING check to if(FIGHTING) in + cityguard specproc, spec_procs.c + Bug spotted & fix submitted by Jason Fischer + +5/23/95 JE fight.c, perform_violence() - Implemented wait states for + mobs, so that mobs who are bashed etc. are actually taken out + of the violence for some number of rounds (depending on the + skill), like it is supposed to be. + +5/23/95 JE limits.c, gain_exp*(), changed level message so you aren't + spammed if you gain more than one level at once. + +5/23/95 JE Added bash as a level 12 warrior skill. + If successful, your opponent loses 1 round. + If unsuccessful, you lose 2 rounds of combat. + You cannot try to bash again for 2 rounds. + +5/23/95 JE Fully implemented the bash-class of skills; i.e., for skills + where it tells you you fall on your ass and have to stand up + again, you actually lose the rounds of combat while you're + still sitting. + +5/23/95 JE Brought in new lib/misc/messages file from Furry with some + additional attack types. + +5/23/95 JE Wrote the E-Spec parser and brought in Furry's world files + that use E-Specs. + +5/23/95 JE Fixed all the utilities, including autowiz which now works + again. + +5/23/95 JE Took out the scheck utility and replaced it with the -c + option on the server (Check syntax only - do not run game). + Another fantastic idea from Gekke Eekhoorn, the source of many + fantastic ideas. + +5/23/95 JE Deleted some extraneous lines from the Makefile (rules for + compiling utilities that no longer exist). + Found by Jared McDonald + +5/23/95 JE Released patchlevel 8. + + +--- Patchlevel 9 + +(No dates on this patchlevel... sorry!) +-- Made Circle self-configuring using the GNU 'autoconf' package; created + new header files conf.h and sysdep.h. Most standard library files are + now conditionally included from sysdep.h and have been removed from the + .c files. -lsocket/-lnsl libraries are automatically used if needed. + Circle's built-in 'random' function is used only if there is no random() + on the system.. many other autoconfigured aspects as well. + +-- Rewrote much of the code for the login/load sequence to prevent duping. + Duping should hopefully be impossible now. Fixed the dumb bug that allowed + people to cut off players by logging in and out without a password. + +-- Added 20 second limit to entering a password before you're cut off. + +-- Fixed the braindead way LOADROOM works. Syntax is now simply "set ras + loadroom " or "set ras loadroom off". Loadroom now properly set + when someone quits out of their house, so they go back there by default. + +-- Truncate message board titles to 80 characters or less - fixes a crash + bug. + +-- Changed tunnels so that they are "full" only if filled with a PC, not + just any char. + +-- Redid the code for setting the minimum levels classes need to be before + they can use spells and skills, and moved it to class.c. It's now *much* + easier to add new classes--- stupidly, under the old system, every time + you added a new class all of the existing spello() calls had to be + changed! See class.c to see how spell-level setting is done now. + +-- Fixed the bug which popped up in systems such as FreeBSD which incorrectly + reported the number of available file descriptors if the number was + unlimited (RLIM_INFINITY). + +-- Fixed a bug causing crashes if text files (motd/imotd/news/etc) are empty. + +-- FINALLY fixed the dumb bug causing the first char (implementor) to log + in to come in with all stats of 0. + +-- Changed magic.c so the number of affects a spell can have is not + arbitrarily limited to 2. + +-- Immortals can walk past guildguards. + +-- Fixed up some spells (create water works now). + +-- Added 'show houses' for Mr. Christopher Epler. :) + +-- Fixed a small error in one of the comments in boards.c describing how + to add a new board. + Found by Stefan Rensing + +******** Patchlevel 10 *************************************************** + +-- Fixed all the (dumb) definitions of str_app, int_app, etc. -- these + used to be arrays of 36 because a long time ago I stupidly thought those + arrays had to be extended to the number of levels on the MUD. They have + been correctly changed to reflect the possible attribute values of + characters (3-18 for PCs, 3-25 for NPCs and Gods). + +-- Added Michael Buselli's patches for an enhanced "more" pager that lets + you go back, forward, refresh, etc. Nice work, Michael. + +-- Made Circle compile under HP/UX with the help of Ben Denckla (required + an #ifdef for RLIM_INFINITY). Made some other fixes to get_max_descs() + in comm.c as well. I hate this function. + +-- Removed the REUSEPORT setsockopt() call from comm.c when opening the + mother connection. This never made any sense in the first place since + REUSEPORT is a UDP and not a TCP thing, plus it broke Circle under IRIX + 5.3+. + +-- Incorporated David Carver's OS/2 patches. Circle should now compile + under OS/2 more or less out of the box (instructions included). + +-- Added error checking to number() in case its called with the arguments + backwards. + +-- Added the skill_name() function to safely resolve spell numbers to + spell or skill names. Now used to stat potions, staves, etc. + +-- Fixed the but in the usage of is_abbrev in find_skill_num that prevented + spell names from being abbreviated. Reported by numerous people. + +-- Fixed a bug which prevented mag_materials() from working at all (although + it isn't used in standard Circle code, anyway.) + +-- Changed a str_cmp to isname in the FIND_OBJ_EQUIP case of generic_find() + in handler.c for better location of objects. + Sent by one of our best bugfinding teams, Eric Green and Stefan Wasilewski, + KEEP IT UP, GUYS! :-) + +-- Fixed the operation of peaceful rooms so that bash, etc, also don't work. + +-- Fixed a dumb bug where aliases (which use player_specials) were freed + *after* player_specials were freed. Reported by numerous people. + +-- Added values for movement loss for flying and underwater sector types. + +-- Bug fixed in do_set which made the PC/NPC checks not work. + +-- Changed backstab multipliers from a table to a formula to make adding + new levels easier. (Adding new levels is now trivial; you just have to + change the #defines in structs.h for the LVL_xx constants, and then + define the titles and exp required for each level in constants.c). + +-- do_stat_obj (act.wizard.c) updated to reflect building.doc (very old + bugs lurking in here) -- stat display changed to reflect real meanings + of values[0] - values[3] of objects. + +-- do_steal changed to simplify the no-psteal code (psteal simply always + fails on muds where it is not allowed). + +-- You can't wake up someone who's dying. (do_wake) + Patch sent by Lincoln Chan + +-- Message seen when a door opens from the other side fixed. (do_open) + Patch sent by Lincoln Chan + +-- All utilities ported and fixed. + +-- Some changes to Makefile template Makefile.in + +-- Help system completely rewritten to use split help files and an + 'index' file just like the world files; help files are loaded into + memory entirely instead of keeping file positions and an open file. + New copy of help files imported from Chris Epler (cepler@cambot.res.jhu.edu) + +-- Rewrote one_word() in interpreter.c (used to be modify.c) as part of the + help system rewrite. + +-- New world/ hierarchy from Furry (furry@cambot.res.jhu.edu) + +-- New 'messages' file from Furry (furry@cambot.res.jhu.edu) + +-- New 'configure' script which should detect nsl and socket libraries + more reliably. + +-- All scripts rewritten (autorun, automaint, purgeobjs, etc.) to use sh + instead of csh. They've been fixed, too (most of them were broken because + they had not been modified since the location of certain files changed). + Autorun rewrite by Stuart Lamble + +-- New FAQ by Furry (furry@cambot.res.jhu.edu) + + +******** Patchlevel 11 *************************************************** + + +-- Patches to make Circle compile under MSVC++ 4.0 under Windows 95: + Created a 'conf.h.win' to act as Windows' conf.h. Created a new + constant, CIRCLE_WINDOWS, to use for #ifdef's. Changed OS2's constant + from OS2 to CIRCLE_OS2 for consistency. + + Changes to some of the types throughout the code (e.g. changing some + int's to size_t's. + + Changed the type of all sockets from int to socket_t; sysdep.h + typedef's int as being socket_t under UNIX and SOCKET to socket_t + under Windows. + + Changes to some of the code in comm.c (with ifdef's) to account for + some of the differences between WinSock and Berkeley Sockets. + + Wrote a "fake" gettimeofday() function which is an interface to the + Win32 GetTickCount() and a WinSock-compatible nonblock(). + + Renamed 'act.obj.c' to 'act.item.c' to defeat an apparent bug in + MSVC++ that refuses to properly object files that have the word + "obj" in their name (i.e. act.obj.obj). + + Changed the boot-up procedure so that the max player calculation is + done before socket initialization (this is done so that the max can + be reduced from the MAX_PLAYERS value in comm.c if WSAStartup() tells + us we have less than that number of max sockets available. + + Created a CLOSE_SOCKET macro: under UNIX, this is #defined as + close(); under Windows, it's defined as closesocket. + + #defined log(x) as basic_mud_log(x) to prevent namespace collision + with the mathematical log() function. + +-- Various fixes to the 'configure' script: + The '-lsocket' library should hopefully be detected more reliably + (by detecting -lnsl first; some systems need -lnsl before -lsocket + will link successfully). + + The -cckr option is given to the compiler if we are not using gcc and + it is determined that your system's cc can take the -cckr argument. + + -fno-strict-prototypes given if we're using gcc (this should hopefully + alleviate the continuing headache of getting function prototypes to + work). + + Include a prototype for random and srandom if it's determined that + we're using Circle's random/srandom functions and not libc's. + + Check for the presence of arpa/telnet.h, and use our own local copy + (telnet.h is now included with the Circle distribution) if it does + not exist. + + Check for sys/types.h before including it. + + Configure recreated with GNU autoconf v2.9 (previously was 2.7). + +-- Made some fixes to the autorun script: most notably, it was not passing + command-line parameters to the MUD, meaning that you had to change the + port in config.c in order for it to be changed if you were using autorun. + This means that port-number changing now works the way it was documented + (autorun setting takes precedence over config.c). + +-- Made some changes to conf.h.os2 to reflect the new configure script and + the changing of the constant from OS2 to CIRCLE_OS2. + +-- Moved heartbeat functions out of game_loop and into their own function + which is called by game_loop (seems more logical this way to me). + +-- game_loop, comm.c: The code which controls the tick-timing was rewritten; + the timer is now much more accurate (does not drift with time), and + gracefully handles making up for lost ticks if the MUD is suspended for + more than a single tick-length (e.g. if the scheduler keeps it waiting + for a long time under heavy load). Added a 'timeadd' function to add + two timevals for use with the calculations. + +-- Added a timeout to the "What is your name?" prompt; should prevent denial + of service attacks whereby people use up all available descriptors by + repeatedly telnetting into the game and staying idle. (Though I have not + received reports of this happening, I'm sure someone has thought of it.) + +-- Fixed various typos in the code, help files, and libraries. + +-- do_advance, act.wizard.c: Does not allow someone to be advanced to the + level they already are. + +-- invalid_name, ban.c: Changed the buffer size from MAX_NAME_LENGTH to + MAX_INPUT_LENGTH; was causing crashes when very long names were given. + +-- Fixed look_in_obj, act.informative.c, to prevent crashes when looking into + fountains or cups with invalid values. + +-- Changed the semantics of top_of_helpt so that it points to the top element, + not the number of elements, in the help table (done to be consistent with + the other top_of_xxx variables). Fixed do_help in act.informative.c to + prevent crashes if "help zzzzzz" is typed. + +-- Reshuffled the position of alias freeing in free_char yet again (I think + I've finally gotten this one right). + +-- handler.c, affect_from_char(): Changed the list traversal over to the + classic method used when traversing a list and deleting items as we go + (i.e. keeping around a temp variable with hjp->next). (This bug was found + courtesy of Win95's completely unforgiving memory manager.. unlike most + UNIX memory managers, it causes crashes if you try to use memory that + was just freed.... Win95 is almost as good as Electric Fence! :-)) + +-- handler.c, extract_char(): Changed "if (ch->desc != NULL)" to + "if (!freed && ch->desc != NULL)" because ch was potentially freed in the + previous statement. (This bug was also found by Win 95...) + +-- limits.c, point_update(): gain_condition called first rather than last; + causes crashes when gain_condition() is called on a character that has just + bled to death (i.e. killed by point_update()). (This bug was also found + by Win 95...) + +-- Some similar cases of structures being used after they were freed in + shop.c fixed (found by Win95...) + +-- Fixed the pet shops so pets are no longer priced at 0 coins; pet prices + are now 300 coins times the level of the pet. + +-- spell_parser.c, get_skillname(): If the skill is -1, return UNUSED instead + of UNDEFINED (makes stat and scroll of identify output look better). + +-- Added more sanity checks to spell_parser.c (spell_level() and cast_spell()) + to prevent crashes if scrolls are created with wild spell numbers. + +-- spell_parser.c, spello() and unused_spell(): Changed to use a loop + instead of enumerating all classes; should make adding new classes easier. + +-- spells.h: Changed types of mana_{min,max,change} to int to correctly handle + spells which take large mana requirements. + +-- handler.c, generic_find(): Silly bug introduced in pl10 fixed whereby + you can't look in objects if you are equipped. + +-- mail.h: Changed a '1' to a 'sizeof(char)' in the MudMail system (caused + assertion failures on architectures where sizeof(char) != 1) + +-- utils.c, sprinttype(): Cleaned up the code. Looked silly before. + +-- Fixes to autowiz.c: Added an fflush() at the end so that wizlists are + correctly updated. Also removed some old bzero() calls that were still + lurking from the old days (modern SYSV systems don't like bzero() at all.) + Took out the SO_REUSEPORT socket option. + +-- Fixed wld2html.c: The parser code was quite old and could not handle + the 3.0 world files with ASCII bitvectors. wld2html now works correctly. + +-- Changed "++col" to "col++" in Michael Buselli's pager code (patch sent by + him). + +-- Brought in the new world files and 'messages' file from Furry (scrolls + of identify and the 'harm' spell now work) and new help files from + Chris Epler. + +-- Took out the very old bug, typo, and idea files from the standard + distribution. + + +******** Patchlevel 12 *************************************************** + +-- I changed the logic of prompt generation so that prompts are generated + as plain output, the same as all other output (e.g. using send_to_char()), + specifically so that both the regular output and the player's new prompt + can be written to the operating system using a single write() system call. + In many cases, this cuts in half the number of TCP packets generated + and received! This is a big win for slow machines and machines with + slow Internet links (e.g. a modem)! + + +To illustrate this point, I'll show typical TCP exchanges between MUD +clients and servers under pl11 vs. pl12. These exchanges were all +recorded using Van Jacobson's tcpdump tool, which can be downloaded from +ftp.ee.lbl.gov. The window advertisements have been removed from the +output to make it more readable. + +Here's a typical packet exchange between a MUD client and server under +pl11 when a player enters a command (in this case, "look"): + +16:17:35.287187 client.32877 > mudserver.4000: P 41:47(6) ack 2579 +16:17:35.333721 mudserver.4000 > client.32877: . ack 47 +16:17:35.334197 mudserver.4000 > client.32877: P 2579:3132(553) ack 47 +16:17:35.376089 client.32877 > mudserver.4000: . ack 3132 win 8760 (DF) +16:17:35.376162 mudserver.4000 > client.32877: P 3132:3134(2) ack 47 +16:17:35.426039 client.32877 > mudserver.4000: . ack 3134 + +The first packet is the 6-byte command, "look\r\n", sent from client to +server. The second packet is the server's TCP acknowledgement (ACK) of +those 6 bytes. The third packet is the 553-byte output of the command +"look" sent from server to client. The fourth packet is the client's TCP +ACK of those 553 bytes. The fifth and sixth packets are the 2-byte prompt +sent from server to client followed by the client's TCP ACK. + +Note that the second and third packets are often compressed into a single +packet, if the MUD happens to service that player before the server TCP +stack's delayed ACK timer expires. + +This is a much bigger waste of resources than you might expect; keep in +mind that each of these packets usually carry at least 40 bytes worth of +overhead, and IP packet processing is typically takes a lot of CPU time. + +Here's the same exchange under pl12: + +16:20:15.445465 client.32878 > mudserver.4000: P 29:35(6) ack 2016 +16:20:15.492610 mudserver.4000 > client.32878: . ack 35 +16:20:15.504223 mudserver.4000 > client.32878: P 2016:2571(555) ack 35 +16:20:15.549806 client.32878 > mudserver.4000: . ack 2571 + +The same exchange now requires only 4 packets instead of 6. (Or, if we +service the client before the delayed ACK timer expires, we could do it in +3 packets.) Note that the third packet is now both the 553-byte output of +"look" *and* the 2-byte prompt. This causes only a single TCP ACK from +the client, instead of two ACKs as in the previous example. + +Here's a typical round of combat under pl11: + +16:19:02.673794 mudserver.4000 > client.32875: P 4976:5067(91) ack 120 +16:19:02.717357 client.32875 > mudserver.4000: . ack 5067 +16:19:02.717409 mudserver.4000 > client.32875: P 5067:5069(2) ack 120 +16:19:02.767418 client.32875 > mudserver.4000: . ack 5069 + +The first packet is the combat message (e.g., "The beastly fido hits you +very hard.") The second packet is the client's TCP ACK of those bytes. +The third and fourth packets are the 2-byte prompt and its ACK. + +Under pl12: + +16:21:33.572363 mudserver.4000 > client.32876: P 8418:8505(87) ack 131 +16:21:33.620336 client.32876 > mudserver.4000: . ack 8505 + +Each round of combat is reported using only a single TCP packet, which in +turn elicits only a single ACK from the client. The exchange requires +only 2 packets instead of 4. If you have a large MUD, where many players +might simultaneously be in combat, the savings can be very significant. +MUDs with slow links or slow CPUs will probably benefit the most from this +change. + + +-- comm.c, and structs.h, various functions: replaced the "prompt_mode" + variable with the less obfuscated "has_prompt", which has the opposite + meaning. + +-- mobact.c:mobile_activity() - What a terrible bug!! Mob spec-procs + were never called if the mob was fighting or asleep. The mayor would + never wake up, but more importantly, mobs with special specprocs for + fighting (e.g. mobs that use magic during battle) were never getting + called. The check for FIGHTING and !AWAKE has been moved to after + the specproc calls but before the mob default actions. + Found by realm@styx.ph.msstate.edu. + +-- act.offensive.c:do_flee() - Added check to make sure you're at least in + POS_FIGHTING (not injured) to flee; necessary because wimpy calls + do_flee() directly and doesn't go through the interpreter. + +-- spells.c:spell_summon() - Changed so that a MOB_NOSUMMON flag prevents + mobs from being summoned instead of MON_NOCHARM. Found by Daniel + Burke. + +-- magic.c:mag_affects() - Changed the protection against re-affecting + affected mobs to check all possible spell affects instead of only the + first two (an oversight from when mag_affects was changed from 2 + affects to an arbitrary number). Found by Daniel Burke. + +-- shop.c, shop.h: Moved 3 arrays from shop.h to shop.c so that shop.h can be + multiply included if necessary. Suggested by Anil Mahajan. + +-- act.wizard.c:do_advance(): Changed to show the diminishment message to + the victim instead of the imp. Found by glennmc@ccsi.com. + +-- act.wizard.c:do_stat_character(): Added error checking to aff->type + array indexing to prevent crashes. Suggested by Anil Mahajan. + +-- act.offensive.c:check_killer(): Using 'murder' automatically sets your + KILLER flag (if pk is not allowed), even if you miss the first hit. + Suggested by Alex Fletcher . + +-- magic.c:mag_points(): Added update_pos to the end to correctly upgrade + (or downgrade) the position of your victim after healing. Found by + Johan Dustler. + +-- act.wizard.c:do_set(): Broke this monster into two functions, which + makes it easier to read and plugs the 'set file' memory leak. + +-- spells.c:create_water(): Only remove the name from the drink container + if it wasn't previously empty. Prevents permanent keywords from being + removed. Found by Eric Green. + +-- fight.c:group_gain(): Made the max possible exp gain when killing + a player equal to 2/3 the max_exp_loss. This prevents illegal exp + creation on pk muds. Found by Apua Cesar de Miranda Paquola + and Dirani (spharion@dcc.unicamp.br). + +-- fight.c:damage(): Cleaned up code, fixed similar bug to prevent + exp gain by bleeding to death. + + CHANGED: You no longer gain xp when you're damaging yourself. + +-- shop.h; shop.c:trade_with(): Clarified the error message given to + people attempting to sell a worthless item to a shop. Submitted by + Chris Epler . + +-- act.wizard.c, do_dc(): If you try to disconnect a God you can't see, + you are given "No such connection" to hide the presence of the God. + Suggested by Fred Herbert . + +-- act.wizard.c, do_gecho(): Added delete_doubledollar() to prevent + $$'s on gechos. Suggested by Jestyr Saaven . + +-- act.wizard.c, do_show(): Changed 'show godrooms' to traverse the world + print rooms marked GODROOM instead of printing rooms in a particular zone + number. Suggested by Jestyr Saaven . + +-- act.wizard.c, do_stat_room(): Changed to display the zone's vnum, not + rnum. Found by Jay Vanderwood + +-- Tried to use the typedefs mob_rnum, mob_vnum, room_rnum, room_vnum, + obj_rnum and obj_vnum consistently throughout the code. Don't know + if I found them all, but here's hoping... + +-- fight.c:damage() - Added die() after an "attempt to damage a corpse", + so if someone does manage to get into the POS_DEAD state, they'll + die for real. Suggested by root . + +-- ban.c:Read_Invalid_List() - Changed so that names are read with one + pass through the file instead of two. + +-- act.item.c:perform_drop_gold() - Changed hide_invis from FALSE to TRUE + on act() so room observers cannot see invis people dropping gold; changed + to be consistent with item dropping which already works this way. + Suggested by Chris Epler + +-- fight.c:damage() - Changed handling of AFF_SANCTUARY so that damage + is only cut in half if it is 2 or more (i.e. to prevent 1 from turning + into 0). Indirectly suggested by dodger@WPI.EDU (DoDGeR) who reported: + "If you bash a sanct'ed mob, you always see the failure message because + the sanct turns the damage from 1 to 0 and that tells skill_message to + print the miss message." + +-- autorun.pl: Made part of the standard distribution (Perl version of + autorun), by D. Hall of Vi'Rage Studios + +-- Updated FAQ and PORTING documents + +-- Made many changes to configure.in and regenerated 'configure' script + with most recent version of autoconf (2.12). configure now checks + which libc functions and system calls are correctly prototyped, and + only prototypes those functions that aren't. Also, it doesn't include + the malloc, nsl, socket, and crypt libraries unless those functions + are missing from libc. This solves problems that autoconf was having + with IRIX, where it would use lsocket and lnsl, unnecessarily generating + linker warnings when those libraries would shadow libc functions. On + the other hand, this will cause a problem on OS's where a dummy + crypt() is shadowed by a real crypt in libcrypt. Future releases may + check crypt() to see if it actually works. + +-- constants.c: changed experience and title tables to be functions + returning values instead of arrays, to avoid crashes when newbie imps + try to add levels by changing the LVL_xx constants without extending + the arrays appropriately. SYSERR message is generated to indicate + incorrectly set up xp tables. + +-- comm.c, various functions - Made some changes to make porting to other + platforms easier; introduced the CIRCLE_UNIX constant. + +-- db.c, various functions: tried to make the parser a bit better at + reporting error messages (and not crashing.. ugh.) + +-- Various files: replaced ">> 2" with "/ 4". I can be a real idiot + sometimes. + +-- Added preliminary Amiga support with the help of Jack Patton and + Steffen Haeuser. + +-- act.wizard.c:do_dc() and structs.h:descriptor_data -- Added a + "close_me" flag to descriptor_data that dc uses to indicate a descriptor + should be killed off; just having dc() call close_socket() crashes if + you're disconnecting the person below you in the descriptor list. + +-- The script I use to pack up Circle into a tar and zip file was changed + to add token files to all empty directories to work around buggy unzip + programs that don't bother creating empty directories. + +-- act.other.c:do_display(): Now complains about unknown arguments. + +-- act.wizard.c:do_shutdown(); db.h: Added the constants FASTBOOT_FILE, + KILLSCRIPT_FILE, and PAUSE_FILE to the header file, and used them + instead of the literals in the code. + +-- olc.c:do_olc(): Fixed the warning given by gcc. Just FYI, (for whoever + "Y"ou are), I left that warning in on purpose, sort of as a subtle + reminder that OLC is not done. However I finally decided to change it + after the 10,000th "bug report". + +-- Gave the utilities their own Makefile (Makefile.in, actually; Makefile + is generated by configure) + +******** Patchlevel 13 *************************************************** + +11/4/97 + +-- gg - magic.c: mag_summons(): Fixed animate dead and clone. + spell_parser.c:mag_assign_spells(): Added animate dead. + utils.h:IS_CORPSE(): Defined. + +-- gg - spec_assign.c:ASSIGNMOB(): Changed the redundant real_mobile() call. + +-- gg - mail.c:write_to_file(): Fixed problem where mail file would be left + open if the filepos was not a multiple of BLOCK_SIZE. + +-- gg - castle.c:assign_kings_castle(): Fixed a memory problem where we + would be writing to mob_index[-1].func if a mobile did not exist. + This is most noticeable in mini-mud mode. + +-- gg - utils.h:CAN_SEE_OBJ(): Fixed loophole where lower immortals can + 'stat' items of invisible immortals and see their name if they are + online. This also follows the line of thinking that if you can't + see the person, you can't see the objects they have either. Also + fixes doing a 'where' on objects to see if a 'someone' shows up + to detect higher level invisible immortals. Reported on the + CircleMUD mailing list. + +-- gg - interpreter.c:one_argument(): Can now handle a NULL pointer. + +-- gg - handler.c:obj_to_char()/obj_from_char(): Do not set the PLR_CRASH + flag on mobiles or they are flagged MOB_STAYZONE when given objects. + Reported on the CircleMUD mailing list. + +-- gg - mudpasswd.c/showplay.c/purgeplay.c: Abort if the pfile is a different + size than we expect, as per the main mud code. + +-- gg - act.comm.c:is_tell_ok(): Added. + act.comm.c:ACMD(do_reply)/ACMD(do_tell): Modified to use is_tell_ok() + to prevent replies while writing or to PRF_NOTELL people. + +-- gg - graph.c:ACMD(do_track): Don't bother to find_first_step() if the + player failed their track skill anyway. This avoids removing the + ROOM_BFS mark from every room and searching for the victim even if + they will not be successful later. + +-- gg - utils.c:get_line(): Set the buffer to NULL if there wasn't anything + read in. Fixes a problem reported by Andrew Helm . + +-- gg - mail.c: Changed 'return 0;' to 'return NULL;' where appropriate. + mail.c: Changed 'no_mail = 1;' to 'no_mail = TRUE;'. + +-- gg - act.movement.c:ACMD(do_move): Allow changing the position of the + movement commands. Only do this if you do not use the guildguard + special procedure or anything else with IS_MOVE() because they + will break, badly. + +-- gg - interpreter.h:IS_MOVE: Had hard coded directions, fixed. + This is still broken with regard to moving the directions around. + +-- gg - everything: Replace IS_SET macro with appropriate xxx_FLAGGED ones. + Also introduced OBJVAL/OBJWEAR/EXIT _FLAGGED macros. + +-- gg - utils.c:log()/mudlog(): Removed day of week as it is unnecessary. + +-- gg - spec_procs.c/limits.c: Changed to use IS_CORPSE(). + +-- gg - act.item.c:perform_remove(): Can no longer remove cursed equipment. + +-- gg - comm.c:main(): Initialize dummy_mob to all 0's just in case... + +11/5/97 + +-- gg - everything: Now has a customizable logging file for people using + Windows 95. The default is still to standard error, see config.c + to change it to a file. + +-- gg - config.c/limits.c: New variables, idle_time_rent, idle_max_level, + and idle_void for customizable timeout renting. Suggested by + Rasdan . + +-- gg - everything: Seek and destroy mission for << and >> where it should + logically be * and / (ie: Not doing bitvector work). + +-- gg - handler.c:affect_modify(): A suggestion for class and level added. + +-- gg - everything: Made language C++ friendly. Also adjusted 'const' + keywords in constants.c for correct linking. + +-- gg - interpreter.c: Removed old 'extern ... titles[]'. + +-- gg - class.c/magic.c:saving_throws[][][]: Moved to class.c. + +11/14/97 + +-- gg - Changed all \n\r to \r\n to abide by the telnet specification. + (Original patch by John Evans.) + +11/16/97 + +-- gg - comm.c: touch() and remove() KILLSCRIPT_FILE to prevent the + problem with many CircleMUD instances trying to run over and + over and over and over... + +11/18/96 + +-- gg - Merged in preliminary Macintosh support by Dean Takemori + (dean@uhheph.phys.hawaii.edu) + +-- gg - comm.c: A large number of the system dependent includes are + already accessible via HAVE_blah_blah defines in sysdep.h so + I have commented them out for possible removal later to make + things look much less complicated. If things break due to + this, fix the conf.h file for that OS. + +-- gg - comm.c: set_sndbuf(): Fixed undefined reference problem by + moving the #if...#endif inside the function which will + reduce to 'return 0;' if we don't need the function. + +-- gg - comm.c: process_output()/write_to_descriptor(): These + functions are really ugly. Is there a EAGAIN in Macintosh? + If not, we could #define EAGAIN to EDEADLK for Macintosh and + use the existing Unix code... + +-- gg - Forgot to include the ! history patch but I updated the + TODO list a few days ago anyway...duh. + +-- gg - class.c: Saving throws are now a function just like experience. + +-- gg - class.c: Thaco chart is now a function also. + +11/19/97 + +-- gg - interpreter.h: IS_MOVE(): Fixed, moving directions should now + theoretically be safe although not tested in practice. + +11/21/97 + +-- gg - Changed all those d->connected to STATE(d). Also removed the value + dependent hack of !d->connected in favor of STATE(d) == CON_PLAYING. + +12/18/97 + +-- gg - Changed mudlog() to simply use log() when writing to the log file. + +-- gg - Makefile: Removed /home/jelson/cxref/ from cxref path. Might I + recommend 'make cxref' simply create the listing and then a separate + 'make cxref-install' for updating the Documentation Project page? + This would be of more use to other people. :) + +-- gg - Replaced d->close_me hack with CON_DISCONNECT. + +12/27/97 + +-- gg - Merged in Borland compiler changes. + spells.c: Removed non-existent cha_app_type extern. + +-- gg - sysdep.h: New #define SLASH for directory separator. Will cause + awful looking paths ("lib"SLASH"etc"SLASH"players") but needed for + Macintoshes which use a : instead. + +-- gg - Fixed 'return; break;' pairs pointed out by kingmundi@hotmail.com + +-- gg - class.c:find_class_bitvector: Fixed a bug where the number constants + for magic user, warrior, cleric, and thief could be rearranged causing + the who/users class listing to be wrong. + +12/29/97 + +-- gg - db.c:clear_object: worn_on initialized to -1 by suggestion of + Daniel W. Burke . + +12/30/97 + +-- gg - constants.c and elsewhere: Formerly constant structures changed in + C++ modifications are now back to constant with a 'cpp_extern' + keyword which is 'extern' in C++ and '' in C. (It gives warnings.) + +-- gg - objsave.c: Fixed two implicit void * conversions to gen_receptionist. + +-- gg - comm.c: new_descriptor: 'i' changed to 'unsigned int' because of + signed warnings. + +-- gg - act.item.c: do_wear: Initialized 'where' to -1 to avoid spurious + warnings from g++. + +-- gg - mail.c: postmaster: Casted 'me' variable to avoid implicit + conversion from a void * which g++ gripes about. + +12/31/97 + +-- gg - utils.c: core_dump_unix: Function to dump a core file on UNIX platforms + but continue to run the MUD. Basic idea from Erwin S. Andreasen. + +1/4/98 + +-- gg - utils.h: GET_ROOM_VNUM: New macro to retrieve the vnum of a player + without worrying about accessing world[-1].number or messy ?: code. + We should do this for the rest of the room_data variables. + +-- gg - Added variable argument log() function and fixed up quite a few + log statements to take advantage of the new flexibility. + +-- gg - db.c mostly: Since we have a variable argument log() function now, all + those fprintf's can go away. + +-- gg - structs.h: Added new #define for CircleMUD version to make it easier + for add-on packages to be used with a variety of CircleMUD patchlevels. + +-- gg - Added lots of 'extern int top_of_world;' around to compensate for + GET_ROOM_VNUM macro doing bounds checking. + +-- gg - utils.c: number: Added message if someone uses it wrong. + +-- gg - comm.c: process_input: Fixed a minor annoyance in that using '! x' + didn't make that your new default '!' command. + +-- gg - Fixed some 'exit(0);' statements which should be 'exit(1);' + +1/5/98 + +-- gg - utils.c: Forgot to __attribute__ basic_mud_log() for type-checking. + +-- gg - sysdep.h: #ifdef for __GNUC__ to eliminate __attribute__ for those + not using gcc. + +-- gg - sysdep.h: Oops, forgot to put an argument for __attribute__... + +1/13/98 + +-- gg - structs.h: I misspelled CIRCLEMUD_VERSION...duh. + +-- gg - db.c/utils.h: Removed dummy_mob, saving 324 bytes (at least on i586). + NOTE: This will cause all sorts of evil things to happen because the + existing code assumes ch->player_specials exists. It is the most + effective method of getting rid of the mob hack though. + +-- gg - utils.h: Could have sworn I already changed IS_AFFECTED->AFF_FLAGGED... + +-- gg - limits.c: Inconsistent mob regeneration changed to take poison into + account for all cases (h/m/v). + +-- gg - limits.c/act.item.c: Mobs can no longer use GET_COND() so drink, + eat, and regeneration now avoid them. This is actually better. + +-- gg - utils.h: CAN_SEE macro fixed to not use GET_INVIS_LEVEL on mobs. + +1/14/98 + +-- gg - Fixed a bunch of warnings GCC 2.8.0 now emits with -Wall. Those + include ambiguous 'else' statements (ones that should have { or } + to distinguish) and when main() doesn't return 'int.' + +1/16/98 + +-- gg - interpreter.c/ban.c: nanny()/Valid_Name(): Fixed the long-standing + Diku bug where you could create two characters with the same name by + proceeding one step at a time in two different sessions. + +1/20/98 + +-- gg - Changed 'restrict' to 'circle_restrict' to fix some problem with + it being a reserved word for people. (No problems here...) + +-- gg - testing/: Created for projects of interest to future stock CircleMUDs + which will eventually be included and may be of interest to others. + Current project will be semaphore locking... + +1/25/98 - Denver beat Green Bay, 13-year football conference reign is over. + +-- gg - act.wizard.c: do_stat: Chris Jacobson decided that + the / and % in '/ 3600) % 60' were reversed. + +-- gg - spells.c: spell_locate_object(): Added a note that the keyword + handling is broken. Unfortunately the only way to fix it would + be to enable the passing of strings around the spell parser. + Spotted by: BOGWALDL@MALA.BC.CA. + +-- gg - Might as well document this so we can call this a feature. If you + are using a FreeBSD machine and you are using MD5 passwords then + any character with a name longer than 5 letters can log in with any + password. The solution is to either turn off MD5 passwords or + increase MAX_PWD_LENGTH to 20 (and wipe your pfile in the process). + +-- gg - act.wizard.c: do_stat(): Last logon not correctly displayed. + Noticed by Angus Mezick + +-- gg - spec_procs.c: magic_user(): Andrey Fidrya + noticed that the special procedure may target people not in the + same room. + +1/26/98 + +-- gg - structs.h: Changed CIRCLEMUD_VERSION to hex to let us (possibly) + do bitvector work on it later. + +-- gg - handler.c: unequip_char(): Log message should be 'NOWHERE when + UNequipping char', previously missing the 'UN'. Reported by + Akuma/Chris Baggett/DOOMer . + +1/28/98 + +-- gg - db.c: clear_char(): ch->nr was not being initialized but many checks + are based on mobs being 'nr > -1'. This check included PC + characters where the 'nr' was left 0. + +-- gg - comm.c: main()/sanity_check()/heartbeat(): Added function to check + every 30 seconds that a magic number planted during main() is still + at the end of the buffers buf, buf1, buf2, arg. Also has an + optional statistics toggle in the function. + +-- gg - utils.h: Should make the time related #define's configurable, at + the current time, changing those constants doesn't change the + functions that read them. (act.informative.c and utils.c) + +1/30/98 + +-- gg - structs.h: Fixed 'internel' typo. + +2/8/98 + +-- gg - comm.c:1068: warning: passing `unsigned int *' as argument 3 of + `accept(int, sockaddr *, int *)' changes signedness. This is + annoying, Linux has it unsigned, Solaris has it signed. + +-- gg - db.h: Decided the 'SLASH' idea was ugly. Now we have LIB_MISC + ("misc/"), LIB_ETC ("etc/"), and family. Note that I have only + tested this on Unix...Macintosh should work but Amiga I need + some help with. + +-- gg - utils.c: get_filename(): Removed redundant 'break;' + Needs 'db.h' now. + +2/19/98 + +-- gg - db.c: index_boot(): Fixed a bug with not closing a file. + +2/20/98 + +-- gg - mobact.c: remember(): Took John Evans' suggestion to change + the level check into a PRF_NOHASSLE check. It would be good + to identify other places this should be changed. + +-- gg - act.wizard.c/act.informative.c/spells.c/house.c/objsave.c/spec_procs.c + Fixed hopefully all of the 'sprintf(buf, "%s...", buf, ...);' + constructs that the Borland C++ compiler does not like. + +-- gg - act.comm.c: perform_tell(): We cannot get the id number of a mob + any longer so don't save it for the last tell pointer. + +-- gg - comm.c: game_loop(): d->wait no longer keeps going negative forever. + +2/24/98 + +-- gg - Fixed a bug whereby prompts and aliases crashed while switched. + +-- gg - comm.c: main(): Print the version in the boot logs. + +-- gg - utils.h: PLR_FLAGS() and MOB_FLAGS() changed to check for the correct + user. (ie: PC using PLR_FLAGS and NPC's using MOB_FLAGS). + db.c: Changed to use REAL_MOB_FLAGS() because we'll get spurious + warnings before the IS_NPC bit is actually loaded. + +-- gg - act.comm.c: do_reply(): Mobs cannot use GET_IDNUM(). + +2/25/98 + +-- gg - act.other.c: do_wimpy(): Mobs cannot use 'wimp_level' variable. + +-- gg - db.c: 'dummy_mob' reinstated, now with a compile time toggle. + +-- gg - utils.h: Removed IS_NPC checks from xxx_FLAGGED as they are done + by xxx_FLAGS now. + +2/27/98 + +-- gg - utils.h: We now check for (and gripe about) player specials. + db.c: dummy_mob now mandatory again, no crashes, and they get fixed. + db.c: Fixed SET_SKILL ; + screen.h: Mobs do not use color. + utils.h: CAN_SEE: Was using PRF_FLAGGED on mobiles. + +-- gg - spell_parser.c: Cris Jacobin pointed out + I forgot to add TAR_OBJ_EQUIP to 'remove curse'. + +-- gg - act.comm.c: do_say(): Mobs don't use PRF_FLAGGED. + +-- gg - act.wizard.c: do_purge(): Should use CON_CLOSE since there will not + be a player in the game at the time. + +-- gg - Makefile.in: utils.c should depend on db.h (LIB_TEXT, LIB_WORLD, etc + in get_filename) + +-- gg - db.h: LIB_OBJS changed to SUF_OBJS for 'suffix' since that is what it + is used as. Also created SUF_TEXT for E-Text system. + +2/28/98 + +-- gg - act.wizard.c: do_purge(): Need to NULL the character also. + +3/1/98 + +-- gg - limits.c: check_idling(): When we do an extract_char(), we have to + NULL out the descriptor's character pointer to prevent lossage later + in close_socket(). We could NULL in free_char() though... + +-- gg - objsave.c: Crash_listrent(): Rob Baumstark + reported that large rent files can crash the MUD with a buffer + overflow. + +-- gg - objsave.c: Crash_load(): Now counts objects in file for logging. + +-- gg - act.other.c: do_save(): Explicit 'save' commands by PC's are + disabled if 'auto_save' is set to YES. This prevents item duplication + via coordinated saves and system crashes. + +3/2/98 + +-- gg - act.informative.c: look_at_room(): Removed (long) cast. + +-- gg - utils.h: GET_ROOM_VNUM(): Changed to use real number instead of + character pointer and used throughout the code. Facilitated many + ch->in_room => IN_ROOM(ch) changes. + +-- gg - act.movement.c: Needs 'top_of_world' extern now. + +3/3/98 + +-- gg - utils.c/elsewhere: core_dump(): Extended to be used instead of + assert(). Now we'll get core dumps and continue running on Unix + or log a message and (optionally) continue running elsewhere also. + Many 'assert()' statements changed to if...core_dump() tests. + +3/4/98 + +-- gg - comm.c: make_prompt()/process_output(): Mobs were using PRF_FLAGGED. + act.informative.c: look_at_room()/do_score(): Ditto. + +-- gg - graph.c: do_track(): Mobs cannot use 'track' command. If you want + them to track things, use 'hunt_victim()'. + +-- gg - modify.c: string_add(): Tilde killing made compile time option + since I just realized nothing in stock CircleMUD cares. :) + Feel free to substitute your own method. (such as hide/show_tilde()) + +-- gg - mail.c: General hacking and lots of new comments. + +-- gg - shop.c: boot_the_shops(): Remove (byte) cast as it was reported to + cause problems/crashes. + +-- gg - act.comm.c: is_tell_ok(): Was using PRF_FLAGGED on mobs. + perform_tell(): Ditto. + +3/14/98 + +-- gg - act.offensive.c: do_rescue(): Added a \r\n to the 'only true warriors' + message as pointed out by Daniel Koepke + +3/16/98 + +-- gg - act.comm.c: perform_tell(): Also don't update ID number when a mob tells + you something. + +-- gg - db.c: Thought I already added that fclose(index); .... + +3/20/98 + +-- gg - limits.c: check_idling(): Doh, ch->desc->character = NULL was in + the wrong spot. :) + +-- gg - Used IS_[class] macros throughout. Nitpicked by Edward Glamkowski. + +-- gg - act.movement.c/graph.c: Check for fighting before and in perform_move(). + Suggested by Angus Mezick. + +-- gg - Removed 'extern' statements for non-existent variables. Pointed out + by Chris Powell. + +-- gg - act.informative.c: do_toggle(): Added a \r\n to end of string as + suggested by Joachim Pileborg. + +-- gg - modify.c: show_string(): Use any_one_arg() instead of one_argument + since we're looking for one letter and don't want to ignore fill + words if they happen to type it. Suggested by Andrey Fidrya. + +-- gg - objsave.c: Two places didn't check for bank gold but everywhere else + does. Pointed out by Andrey Fidrya. + +-- gg - act.movement.c: do_simple_move(): Mike Schlagenhauf pointed out + that gods and mortals can walk into godrooms. (>= GRGOD rooms) + +3/30/98 + +-- gg - shop.c: ok_damage_shopkeeper(): Julian Fong reported that we could + potentially reference [-1] if we have a non-prototyped mobile. + +-- gg - Removed redundant declarations from everything. + +-- gg - Removed all the nested 'extern' declarations. + +4/5/98 + +-- gg - structs.h/utils.h: CIRCLEMUD_VERSION changed to really be hex + and now has a helper macro VERSION(). + +5/13/98 + +-- gg - utils.h: Chris Powell correctly pointed out over a month ago + that CAN_SEE_OBJ_CARRIER should use 'sub' and not 'ch'. + +5/27/98 + +-- gg - act.wizard.c: do_set(): Added 'age' to "set." + +******** Patchlevel 13a *************************************************** + +6/4/98 + +-- gg - shop.c: Extraneous log() statement was missed during sprintf()+log() + conversions. + +-- gg - comm.c: reap(): Added to take care of fork() with core_dump_unix(). + +-- gg - utils.h: CHECK_PLAYER_SPECIAL(): Allow it to be toggled off. + +******** Patchlevel 14 *************************************************** + +6/5/98 + +-- gg - graph.c: do_track(): Might get into infinite loop if in room with + no exits and skill check failed. Fixed to try 10 times. + +-- gg - comm.c: Handle the delete key in addition to backspace. Mailed in + by David A. Goldstein. + +-- gg - comm.c: In function `act': + comm.c:1892: warning: declaration of `sleep' shadows global declaration + +6/6/98 + +-- gg - spec_procs.c, act.comm.c, just about everything: + Evaluated 'static' variables and added some 'const.' + +6/13/98 (Saturday) + +-- gg - Added Acorn RiscOS support from Gareth Duncan + (garethduncan@argonet.co.uk). + +-- gg - utils.c: mudlog(): Matched prototype and function. The change was + due to compiler warnings. + +-- gg - sysdep.h: Removed SLASH from here as it's in db.h already. + +-- gg - Makefile.in: Added a LIBS variable for command-line override. + +-- gg - Added prototypes for every function. + +-- gg - castle.c: Worked around three warnings when using g++. + +-- gg - db.c: store_to_char(): "When you 'reply' after entering the game + before anyone tells to you, the reply results in telling to a mob." + Found by Eric Green and Stefan Wasilewski. + +-- gg - class.c: init_spell_levels(): 'Poison' spell wasn't assigned. + Found by Chris Epler + +-- gg - act.item.c: perform_give_gold(): Fixed the pluralization. + Found by Alex <3raf7@qlink.queensu.ca> + +-- gg - Eric Green suggested some buffers needed to + be larger to handle the possible inputs. + +-- gg - ban.c/house.c: Cleaned up non-existent file messages. + +6/15/98 + +-- gg - act.informative.c: perform_immortal_where(): Patched to prevent + players from doing a 'where' to see the title of a dark room. + +6/16/98 + +-- gg - act.offensive.c: do_bash(): Eric Green (ejg3@cornell.edu) pointed + out that we could bash someone not in the room and that a failed + bash still makes the person sit. + +-- gg - structs.h: Added a notice for FreeBSD users with MD5 passwords. + Jeremy's autoconf test for the bug will be better, of course. + +-- gg - constants.c: color_liquid[]: Added a \n for sprinttype. + +-- gg - act.other.c: do_save(): Cleaned up comments and now gives message + if auto_save is enabled. + +-- gg - handler.c: char_to_room(): Fixed a long standing bug that people + are still considered fighting until the next violence pulse when + they leave the room. Most visible when trying to goto and walk. + +-- gg - fight.c: damage(): Clay Hardin (clay@accessus.net) reported that + some people can autoflee with negative hit points. Fixed. + +-- gg - act.wizard.c: do_set(): Fixed to not attempt char_from_room() + on player in NOWHERE on advice of Eric Green. + +-- gg - comm.c: close_socket(): Fix a memory leak if a person writing a + note is disconnected, also by Eric Green. + +-- gg - mail.c: read_delete(): Fixed to not cause a crash on dumb sprintf()'s + that crash on a NULL pointer. From: Krautz Thomas + + +-- gg - magic.c: mag_unaffects(): Don't output 'no effect' message when + casting heal due to blindness unaffect. + spell_parser.c: mag_assign_spells(): Heal isn't an affect spell. + +-- gg - comm.c: Borland and Microsoft use different headers. (Joy!) + +-- gg - class.c: Added support for 'siteok_everyone' flag. + config.c: Added 'siteok_everyone' flag, see config.c for explanation. + +-- gg - act.wizard.c: do_stat_object(): Comment on basis of invisibility. + interpreter.c: perform_dupe_check(): Comment on things to do. + utils.h: CAN_SEE_OBJ_CARRIER(): Close up final loophole. + +-- gg - spec_procs.c: Remove unused 'struct social_type' + +-- gg - interpreter.c: nanny(): Fixed final loophole in player duplication. + +-- gg - act.offensive.c: do_flee(): Here's a great bug, no one _ever_ lost + experience for fleeing because they stopped fighting before the + check to see if they were fighting... + +-- gg - act.offensive.c: Remove restriction of CLASS_WARRIOR from skills. + Now depends only on if they have the skill or not. + +-- gg - act.offensive.c: do_assist(): Hit the enemy the person you're + helping is, not the first person in the list. + +-- gg - act.movement.c: find_door(): Fixed a hard-coded "close" in message. + +-- gg - act.offensive.c: do_bash(): Fixed the 'bash-in-peaceful-room' bug. + act.other.c: do_steal(): Similiar bug here. + +-- gg - act.item.c: find_eq_pos(): \n added to prevent explicit wearing + on reserved spots. + +-- gg - Enabled the 'teleport' spell. + +-- gg - spell_parser.c: mag_assign_spells(): 'clone' is self-only. + The flags were previously contradictory. + +-- gg - utils.h: GET_MOB_SPEC(): Fixed the () order. + +-- gg - Removed unreachable code in various files. + +6/18/98 + +-- gg - Check out the bug archive. http://bugs.circlemud.org + +-- gg - Fixed up all of the 'aggregate return' warnings. + +-- gg - modify.c: show_string(): Anil Mahajan + spotted a potential (but unlikely) buffer overflow. + +6/20/98 + +-- gg - boards.c: Cleaned up malloc() calls into CREATE(). Created a + sort ordering define, defaulting to the historic order. Fixed + bug #19 from Julian Fong. + utils.c: core_dump(): Assorted cleanups, combining core_dump_unix() + and core_dump_other() into one function. + sysdep.h: Updated systems for core_dump_() cleanup. + utils.h: Updated core_dump() prototypes. + +6/21/98 + +-- gg - boards.c: Fixed printing. Created House_list_guests() since + code was duplicated in two places. + +-- gg - act.offensive.c: do_kick(): Same check to make sure the person is + still in the room as do_bash now has. + +-- gg - Fixed even more sprintf(buf, "%s ...", buf, ...) constructs. + +-- gg - damage() changed to return an integer so we know if the target was + hit, if they died, or how hard they were actually hit. + +-- gg - boards.c: Board_display_msg(): Fixed 'read 2.mail' bug when in + front of a board. + +-- gg - boards.c: Revamped code to pass around the board's obj_data pointer. + Now allows boards to be referred to as other things. Suggested by + Andrew Hynek Also made 'truncate to 80' comment + fit the code. (0-79 = 80, so 80 should be NUL, not 81.) + +-- gg - db.c: boot_db(): House loading moved to before zone reset so the + object limits work correctly. + +-- gg - act.wizard.c: do_show() extended to use page_string(). + +-- gg - cnf/configure.in: Added 'less' and 'most' to pager search. + A brief 'autoconf tutorial' pointer would be appreciated. + +-- gg - db.c: Fixed the '2 aliases per help record' bug. See the file + for credit information. Also added an 'informative' log about + the number and size of data structures created sans strings. I + do note that the numbers don't agree with the 'show stats.' + Perhaps a deeper investigation is in order... + +-- gg - config.c/act.wizard.c: New variable 'load_into_inventory'. + You should be able to guess what it does. + +======= +6/29/98 + +-- JE - README.*, doc/README.*: Documentation updated. README file + was cleaned up; compilation instructions for all platforms were + moved into a README.XXX file in the doc directory. The old + README.WIN, which actually had instructions for MSVC, was renamed + README.MSVC. README.GNU-WIN32 was added from David Goldstein. + README.WIN now simply directs people to look into one of those + files. README.MAC is still missing. + +-- JE - ChangeLog: Fixed a small error in an earlier ChangeLog + entry that described pl12 improvements in networking code. + +-- JE - src/[mM]akefile.bcc - Changed name from makefile.bcc to + Makefile.bcc to match the other Makefiles. + +-- JE - cnf/configure.in - Changed to add -Wno-char-subscripts to the + gcc command-line if we're using gcc and gcc recognizes the option. + The newer GCCs complain about the standard library's islower(), + isupper(), etc., on some machines, such as Solaris. + +-- JE - src/comm.c, cnf/configure.in, src/sysdep.h - Changed autoconf to + detect whether we have inet_aton and/or inet_addr; added prototypes + for those functions in sysdep.h if we have the functions and they're + not prototyped; and added support in comm.c to bind to a specific + IP address (instead of all IP addresses) on a multihomed host. + +-- JE - src/db.c: Improved parsing of database files and added more + meaningful error reporting in some places. + +-- JE - cnf/configure.in, src/comm.c, src/sysdep.h: Added arpa/inet.h to the + list of header files we check for and include. + +-- JE - src/comm.c: Removed "#ifdef SO_SNDBUF" where it wasn't needed. + +-- JE - cnf/configure.in: Fixed a longstanding bug in the -cckr detection, + and a similar bug in the recently added -Wno-char-subscripts + detection; the flags would not be set correctly if configure + was ever rerun (i.e., if values were read from the cache). + +6/30/98 + +-- JE - cnf/configure.in, configure: We now only use -Wno-char-subscripts + if we are using gcc, we get warnings without it, and gcc accepts it. + Bug #73 in bug database. + +-- JE - src/comm.c: Fixed a bug in IP address binding - we need to clear + the sockaddr_in structure with memset() before using it. + +-- JE - src/comm.c, src/sysdep.h, cnf/configure.in, configure: Changed + the code in comm.c to use inet_ntoa() for changing numeric IP + addresses into ASCII instead of printing it manually using + shifts and sprintf(). Changed autoconf scripts to detect + whether or not inet_ntoa() needs to be prototyped. + +-- gg - comm.c: write_to_descriptor(): Cleaned up various platform support. + comm.c: Removed headers commented out in bpl13. + comm.c: process_input(): General platform cleanup. + +-- gg - comm.c: write_to_descriptor(): Jeremy made something up for this + also which I like better. I've tweaked my previous process_input() + changes to fit the same idea, but they were pretty close already. + +-- JE - cnf/configure.in - Removed the -cckr check from configure because + it seems to break compilation on IRIX's cc (bundled) compiler, + which is what it was put in to fix many years ago. + +-- JE - src/comm.c - Broke up write_to_descriptor() into two functions + so that platform-dependent pieces would be isolated. + +7/1/98 + +-- JE - src/comm.c - Further bug fixes in socket handling code. + +-- JE - src/conf.h.*, src/Makefile.win, src/sysdep.h, src/comm.c, + doc/README.MSVC -- I updated Win 95/NT compatibility. The idea + now is that *all* Windows-based compilers (MSVC, Borland, and + Watcom) should share the same conf.h.win, but they each have their + own Makefile. The CIRCLE_MSVC and CIRCLE_BORLAND constants were + removed in favor of a single CIRCLE_WINDOWS constant; we use + Borland's builtin __BORLANDC__ to detect Borland compilation. + Makefile.win was renamed Makefile.msvc to differentiate it from + Makefile.bcc. README.MSVC updated appropriately. + +-- JE - src/comm.c: Changed perform_socket_read and perform_socket_write + to use ssize_t and size_t again, as George originally suggested. + +-- JE - doc/README.*: More changes to documentation for Windows users. + +7/2/98 + +-- ae - FAQ: updated the FAQ version distributed with CircleMUD. + +-- ae - lib/world/obj/15.obj: Corrected some flags and some edescs. + +-- gg - comm.c: main(): Now use fdopen() instead of explicit assignment + of 'stderr' to 'logfile'. This should work fine elsewhere because: + "The fdopen function conforms to IEEE Std1003.1-1988 (``POSIX.1'')." + +-- gg - comm.c: getrusage(): Use RUSAGE_SELF instead of 0. Suggested by + Christian Loth + +3 July 1998 + +-- JE - src/comm.c, src/sysdep.h: We only prototype the getrlimit()/ + setrlimit() functions if we appear to have those functions + available. Fixes half of Bug #79. + +-- JE - src/comm.c, src/sysdep.h: Changed logfile opening to use the + POSIX-defined STDERR_FILENO instead of a magic number (2). + Changed sysdep.h to use the magic number if the POSIX def'n + is missing for some reason. + +-- JE - Released patchlevel 14. + +******** Patchlevel 15 *************************************************** + +7/3/98 + +-- gg - constants.c: Incremented string version number. + structs.h: Incremented #define version number. + +-- gg - Patch for arbitrary bitvector size changes from Christian Loth + included. (bitvector_t) + +-- gg - structs.h: Sector flying and underwater reversed to match constants.c + +7/5/98 + +-- gg - comm.c: new_descriptor(): Yep, 'i' should be signed. + +7/29/98 + +-- gg - Replaced 'return x;' with 'return (x);' to be consistent. + Patch by Trevor Man . Reverse of what + I had hoped, but ah well. :) + +8/6/98 + +-- gg - act.item.c: search_block triggers on \n, use \r instead. + +8/24/98 + +-- gg - sysdep.h/Makefile.lcc/conf.h.lcc: LCC compiler support added by + Eric Jones . I'll see if there is a + __BORLANDC__-like constant we can use to get rid of conf.h.lcc... + +-- gg - comm.c: "d. hall" sent a patch to change timeadd() + and timediff() to not use static variables like we wanted before. + +-- gg - util/shopconv.c: Given a dummy basic_mud_log() to take care of + undefined reference since some macros use it now. + +-- gg - act.other.c: do_steal(): Yaroslav Berezovsky aka Morgion//RMUD found + a bug where the victim had to be able to see an object for the thief + to steal it... + +8/25/98 + +-- gg - AutoEQ from Burkhard Knopf + comm.c: init_game(): Save everyone before exiting. + handler.c: invalid_align(): New function. + handler.c: equip_char(): Use invalid_align(). + handler.c: invalid_align(): prototype. + interpreter.c: nanny(): Place character in room before equipping. + objsave.c: Obj_to_store()/Obj_from_store()/Crash_save(): Modified + to include location arguments. + objsave.c: auto_equip(): New function, sanity checks eq positions. + objsave.c: Crash_listrent(): Also show rent locations. + objsave.c: Crash_load(): Huge block of code to handle equipping. + objsave.c: Crash_extract_norents_from_equipped(): New function. + structs.h: obj_file_elem: 'location' added. (Sort of, it's pending + approval.) + +-- gg - act.comm.c: do_gen_comm(): Use AWAKE() macro. From + Richard Glover + +-- gg - act.item.c: Curse containers if you put a cursed object in them. + +-- gg - comm.c: main(): Added help text for '-h' option. + +-- gg - act.informative.c: do_time(): Simplified by suggestion from + Andrew Jones + +-- gg - constants.c/comm.c: Uh, 'version' used to crash. :) + +-- gg - act.comm.c: do_spec_comm(): Removed extra \r\n from act(). + +-- gg - act.movement.c: has_boat(): Del suggested + immortals should get to walk on water. Now gods can walk on water + but guest immortals (LVL_IMMORT) still need boats. + +8/26/98 + +-- gg - Changed 'struct alias' to 'struct alias_data' since a Windows 95 + compiler gripes that it has a member of the same name. + +-- gg - autorun: Don't sleep if we're going to die anyway. + +-- gg - db.c: Disable zone commands which will endlessly error. + +8/28/98 + +-- gg - Removed 'extern int top_of_world;' everywhere. + db.h: Included extern for top_of_world here instead. + (Should fix some of the Windows 'integral size mismatch' warnings.) + +-- gg - act.other.c: do_save(): Allow gods to save even if we're in + automatic saving. Immortals (31) still cannot by default. + +-- gg - comm.c: DFLT_IP/DFLT_DIR/LOGNAME/help: Some extern declarations + cleaned up to be what they should. + +-- gg - comm.c: main(): Reworked to avoid implicit 'stderr' usage and + allow an argument for log file to redirect to. + +-- gg - comm.c/comm.h: send_to_room(): Changed to room_rnum. + +-- gg - structs.h: obj_file_elem: Add a few spares since we're going to + change the structure anyway. + +-- gg - comm.c: process_input(): Output command we find from history. + From Akuma the Raging Coder. + +-- gg - interpreter.c/utils.h: IS_NPC changes from idea by Yaroslav + Berezovsky To be completed later though. + +8/29/98 + +-- gg - act.wizard.c: do_show(): 'show snoop' + +-- gg - shop.c: 'buy 3' now possible and doesn't break 'buy 5 3', + 'buy 5 #3', or 'buy #3'. + +9/3/98 + +-- gg - db.c: index_boot(): prefix set to NULL to prevent spurious warning + from egcs 1.1. (Headache prevention.) + +9/7/98 + +-- gg - act.wizard.c: do_set(): age: ch<->vict. + +9/9/98 + +-- gg - modify.c: string_write()/smash_tilde(): Got fed up with many + places in the code (and external packages) manually setting up + the writing code so I created string_write() to hide that. + smash_tilde() envelopes previous code in string_add() in a way + to be compatible with other codebases. + +-- gg - mail.c: postmaster_send_mail(): Converted the final malloc() in + the code to use CREATE(), and converted to string_write() also. + +-- gg - boards.c: Board_write_message(): Changed to string_write(). + +-- gg - Makefile.lcc: Update from Eric Jones . + +-- gg - macrun.pl: New from Dean Takemori + in case you have a Macintosh with Perl. + +-- gg - act.informative.c: do_toggle(): Added holylight/nohassle/roomflags + for immortals, from Del Minturn . + +9/12/98 + +-- gg - act.comm.c: do_write(): Now uses string_write() interface. + olc.c: olc_string(): Ditto. + +-- gg - db.c: check_object()/check_object_spell_number()/ + check_object_spell_level(): Beginnings of object verification. + This caught about 7 objects with bad spell numbers, names, or levels. + +-- gg - modify.c: string_write(): Modified to allow generic data to be + passed through later. The improved editor could use this to send + the 'old' buffer for instance. + +-- gg - spell_parser.c: spello(): Report spells with invalid names. + +-- gg - spell_parser.c: skill_name(): Minor cosmetic touchup. + +-- gg - spell_parser.c: mag_objectmagic(): Wands with an area effect or + mass spell don't need to be pointed at anything. + +9/15/98 + +-- gg - utils.c: get_line(): Faster, cleaner, and most importantly, easier + to read. + +9/20/98 + +-- gg - utils.c: str_cmp()/strn_cmp(): Now gracefully handle a NULL pointer + and I also took the opportunity to make them look cleaner. + utils.c: basic_mud_log()/mudlog()/get_filename(): Should be able to + handle a NULL pointer now. + +-- gg - utils.h: IS_NPC(): MOB_ISNPC is back, for now. + +-- gg - Added the long-awaited alias saving to file support courtesy of + Jeremy Hess and Chad Thompson. Directories added in lib/ also. + +-- gg - comm.c: main(): Think I heard of a report where fdopen() didn't + work under Windows so I added a little note there for people. + +9/21/98 + +-- gg - magic.c: mag_unaffects(): Fixed cosmetic bug (of mine) whereby the + "your vision returns" message was shown when you weren't blind. + +-- gg - spell_parser.c: call_magic(): Fixed to return -1 when a target + dies, so that mag_objectmagic() can correctly exit instead of + casting another spell from a scroll at a stale target. + +-- gg - utils.h: WAIT_STATE(): Needed "do { xxx } while(0)". + +-- gg - act.offensive.c: do_bash(): Few fixes for NPC's and wimpy mode. + +-- gg - spells.c: spell_enchant_weapon(): It is a bad thing to enchant a + weapon that you are currently wielding. Since I think it makes + more sense to just not be able to do that than jump through hoops + with equipping, I've remove the TAR_OBJ_EQUIP flag from it. + +-- gg - comm.c: perform_act(), act.informative.c: list_one_char(), + interpreter.c: command_interpreter(): All changed with IS_NPC() + fixes from Andrey Fidrya + +-- gg - magic.c: mag_affects(): Don't allow strength if we already have + 100% strength add. + +-- gg - act.other.c: do_steal(): Easy but not automatic stealing from + sleeping people. + +-- gg - comm.c: setup_log(): Handle all the log() nasties. + +-- gg - sysdep.h: Check for STDOUT_FILENO too. + +9/27/98 + +-- gg - objsave.c/structs.h: Enable autoeq on USE_AUTOEQ definition. + +-- gg - act.item.c: Duplicated 'extern obj_proto;' + +10/1/98 + +-- gg - utils.h: VALID_RNUM(): New macro made from common code in + GET_ROOM_VNUM() and GET_ROOM_SPEC(). + utils.h: GET_ROOM_VNUM(): Needs (room_vnum) cast for MS VC++ 5. + +-- gg - comm.c: 'port' should be an unsigned short integer. + config.c: DFLT_PORT changed to ush_int too. + +-- gg - act.wizard.c: do_at(): location/original_loc should be room_rnum. + act.wizard.c: perform_set(): New room_rnum variable for case 35. + +-- gg - db.c: reset_zone(): Couple casts to hush up Microsoft Visual C++. + There isn't another way. + +-- gg - house.c: hcontrol_destroy_house(): real_atrium/real_house converted + to room_rnum variables. The atoi() result casted to room_vnum. + house.c: hcontrol_pay_house(): atoi() result, ditto. + +-- gg - shop.h: 'keeper' variable changed to mob_rnum and comment fixed. + It is saved on disk as a vnum but changed in boot_the_shops() to + be a real number. + +-- gg - spec_procs.c: pet_shops(): 'pet_room' is a room_rnum now. + spells.c: spell_teleport(): 'to_room' is a room_rnum now. + +-- gg - Even more xxx_rnum/xxx_vnum changes, to the real_xxx() functions. + +-- gg - db.c: check_object_spell_level(): Note that it is a bad idea to + assign an area or mass spell to a staff. It is not overridden, + just warned about. + +10/3/98 + +-- gg - act.movement.c: do_stand(): Player may still be fighting at this + point so we should set them POS_FIGHTING if so. + Reported by Jon Barrett . + +-- gg - act.wizard.c: do_switch(): Don't permit people under Greater God + to switch into mobs in god rooms or houses. + +-- gg - Assorted skills now have new IS_NPC and GET_SKILL checks. + +10/5/98 + +-- gg - spec_assign.c: Fixed up mob|room|obj_v|rnum problems in ASSIGNMOB, + ASSIGNROOM, ASSIGNOBJ. + castle.c: block_way(): Fixed up room_rnum problem. + olc.c: do_olc(): Ditto. + +-- gg - act.wizard.c: room_rnum things fixed and use skill_name() now in + do_stat_character(). + +-- gg - db.c: check_object_spell_number(): Disabled the check for an area/mass + spell on a staff because the bug has been fixed. + +-- gg - spell_parser.c: mag_objectmagic(): Fixed the bug where a victim + dying in the middle of a staff spell caused a crash. + +-- gg - Merged new spell routine changes that get rid of spells[] in favor + of spell_info[].name. Also removed dead code from db.c. + +10/7/98 + +-- gg - db.c: check_object_spell(): Another magic niggle, the spells don't + have names in syntax check mode. + +-- gg - Merged a bunch of sh_int/int -> *_[rv]num changes from + Bryan Britt + +-- gg - More little logging changes. Sometimes I really hate portability. :P + +-- gg - house.c/db.c: g++ found some mismatched prototypes. + +10/8/98 + +-- gg - graph.c: Assorted room_rnum fixes. + +10/10/98 + +-- gg - cnf/configure.in: Added checks for "remove" and "strerror". + sysdep.h, conf.h.in: NEED_REMOVE_PROTO and NEED_STRERROR_PROTO added. + +-- gg - act.social.c act.other.c ban.c e boards.c comm.c db.c fight.c + graph.c house.c objsave.c shop.c: Updated to make sure all + perror() and log() calls have SYSERR where appropriate. + +10/12/98 + +-- gg - comm.c: Updated some 'const' usage in act() and related functions. + +10/13/98 + +-- gg - Massive minor changes to the code to eradicate some (quite accurate) + warning messages from Borland C++ sent by Mundi King + +-- gg - utils.h/utils.c: CAP() is now a function instead of macro to eliminate a + "statement with no effect" warning when not using the return value. + +-- gg - utils.c: int_to_short(): Sneak around the Microsoft Visual C++ warnings + if there is no other way to avoid it. + +-- gg - comm.c: Socket errors beyond our control are flagged as a WARNING in the + same manner as bugs in the code are flagged SYSERR. + +-- gg - shop.h/shop.c: Fixed the bug causing 'keeper' in the shop structure to + be an int. + +-- gg - db.c/db.h: More int/sh_int cleanups with int_to_short(). Including changes + to zone_data and top_of_zone_table. + +-- gg - Even more Microsoft Visual C++ warning fixes. Warnings sent in by + OmnousMan@aol.com and Sean Daley . + +-- gg - castle.c: Major cleanup of appearance. + +-- gg - cnf/configure.in, cnf/aclocal.m4, configure: New directives to check for + 'struct in_addr' and an unsafe crypt() function with only 10 characters. + +-- gg - structs.h: Code to check for an unsafe password length of 10. + sysdep.h: Code to accommodate systems with no 'struct in_addr' + +10/16/98 + +-- gg - comm.c: nonblock(): Use 'unsigned long' for Windows ioctlsocket(). + +-- gg - comm.c: open_log(): Use "easy" method for GNU C and MetroWerks (no fdopen). + +-- gg - db.c: More int_to_short() for MSVC. + magic.c: Some variable fixups for warnings, mob_vnum and obj_vnum; + +-- gg - objsave.c: Crash_delete_file(): s/unlink/remove/ + +-- gg - comm.c: Also check for WSAEINTR as Andrew Helm suggests. + +-- gg - sysdep.h: Mundi King gave me some #pragma's to + disable warnings in Borland C++, how quaint. Also had to give an isascii() + macro for MetroWerks since they couldn't add one line to their headers. + Also took the opportunity to clean up the "Who are we?" error message into + something a bit more descript. + +10/21/98 + +-- gg - db.c, config.c: Load GREETINGS from a file instead of config.c. + See lib/text/greetings. + +-- gg - castle.c: Fixed a few short int warnings. + +-- gg - utils.c: prune_crlf(): Fixes up GREETINGS to look right. + +10/23/98 + +-- gg - Thanks to Francis Hotchkiss for testing the + FreeBSD configure changes. (The test does work.) + +10/27/98 + +-- gg - act.wizard.c, class.c, limits.c: Changed advance_level() to not + print the advancement message so the calling functions can do so + without spamming the system logs and online wizards. + +-- gg - act.informative.c: look_at_target(): "look 2.obj_with_extra_desc" + bug fixed. + +-- gg - comm.c: close_socket(): Andrey Fidrya pointed + out we could have a player special called on a mobile. + +-- gg - act.wizard.c: do_purge(): mudlog() required a GET_INVIS_LEV check. + +-- gg - act.comm.c: do_tell(): Only allow immortals to "tell" to a mobile + to prevent player abuses. + +-- gg - act.item.c: Multi-give/drop/donate/junk/put/get. + +10/28/98 + +-- gg - alias.c, db.c: Fix a couple '%d' warnings, hopefully. + +-- gg - modify.c: show_string(): Fix a warning on 64-bit platforms with + casting a pointer to an integer. + +-- gg - utils.h: Better IS_NPC check added, though still commented out + in favor of the old, faithful one. + +-- gg - act.item.c: do_drop(): Fixed a bug WRT junking objects. 'amount' + was re-used inadvertently. + +-- gg - doc/README.BORLAND: It's actually helpful now. + +-- gg - db.c: create_entry(), init_char(): Need to check for replacing an + old character in the player table. + +11/2/98 + +-- gg - comm.c: get_max_players(): "random guess" was missing a ; + From: Josh McBeth + +-- gg - limits.c: Del pointed out that I + forgot to make sure someone levelled before printing message. :) + +11/9/98 + +-- gg - db.c: Duh, get_id_by_name() doesn't return player table array + index, so now get_ptable_by_name does. + +11/15/98 + +-- gg - objsave.c: update_obj_file(): Don't update empty names. + +11/22/98 + +-- gg - class.c: do_start(): Don't need to set_title() the person because + they have already had it done by init_char(). Found by + "Andrey Fidrya" + +11/23/98 -- Hereby proclaimed Rick Glover bug report day. + -- All of this day's bug fixes are from him. + +-- gg - spell_parser.c: mag_objectmagic(): Remove superfluous '!= NULL' + from action description check on suggestion. + +-- gg - act.informative.c: list_obj_to_char(): We don't initialize a variable + on the declaration line but do it on the next line down. I'm glad + I'm not the only picky person around here. :) + +-- gg - act.informative.c: do_score(): Redundant IS_NPC() checks removed. + +-- gg - act.item.c: get_check_money(): We had bad grammar. + +-- gg - act.item.c: do_drop(): Mixed up 'amount' and 'multi' in a sprintf() + during the multiple object changes. + +-- gg - Massive act() -> send_to_char() search and replace. + +-- gg - act.offensive.c: do_backstab(): WAIT_STATE() added. + +-- gg - act.wizard.c: do_show(): 'player' updated to use "buf + strlen(buf)". + +-- gg - boards.c: He also pointed out a 'board.h' typo. + +-- gg - He also noticed 'r_*_start_room' used 'sh_int' which prompted me + to search and replace many other instances of 'sh_int' misuse too. + +-- gg - db.c: index_boot(): He found a redundant 'break' after 'exit()'. + +-- gg - magic.c: mag_areas(): Didn't pass 'level' variable handed to us + to mag_damage(). + +-- gg - magic.c: mag_points(): Variables compressed to same line. + +-- gg - db.h: LIB_OBJS removed, it wasn't used. + +11/24/98 + +-- gg - db.c, act.informative.c: Removed 'extern spells[]'. Thanks to RG. + +-- gg - modify.c: do_skillset(): Spacing fixed when skills are skipped. From RG. + +-- gg - mobact.c: mobile_activity(): Charmed/blinded mobs can't help. From RG. + +-- gg - act.offensive.c: do_backstab(): Aware mobs aren't when asleep. From RG. + +-- gg - shop.c: evaluate_expression(): Remove isalpha() to allow '(' first. + shop.c: evaluate_operation(): &&/|| fixed to always pop both values. + Thanks to Lubos Lunak for finding these. + +12/1/98 + +-- gg - ChangeLog: Ran it through ispell while avoiding gratuitous changes. + +12/2/98 + +-- gg - utils.h: RG noted we had prototypes for {mana,hit,move}_limit but + removed the functions. + +-- gg - class.c: do_start(): We really do need the set_title() or newbies + start out with the level 0 title. + +12/10/98 + +-- gg - utils.c, utils.h: {mana,hit,move}_limit() don't exist and ush_int + to int conversion in core_dump_real(). + +-- gg - act.comm.c: do_page(): Extra \r\n removed from sprintf(), by RG. + +-- gg - act.social.c: fread_action(): is really local, by RG. + +-- gg - boards.c: Typo fixes and some spacing additions, by RG. + +-- gg - castle.c: Some act() -> send_to_char() where appropriate, by RG. + spec_procs.c: Ditto. + +-- gg - config.c: Some variables changed sh_int -> room_Xnum. + +-- gg - db.h: save_char() prototype sh_int fixes and LIB_OBJS removed. + +-- gg - house.c: More room_Xnum fixes, by RG I believe. + +-- gg - interpreter.c: More room_Xnum fixes. + +-- gg - mobact.c: mobile_activity(): Blind and charmed mobs shouldn't + be helping in attacks. By Rick Glover. + +12/15/98 - It's not a Y2k problem, I'll just write out 2000 afterwards. :P + +-- gg - act.item.c: Merged more act() -> send_to_char() fixes. Also fixed + the '\n' in the wear list. Lastly, revamped get_check_money() to + be plurally correct. + +-- gg - act.movement.c: has_boat(): Fixed return parenthesis. + do_doorcmd(): Removed extra \r\n. + do_stand(): More act() -> send_to_char() changes merged in from RG. + +-- gg - act.offensive.c: do_backstab(): Sleeping mobs aren't "aware," and + added delay to prevent abuse. + do_kick(): Use new function compute_armor_class(). + +-- gg - act.other.c: do_quit(): RG suggested removal of 'save_room.' More + act() -> send_to_char() fixes in the code. + +-- gg - act.wizard.c: do_stat_character(): RG noted that dexterity isn't + factored into armor class, fixed. + do_show(): He also noted we need "buf + strlen(buf)" here. + +-- gg - db.c: sh_int/*_?num fixes. + +-- gg - fight.c: compute_armor_class(), compute_thaco(): New functions. + death_cry(): Use send_to_room instead of act() hackery. + hit(): Don't use weapon damage values if it isn't a weapon, from RG. + Also more act() -> send_to_char() fixes. + +-- gg - handler.c: act() -> send_to_char() fixes. + +-- gg - magic.c: mag_savingthrow(): Took idea for modifier value to be + added, from Edward J Glamkowski . + Callers changed throughout. + +-- gg - modify.c: do_skillset(): Screen spacing of skills fixed on + suggestion by Rick Glover . + +-- gg - objsave.c: Crash_save(): Reversed order of item saving to fix + bug that made auto equipment not work. Also minor touchups. + Rent problem reported by Rick Glover. + +-- gg - shop.c: evaluate_operation(): Lubos Lunak + found that the stack was messed up by compiler short-circuiting. + Also changed isalpha() check to allow a ( first. + +-- gg - spell_parser.c: More act() -> send_to_char() fixes. + +-- gg - act.informative.c: act() -> send_to_char() fixes and some old + now-gone externs removed. + do_score(): Cleaned up unneeded IS_NPC() checks, by RG. + +-- gg - comm.c: Cleaned up buffer checking code. + write_to_output(): Moved strlen() to avoid wasted time. + +12/16/98 + +-- gg - act.informative.c: do_diagnose(): Superfluous 'return' removed + as suggested by Rick Glover. + +1/8/99 + +-- gg - act.other.c, config.c, graph.c, interpreter.c, interpreter.h: + TRACK_THROUGH_DOORS the #define has become 'track_through_doors' + the runtime changeable integer in config.c. VALID_EDGE() also + went over the brink of readability and became a function. + +1/12/99 + +-- gg - fight.c: Fixed up compute_armor_class() to not divide since only + one place cares about the internal value. + +1/13/99 - Wednesday + +-- gg - sysdep.h: Great, now winsock1/winsock2 conflict in Borland. What + a pain. Jodi Goddard was the first to mail me + the correct definitions to test for it. + +1/15/99 + +-- gg - fight.c: compute_armor_class() should add dex_app * 10 since the + old code divided first, then added the modifier. + +1/24/99 + +-- gg - util/listrent.c, util/split.c: Rick Glover pointed out a few \n\r's. + +-- gg - castle.c: King Welmar's movements needed ASCII adjustments. + +1/25/99 + +-- gg - handler.c: generic_find() needs to NULL the arguments _first_ in case + our argument only has a fill word. Fixes crash reported by Rick + Glover that I couldn't originally reproduce. + act.item.c: do_get(), do_put(): Use one_argument() instead of half_chop + to allow for fill words. + +1/29/99 + +-- gg - act.comm.c: Some more act() -> send_to_char() from Rick Glover. + +2/2/99 + +-- gg - Got rid of int_to_short() in favor of a #pragma to disable the warning. + +2/16/99 + +-- gg - First batch of Rick Glover bug reports. + Makefile.in + OBJFILES and CXREF_FILES sorted, alias.o moved alphabetically. + act.informative.c + do_gen_ps(): Added log() for unhandled case. + act.item.c + do_pour(): Removed superfluous 'return;' at end. + act.movement.c + Bitvectorized NEED_xxx #define's to be more obvious. + do_leave(): Use OUTSIDE(). + do_wake(): Use AWAKE(). + act.other.c + do_steal(): Use two_arguments(). + do_wimpy(): Removed superfluous 'return;'. + act.wizard.c + perform_set(): Prevent only freezing self, not thawing self. + class.c + level_exp(): Log the bad level in the report. + comm.c + 'extern' variables extricated from the global variables. + shop.c, shop.h + 'producing' is now an obj_vnum. + spells.h + TAR_xxx defines bitvectorized instead of numbers. + +3/4/99 + +-- gg - comm.c, structs.h, utils.h: PjD noticed that repeatedly reconnecting + to a MUD would cause the wait state counter to be reset. Thus it + has been merged with the mob counter. + +-- gg - act.other.c: do_split(): Fixes from Christian Loth to not lose + money and fix the accounting among a group. Untested but looks ok. + +-- gg - spell_parser.c: say_spell(): King Mundi proposed fix so that the + MUD doesn't go into infinite spastic loop upon unknown substring. + +-- gg - objsave.c: Crash_load(): "Andrey Fidrya" sent + in a fix for potentially empty rent files. + +-- gg - Usual batch of Rick Glover reports: + structs.h + room_data: 'zone' should be zone_rnum. + index_data 'vnum' should be a 'sh_int' type. + act.item.c + 'the $o' changed to '$p' for better clarity. + act.wizard.c + do_force: Mobs are now immortal subordinate. + do_set: height/weight; "sex" set type is much less + complicated with search_block now. + constants.c + Lowercased genders[] for do_set to work ok. + comm.c + make_prompt: buffer length fixed to track + MAX_PROMPT_LENGTH changes. + db.c + read_mobile: Should have WARNING tag on log() message, + because while not a SYSERR, it is sort of bad. + handler.c + affected_by_spell: Fixed up comment. + objsave.c + gen_receptionist: HSHH() for "she" + interpreter.c + Remove AFF_GROUP flag in addition to PLR_WRITING, etc. + +-- gg - class.c: levels(): Sean Daley noticed + I forgot _every_ 'break;' in the switch() block. :) + +3/5/99 + +-- gg - Desmond Daignault sent in a + fixing up get_char_room_vis and get_char_vis like I wanted, + to be consistent with get_player_vis. The old function still + exists, it's just not used except by get_char_vis. + +3/10/99 + +-- gg - Rick Glover found some old CRIMEOK references in magic.c + +******** Patchlevel 16 *************************************************** + +3/17/99 + +-- gg - constants.c: Version string updated to bpl16. + structs.h: Preprocessor version number updated to bpl16. + +-- gg - First person to find a stupid bug award goes to Rick Glover + who noticed do_say and do_gsay are missing \r\n. + +-- gg - Wonder how no one noticed that 'sleep' spell sends its message + to the caster instead.... Found by RG. + +-- gg - 'prompt none' gave the help message. Found by RG. + +-- gg - act.other.c: do_quit(): Revert previous change because of + extract_char() behavior. + +3/26/99 + +-- gg - Added README.MSVC6. We don't have Microsoft Visual C++ 6 so + we cannot confirm the accuracy of anything contained therein. + +4/11/99 + +-- gg - Fixed typo '-P0' to '-P-' in Makefile.bcc. + +4/16/99 + +-- gg - modify.c: string_add(): Fix Obiwan error in maxstr handling. + It no longer accepts 10 characters & NUL for a 10 character limit. + +5/1/99 + +-- gg - act.wizard.c: do_show(): case 3: Check for NUL value. + +-- gg - structs.h: mob_rnum nr; + +5/3/99 + +-- gg - comm.c: Last usage of d->connected replaced with STATE(d) + +-- gg - fight.c: damage(): Don't divine rescue people who can't flee. + Previously could result in being rescued after death because + then !FIGHTING() is true even though do_flee() failed. + +-- gg - sysdep.h: Yet another useless (to us in this case) MSVC warning. + +-- gg - comm.c: echo_off(): Fixed RFC compliance issue noted by + Matthew Bell + +5/4/99 + +-- gg - act.social.c: boot_social_messages(): More sanity checks to make + sure we don't stomp memory. + +5/9/99 + +-- gg - util/delobjs.c: Change unlink() to remove(). + +-- gg - shop.c, mobact.c, fight.c, class.c, spec_procs.c: Use constants.h + +-- gg - objsave.c: Removed unused str_app[] extern. + +-- gg - db.h: CIRCLE_VMS path declarations. + +-- gg - house.c: Fixed Obj_from_store() C++ linkage problem. + +-- gg - interpreter.h: Make cmd_info[] extern match declaration. + +-- gg - constants.h: Remove 'const' from int arrays to fix C++ linkage. + +5/10/99 + +-- gg - act.item.c, act.other.c: Use constants.h for more things. + From the VMS guy again. See README.VMS. + +-- gg - comm.c: New circle_sleep() function and various VMS fixes. + +5/18/99 + +-- gg - comm.c, config.c: s/MAX_PLAYERS/max_playing/ since the DEC + C compiler confuses it with 'max_playing' also. + +5/26/99 + +-- gg - circle.com, mud_utils.com, autorun.com: New utilities for + running CircleMUD on VMS from Robert Alan Byer. Before + people ask, these are _not_ DOS executable files. + +-- gg - act.other.c: do_practice(): NPC's cannot practice. + +-- gg - comm.c: game_loop(): Made output_ready() to appease VMS. + +-- gg - utils.c: mudlog() cleaned up and no longer tries to get colors + from a mobile. + +-- gg - vms_decls.h: New file, containing declarations the + operating system should have provided. + +-- gg - shop.c: top_shop is now array-based intead of counting-based. + +5/28/99 + +-- gg - Couple more VMS changes. Also made accept_arg_t since everyone + seems to differ on this variable's signedness. + +5/29/99 + +-- gg - objsave.c: Crash_listrent(): Was overwriting beginning of + information string with later information. + +6/3/99 + +-- gg - act.wizard.c: do_vnum(): Use half_chop() to allow fillwords. + From Rick Glover. + +-- gg - db.c: check_object(): Bitvector and drink container checks. + +-- gg - act.informative.c: do_score(): Plurality problem. + +6/6/99 + +-- gg - act.wizard.c: do_stat_character(): Remove gender special case. + This will have the side-effect of lowercasing the result, but + the simplicity is preferred here. + +6/11/99 + +-- JE - README.CYGWIN - incorporated new version from David Goldstein + +7/4/99 + +-- gg - comm.c: close_socket(): Check for IS_NPC() before PLR_MAILING. + +-- gg - db.c: Don't re-file_to_string_alloc() anything currently in + use by the pager. It's the least impact change. From + Andrey Fidrya + +-- gg - limits.c: Autowiz support for Windows from + Julian Buckley + +-- gg - modify.c: string_add(): Yet another fix to make the buffer + limits safe. From Andrey Fidrya . + +-- gg - objsave.c: Crash_extract_norents_from_equipped(): + Um, duh. Helps to use functions. :) Spotted by + Andrey Fidrya . + +7/10/99 + +-- gg - spell_parser.c: ACMD(do_cast): Equipped objects should + be 'what' and not 'who' in the message. + +-- gg - Merged latest set of changes for VMS. + doc/README.VMS: Update from author. + descrip.mms, vms_circlemud_gcc.opt, vms_gnuc.h: Removed. + build_circlemud.com: Almost a 'Makefile' for VMS. + comm.c: gettimeofday(): Removed VMS version, it now has it. + game_loop(): Removed output_ready() special case. + circle_sleep(): Removed special case for VMS. + sysdep.h: output_ready() removed. 'vms_gnuc.h' removed. + +8/01/99 + +-- dk - Dropped in support for socklen_t, which is in the latest POSIX + drafts and glibc2, to replace the accept_arg_t kludge. Please + verify the veracity of the changes to the OS dependent conf.h.* + files. Any platform using glibc2 or that has socklen_t won't + compile correctly using those settings. Platforms using the + 'configure' script should autodetect and work properly, although + my system is libc5 based, so it's untested. + +8/4/99 + +-- gg - doc/README.AMIGA: New update. + +8/28/99 + +-- gg - act.item.c: Fixed 'junk 83467534657834 coins' bug. + +-- gg - Released patchlevel 16. + +******** Patchlevel 17 *************************************************** + +8/28/99 + +-- gg - constants.c, structs.h: Welcome to bpl17. + +-- gg - interpreter.c: Todd A. Laycock noted + that we don't actually use ACMD(do_rent) anywhere, nor do we + even have one. + +12/14/99 + +-- gg - act.wizard.c, spec_assign,c: Fix '< top_of_world' from + Andrey Fidrya + +-- gg - modify.c: string_add(): Del + noticed a missing \r\n if people overflowed max_str on + the first line. + +12/17/99 + +-- gg - comm.c: perform_act(): "Bob Castillo" + noticed that illegal act() codes crash the MUD. Oops. + Fortunately, it only occurs due to lib/misc/socials or + aedit (the social editor) as user input is escaped to prevent + any act() codes at all. + +-- gg - act.informative.c: look_at_char(): Mob names aren't + capitalized due to \r\n prepended. + db.c: is_empty(): Crashes on NOWHERE and prevented + success by immortals. + act.wizard.c: do_return(): When disconnecting someone + upon return, make sure to not trash our own connection. + act.wizard.c: do_dc(): Needed to fix a case when + disconnecting people not in the game. + All spotted by "Andrey Fidrya" + +12/31/1999 + +-- dk - ChangeLog dates are now Y2K compliant! And just in the nick of + time! Thanks to all the COBOL hackers that brushed off their + cobwebs and worked around the clock to fix it. + +01/01/2000 + +-- dk - Happy New Year and Ante-Millennium. + + +01/14/2000 + +-- dk - comm.c: Changed some 'int's to 'socket_t's. That's what it's + there for, so that's what we'll use it for. (Why didn't anyone + else notice this?! Bizarre.) + +1/20/2000 -- See, I told you. + +-- gg - house.c: Removed a lot of '< 0' == 'NOWHERE' assumptions. + +-- gg - comm.c: Having a $ as the last character on the line + could do bad things since bpl4. Found by Bob + Castillo . + +1/23/2000 + +-- gg - house.c: Removed a lot of '>= 0' != 'NOWHERE' assumptions. + Del noticed I missed those. + +-- gg - comm.c: process_input(): Fixed the fact we write too much + to memory in the input buffer. Found by Bob Castillo + since it's much more noticeable in an unsigned variable. + +-- gg - comm.c: echo_on(): We don't need NAOFFD or NAOCRD, they + cause us problems, and others don't use them either. + +-- gg - db.c: file_to_string_alloc(): 'using' is a keyword in C++. + +-- gg - Batch of Rick Glover reports: + act.comm.c: do_spec_comm(): Use switch instead of if..else. + db.c: count_alias_records(): Don't count empty aliases. + parse_object(): in_room=NOWHERE is superfluous. + interpreter.c: nanny(): CON_CLOSE is possible. + +-- gg - Released patchlevel 17. + +******** Patchlevel 18 *************************************************** + +1/23/2000 + +-- gg - constants.c/structs.h: Welcome to bpl18. + +-- gg - Makefile.lcc: Remove some constants I have to change every patch. + +-- gg - doc/README.CYGWIN: bpl17 -> bpl18 + +7/3/2000 + +-- gg - doc/license.doc: Add copyright information that seems lacking + elsewhere. + +-- gg - build_circlemud.com: Update from author. + +-- gg - utils.h: -1 => NOBODY/NOWHERE/NOTHING cleanups. + +-- gg - spells.c: spell_teleport(): No teleporting into ROOM_GODROOM. + +-- gg - spec_procs.c: Restrict pets to NPCs. + +-- gg - interpreter.c: is_abbrev(): s/returnss/returns/ + +-- gg - handler.c: affect_join(): Keep 'next' pointer for extracted + objects in list. + +-- gg - act.wizard.c: perform_immort_invis(): Remove redundant + IS_NPC check. + +-- gg - utils.c: basic_mud_log(): Cancel message if stream hasn't + been initialized. + +7/7/2000 + +-- gg - utils.c: mudlog(): log(var) => log("%s", var); to avoid + interpreting %% codes. + +-- gg - db.c: parse_object(): Print the offending character. + check_object(): Drink aliases should last now. The code + to remove the aliases shouldn't care where it is, though. + +-- gg - act.item.c: name_from_drinkcon()/name_to_drinkcon(): + Much more intelligent support for removing/adding the + drink name to containers. + +-- gg - lib/world/obj/0.obj: An extra ~ escaped the removal of + object #99. + +10/27/2000 + +-- ae - act.informative.c: Fixed do_time() with the fix submitted by Nate + Winters that corrected the output on the 11th, + 12th, and 13th of a month (it used to output '11st', '12nd', and + '13rd'. Not so good really. + +11/3/2000 + +-- gg - shop.c: Del noted the + 'show shop' header was at the bottom of pages. + +-- gg - utils.c: get_line(): "Andrey Fidrya" + has files without a \n on the last line. + +11/15/2000 + +-- gg - act.other.c: do_quit: !GET_INVIS_LEV is redundant. + +9/18/2000 + +-- ae - comm.c: Added in $u and $U act() codes to perform_act(). These allow + the user to uppercase the first letter of the previous ($u) or next + ($U) word. For example, from the social for 'snarl': + $n snarls angrily at $N. $e$u seems incapable of controlling $mself. + $n snarls viciously at you. $U$s self-control seems to have gone bananas. + In the old style, these would have come out as: + George snarls angrily at Daniel. he seems incapable of controlling himself. + George snarls angrily at you. his self-control seems to have gone bananas. + In the new, we get: + George snarls angrily at Daniel. He seems incapable of controlling himself. + George snarls angrily at you. His self-control seems to have gone bananas. + This comes a little bit closer to proper sentence output and looks + much nicer to boot. + +12/07/2000 + +-- ae - Removed some 'offensive' language from act.item.c and magic.c. + +1/17/2001 + +-- gg - db.c: load_zones(): More accurate counting based in part + on suggestions by Rick Glover. Also added SYSERR. + +-- gg - act.offensive.c: do_order(): No "order followers". Based + on reports from Andrey Fidrya. We'll need similar fixes + for other areas and can turn it back on then. + +-- gg - db.c: file_to_string(): Check for empty files or we corrupt + memory. From "Bob Castillo" . Also + took care of duplicated feof() test. + +1/25/2001 + +-- gg - spells.h, magic.c, spell_parser.c, constants.h, constants.c: + spell_wear_off_msg[] died. It moved to spell_info[] and I + fixed 3 mispelings in the process. (That was on purpose.) + +-- gg - Makefile.in: magic.c depends on constants.h + +-- gg - comm.h: Move PAGE_(WIDTH|LENGTH) from modify.c for computations + using page_string(). Needed by the shop code. + +-- gg - mobact.c: Fixed MOB_AGGR and MOB_AGGR_TO_ALIGN logic. Any + aggressive mobs also aggressive_to_alignment weren't properly + attacking everybody, just the alignment. + +-- gg - objsave.c: Crash_load(): Plurality. + +-- gg - structs.h: Formatting and comment adjustment on CON_ and MOB_. + +-- gg - comm.c: close_socket(): Make "closing link" message accurate. + +-- gg - generic_find(): Fix for '2.bread' with one on the ground and + one in your inventory. + +-- ae - spec_procs.c: Added a CAN_SEE() check into npc_steal() to stop mobs + with the thief special from stealing from people that they can't even + see. Reported by Vladimir Prelovac + +1/26/2001 + +-- ae - act.other.c: Shifted the checking for duping into extract_char(). I + was toying and discovered that renting out skips all of the dup checks + that we had in and so does dieing. Whoops. Also, we were setting the + state of the descriptor to CON_DISCONNECT when that state is used + everywhere else for players that have the state of CON_PLAYING, so I + changed that to CON_CLOSE. (also note 'handler.c') + +2/18/2001 + +-- gg - comm.c: perform_socket_read(): Handle ECONNRESET by booting + the person as we do for a 0 length read. + +3/4/2001 + +-- gg - db.c, db.h: fread_string(): Doesn't modify 'error'. + +-- gg - util/shopconv.c: fread_string(): Fix horrible buffer overrun + as well as making the return codes not pretend to be ok. + +-- gg - shop.c: read_shop_message(): Fix think-o on fread_string's + string parameter. + +-- gg - handler.c: get_obj_vis(): Make sure 'number' isn't NULL. + extract_char(): Extensively rearranged. + +-- gg - handler.c: get_obj_vis(): Really support numbering. + +-- gg - act.wizard.c: find_target_room(): Cleanup and extend to + find location of objects worn or carried. + +-- gg - db.c: load_zones(): Skip first 3 lines to avoid mistaking + zone name for a command. + +-- gg - boards.c: init_boards(): -1 => NOTHING + +-- gg - comm.c: game_loop(): Use RL_SEC more. + heartbeat(): More PULSE_* constants. + +-- gg - structs.h: PULSE_* constants, OPT_USEC explanation. + +-- gg - handler.c: extract_char(): Should only be one switch + target, abort on finding it. Also adjusted comment. + +3/10/2001 + +-- gg - class.c: invalid_class(): Reformatted so people + can actually read it. + +-- gg - utils.h: ANA/SANA: No 'Y'. (Compare to 'AN') + From: Peter Ajamian + +3/18/2001 + +-- gg - handler.[ch], structs.h, comm.c, act.offensive.c, + fight.c: New delayed extraction sequence to avoid + dangling pointer crashes. + +-- gg - Released patchlevel 18. + +******** Patchlevel 19 *************************************************** + +3/18/2001 + +-- gg - constants.c, structs.h, Makefile.lcc, doc/README.CYGWIN: + Welcome to bpl19. + +5/1/2001 + +-- ae - Changed some '256' notes to READ_SIZE (db.c) or MAX_INPUT_LENGTH + (mail.c and handler.c). These are to keep the consistency across + functions, etc. + +-- ae - act.item.c: Removed a check for too many objects from the beginning + of do_get(). As pointed out by Vladimir Prelovac + , + 1. If there isn't anything to get you still get that message + 2. The check is already made at the appropriate time in all the other + functions that do_get() calls (in can_take_obj()). + +-- ae - constants.c: We forgot the string for the NOTDEADYET flags. Oops. + Added in 'DEAD' (with comments) for completeness. + +5/8/2001 + +-- ae - Makefile.in: Modified makefile (and added htmlheaders/footers) to + allow for cxref data creation more readily. + +5/9/2001 + +-- ae - Del submitted a 'bug' (wording problem) with a chunk in + act.movement.c that has to do with ROOM_TUNNEL. There are two + options for fixing it, so I chose the middle ground: adding a + config variable for it to config.c. This variable (tunnel_size) + indicates how large the tunnel is and defaults to 2. + +5/10/2001 + +-- ae - act.wizard.c: Added in code to remove holylight, syslog, and + nohassle when wiz+ are demoted below level 31 with do_advance(). + +-- ae - fight.c: If we don't have a fight message to send (ie, suffering, + poison, etc), then don't send the colours, and don't try to send + the message that we don't have. Reported by Andrey Fidrya + + +-- ae - db.c: This fixes a possible overflow problem in pfiles by truncating + the description if it is too long. Reported by Andrey Fidrya + + +-- ae - We had a reference to SKILL_PUNCH (#136), but in the base code, + 'punch' is an action, not a skill. Not only that, but we don't + even reference it in the lib/ anywhere. (spells.h, spell_parser.c) + +5/16/2001 + +-- ae - coding.doc: Added in a section 4 (special procedures) that was + submitted to us ages ago by Luis Pedro Passos Carvalho + . Unfortunately, due to problems with the CDP, + it languished. We just have to remember to keep the text when we + get the CDP up and running again. + +5/18/2001 + +-- gg - Global: IS_OBJ_STAT -> OBJ_FLAGGED for consistency with + MOB_FLAGGED and OBJ_FLAGGED. + +-- gg - Global: Moved a bunch of global variables to db.h. + +-- gg - act.informative.c, db.c, handler.c, interpreter.c, mobact.c, + random.c: Remove 'register' keyword, let the compiler figure + out what is best. + +-- gg - castle.c: Fix "zones are 100 rooms" assumption. + +-- gg - class.c: Fix trailing comma in prac_params[]. + From: Del + +-- gg - constants.c: Fix "the Day of the Great Gods" capitalization. + From: Carlos Myers + +-- gg - mail.c: scan_file(): Mail file is binary, open as such. + From: Marc Lank + +-- gg - interpeter.c: ACMD(do_info) and ACMD(do_offer) don't exist. + From: Del + +-- gg - magic.c: mag_points(): Rename 'hit' to 'healing' to avoid + the function named hit(). + +-- gg - shop.c: Added missing read_shop_message() declaration. + +-- gg - shop.h: Removed unused GET_OBJ_NUM() macro. + +-- gg - utils.h: Remove IF_STR(), make OBJWEAR_FLAGGED use the + GET_OBJ_WEAR information. + +-- gg - act.item.c: Removed superfluous '*next_obj'. (See the + function variable declaration section.) + +-- gg - act.wizard.c, db.c, db.h: Removed the stupid + "zone number * 100 = starting room" assumptions. + + ||| ----- ----- ----- NOTE ----- ----- ----- NOTE ----- ----- ----- ||| + + This now means you can have zones spanning anywhere, including over + each other. You can have zone #5 going from room 1354 to 2139. + That doesn't prevent zone #10 from going from 936 to 1734. We DO + NOT check for overlap. Why? Because it can be useful. No longer + are you restrained to having a zone repopulate when no one is in + the whole place, now you can do room by room (up to the limit of + 32,767 zones) for some places within a zone. In short, you no + longer have to think of a "zone" in the same way any longer. Now + it's simply a collection of loading commands for mobs/objs when a + timer fires and/or no one is in it. + + ||| ----- ----- ----- NOTE ----- ----- ----- NOTE ----- ----- ----- ||| + +-- gg - castle.c: Fixed zone*100 assumptions. + db.c: Added real_zone() for castle changes. + Changed -1's in real_mobile and real_object appropriately. + +-- gg - comm.c: close_socket(): Move NULL assignment up to fix mobile switching + problem upon disconnection. (The switched into mobile still "busy" even + though you reconnect after a drop.) + +-- gg - comm.h: USING_LARGE/USING_SMALL: Not used, removed. + +-- ae - zone file update: The zone files were all updated to suit the top + and bottom indicators put into the code. + +-- gg - db.c: load_zones(): See warning: + + ///// WARNING \\\\\ + The powers-that-be decided to change the format of the zone files + to be more reasonable with the 'bottom room' number. + + TopRoom Lifespan ResetMode => BottomRoom TopRoom Lifespan ResetMode + + Stock zones will be updated but you will need to change your own + zones by hand or your MUD will error out and not restart. + \\\\\ WARNING ///// + +-- gg - graph.c: VALID_EDGE prototype. + +-- gg - act.informative.c, constants.c, constants.h: where[] -> wear_where[] + +5/22/2001 + +-- ae - class.c: changed 'return 1', and 'return 0' to 'return TRUE' and + 'return FALSE' respectively. This brings it into the same context + as some of the other similar functions. + +5/23/2001 + +-- gg - act.item.c, act.wizard.c, handler.c, handler.h: Fix missing number + (5.Y) support for equipment due to generic_find() fix. + +6/14/2001 + +-- gg - utils.c: dice(): Use number(). + number(): Add rand() comment. + +-- gg - comm.c: init_game(): Save the MUD time on shutdown. + db.c: reset_time(): Load beginning time from lib/etc/time. + db.h: TIME_FILE: "lib/etc/time" + utils.c: mud_time_to_secs(): New. + +-- gg - db.c: interpret_espec()/parse_espec(): Finalize behavior + of Boolean options. (i.e., don't crash) + +-- gg - db.c: parse_mobile(): Clear MOB_NOTDEADYET flag on load. + +-- gg - act.informative.c: sort_commands(): YUCK! Removed the + wacky sorted command structure in favor of a new + one both smaller and more to the point. Also + killed YetAnotherBubbleSort(tm) in the process. + ACMD(do_commands): Your brain will no longer stare at + the 'if' statement and go 'Duh?'. Also fixed an + extra \r\n pair on even multiples of 7. + +-- gg - act.offensive.c: ACMD(do_order): Del + spotted an apparent left-over from Diku, 'org_room'. + Other than 'order followers cast 'teleport' leader', + I'm not sure what it was supposed to do...but it's + gone now. + +-- gg - boards.c: Board_display_msg()/Board_remove_msg(): Use + !is_number instead of !isdigit to prevent commands + like 'remove 2.ring' from affecting the messages on + a board instead. + +-- gg - objsave.c: Crash_idlesave(): Make the GET_EQ() loop match + the one in Crash_crashsave(), instead of saving the + first object in your inventory for every object you + currently had equipped. + +-- gg - db.c: parse_simple_mob(), parse_mobile(), parse_object(): + Use more macros wherever already defined for them. + +-- gg - objsave.c: Crash_delete_crashfile(), Crash_clean_file(), + Crash_listrent(): If we can't read the rent_info + information, punt early before we use garbage. + Also fixed yet another '> -1' => NOTHING issue. + +-- gg - act.wizard.c: do_stat(): 'stat file character' isn't on + the character list; use extract_char_final(). + +-- gg - act.informative.c: do_examine(): Fix not being able to + examine the inside of a 2.foo container. + +-- gg - handler.c: extract_pending_chars(): O(n^2) -> O(n) + +6/25/2001 + +-- ae - handler.c: we forgot to add GET_CHA to affect_total(), noted + by Del . + +-- ae - autorun: Peter Ajamian submitted a new autorun that is much more + configurable and robust. Information on it is contained + autorun.README and the old autorun is still available as + autorun.sh + +6/26/2001 + +-- ae - db.c: Changed the order of the available zone commands in + load_zone() to match the order of the switch statement + in reset_zone(). This makes it easier to double check + the lists against one another. Also added a comment to + each location pointing out that additions need to be made + to both locations if a new zone command is added. + +6/27/2001 + +-- ae - act.wizard.c, class.c: Todd Laycock + pointed out that with some 'careful' use of the advance + command at the wrong time, people could end up snooping + those of a higher level, and possibly introduce a nice + little 'snoop loop'. The addition of a 'snoop_check()' + routine that checks for higher/equal levels of snoopers + or snoop_bys and stops snooping if this is found was + introduced and is called from advance_level(). + +-- ae - shop.c: Rick Glover pointed out that the code + in shopping_list() would rarely (if ever) give the correct + results if someone was listing for an object and none were + found. This code chunk got rewritten and a check for any + objects found was added. + +-- ae - *.c: Reformatted code to match what we do elsewhere (ie rather + than 'struct blah * data', we generally use + 'struct blah *data'. + +-- ae - modify.c: Peter Ajamian submitted a patch + that would fix the occasional strange behaviour of the + prompt sometimes overwrites the last line of paged text in + compact mode. + +-- ae - mail.c: The postmaster will no longer allow you to send mail to + deleted characters. This is done with a check called + mail_recip_ok() which loads the character (if he exists) and + checks for the PLR_DELETED flag. Other checks can be added + as desired. Noted by Bob Castillo + +-- ae - handler.c: Andrey Fidrya pointed out that + while we check to ensure that a mob's prey is still in + the world, that memory has the potential to be reassigned + when the prey leaves the world. As such, in the + extract_char_final() routine, we scan the world for those + hunting the char being extracted and stop the hunt. + +-- ae - act.wizard.c: In the continuing series of bugs reported by + Andrey Fidrya , 'stat file ' + (when done on a player in-game) will turf his objsave + file. Anyhow, the pfile should be the same as the in-game + character regardless, so we may as well just stat the + character and avoid the rent eating problem entirely. + +7/1/2001 -- gcc 3.0 warning day. Part 1. + +-- gg - act.informative.c: Prototype sort_commands_helper. + +-- gg - comm.c: main(); db.c: parse_room(), fread_string(): + Fix bad usages of variable argument functions. + +-- gg - act.informative.c: do_users(): Fix up 'format' usage so it's more + concise and gcc can check the arguments to sprintf(). + +-- gg - ChangeLog: Fix bpl12 being released twice. + +-- gg - ban.c: do_ban(): Change to allow gcc to check arguments to + variable argument functions. + +-- gg - comm.c, utils.h: Move mud_time_to_secs() prototype. + +7/11/2001 + +-- gg - comm.c: Must not ever do function calls from an interrupt + handler without making sure every function they call are + reentrant. Think of the server as multi-threaded for it. + +7/24/2001 + +-- gg - db.c: Remove useless 'rec_count' increment. + +7/26/2001 + +-- gg - handler.c: extract_pending_chars(): Avoid free()'d memory + when a chain of people die. + +-- gg - comm.c, db.c: Save MUD time every 30 minutes and at + shutdown using save_mud_time(). + +8/2/2001 + +-- gg - comm.c: new_descriptor(): Useless memset() removed. + +8/14/2001 + +-- gg - act.informative.c: show_obj_to_char(): Die! Die! Die! + All callers updated to new SHOW_OBJ_{LONG,SHORT,ACTION} + mode parameters. + show_obj_modifiers(): Split out of show_obj_to_char() + for stuff like "(invisible)" and "humming sound." + act.comm.c, structs.h: MAX_NOTE_LENGTH moved. + +-- gg - Released patchlevel 19. + +******** Patchlevel 20 *************************************************** + +8/29/2001 + +-- gg - src/Makefile.lcc, doc/README.CYGWIN, src/structs.h: bpl19 -> bpl20 + +-- gg - src/structs.h: shop_rnum, shop_vnum + +-- gg - fight.c: compute_thaco(): New function split out of hit(). + General: Gratuitous () removal. + hit(): Made hit/miss logic easier to follow. + +-- gg - act.informative.c, act.item.c, act.other.c, act.wizard.c, class.c, + db.c, limits.c, objsave.c, olc.c, shop.c, spec_procs.c, utils.c: + Remove redundant casts. + +-- gg - shop.c: Clean up buffer sizes, use NULL and '\0' where + appropriate, redundant cast removal, remove + gratuitous parentheses. + +-- gg - General: SPECIAL() and ACMD() generally assume their argument is + writable and MAX_INPUT_LENGTH large so give an empty + temporary buffer to scribble on. + +-- gg - act.wizard.c: Prototype snoop_check(). + mail.c: Prototype mail_recip_ok(), merge two 'local functions' + sections, 'const char *name' for mail_recip_ok(). + db.c, db.h: load_char(): 'const char *name' + interpreter.c, interpreter.h: find_name(): 'const char *name' + +9/13/2001 + +-- ae - world/mob/186.mob: mob #18610 had a flag problem -- too many flags + that didn't exist. Reported by Vladimir Nano + + +-- gg - shop.c: shopping_buy(): sprintf -> strcpy. + +-- gg - db.c: check_bitvector_names(): New, checks for invalid bits set. + check_objects(): Use check_bitvector_names(). + parse_mobile(): Check bitvectors loaded. + Various: More GET_OBJ_* macros. + constants.c: Count number of array entries for later checking. + +10/1/2001 -- George's e-mail backlog clearing day. + +-- gg - act.wizard.c: do_restore(): Don't set the skills of a do_restore'd + mobile. Noted by Albert Brauneis . + +-- gg - db.c: file_to_string_alloc(): Be nicer when trying to load text + files that people are reading. Idea from Peter Ajamian. + +-- gg - handler.c: create_money(): Don't be so repetitive. At least until + a variable argument strdup() function exists. Suggested by + Axiem j'Terre . + +-- gg - act.movement.c: do_doorcmd(): Do SET/REMOVE instead of TOGGLE to + avoid exacerbating any unsynchronized door problem. Suggested by + Del . + +-- gg - Everywhere: xxx->in_room => IN_ROOM(xxx) + +-- gg - class.c: title_female(): Extra implementor level removed as noted + by Julian Buckley. + +-- gg - interpreter.c: nanny(): Remove extra echo_on(). Noted by + Del + +10/15/2001 + +-- gg - shop.c: ok_damage_shopkeeper(): Charmed shopkeepers aren't attack + exempt. Set the shopkeeper MOB_NOCHARM if you don't want it in + that situation in the first place. + +-- gg - spells.c: spell_charm(): Charisma-based spell duration. + +-- gg - mobact.c: mobile_activity(): Check charmed follower limits and + "leash" any mobiles with memory based on master's charisma. + +10/20/2001 + +-- gg - mobact.c: Fix check to make sure we have a 'snarl' social. + +-- gg - spec_procs.c: Reformatting. Change 0/1 to FALSE/TRUE. + snake(): Fix poison frequency bug. + cityguard(): Charisma modifications. Chris Epler's idea. + +10/21/2001 + +-- gg - lib/world/{obj,zon}/: Various extraneous spaces, ~, and $ removed. + +11/12/2001 + +-- ae - lib/world/shop/: Changed the shops from using hard-coded values for + the item types to using the existing support for keywords. + Also added a small (and dirty) conversion script written by + gg to convert homegrown shops. (shop-convert.pl) + +11/14/2001 + +-- ae - lib/world/shop: 30.shp, 54.shp: Removed Uncle Juan's shop (3008). + He still exists in the mob file (3008) and the items he sold + still exist (3012, 3013, 3014), but his shop and room (3056) + don't. Fixed an erroneous room in shop 5433, it had the wrong + room listed therein. + +-- gg - db.c: file_to_string_alloc(): Check showstr_count, not showstr_vector. + modify.c: show_string(): NULL showstr_vector after free(). + +-- gg - shop.c, shop.h: shop->in_room should be room_vnum, not room_rnum. + Stupid mixing of terminology! + shop.c: ok_shop_room(): 'room' is a room_vnum. + +11/15/2001 + +-- ae - shop.c: SHOP_FUNC() in shopkeeper special should call the function + with argument (which is passed to it), not 'arg' (which is a + global, and as such, going away). Reported by Rich Paret + . + +-- ae - act.wizard.c: snoop_check() assumes a link exists. It shouldn't. + Reported by Kras Kresh . + +11/24/2001 + +-- gg - sysdep.h: New configurable CIRCLE_GNU_LIBC_MEMORY_TRACK. + comm.c: main(): Call 'mtrace()' if C_G_L_M_T (see above) is on. + Call destroy_db() when finished. + db.c: free_extra_descriptions(), destroy_db(): New. + reset_zone(), free_obj(): Some NOTHING/NOWHERE/NOBODY fixes. + free_obj(): Use free_extra_descriptions(). + db.h: Prototype free_extra_descriptions(), destroy_db(). + shop.h: destroy_shops(): New. + +11/26/2001 + +-- gg - comm.c, mail.h, spells.h, structs.h, utils.h: Minor quibble; + negative numbers are actually unary expressions. + +11/30/2001 + +-- ae - act.wizard.c: do_advance() had a ch and victim reversed in a flag + check. Oops. Reported by Patrick O'Laughlin + + +12/4/2001 + +-- gg - act.item.c: name_from_drinkcon(); + act.movement.c: ok_pick(); + act.wizard.c: do_at(), do_goto(), do_teleport(), do_stat_object(), + do_load(), do_vstat(), do_zreset(), perform_set(); + db.c: check_start_rooms(), read_mobile(), read_object(); + graph.c: find_first_step(); + handler.c: char_to_room(), obj_to_room(), extract_obj(), + extract_char_final(); + objsave.c: Obj_from_store(); + olc.c: do_olc(); + shop.c: shop_producing(), list_all_shops(), list_detailed_shop(); + spec_assign.c: ASSIGNMOB(), ASSIGNOBJ(), ASSIGNROOM(); + utils.h: various macros; + Final (?) batch of NOBODY/NOWHERE/NOTHING changes. + +-- gg - db.h: Export "top_of_*" variables. + +12/10/2001 + +-- ae - spec_procs.c: magic_user() special tried to cast SLEEP in combat. + SLEEP cannot be cast in combat -- changed this to POISON + instead. Reported by Jason Ziegler + limits.c, config.c: gain_exp() has a user definable bit of + behaviour to stop mortals from levelling up to immort level + if the mud admin desires. The default behaviour is to allow + this. Enough people asked how to do this so it got added. + +12/11/2001 + +-- ae - 25.obj: Fixed some keys that were demarked as food. Doh. + Reported by The Arrow + +1/2/2002 + +-- gg - act.wizard.c: do_stat(): Actually use the 'name' variable. + Reported by . + +-- gg - utils.c: number(): Duh, messed up the comment by accidently swapping + the 'from' and 'to' variables. Must've been late. + Noted by Juliano Ravasi Ferraz . + +1/10/2002 + +-- gg - db.c: renum_zone_table(): Better explanation of what it does, also + noting some assumptions it makes. Fixed to use room_rnum + instead of just 'int'. + +-- gg - utils.c: room_is_dark(): New, from the old IS_DARK() macro. + utils.h: Change IS_DARK; tweak some bounds checking on macros. + +-- gg - act.social.c: free_social_messages(): New. + ban.c: Free_Invalid_List(): New. + boards.c: Board_clear_all(), Board_clear_board(): New. + boards.h: Prototyping the above. + comm.c: main(): Big list of other memory to free on shutdown. + db.c: free_text_files(), free_player_index(), free_help(): New. + do_reboot(): Use free_help(). + db.h: Prototype the above three new functions. + fight.c: free_messages(), free_messages_type(): New. + mail.c: clear_free_list(): New. + +-- gg - castle.c: castle_mob_spec(): New. + assign_kings_castle(): Use castle_mob_spec(). + castle_virtual(): Use correct NOWHERE/NOTHING/NOBODY. + +-- gg - shop.c: read_type_list(): Handle end markers a little better. + +-- gg - castle.c: block_way(): room_vnum not room_rnum. + From Juliano Ravasi Ferraz . + +1/13/2002 + +-- gg - utils.c: get_line(): Handle \r in case the C library doesn't. + Fixes running under Cygwin which doesn't remove it. + From Patrick Dughi . + +-- gg - structs.h: Move toward unsigned index variables. Leave it as a + configuration option, defaulting to signed, for now. + +-- gg - act.wizard.c: do_purge(): Properly destroy equipment with + delayed extraction behavior. From + Juliano Ravasi Ferraz . + +-- gg - handler.c: extract_char(): Must remember the link-challenged. + +-- gg - act.other.c, act.wizard.c, class.c, comm.c, db.c, db.h, handler.c, + interpreter.c, limits.c, objsave.c: No longer twiddle the load + room in save_char(), nor pass it as a parameter. Any place + needing to change it use GET_LOADROOM. It's cleared upon login + to prevent it from sticking around forever, unless PLR_LOADROOM + is set. From Juliano Ravasi Ferraz . + +1/14/2002 + +-- ae - doc: Added the new pdf versions of the documents that have outdated + all of the prior text files. With this patch level, most of + the documents are (unfortunately) only available in PDF + format, but with Patch Level 21, they will be available in + text and html also. + +1/15/2002 + +-- gg - db.c: parse_simple_mob(): Format correct number (3) of arguments. + From Juliano Ravasi Ferraz . + +-- gg - act.wizard.c: do_teleport(): Stupid logic inversion fixed. This + was introduced in an earlier change this patchlevel. + +-- gg - act.wizard.c: do_load(): 'mob_vnum r_num'...? Fixed. Another + inter-patchlevel fix. + +-- gg - act.wizard.c: do_purge(): When clearing objects from characters, + also clear the ground afterwards. + +-- gg - ban.c: Free_Invalid_List(); + db.c: free_text_files(), free_help(), free_player_index(): + Make usable even when not shutting down. + +-- gg - act.informative.c: print_object_location(); + objsave.c: Crash_is_unrentable(): + '[<>]=? NOWHERE' is a nonsensical comparison. + +-- gg - shop.c: destroy_shops(): Make usable without shutdown. + +-- gg - Released patchlevel 20. + +******** Patchlevel 21 *************************************************** + +1/6/2002 + +-- gg - Makefile.lcc, structs.h: bpl20 -> bpl21 + README.CYGWIN: Reword to avoid changes every patchlevel. + +-- gg - db.c: Remove write-only variable 'top_of_p_file'. + From Juliano Ravasi Ferraz . + +-- gg - licheck: Last-minute file rename broke printing license. + +1/27/2002 + +-- gg - act.other.c, act.wizard.c, ban.c, class.c, comm.c, db.c, fight.c, + house.c, interpreter.c, limits.c, modify.c, objsave.c, + spells.c, utils.c, utils.h: Variable argument mudlog(). + +-- gg - comm.c, comm.h, handler.c, interpreter.c, modify.c: Replace + SEND_TO_Q with varargs write_to_output(). + +-- gg - utils.c: strlcpy(): New. + sprintbit(), sprinttype(): 'length' parameter. + +-- gg - castle.c: tim(), tom(), dickndavid(): Use 'argument', not 'arg'. + +-- gg - utils.c, utils.h, configure.in: Add proper autoconf support for + strdup and strlcpy. + +-- gg - sysdep.h, utils.c, utils.h: Do autoconf checks for str(n)casecmp + and str(n)icmp. + +-- gg - s/str_dup/strdup/ -- it's now an autoconf check. + +-- gg - Variable argument send_to_char(). + comm.c: Remove sanity_check(). + +1/31/2002 + +-- gg - sysdep.h, conf.h.in: Added autoconf check for mcheck.h. + +-- gg - structs.h: Remove unused 'last_direction' from mob_special_data. + From: Juliano Ravasi Ferraz + +-- gg - structs.h: Make mob_special_data.attack_type a byte. + act.wizard.c: Cast attack_type to integer for array access. + From: Juliano Ravasi Ferraz + +-- gg - act.movement.c act.wizard.c comm.c handler.c magic.c, + spec_procs.c spells.c utils.c: Remove redundant prototypes. + +-- gg - class.c, fight.c, objsave.c, shop.c: Added some casts for + C++ warnings, some of which I think I removed recently.. + +-- gg - act.movement.c: do_doorcmd(): Since LOCK_DOOR is no longer + a toggle and does what it says, lockpicking needed a + new TOGGLE_LOCK macro to work properly. (Unless you + always wanted to pick the lock locked, that is.) + +-- gg - structs.h: 'struct index_data' needs to use the *_vnum types. + From: Anton Graham + +-- gg - spec_procs.c: SPECIAL(dump): Use SCMD_DROP for do_drop() call. + From: Juliano Ravasi Ferraz + +-- gg - interpreter.c: find_name() and get_ptable_by_name() did the + same thing. Delete find_name() as it doesn't relate + to other functions as much. + From: Juliano Ravasi Ferraz + db.c: get_{ptable,id}_by_name(): Don't use one_argument since + names don't have whitespace anyway. + +-- gg - db.h: Remove 'arg', 'buf', 'buf1', and 'buf2' global buffers. + +-- gg - fight.c: death_cry(), damage(); + spells.c: spell_locate_object(): + ->in_room to IN_ROOM() + +-- gg - act.wizard.c: do_restore(): Allow people to restore themselves. + That's what I get for changing my mind at the last minute + for '>=' instead of '>'. + +-- gg - perl -i -pe 's/([^_])number\(/$1rand_number\(/g;' *.[ch] + Renamed number() to rand_number() to avoid shadowing variables + and also avoid a BSD function reportedly with that name. + +-- gg - Fixed -Wshadow warnings, most having to do with 'index'. + +2/15/2002 + +-- gg - act.movement.c: Removed unused DOOR_LOCK macro. + From: Juliano Ravasi Ferraz + +-- gg - interpreter.c: special(): Delayed extraction can result in dead + mobiles during special procedure check so avoid anyone + to be removed. + From: Welcor + fight.c: perform_violence(): Likewise. + +2/20/2002 + +-- gg - comm.c: vwrite_to_output(): Fix sign/unsign warning. + write_to_descriptor(): Not worth using varargs here. + comm.h: Update write_to_descriptor() prototype. + +3/3/2002 + +-- gg - act.item.c: give_find_vict(): Use skip_spaces(). + From: Juliano Ravasi Ferraz + +-- gg - fight.c: make_corpse(): Fix odd test. "A || (!A && B)" + From: Juliano Ravasi Ferraz + +-- gg - act.item.c: do_put(): Remove extra-dimensional bags. + From: Juliano Ravasi Ferraz + +-- gg - utils.h: Fixed unused OBJAFF_FLAGGED. + From: "Kras Kresh" + +-- gg - shop.c: Give discounts (or price-inflation) based on charisma. + +-- gg - act.wizard.c: do_advance(): Run autowiz when demoting gods. + class.c: do_start(): Reset max hit/mana/move but don't reset playtime. + db.c: init_char(): Use macros for more structure accesses. Don't set + hit/mana/move for characters here, but do set them for the + first character (implementor). Also comment the height/weight + values better. + limits.c: check_autowiz(): Rename to run_autowiz() and change to run + instead of test. + gain_exp(), gain_exp_regardless(): check_autowiz -> run_autowiz. + +3/20/2002 + +-- gg - cnf/aclocal.m4: Use 'official' method of a 3rd argument to AC_DEFINE() + to generate autoheader hints instead of a local hack to + autoheader itself. + cnf/configure.in: Add checks for more functions, more prototypes, and + mcheck.h. + +-- gg - conf.h.in: Regenerated due to AC_CHECK_PROTO changes. + +-- gg - act.wizard.c: do_stat_character(): Adjusted formatting of output. + +-- gg - alias.c: write_aliases(), write_aliases(); objsave.c: Add buffer + length argument to get_filename(). + read_aliases(): Error-check fscanf() results. Avoids infinite loop + while sucking down memory. + utils.c: get_filename(): Need a buffer length argument to write + proper amount. + utils.h: get_filename() prototype adjustment. + +-- gg - structs.h: title_type is no longer used. + +4/9/2002 + +-- gg - castle.c: king_welmar(), castle_twin_proc(); + comm.c: process_output(); + db.c: parse_room(), char_to_store(), fread_string(), file_to_string(); + handler.c: create_money(); + shop.c: shopping_buy(); + spec_procs.c: mayor(), puff(); + utils.c: mudlog(): + String buffer size assumption comments. + +-- gg - configure: Regenerated from configure.in + +-- gg - act.informative.c: show_obj_to_char(): Might as well use snprintf(). + db.c: global: Remove unused spell_info[] extern; + load_help(): Avoid help entry overflows. + shop.c: evaluate_expression(): Increase 'name' buffer size. + act.item.c: name_from_drinkcon(); + act.wizard.c: perform_set(); + ban.c: load_banned(), do_ban(); + comm.c: make_prompt(), new_descriptor(), perform_subst(); + db.c: save_char(); + interpreter.c: nanny(); + mail.c: store_mail(); + mobact.c: aggressive_mob_on_a_leash(); + modify.c: show_string(); + shop.c: evaluate_expression(), shopping_list(); + spec_procs.c: cityguard(); + spell_parser.c: say_spell(), find_skill_num(); + spells.h: struct spell_info_type; + utils.c: strlcpy(): + String buffer size comments. + +-- gg - class.c; spec_procs.c: guild_guard(); structs.h: Fix use of integers + for room virtual numbers in guild_info[] array. + From: Edward J Glamkowski + class.c: find_class_bitvector(); + act.informative.c: do_who(), do_users(): + Make find_class_bitvector() use parse_class() and loop itself. + Partially from: Edward J Glamkowski + +-- gg - comm.c: make_prompt(): People with 'disp none' need prompt[] + cleared first. + +-- gg - utils.c: mudlog(): Fixed parenthesis lost in reformatting. + From: kras_kresh@hotmail.com + +4/15/2002 + +-- gg - Makefile.in, conf.h.in, sysdep.h: Check for snprintf(). + bsd-snprintf.c, bsd-snprintf.h: BSD-licensed replacements for + snprintf() and vsnprintf() for platforms lacking them. + cnf/configure.in: HAVE_(V)SNPRINTF checks. + configure: Regenerated. + +******** Patchlevel 22 *************************************************** + +4/30/2002 + +-- gg - Makefile.lcc, structs.h, constants.c: bpl21 -> bpl22 + +-- gg - class.c: level_exp(): Fixed thief experience progression to be + less jumpy. Old: 10k 20k 30k 70k. + +-- gg - boards.c: find_board(): Check immortals' inventories for boards + so they can carry them around. Requires the config.c + setting 'load_into_inventory = YES' to actually be useful. + +5/1/2002 + +-- gg - shop.c: assign_the_shopkeepers(): Avoid assigning 'shop_keeper' + special procedure to SHOP_FUNC(). + From: "Kras Kresh" + +-- gg - act.movement.c: ok_pick(): Actually use dex_app_skill[].p_locks. + From: Edward J Glamkowski + +-- gg - objsave.c: gen_receptionist(): Make random actions work again. + From: "Kras Kresh" + +-- gg - house.c: House_list_guests(): Print out when all guests listed + are actually deleted instead of leaving empty "Guests:". + From: "Bob Castillo" + +5/2/2002 + +-- gg - handler.c: affect_total(): Bring affect_total() in line with + do_set()'s handling of godly statistics. + From: Edward J Glamkowski + +5/3/2002 + +-- ae - act.informative.c: do_weather(): added info on the actual numbers + for god+. + From: Edward J Glamkowski + +5/17/2002 + +-- gg - utils.c, utils.h: get_filename(): 'name' should be 'const char *'. + +-- gg - interpreter.c: nanny(): Remove aliases upon self-delete. + alias.c: delete_aliases(): New. + +-- gg - conf.h.win: Updated to new 'configure' checks. + sysdep.h: Aliases for (v)snprintf and MAX_PATH for Windows. + +5/19/2002 + +-- ae - building.tex: corrected the order of UNDERWATER and FLYING sector + types. From: nano.vladimir@slsp.sk + +-- ae - shop.c: list_detailed_shop(): A few \r\n markers were missing in the + output, specifically before the Shopkeeper:, Buys:, and + Buy at: lines. + From: Edward J Glamkowski + +6/13/2002 + +-- gg - doc/coding.doc: Beginnings of Chapter 2. + +6/17/2002 + +-- gg - doc/coding.doc: Sections 2.2.1 (partial) and 2.2.3. Some additions + to section 2.4.5. Also ran it through ispell. + +6/21/2002 + +-- gg - doc/coding.doc: Finish (?) section 2.4. Add TODO list. + +-- gg - doc/coding.doc: Finish section 2.2.2. + +-- gg - handler.h: Remove prototypes for non-existant functions: + get_obj, get_obj_in_list, Crash_get_filename. + +-- gg - comm.h: Remove prototype for non-existant function: perform_to_all. + +6/24/2002 + +-- gg - doc/coding.doc: Finish section 2.2.1. + +6/25/2002 + +-- gg - doc/coding.doc: Finish sections 3.6 and 3.7. + +6/28/2002 + +-- gg - act.informative.c: look_at_room(): Use '%s' format for rooms. + +-- gg - act.informative.c: list_one_char(): Missed a '+1' when converting + UPPER() usage. Found by Ken Ray . + +9/06/2002 + +-- ae - building.tex: Fixed a double "action bitvector" description (the + second was a typo for "affection bitvector"). + From Ken Ray + +-- ae - 30.obj: Changed the sdesc of #3003 (firebreather) to 'bottle'. + From Ken Ray + +-- ae - Various READMEs: Changed 'circle30bpl12' to be generic, and fixed some + small typos. From Julian Buckley + +9/25/2002 + +-- gg - act.other.c: do_display(); structs.h: Auto-prompt display. + +-- gg - act.wizard.c: do_wiznet(): Add missing "%s" formats in send_to_char(). + +-- gg - boards.c: Board_remove_msg(): Clear orphaned board message when + shifting the list down. Caused free() problems on shutdown. + +-- gg - comm.c: make_prompt(): Reorganization to make adding bits easier. + +-- gg - act.comm.c: do_gen_comm(): Missing \r\n at end of message. + From: "Thomas Arp" + +-- gg - act.item.c: perform_put(): Don't allow cursed items to be put into + a container not in the character's inventory. + +-- gg - comm.c: affect_update() is in magic.c, not spells.c + From: Mathew Earle Reuther + +-- gg - act.other.c: do_gen_tog(): Add 'bitvector_t' comment on variable. + From: Mike Stilson + +-- gg - act.other.c: do_quit(): Fix load room setting to virtual. + From: "The Fungi" + +-- gg - shop.c: list_detailed_shop(): Fix '>= 0' check to be '!= NOBODY'. + From: "The Fungi" + +-- gg - act.informative.c: do_where(); act.wizard.c: do_show(); + spec_procs.c: list_skills(); utils.c: sprintbit(): + 'nlen' should be 'int', to check return value of snprintf(). + From: Thomas Arp + +-- gg - shop.c: customer_string(): Loop reorganized to be cleaner and + remove a pointless use of strlcpy(). + +10/03/2002 + +-- gg - interpreter.c: perform_dupe_check(): Make immortals that have switched + into disconnected mortal bodies do a return instead of being + disconnected. Noted by: "Kras Kresh" + +-- gg - magic.c: mag_unaffects(): Make SPELL_HEAL special-case into a generic + solution instead. + +-- gg - interpreter.c: nanny(): Destroy d->character if player answers 'N' to + "Did I get that right?" prompt. There may be lingering + information from a deleted character. + From: "Kras Kresh" + +-- gg - shop.c: shopping_list(): Only display "none of those found" message + if actually asked to search for an object. + From: "Ken Ray" + +-- gg - comm.c: game_loop(): Change handling of process_output() and + ->has_prompt. + vwrite_to_output(): Truncate text to fit on overflow instead + of throwing it away. + write_to_descriptor(): Return number of bytes written. + process_output(): Keep data on socket write block. + +******** CircleMUD 3.1 *************************************************** + +11/15/2002 + +-- gg - comm.c: echo_on(), echo_off(): "%s" format strings, though not + necessary. + make_prompt(): Revert changeset #1.115. + process_output(): Cast 'result' to avoid unsigned warnings. + +-- gg - structs.h: Force 'byte' to signed char. Some platforms use + an unsigned char by default. + +-- gg - limits.c: gain_condition(): Cosmetic return -> break change. + +-- gg - lib/text/credits: Added Alex Fletcher, George Greer, and Daniel + Koepke. Changed jelson@ address to cdev@. + +-- gg - shop.h: Make it more obvious the WILL_* #define values are + bitvectors and not simply counting. + From: Carlton Colter + +-- gg - comm.c: process_output(): Correctly switch to large buffer + when text would just barely fit in the small buffer + then forget to change. + From: Yoram Harmelin + +-- gg - cnf/configure.in, cnf/aclocal.m4: Added -fno-builtin detection + to fix prototype testing. Functions such as bzero(), + printf(), and fprintf() were receiving false negatives. + configure: Regenerated. + +11/17/2002 + +-- gg - utils.h: Make TOGGLE_BIT "x^=y" instead of "x=x^y" to avoid + a VC++ warning. + +-- gg - house.c: House_delete_file(): Make 'vnum' a 'room_vnum' type. + +-- gg - castle.c: castle_mob_spec(): Use 'mob_vnum' type. + +-- ae - Updated docs, and added coding.tex/coding.pdf + +-- gg - autorun, autorun.cmd, autorun.pl, autorun.sh: Remove '3.0' + version number, to avoid needing to update it. + +-- gg - Makefile.lcc, constants.c, structs.h: bpl22 -> 3.1 + +-- gg - Makefile.amiga, Makefile.arc, Makefile.in, Makefile.lcc, Makefile.msvc, + Makefile.os2, Smakefile, magic.c, structs.h, Makefile.in: + Remove '3.0' version numbers to avoid updates. + +-- gg - util/Makefile.in: Remove '3.0' version numbers to avoid updates. + +-- gg - lib/world/README: Remove '3.0' version numbers to avoid updates. + +-- gg - lib/text/greetings, lib/text/imotd: Change 3.0 to 3.1. + +-- gg - doc/README-NOW: Deleted. + +-- gg - doc/README.AMIGA, doc/README.ARC, doc/README.BORLAND, doc/README.CYGWIN, + doc/README.MSVC4, doc/README.MSVC5, doc/README.MSVC6, + doc/README.OS2, doc/README.UNIX, doc/README.VMS, + doc/README.WATCOM, doc/README.WIN: Remove '3.0' version numbers + to avoid updates. diff --git a/FAQ b/FAQ new file mode 100644 index 0000000..5398119 --- /dev/null +++ b/FAQ @@ -0,0 +1,1431 @@ +WARNING: THIS FAQ IS OUT OF DATE + Please reference the FAQ in the doc/ directory of the distribution + instead. It is significantly more current. + + +Frequently Asked Questions (FAQ) for Circle DikuMud with Answers +Alex Fletcher, furry@circlemud.org + +This file is intended to cover common questions related to the CircleMUD +distributon source by Jeremy Elson (http://www.circlemud.org/~jelson/) and +not general DikuMUD questions. Any contributions and corrections are more +than welcome. It is currently maintained by Alex Fletcher (aka Furry) +. Please direct corrections to this address. The +original author was Ryan Watkins (aka VampLestat). More information about +CircleMUD, including up-to-date versions of this documentation in ASCII and +Postscript, can be found at the CircleMUD Home Page +(http://www.circlemud.org/) or FTP site +(ftp://ftp.circlemud.org/pub/CircleMUD/). + +______________________________________________________________________ + +Table of Contents + +1. Introduction + + 1.1 I've never played a MUD before. What should I do? + + 1.2 I'm new to C and/or coding. What do I do? + + 1.3 I want to build my own MUD. Where do I start? + + 1.4 What is CircleMUD? + + 1.5 What is the history of CircleMUD? + + 1.6 Where is the original CircleMUD so I can check it out? + + 1.7 Will the CircleMUD creators visit my mud? + + 1.8 What is UNIX? + + +2. Resources + + 2.1 Where do I find the source code for CircleMUD? + + 2.2 Where do I find areas, etc. for CircleMUD? + + 2.3 I have questions about CircleMUD. Where should I go? + + 2.4 How do I subscribe/unsubscribe to the Mailing List? + + 2.5 To what platforms has CircleMUD been ported? + + 2.6 How can I submit code or areas for use with CircleMUD? + + 2.7 How do I use a patch file and how can I make one? + + +3. Compiling CircleMUD + + 3.1 Why do I get many syntax errors with Sun's ``cc'' compiler? + + 3.2 Why do I get all sorts of errors with ``crypt'' functions and header files? + + 3.3 When I try to compile, why do I get a lot of undefined symbols + referenced in comm.o for functions like socket, accept, and bind? + + 3.4 Every time I try to compile Circle (or any other piece of software) + under Linux, it gives me errors and says it cannot find include header + files in the linux/ and asm/ directories. What can I do? + + 3.5 I'm getting compilation errors from a header file, and I didn't even + change it? + + 3.6 I'm trying to compile the MUD on Windows '95 and am having problems, + what can I do? + + 3.7 How can I do a ``grep'' on Windows 95? + + 3.8 While compiling the MUD, why do I get errors like ``foo.c:1231: + Undefined symbol `_whereamI' referenced from text segment'' + + 3.9 What is a parse error and how do I fix it? + + 3.10 I have this piece of code that calls bcopy(), bzero(), and bcmp() + and it won't compile, so what can I do? + + 3.11 My compiler doesn't have ``strdup()'', what can I do? + + 3.12 I am having trouble with my ``makefile'', what could be the problem? + + 3.13 How can I handle directories in C? + + +4. Running CircleMUD + + 4.1 I typed ``autorun'' but then my terminal just froze. + + 4.2 I typed ``bin/circle'' and got lots of boot messages, but then it + said ``Entering game loop'' and froze. + + 4.3 Okay, I think the MUD is running but why don't I get a login prompt? + + 4.4 How come I get this error when running my MUD: ``Error reading board: + No such file or directory'' + + 4.5 I just got this SIGPIPE, what is it and what Can I Do About It? + + 4.6 When I run Circle under Linux, it tells me ``gethostbyaddr: + connection refused'' when the MUD boots, and then dies. Why? + + 4.7 When I run Circle under Windows 95, it tells me ``Winsock error + #10047'' when the MUD boots, and then dies. Why? + + 4.8 When I run Circle under Windows 95, players can't rent---their + equipment is just dropped on the ground, syslogs don't work, so what + is the problem? + + 4.9 When someone logs on to my Windows 95 MUD, the console screen gives: + ``gethostbyaddr: No such file or directory'' + + 4.10 My MUD crashed and my connection got closed. What can I do? + + 4.11 Ok, so how do I use ``gdb''? + + 4.12 How can I hunt bugs more effectively? + + 4.13 I just added n levels to my MUD (from the stock 34). How do I set + my imps up to level n without a pfile wipe? + + 4.14 I decided to wipe my pfile away anyway. What steps should I take to + do this? + + 4.15 I want to expand the ability to pk in my MUD, allowing ASSASSINS + that'll be able to PK without getting flagged. How can I do this? + + 4.16 Why does it say ``Connection closed by foreign host.'' and not + display the ``Byebye!'' message I'm trying to send before cutting + someone off? + + 4.17 I run my MUD on a unix system and the pfile/rent file works great, + but on my home system it's all screwed up. What gives? + + 4.18 How do I get the CircleMUD to autoload when the Linux server is + restarted? + + 4.19 My server shuts down my MUD everytime I logoff. How do I keep the + MUD running when I logoff? + + +5. Code Changes for CircleMUD 2.20 + + 5.1 How do I fix the bug where people can junk more coins than available? + + 5.2 How do I fix the ``vstat'' bug that crashes the MUD? + + 5.3 How do I fix the ``wizlock'' bug that lets lower immortals lock out + higher immortals? + + 5.4 How do I fix the ``mudlog'' bug that lets people see me log in, even + if I'm wizinvis? + + +6. CircleMUD 3.0 Questions + + 6.1 Are there any bugs in patch level 19? + + 6.2 How do I access Online Creation? + + 6.3 How does the new bitvector system work? + + 6.4 When will the production release of Circle 3.0 be? + + 6.5 If someone logs in and just sits at the password prompt, the MUD + hangs (i.e., no one else can connect or do anything) until the person + enters their password. + + 6.6 Why does CircleMUD use BUF switches all through the code, what's + happening here? + + 6.7 How do I add a new class? How do I add more levels? + + 6.8 Is there a complete ``coding.doc''? + +______________________________________________________________________ + +1. Introduction + + +1.1. I've never played a MUD before. What should I do? + +Don't try to use your own copy of CircleMUD! There are two levels of MUD +users: players and administrators. Administrators do what you're trying to +do now -- get a copy of a MUD's source code, compile it, and run it. +Players use MUDs that are being administered by someone else. If you try to +actually run a MUD before you've ever played one, you'll get very confused +indeed! Your best bet for now is to play someone else's MUD first. There +are a large number of excellent MUDs out there already, some of which are +based on CircleMUD code. A good place to start looking is the MUD Connector +at: + +http://www.mudconnect.com/ + +The CircleMUD web server also has a smaller CircleMUD Site List at: + +http://www.circlemud.org/sites.html + + +1.2. I'm new to C and/or coding. What do I do? + +First, a MUD is not a learning project. It has thousands of lines to it, +many of which are obscure and unclear to even moderately skilled +programmers. Those little, ``Hello, world,'' programs are for learning, +maybe little math tests, etc. A MUD is a pretty ambitous project to start +with. That's like trying to run before you can walk, and while there's more +difficult things than a MUD to start with, there's a ton of easier things +you should start with. Second, if you are persistent, get a good C +reference book and read the code, try to comprehend what everything is doing +(to some small extent). You should probably avoid comm.c as it is home to +the socket functions which general C books don't cover and are usually +explained in other books on network programming. Then try small projects, +something similar to what already exists. This way, you can get away with a +cut-and-paste job and changing some of the code. Adding a simple version of +races isn't all that difficult, just examine the class code in class.c and +the CON_QCLASS block in interpreter.c, cut, paste, and modify. Also look at +structs.h, for "#define CLASS_" You'll begin understanding more and more of +the code as you copy and change it, eventually you'll be able to write a +whole function by yourself. Spend time learning, going with haste will hurt +you more than it will help you. + + +1.3. I want to build my own MUD. Where do I start? + +Many common questions arise from new MUD admins. It is a good idea to pay +attention to them and take their answers to heart. These include things +like the following: + +I don't have any coding experience with MUDs, but do have a lot of ideas for +my own. I have played many MUDs for a LONG time, though. + +Read the FAQ. MUD Experience doesn't help a huge amount. Code experience +does. + +I am interested in having a level system of 1-50 mortal and 51-60 imms. I +am also interested in adding races and classes. How can I accomplish these +things? + +By checking the FTP Site under contrib. +(ftp://ftp.circlemud.org/pub/CircleMUD/contrib). Learn a lot from there. +Learn from the Snippets page (http://developer.circlemud.org/snippets/), and +*know* the FAQ. + +Also, is there anything that I should know about CircleMUD being a "newbie" +to it? + +See the above comment. + + +1.4. What is CircleMUD? + +CircleMUD is a DikuMUD derivitave, developed by Jeremy Elson + and is from the Gamma v0.0 of DikuMUD created by Hans +Henrik Staerfeldt, Katja Nyboe, Tom Madsen, Michael Seifert and Sebastian +Hammer at DIKU (Computer Science Instutute at Copenhagen University). Note +that CircleMUD is a Diku derivative, so its users must follow the DIKU +license agreement---most notably it cannot be used to make money in ANY way, +the original developers' names must be in the login screen and that the +credits command always presents the same information, etc. + +Quoting from CircleMUD's release.doc: + + "CircleMUD is highly developed from the programming side, but highly + UNdeveloped on the game-playing side. So, if you're looking for a huge + MUD with billions of spells, skills, classes, races, and areas, Circle + will probably disappoint you severely. Circle still has only the 4 + original Diku classes, the original spells, the original skills, and + about a couple dozen areas. On the other hand, if you're looking for a + highly stable, well-developed, well-organized "blank slate" MUD on + which you can put your OWN ideas for spells, skills, classes, and + areas, then Circle might be just what you're looking for." + + +The latest full release of Circle is 2.20, released on November 17, 1993. +Currently 3.0 is in beta, at patch level 19, released on August 14, 2001. + + +1.5. What is the history of CircleMUD? + +o Version 2.00: July 16, 1993 +o Version 2.01: July 20, 1993 +o Version 2.02: Early August +o Version 2.10: September 1, 1993 +o Version 2.11: September 19, 1993 +o Version 2.20: November 17, 1993 + +Version 3.00 is currently in beta right now and is up to patchlevel 19. The +final release is due out Real Soon Now(tm). Don't bother posting requests +for it. It will be out when Jeremy gets it done, and it will be announced +on the mailing list and the newsgroup rec.games.mud.diku. + + +1.6. Where is the original CircleMUD so I can check it out? + +CircleMUD is a public code base, freely distributable, but the author of +Circle doesn't actually run one personally. There used to be CircleMUD, and +while Jeremy Elson continues to develop it, there is no original CircleMUD +any more. To see other MUDs that are using the CircleMUD code base, check +out this Site List: http://www.circlemud.org/sites.html + + +1.7 Will the CircleMUD creators visit my mud? + +While there is a possibility that one (or more) of the CircleMUD creators +will drop by your MUD for a visit, to play, or to simply look around, there +is a slim chance that they will even identify themselves. + +Would you like to see us on your MUD? You won't. We don't want free wizzes +or favours for our work here. In fact, we will state categorically that if +anyone comes on your MUD claiming to be associated with us, they aren't. + +If you want to check whether or not someone on your MUD really is one of us, +we can all be contacted by email for verification: + Jeremy Elson + Chris Epler + Alex Fletcher + George Greer + Daniel Koepke + Tony Robbins + +As an interesting side note, there are two interesting things about the +order of the addresses mentioned above: +* They are in alphabetical order by last name. +* They are in chronological order of when each person joined the + CircleMUD team. + + +1.8. What is UNIX? + +UNIX is not an operating system of itself, it's a type (flavour, if you +will) of operating systems. Many different kinds of UNIXes exist. Some of +them are free, some of them are not. How to tell if you have a UNIX +operating system? Well, UNIXes have the `ps' command, tend to have a `%' or +`#' prompt, give you a home directory, `who' will show who else is on the +system, etc. Many UNIX systems (such as Linux) strive to be POSIX +compatible, so you'll probably see POSIX mentioned, too. POSIX is, roughly, +the standards which UNIX operating systems go by. It says what makes an +operating system part of the UNIX family and so forth. Some UNIX operating +systems are not 100% POSIX compatible, actually, most aren't. The following +are types of UNIX (but not all the existing flavours): Linux, FreeBSD, BSD, +BSDi, Solaris. There are others. UNIX operating systems are command-based +and Microsoft does not make a variant. + + + +2. Resources + +2.1. Where do I find the source code for CircleMUD? + +Circle's complete source code and areas are available for anonymous FTP at +the CircleMUD FTP site: + +ftp://ftp.circlemud.org/pub/CircleMUD/ + +There is also a CircleMUD Home Page: + +http://www.circlemud.org/ + +for additional CircleMUD links and information. + + +2.2. Where do I find areas, etc. for CircleMUD? + +A number of CircleMUD based Implementors have submitted areas to the public +and they are archived at: + +ftp://ftp.circlemud.org/pub/CircleMUD/contrib/areas/ (California, USA) + +Or you can use one of the CircleMUD mirrors: + +ftp://ftp2.circlemud.org/pub/CircleMUD/ (Ohio, USA) +ftp://ftp.stormhaven.org/pub/CircleMUD/ (Virginia, USA) +ftp://ftp.mono.org/pub/mud/CircleMUD/ (London, UK) + +If you cannot use FTP, you can contact one of the site maintainers and +request a file. The maintainers are: + +Alex Fletcher +Chris Epler +George Greer + +If the FTP site is down, please try one of the mirrors and then contact Alex +at his alternate address since he will be +able to find out the situation. There is also a code snippets site at: + +http://developer.circlemud.org/snippets/ + +Where a number of code suggestions and hints are located. + + +2.3. I have questions about CircleMUD. Where should I go? + +If you have general questions about the MUD such as how to get it running, +how to add new spells, how to add new skills, etc., the first place you +should look is the documentation. `coding.doc' will have information about +how to add new spells, skills, commands, etc. `building.doc' has information +about how to create new worlds, how to read the database files, etc. There +are many other documents in the doc directory with useful information. + +There is also a new project, started in June of 1996, called the CircleMUD +Documentation Project (http://www.circlemud.org/~jelson/circle/cdp/) which +will eventually be a repository for all Circle-related information. It's +still being built as of this writing, but hopefully will become a valuable +resource as more documentation is added. + +If you still have questions after reading the doucmentation, you can try +asking on the CircleMUD mailing list (see next section). + +If you have a question you think is too "newbie" for the mailing list, try +the help database . Previous questions are accessible +though the bugs database (http://bugs.circlemud.org/). That is also, +incidently, where you should go to report bugs. + +You can also contact the author, Jeremy Elson . +George Greer can also be contacted for most +problems. + + +2.4. How do I subscribe/unsubscribe to the Mailing List? + +There is a CircleMUD mailing list for coders, builders, and administrators. +To subscribe, send a message to the list server +with a message body of subscribe circle . To +unsubscribe from the list send a message to with +the words unsubscribe circle as the message body. DO NOT send subscription +or unsubscription requests to the list in general. There are hundreds of +people on the list, and it will only irritate a ton of people who have no +power to remove you from the list. Read the Mailing List FAQ +(http://qsilver.queensu.ca/~fletchra/Circle/list_faq.html) for more +information. + + +2.5. To what platforms has CircleMUD been ported? + +Version 3.0, although still officially in beta-testing, is very portable +because it uses the GNU autoconf system, meaning you only need to type +``configure'' to have it automatically determine various features of your +system and configure the code accordingly. 3.0 compiles without changes +under most BSD and SVR4 systems, including SunOS, Solaris, Ultrix, IRIX, +AIX, Linux, BSD/OS, HP/UX, and others. + +Version 3.0 is also being ported to various non-UNIX platforms. As of +patchlevel 14, you can compile Circle under OS/2 2.x and 3.x with the OS/2 +port of gcc, Windows 95/NT using Microsoft Visual C++ version 4.0 or 5.0, +Borland (now Inprise) C++ 4.5, Watcom v.11, Cygnus GNU-WIN32, LCC, Macintosh +with CodeWarrior, Amiga, and Acorn RiscOS. + +The older version of the code, Version 2.20, compiles mainly on BSD UNIX +systems but has trouble under SVR4-based systems such as Solaris. The author +has personally compiled and tested v2.20 under Ultrix 4.0, IRIX 4.0.1, 4.0.4 +and 4.0.5, SunOS 4.1.1 and 4.1.3, AIX 3.2, Linux 0.99.x and 1.0.x, and +ConvexOS V10.2. Users have reported that v2.20 compiles with relatively +minor changes under NeXTStep 2.1 and 3.0, and HP/UX 9.0. + +Jean-Jack Riethoven ported CircleMUD version +2.20 to the Amiga and has contributed his code for version 3.0 of CircleMUD. +Questions about the Amiga source should be directed to Jean-Jack Riethoven, +not Jeremy Elson or George Greer. + + +2.6. How can I submit code or areas for use with CircleMUD? + +There is a special uploads area: + +ftp://upload.circlemud.org/pub/CircleMUD/incoming/ + +..in the CircleMUD domain for submissions of code, areas, utilities, +scripts, and anything else that might be of use to Circle users. Please +make sure only to upload to upload.circlemud.org and not any of the +CircleMUD mirrors. These portions of code or areas will probably not be +added to the full release of CircleMUD unless you make specific arrangements +with Jeremy for code items, or with Alex for area/lib files. + + +2.7. How do I use a patch file and how can I make one? + +Patch files are created and used using the ``diff'' and ``patch'' utilities, +respectively. They can both be downloaded from the GNU FTP Site +(ftp://ftp.gnu.org/pub/gnu/) under the name ``diffutils- xxx.tar.gz''. If +you happen to be using a DOS or Windows machine, you should get patch for +DOS (ftp://204.119.24.14/pub/patch/patch12.zip). This does not support long +filenames (but can be used with short filenames). There is also a set of +Windows 95 Utilities now available from the Cygnus Gnu-Win32 Project +(http://www.cygnus.com/misc/gnu-win32/). + +These are the various parameters to use with diff (all work in general on +unix based systems, but check out the help entries to be certain. + +diff -uN [original_src_directory] [altered_src_directory] > Patch + +-u is the unified output. ie. it tells diff to output the text what is +called ``patch'' style. On some systems, you will have to use -c but it +generates much larger and harder to follow patches. + +-N Tells diff to treat files that are in one directory and not there in the +other as being empty in the one they are not there. It allows entire files +to be included into the patch. + +-r recursive, add r to the uN above if you want it to recursively add in +any subdirectories. (be careful with this one) + +-p Tells diff to indicate what function is being ``patched'' in each +section. This may not be supported by all versions of ``diff.'' + +If you download a patch file and would like to add it to your code, first +make sure to read any instructions that the patch author might have written. +The command used to add the patch may vary depending on how the patch was +created. This should given in the first line of the patch or in the +instructions. Normally, if using GNU patch with a unified diff, the command +should be: + + patch -u < [patchfile] + +If the patch was created with a SYSV patcher (i.e. not a unified diff), the +patch should be added with: + + patch -c < [patchfile] + +Of course, if the instructions state otherwise, ignore any instruc- tions +given here and follow the instructions given with the patchfile instead. + +Finally, in modern patches, there are three characters of interest to note: + +o ! :: The line changes between new and old. +o + :: This line is added to the old to make the new. +o - :: This line is removed from the old to make the new. +o The rest of the lines are just there to give you an idea of where + to change. + + +3. Compiling CircleMUD + +3.1. Why do I get many syntax errors with Sun's ``cc'' compiler? + +Because Circle is written in ANSI C, and Sun's standard cc compiler isn't +capable of compiling ANSI C code. You can try acc, Sun's ANSI C compiler, +but it costs extra money to get it from Sun so your sysadmin may not have +installed it. Most don't. The best solution is to get the GCC compiler +from the GNU FTP site (ftp://ftp.gnu.org/pub/gnu) and install it, if you +have enough time and space. + + +3.2. Why do I get all sorts of errors with ``crypt'' functions and + header files? + +(This information applies ONLY to Version 3.0 of the code.) CircleMUD +normally uses the UNIX crypt() function to enrypt players' passwords. +Because of export restrictions imposed by the U.S., some systems do not have +the crypt() function. ``configure'' will usually be able to figure out +whether or not your system has crypt(), but if it guesses incorrectly and +you see problems with the crypt() function or headers, you can manually +disable password encryption by going into the sysdep.h source file and +uncommenting the line that reads: + + #define NOCRYPT + +Be warned, however, that doing this causes the MUD to store players' +passwords in plaintext rather than as encrypted strings. Also, if you move +from a system which has crypt to one that doesn't, players won't be able to +log in with their old passwords! + + +3.3. When I try to compile, why do I get a lot of undefined symbols + referenced in comm.o for functions like socket, accept, and bind? + +SVR4 systems require the socket and nsl libraries for network programs. You +shouldn't see this error any more with version 3.0 because ``configure'' +should automatically use those libraries for you; however, if you still have +problems, try adding ``-lsocket -lnsl'' to the line in the Makefile that +links all the object files together into the 'circle' binary. + +If you're using V2.20 and you have this error, the best thing to do is +simply to use V3.0 instead. If you insist on using 2.20, go into the +Makefile and search for the comment next to ``SVR4''. + +3.4. Every time I try to compile Circle (or any other piece of soft- ware) + under Linux, it gives me errors and says it cannot find include header + files in the linux/ and asm/ directories. What can I do? + +Under Linux, you cannot compile any program unless you install the kernel +source code because the kernel source includes the ANSI C header files. You +need the files in /usr/include/linux, which are distributed separately from +the rest of /usr/include. + +The easiest way to do this if you're using the Slackware Linux distribution +is simply to install the 'K' series of disks which is the kernel source. + +Otherwise, you'll have to set up your include files manually. The easiest +way to get these is to download kernel source from: + +http://www.kernel.org/mirrors/ + +Get the kernel source that matches the kernel you're running (type `uname +-a' to find your kernel version). Then unpack the kernel into the usr/src +/directory. It's about 13 megabytes compressed and 54 megabytes +uncompressed (For the 2.2.9 kernel). + +Read the README file that comes with the kernel, and make the symbolic links +you need for /usr/include/asm and /usr/include/linux. + +Now compile the MUD. This will take care of most of the errors. You may +have to do `make config' and `make dep' in /usr/src/linux as well, in order +to make linux/config.h and other files that get generated by these steps. + +You can remove the whole kernel source tree except for include/ at +this point and get most of your 48.5 megs back. + +(Thanks to Michael Chastain for providing this answer.) + + +3.5. I'm getting compilation errors from a header file, and I didn't even + change it? + +Okay, if you really didn't change ``structs.h'' then the error isn't in +``structs.h''. I think I've seen 2 cases where this has happened, the +first, is that the header file you included right before the header file +messing has an error in it. I can't really say much beyond that, but look +for a missing semicolon, are any other errors you can find. + +If you include files out of order, it can mess things up. For example, B.h +has stuff in it that is defined in A.h, and if you include B.h before A.h, +you can get errors, your best bet here is to mess with the order of the +headers, making sure you put ``conf.h'' and ``sysdep.h'' at the top, +followed by ``structs.h'', ``utils.h'', etc. Any file specific headers +should be the last one included just for coding style. + + +3.6. I'm trying to compile the mud on Windows '95 and am having prob- lems, + what can I do? + +The first thing to do is to make sure you are compiling a recent version of +the source code. Patch Level 11 and onwards all support Windows '95 winsock +sockets now. Second, you should ensure that you have carefully read the +README.WIN file for instructions on what to include. Next, ensure that you +are using a C compiler that supports long filenames (for example, MSVC 4.0 +does, MSVC 1.0 does not). If you happen to be trying to patch something +into your code, you should use patch for DOS +(ftp://204.119.24.14/pub/patch/patch12.zip). This does not support long +filenames (but can be used with short filenames). + + +3.7. How can I do a ``grep'' on Windows 95? + +1. Select ``start menu''->``find''->``files or folders'' +2. Enter the files/dirs to search in. +3. Select ``Advanced'' +4. In the ``Containing Text'' input box, type in the text you want. +5. Double click on a match to bring up the file that matched. + Even better is to use MSVC's find command (if you have it). + + +3.8. While compiling the mud, why do I get errors like ``foo.c:1231: + Undefined symbol `_whereamI' referenced from text segment'' + +You forgot to include a source file into the make. Go edit your Makefile +and make sure all the necessary *.c files are in there, in particular, +whichever C file defines the function that the compiler is complaining is +undefined. If all else fails, try deleting all the *.o files and +recompiling from scratch. + + +3.9. What is a parse error and how do I fix it? + +A parsing error is often a missing or extra semicolon, parenthesis, or +bracket ({). + +If the parse error is before a semicolon at the end of a line of code, it is +something on that line. + +If it is at the beginning of a line within a function, it is usually a +missing semicolon on the previous line. + +If it is at the beginning of a function, count your brackets (especially the +{} ones) in the previous function. + +I can't think of any other parse errors. These are the ones I commonly see. +With a bit of practice, they are very easy to locate and fix. For a more +detailed explanation, check out the C Language FAQ. + + +3.10. I have this piece of code that calls bcopy(), bzero(), and bcmp() and + it won't compile, so what can I do? + +All three of these functions are fairly standard on BSD systems. However, +they are not considered to be very portable, and thus should be redefined. +For example, the equivalents for SYSV are: + + +#define bcopy(from,to,len) memmove(to,from,len) +#define bzero(mem,len) memset(mem,0,len) +#define bcmp(a,b,len) memcmp(a,b,len) + + +3.11. My compiler doesn't have ``strdup()'', what can I do? + +Use Circle's built-in str_dup() function instead. + + +3.12. I am having trouble with my ``makefile'', what could be the problem? + +If you used cut and paste to insert items into your makefile, it is likely +that you accidentally put spaces at the beginning of lines where tabs are +needed. This is how the makefile must be constructed: + +foo.o: foo.c conf.h sysdep.h structs.h utils.h interpreter.h \ + handler.h db.h +{TAB}$(CC) -c $(CFLAGS) + +To add these lines properly, you can use gcc to assist you with the +following shell script (from Daniel Koepke): + +#!/bin/sh +gcc -MM $1 >> Makefile +echo "{TAB}\$(CC) -c \$(CFLAGS) $1" >> Makefile + +To use this script, replace {TAB} with a tab, and then run the script +like: add_file foo.c + + +3.13. How can I handle directories in C? + +Note that this seems only to be valid for UNIX OSes. Handling of +directories is accomplished through the dirent.h and sys/types.h files. The +function opendir() returns a ``DIR*'' pointer (it's like but not the same as +the ``FILE *'' pointer) when you pass it the name of a directory to open or +NULL if it can't open the dir. After the directory has been opened, you can +step through the files or search for particular files, etc. using readdir(), +seekdir(), and scandir(). When you reach the end of the directory list, you +can either go back to the start with rewinddir() or close the directory with +closedir(). The following code (which has not been tested) should open a +directory and go through it one by one and prints the filenames: + + struct dirent * ffile; + DIR * my_dir; + + if (!(my_dir = opendir("foo"))) + return; + + while (1) { + if (!(dirent = readdir(my_dir))) + break; + printf("%s\n", dirent->d_name); + } + + closedir(my_dir); + +The dirent structure contains only two useful elements, the file's name +(d_name) and the files length (d_reclen). + +Thanks to Daniel Koepke for the above. + + +4. Running CircleMUD + +4.1. I typed ``autorun'' but then my terminal just froze. + +autorun is a script which automatically runs, logs, and reboots the game for +long-term runs. You should run autorun in the background by typing +``./autorun &'' -- the MUD will start running in the background and you'll +get the normal UNIX prompt back immediately (see section 4.3). The game will +then run unattended until you explicitly shut it down. + +On some systems, you may need to prepend ``nohup'' to the autorun command +since some systems will kill off any processes left running when you leave +the shell. + + +4.2. I typed ``bin/circle'' and got lots of boot messages, but then it said + ``Entering game loop'' and froze. + +It is not frozen, it is just waiting for people to connect. You have to run +the MUD in the background by typing ``bin/circle &'' and then use telnet to +connect to the game (see next section). + + +4.3. Okay, I think the MUD is running but why don't I get a login prompt? + +In order to play the MUD, you must connect to it using the telnet command, +i.e. ``telnet localhost 4000''. + + +4.4. How come I get this error when running my mud: ``Error reading board: + No such file or directory'' + +This is not a bad thing, all it means is that you have some boards on the +mud and that it can't find the file for them. Since it can't find the file, +the mud will just create the file on the fly and use that, so the next time +something is posted to the board, the files will exist. However, if you did +have files for the boards and you are suddenly getting this error, it means +that the board files have been deleted or something similar. + + +4.5. I just got this SIGPIPE, what is it and what Can I Do About It? + +Often it appears that other people send your system SIGPIPEs when their +connection is closed, in fact, it is not the person sending the SIGPIPE, it +is your system. The SIGPIPE is generated when your program attempts to +write to descriptor which has no one listening to it. This occurs if the +character is sent a message by the mud after connecting, but before the +socket is flagged with an exception or reads 0 bytes. By default, CircleMUD +ignores these SIGPIPEs, with the line my_signal(SIGPIPE, SIG_IGN) in +signal_setup(). Where most people see the problems with SIGPIPE is while +debugging with GDB. By default, GDB responds to a SIGPIPE by stoping the +program, printing that a SIGPIPE was received, and passing it to the +program. You can change the action taken by GDB by using the `handle' +command. To stop the program from stoping at SIGPIPE, you would give GDB the +command `handle SIGPIPE nostop' + + +4.6. When I run Circle under Linux, it tells me ``gethostbyaddr: con- + nection refused'' when the MUD boots, and then dies. Why? + +You need to make sure you have Networking and TCP/IP support compiled into +your Linux kernel, even if you aren't actually connected to the Internet. +The easiest way to do this if you're using Slackware is to install one of +Slackware's precompiled networking kernels. Also, make sure to install +Slackware's `N' series of disks which contains other networking support +files. + +If Slackware's precompiled kernel isn't available you'll have to compile the +kernel yourself. First make sure the kernel source is installed in +/usr/src/linux (see section 3.1.4) and follow the instructions in +/usr/src/linux/README. When you do `make config' it will ask you a series of +questions about which kernel features you want; make sure to answer ``Y'' to +``Networking support'' and ``TCP/IP support''. + + +4.7. When I run Circle under Windows 95, it tells me ``Winsock error + #10047'' when the MUD boots, and then dies. Why? + +You need to configure TCP/IP networking from the Network Control Panel, even +if you are not connected to the Internet. From the Network Control Panel, +select ``Add Protocol'', and under the vendor ``Microsoft'', choose +``TCP/IP''. It may ask you to insert the Windows 95 CDROM in order to copy +the drivers onto your hard drive. + + +4.8. When I run Circle under Windows 95, players can't rent---their + equipment is just dropped on the ground, syslogs don't work, so what + is the problem? + +The reason that objects aren't saved when your players quit is that certain +unzip programs are buggy and don't completely recreate the MUD's directory +structure (in particular, it doesn't create directories which have no files +in them.) This is fixed in Circle 3.0 patchlevel 12 and above. Before +patchlevel 12, you can fix it simply by manually creating the needed +directories: + + CD \Circle30bpl11 + cd lib\plrobjs + mkdir A-E + mkdir F-J + mkdir K-O + mkdir P-T + mkdir U-Z + mkdir ZZZ + +Object saving should then work. The syslogs are a different story; no data +is written to the system logs because the code currently is configured +simply to write all errors to the standard error file descriptor (stderr), +and Windows doesn't seem to let you redirect stderr to a file the same way +UNIX does. pl12 allows you to direct logs to a specific file instead. + + +4.9. When someone logs on to my Windows 95 MUD, the console screen +gives: ``gethostbyaddr: No such file or directory'' + +This means the MUD can't resolve the IP address of the connecting player's +source site innto a hostname. You probably don't have DNS correctly +configured in the Windows Network Control Panel menu (under configuration of +the TCP protocol). Make sure you have the IP address of your ISP's DNS +server listed. + + +4.10. My MUD crashed and my connection got closed. What can I do? + +Just because your connection got closed from the MUD (for example, if you +get too much information sent to you and the telnet session gets closed), +this doesn't always mean that the game itself crashed. Before reporting +something as a crash bug, make sure that the game itself crashed, and above +all, try to duplicate the circumstances before reporting it as a crash bug. +You can also try using gdb to find out why the MUD is crashing if it gives +you a core dump. + + +4.11. Ok, so how do I use ``gdb''? + +GDB has some online help, though it is not the best. It does at least give +a summary of commands and what they're supposed to do. What follows is +Sammy's short intro to gdb with some bughunting notes following it: + +If you've got a core file, go to your top circle directory and type: + +> gdb bin/circle lib/core + +If you want to hunt bugs in real time (causing bugs to find the cause as +opposed to checking a core to see why the MUD crashed earlier) use: + +> gdb bin/circle + +If you're working with a core, gdb should show you where the crash occurred. +If you get an actual line that failed, you've got it made. If not, the +included message should help. If you're working in real time, now's the +time to crash the MUD so you can see what gdb catches. + +When you've got the crash info, you can type ``where'' to see which function +called the crash function, which function called that one, and so on all the +way up to ``main()''. + +I should explain about ``context'' You may type ``print ch'' which you +would expect to show you the ch variable, but if you're in a function that +doesn't get a ch passed to it (real_mobile, etc), you can't see ch because +it's not in that context. To change contexts (the function levels you saw +with where) type ``up'' to go up. You start at the bottom, but once you go +up, and up, and up, you can always go back ``down''. You may be able to go +up a couple functions to see a function with ch in it, if finding out who +caused the crash is useful (it normally isn't). + +The ``print'' command is probably the single most useful command, and lets +you print any variable, and arithmetic expressions (makes a nice calculator +if you know C math). Any of the following are valid and sometimes useful: + +print ch (fast way to see if ch is a valid pointer, 0 if it's not) +print *ch (prints the contents of ch, rather than the pointer address) +print ch->player.name (same as GET_NAME(ch)) +print world[ch->in_room].number (vnum of the room the char is in) + +etc.. + +Note that you can't use macros (all those handy psuedo functions like +GET_NAME and GET_MAX_HIT), so you'll have to look up the full structure path +of variables you need. + +Type ``list'' to see the source before and after the line you're currently +looking at. There are other list options but I'm unfamiliar with them. + +(From Sammy ) + +For more information, you can try checking out the GDB Debugger +(http://www.dgii.com/people/robertl/skunk/gdb/gdb_toc.html) + + +4.12. How can I hunt bugs more effectively? + +There are only a couple of commands to use in gdb, though with some patience +they can be very powerful. The only commands I've ever used are: + +run well, duh. +print [variable] also duh, though it does more than you might think +list shows you the source code in context +break [function] set a breakpoint at a function +clear [function] remove a breakpoint +step execute one line of code +cont continue running after a break or ctrl-c + +I've run into nasty problems quite a few times. The cause is often a memory +problem, usually with pointers, pointers to nonexistent memory. If you free +a structure, or a string or something, the pointer isn't always set to NULL, +so you may have code that checks for a NULL pointer that thinks the pointer +is ok since it's not NULL. You should make sure you always set pointers to +NULL after freeing them. + +Ok, now for the hard part. If you know where the problem is, you should be +able to duplicate it with a specific sequence of actions. That makes things +much easier. What you'll have to do is pick a function to ``break'' at. +The ideal place to break is immediately before the crash. For example, if +the crash occurred when you tried to save a mob with medit, you might be +able to ``break mobs_to_file''. Try that one first. + +When you `medit save', the MUD will hang. GDB will either give you segfault +info, or it will be stopped at the beginning of mobs_to_file. If it +segfaulted, pick an earlier function, like copy_mobile, or even do_medit. + +When you hit a breakpoint, print the variables that are passed to the +function to make sure they look ok. Note that printing the contents of +pointers is possible with a little playing around. For example, if you +print ch, you get a hex number that shows you the memory location where ch +is at. It's a little helpful, but try print *ch and you'll notice that it +prints the contents of the ch structure, which is usually more useful. +print ch->player will give you the name of the person who entered the +command you're looking at, and some other info. If you get a no ch in this +context it is because the ch variable wasn't passed to the function you're +currently looking at. + +Ok, so now you're ready to start stepping. When GDB hit your breakpoint, it +showed you the first line of executable code in your function, which will +sometimes be in your variable declarations if you initialized any variables +(ex: int i = 0). As you're stepping through lines of code, you'll see one +line at a time. Note that the line you see hasn't been run yet. It's +actually the _next_ line to be executed. So if the line is a = b + c;, +printing a will show you what a was before this line, not the sum of b and +c. If you have an idea of where the crash is occurring, you can keep +stepping till you get to that part of the code (tip: pressing return will +repeat the last GDB command, so you can type step once, then keep pressing +return to step quickly). If you have no idea where the problem is, the +quick and dirty way to find your crash is to keep pressing return rapidly +(don't hold the eturn key or you'll probably miss it). When you get the seg +fault, you can't step any more, so it should be obvious when that happens. + +Now that you've found the exact line where you get the crash, you should +start the MUD over and step more slowly this time. What I've found that +works really well to save time is to create a dummy function. This one will +work just fine: + +void dummy(void){} + +Put that somewhere in the file you're working on. Then, right before the +crash, put a call to dummy in the code (ex: dummy();). Then set your +breakpoint at dummy, andwhen you hit the breakpoint, step once to get back +to the crashing code. + +Now you're in total control. You should be looking at the exact line that +gave you the crash last time. Print *every* variable on this line. Chances +are one of them will be a pointer to an unaccessable memory location. For +example, printing ch->player.name may give you an error. If it does, work +your way back and print ch->player to make sure that one's valid, and if it +isn't, try printing ch. + +Somewhere in there you're going to have an invalid pointer. Once you know +which one it is, it's up to you to figure out why it's invalid. You may have +to move dummy() up higher in the code and step slowly, checking your pointer +all the way to see where it changes from valid to invalid. You may just +need to NULL a free'd pointer, or you may have to add a check for a NULL +pointer, or you may have screwed up a loop. I've done all that and more :) + +Well, that's it in a nutshell. There's a lot more to GDB that I haven't +even begun to learn, but if you get comfortable with print and stepping you +can fix just about any bug. I spent hours on the above procedure trying to +get my ascii object and mail saving working right, but it could have taken +weeks without gdb. The only other suggestion I have is to check out the +online gdb help. It's not very helpful for learning, but you can see what +commands are available and play around with them to see if you can find any +new tools. + +(From Sammy ) + + +4.13. I just added n levels to my MUD (from the stock 34). How do I set my + imps up to level n without a pfile wipe? + +You can write a quick and nasty function that will advance your imp (and imp +only) to the max level (LVL_IMPL). This can be done with a quick idnum +check so that only the original player (the first imp, he with id 1) can use +the command to get to maximum level. + +ACMD(do_upme) +{ + if (GET_IDNUM(ch) != 1) { + send_to_char("You think IMP positions are that easy to come by? Go Figure...\r\n", ch); + } else { + GET_LEVEL(ch) = LVL_IMPL; + send_to_char("Advanced.\r\n", ch); + } +} + + +4.14. I decided to wipe my pfile away anyway. What steps should I take to + do this? + +In order: +1. Shutdown the MUD with ``shutdown die'' so that it won't restart. +2. Remove the player file, lib/etc/players +3. Restart the MUD and login to recreate your imp character. + +You should probably also remove files in plrobjs, unless you want the +recreated characters to come back with the same equipment they had when they +were deleted. + + +4.15. I want to expand the ability to pk in my MUD, allowing ASSASSINS + that'll be able to PK without getting flagged. How can I do this? + +The simple way to do this is to find all the ``pk_allowed'' checks and +replace them with a can_murder(ch, vict) function call. Prototype the +function in utils.h. Then, in utils.c, create a can_murder() function +something like this: + +int can_murder(struct char_data *ch, struct char_data *victim) { + if (pk_allowed == TRUE) + return TRUE; + if (IS_NPC(ch) || IS_NPC(victim)) + return TRUE; /* you can always kill these */ + if (PLR_FLAGGED(ch, PLR_ASSASSIN)) + return TRUE; /* they can kill anyone */ + /* Add further checks here */ +} + + +4.16. Why does it say ``Connection closed by foreign host.'' and not + display the ``Byebye!'' message I'm trying to send before cutting + someone off? + +This usually happens if you are doing something like this: + + send_to_char("Bye bye. Come back soon, ya hear?", ch); + close_socket(ch->desc); + +The close_socket immediately dispatches/closes the connection, while +send_to_char puts the message on the output queue to be dispatched next +game_loop cycle. Therefore, the socket is gone. On some systems (ie old +linux), this can even cause a infinite loop attempting to write to a closed +socket. The proper way of doing this and other ``Byebye'' messages is to set +the CON state of the player to CLOSE, like this: + + send_to_char("Bye bye. Come back soon, ya hear?", ch); + STATE(ch->desc) = CON_CLOSED; + +This will then cycle to the next game_loop, dispatch the output queues +(therefore sending the byebye message) and then close the socket. Further +note, in some bizarre cases, this only seems to send about 40 characters and +no escape codes. Sending more than 40 characters or escape codes (like the +clear screen sequence) will crash the process reporting a problem similar to +writing to a closed socket. + + +4.17. I run my MUD on a unix system and the pfile/rent file works great, + but on my home system it's all screwed up. What gives? + +Some operating systems write binary data least-signifigant-digit- first, +while others write it most-significant-first (big endian vs. little endian). +Moving player files, rent files, mail files, and board files from one of +these systems to the other will result in corrupted files. The solutions to +this problem include: + +o Don't bother trying to move those files. +o Edit your code to always write in one format. +o Develop a binary to ascii conversion tool (and ascii to binary) for + all binary files. +o Develop an ascii read/write system to allow portability. + + +4.18. How do I get the CircleMUD to autoload when the Linux server is + restarted? + +In /etc/rc.d/rc.local find where things like sendmail and (maybe) gpm +are started. Add something like: + +cd /home/mudlogin/circlebpl19/ +su mudlogin -c ./autorun & +cd + +Of course, change the "mudlogin" to whatever the name of the account is that +normally has control of the MUD, and change the path in the first cd to +whereever the MUD is run from. + +For more info: man su + + +4.19. My server shuts down my MUD everytime I logoff. How do I keep the MUD + running when I logoff? + +Instead of typing "autorun &" to start the autorun script (which starts and +keeps the MUD running), type "nohup autorun &". Running the autorun via +nohup will keep the script and the MUD running when you logoff of the +server. For more information type "man nohup" at the prompt on your server. + + +5. Code Changes for CircleMUD 2.20 + +5.1. How do I fix the bug where people can junk more coins than available? + +Apprently in Circle 2.2, you can drop any amount of coins, and then be +rewarded with more coins than you had in the first place. Here is the fix +from Jeremy Elson: + +Around line 480 of act.obj1.c, you will find the code: + + if (!str_cmp("coins", arg) || !str_cmp("coin", arg)) + perform_drop_gold(ch, amount, mode, RDR); + else { + /* code to drop multiple items. anyone want to write it? -je */ + send_to_char("Sorry, you can't do that (yet)...\n\r", ch); +--> return; + } + } else { + .... + +It should be changed to: + + if (!str_cmp("coins", arg) || !str_cmp("coin", arg)) + perform_drop_gold(ch, amount, mode, RDR); + else { + /* code to drop multiple items. anyone want to write it? -je */ + send_to_char("Sorry, you can't do that (yet)...\n\r", ch); + } +--> return; + } else { + .... + + +5.2. How do I fix the ``vstat'' bug that crashes the MUD? + +To the fix for the vstat bug, from Jeremy Elson: + +In the file act.wizard.c, in the function do_vstat, in the mobile section of +the switch (around line 1150), you'll find the code: + + mob = read_mobile(r_num, REAL); + do_stat_character(ch, mob); + extract_char(mob); + +Add the line char_to_room(mob, 0) before extract_char(), like this: + + mob = read_mobile(r_num, REAL); + do_stat_character(ch, mob); + char_to_room(mob, 0); + extract_char(mob); + + +5.3. How do I fix the ``wizlock'' bug that lets lower immortals lock + out higher immortals? + +Simple, insert this code into 'do_wizlock()' in 'act.wizard.c': + + if (value < 0 || value > LEVEL_IMPL) { + send_to_char("Invalid wizlock value.\n\r", ch); + return; + } + ++ /* Do not allow people to wizlock above their level. ++ * This bug came with Circle 2.20 source -- VampLestat ++ */ ++ if (value > GET_LEVEL(ch)) { ++ send_to_char("You may only wizlock below your level.\n\r", ch); ++ return; ++ } + restrict = value; + + +5.4. How do I fix the ``mudlog'' bug that lets people see me log in, +even if I'm wizinvis? + +For all the mudlog calls for entering the game, quitting, and so +forth, you must change + + mudlog(MAX(LEVEL_IMMORT, ... + +to + + mudlog(MAX(GET_LEVEL(i), ... + +where ``i'' is either ``ch'' or ``d->character'' depending on the +call. + + +6. CircleMUD 3.0 Questions + +6.1. Are there any bugs in patch level 19? + +There are no bugs. Only features. Seriously though, if perchance you find +a bug, please mail it (along with a possible fix) to the bugs database + and the CircleMUD list. Once in the bug database, it +will be routed to the correct person. Note that no confirmation is sent +back automatically. You can view the status of the bug at the bugs database +(http://bugs.circlemud.org/). + + +6.2. How do I access Online Creation? + +Online Creation is not yet part of the Circle beta release. When it does +become part of the release, it'll be accessed through a command called olc. +Update: OLC will probably be in release 3.10 now, instead of 3.0. In the +mean time, check out the CircleMUD FTP Server: + +ftp://ftp.circlemud.org/pub/CircleMUD/contrib/olc/ + + +6.3. How does the new bitvector system work? + +The new bitvector system in CircleMUD 3.0 is an ascii based one. The old +numeric values can still be used, but the new system should make sorting +flags out substantially easier. The system uses an ``a'' as the value for +1, ``b'' for 2, ``c'' for 4, ``d'' for 8, etc. Once ``z'' is reached, the +next letter in sequence is ``A''. Detailed information about how to use +bitvectors with CircleMUD can be found in the CircleMUD Builder's Manual +(http://www.circlemud.org/~jelson/cdp/building/). + + +6.4. When will the production release of Circle 3.0 be? + +I don't know. Don't ask again. Same for the next patch level. If you must +have bleeding edge stuff, check out the CVS Snapshot +(ftp://ftp.circlemud.org/pub/CircleMUD/cvs/) until we get an online +anonymous CVS. And don't ask when the next CVS snapshot will be, we'll do +it when we have some changes worth it. + + +6.5. If someone logs in and just sits at the password prompt, the MUD hangs + (i.e., no one else can connect or do anything) until the person enters + their password. + +Your system's POSIX non-blocking I/O might be broken. Look in the source +file sysdep.h at the comment above the line that says ``#define +POSIX_NONBLOCK_BROKEN" for a possible fix. Once this is done, recompile the +MUD and try again. If you use the POSIX_NONBLOCK_BROKEN constant and it +fixes your problem, please send mail to the bugs database + and let us know exactly what kind of system you are +using and what you had to do to fix it. + + +6.6. Why does CircleMUD use BUF switches all through the code, what's + happening here? + +From Jeremy: + +This code is the new output buffering system that I wrote for Circle in the +early (non-released) beta versions of 3.0. The old Diku code for queueing +output (which stayed with Circle until version 2.20) was memory- and +time-inefficient in many cases (and, in my opinion, was inefficient for the +normal behavior of most MUDs). + +First, I should explain what output queueing is and why it is necessary. On +each pass through the game_loop(), the MUD performs a number of steps: check +to see if there are any new players connecting, kick out people with bad +links, read input over the network for all players, then process the input +for each player that has sent a complete line over the net. The processing +step is usually where output is generated because it is where MUD commands +are processed (e.g., ``kill'' might generate output of ``Kill who?'') When +output is generated, it is not immediately sent out to the player, but +instead queued for output in a buffer. After all players' commands are +processed (and each command generates the appropriate output for various +players), the next step of the game_loop() is to send all the queued output +out over the network. + +The new output system that Circle now uses allocates a small, fixed size +buffer (1024 bytes) for each descriptor in which output can be queued. When +output is generated (via such functions as send_to_char(), act(), etc.), it +is written to the fixed size buffer until the buffer fills. When the buffer +fills, we switch over to a larger (12K) buffer instead. A ``buffer +switch'', therefore, is when the 1024-byte fixed buffer overflows. + +When a large (12K) buffer is needed, it is taken from a pool of 12K buffers +that already been created. It is used for the duration of that pass through +the game_loop() and then returned to the pool immediately afterwards, when +the output is sent to the descriptor. If a large buffer is needed but none +are in the pool, one is created (thereby increasing the size of the pool); +the ``buf_largecount'' variable records the current pool size. + +If a player has already gone from their small to large buffer, and so much +output is generated that it fills even the large buffer, the descriptor is +changed to the overflow state, meaning that all future output for the +duration of the current pass through the game loop is discarded. This is a +buffer overflow, and the only state in which output is lost. + +Now that I've described how the system works, I'll describe the rationale. +The main purpose for the two-tiered buffer system is to save memory and +reduce CPU usage. From a memory standpoint: Allocating a fixed 12K buffer +for each socket is a simple scheme (and very easy to code), but on a large +MUD, 100 12K buffers can add up to a lot of wasted memory. (1.2 megs of +memory used for buffering on a 100-player MUD may not seem like very much, +but keep in mind that one of Circle's big selling points several years ago, +when memory was expensive, was that it had a very small memory footprint (3 +or 4 megs total!) And from a CPU standpoint: the original Diku used a +dynamically allocated buffer scheme to queue output, which unfortunately +meant that for each player, on each pass through the game loop, dozens of +tiny buffers (often one for every line of output, depending on the code to +execute the command) were allocated with malloc(), individually written to +the system using individual calls to write(), and then free()'d. My system +saves hundreds or thousands of calls per second to malloc() and free(), and +reduces the number of system calls *drastically* (to at most one per player +per pass through the game loop). + +The trick is to choose the size of the small and large buffers correctly in +order to find the optimal behavior. I consider ``optimal'' to mean that 90% +of the time, most players stay within the limits of their small buffer (for +example, when wandering through town or mindlessly killing some monster +while watching damage messages go by). Hopefully, a large buffer switch is +only necessary when a player executes a special command that generates an +unusually large amount of output, such as ``who'', ``read board'', or +``where sword''. This critically depends on the fact that not everyone will +be executing such a special large-output command at the same instant. + +For example, imagine you have 10 players on your MUD. They are all +wandering around town, and every once in a while one of them types ``who'', +or reads the board, meaning that they are seeing more than 1024 bytes of +output at a time. On such a MUD, I would hope that there would only be a +single 12K buffer allocated which gets passed around among all the 10 +players as needed. Now, all players think they can queue up to 12K of +output per command without getting truncated even though only one 12K buffer +actually exists -- they are all sharing it. + +But - there's a problem with this. There are certain cases when many +players have to see a lot of output at the same instant (i.e. on the same +pass through the game_loop()), all of them will need a large buffer at the +same time and the pool will get very big. For example, if an evil god types +``force all who''; or if the MUD lags for several seconds, then suddenly +gets unlagged causing many commands to be processed at the same moment; or +if 20 people are all trying to kill the same MOB and are all seeing 20 +damage messages (more than 1024 bytes) on the same pass through the +game_loop(). + +Unfortunately, the current patchlevel of Circle has no way to destroy large +buffers so such cases are pathological and cause wasted memory. +Unfortunately since I don't run a MUD I can't actually tell how often this +happens on a real MUD. (If there are any IMPs out there who run large MUDs +(say, >= 30-50 players on regularly), and you've read this far, please send +me the output of ``show stats'' after your MUD has been played for at least +several hours.) + +Hopefully this clears up the way buffers work. + + +6.7. How do I add a new class? How do I add more levels? + +Adding a new class is fairly easy in 3.0, in fact, someone has taken the +time to put together a fairly complete document on adding a class, in this +case a Knight class. The class.doc is available on the FTP site: + +ftp://ftp.circlemud.org/pub/CircleMUD/contrib/docs/3.x/class.txt + +The same applies for levels, in the file levels.doc +(ftp://ftp.circlemud.org/pub/CircleMUD/contrib/docs/3.x/levels.txt) +which can be found in the same place. + + +6.8. Is there a complete ``coding.doc''? + +No. Look at the README.NOW in the docs directory. It isn't complete, nor +does anyone have the entire thing. It is being worked upon. + +RTFM diff --git a/README b/README new file mode 100644 index 0000000..3d538b7 --- /dev/null +++ b/README @@ -0,0 +1,209 @@ + + CircleMUD README File + --------------------- + +Welcome to CircleMUD 3.1! I hope you enjoy your stay. + +More information about CircleMUD can be found at the CircleMUD Home Page: +http://www.circlemud.org. That site has the latest source distributions, +code contributions, areas, and documentation (online in HTML form, and +downloadable in ASCII or Postscript). CircleMUD's official FTP site is +ftp://ftp.circlemud.org. + +There is a mailing list for CircleMUD administrators and coders available. +To subscribe, write mail to listserv@post.queensu.ca with a message body +of "subscribe circle". Write to listserv@post.queensu.ca to send mail to +the list. We also now have email addresses for getting help +(help@circlemud.org), and reporting bugs (bugs@circlemud.org). + +Use of this software in any capacity implies that you have read, understood, +and agreed to abide by the terms and conditions set down by the CircleMUD +license contained in the file license.doc. + +Also, out of courtesy if nothing else, please keep the 'credits' file +intact. You can add your own credits on top of the existing file, but I'd +appreciate it if you would not simply remove it and all references to the +word "Circle" everywhere in the MUD. + +Jeremy Elson +jelson@circlemud.org + +---------------------------------------------------------------------------- + +Downloading CircleMUD +--------------------- + +You can find version 3.1 of CircleMUD at the following anonymous FTP sites: + + ftp.circlemud.org:/pub/CircleMUD/3.x + ftp2.circlemud.org:/pub/CircleMUD/3.x + ftp.stormhaven.org:/pub/CircleMUD/3.x + +You can also find information at the WWW site: + + http://www.circlemud.org/ + +The archive is offered in several formats -- for example, one that ends in +.tar.gz, one that ends in .bz2, and one that ends in .zip. All of these +archives have the exact same contents, but have been compressed using +different compression programs. UNIX users usually use the .tar.gz or .bz2 +versions; Windows and OS/2 users typically use the .zip version. + +The archive will be called something like "circleXXXX.tar.gz" (where +"XXXX" is the version number). + +Once you download the archive, you must decompress it. If you have the +.tar.gz version, uncompress it using gzip (GNU unzip) and the tar +archiver. (Both of these utilities can be downloaded from +ftp.gnu.ai.mit.edu:/pub/gnu if you don't have them.) To unpack the +archive on a UNIX system, type: + + gzip -dc circle30xxxx.tar.gz | tar xvf - + +If you have the .zip version, make sure to use an UNZIP program capable +of handling long filenames and which preserves the original directory +structure of the archive (PKUNZIP 2.04 does NOT do either of these things +by default). The best unzip program is the one made by the Info-Zip +team; it is compatible with all UNIX variants, Windows, OS/2, the Amiga, +and every other computer on the planet. For more information, see the +URL http://www.cdrom.com/pub/infozip/UnZip.html. If you have Windows +95, another good choice is WinZip (http://www.winzip.com/). + + +Compiling CircleMUD +------------------- + +CircleMUD compiles under a large number of operating systems; instructions +for compiling on each platform is in a different file. + +From here, read: + +doc/README.UNIX - If you have any type UNIX system, including Linux, + MkLinux, Ultrix, HP/UX, Solaris, SunOS, IRIX, FreeBSD, + OpenBSD, NetBSD, BSDi, Macintosh OS X, etc. + +doc/README.WIN - If you have Windows 95 or NT. + +doc/README.OS2 - If you are using OS/2 Warp Connect v3.0 or OS/2 v2.x. + +doc/README.AMIGA - If you are using an Amiga running AmigaDOS. (If you're + running NetBSD or Linux on an Amiga, use README.UNIX + instead.) + +doc/README.ARC - If you are using an Acorn running RiscOS. + +doc/README.VMS - If you happen to be on OpenVMS. + + +If you are interested in porting CircleMUD to a new platform, see the +file doc/porting.txt for some tips. + +Version 3.1 source currently does NOT compile under DOS, Windows 3.x, or +Windows for Workgroups. Also, we currently do not distribute binaries, +although the FTP site does have a very old Amiga binary of CircleMUD 2.20. + +For a small, private MUD, or a MUD used only for testing and development, +about 10 megs of disk space and 16 megs of memory should be sufficient. +For large, public MUDs with a large player base, 30 megs to 50 megs of +disk space and at least 32 megs of memory are recommended. Free memory +is much more important than CPU speed; CircleMUD uses virtually no CPU +time. + + +Other Documentation +------------------- + +If this information isn't enough to get you running, there's a lot more +information available. All documentation (other than this file) is in +the "doc" directory and available on-line at http://www.circlemud.org/. + +The README file in the doc directory describes each documentation file +in detail, but there are several main files which should be of interest: + +"The CircleMUD Administrator's Guide" (admin.pdf) + A good place to start after reading this README file, admin.txt gives +an overall description of how Circle works, how to get it to compile and +run for the first time, information about customizing and configuration +options and command-line arguments, and tips on maintenance and day-to-day +MUD administration. + +"The CircleMUD Builder's Manual" (building.pdf) + For the builders in your group, this documents the world-file format +and describes how to create new rooms, objects, and monsters. Also, it +describes how to add new areas to the MUD and gives some tips about game +balance and world-file debugging. + +"The CircleMUD Coder's Manual" (coding.pdf) + For the coders in your group, a technical reference describing some of +the more basic coding tasks such as how to add new commands, spells, +skills, socials, and classes. Note that it assumes the reader already has +an excellent knowledge of C; the manual is not a C tutorial. + +"The CircleMUD SYSERR List" (syserr.txt, syserr.ps) + A comprehensive list of all the possible SYSERR messages CircleMUD +can generate, and a description of what can cause each problem and how to +solve it. An excellent guide for troubleshooting and area debugging. +[NOTE: This document is not complete at this time] + + +Getting Help +------------ + +If you have strange problems -- and you can't figure out the answer by +reading the documentation -- fear not, there are many other resources +available. The best is probably our email alias specifically for newbie +questions: help@circlemud.org. Write to that address for basic questions +about getting Circle up and running. + +For more advanced discussion, you can use the CircleMUD Mailing List. +You can subscribe by writing mail to "listserv@post.queensu.ca" with a +message body of "subscribe circle". If you want to write mail to the +list, address it to "circle@post.queensu.ca". Over 400 CircleMUD imps +read that list regularly. + +If that doesn't work, you can always contact me directly by writing to +jelson@circlemud.org. Or, take a look at the CircleMUD Home Page which is +at http://www.circlemud.org which has extensive, up-to-date documentation +and patches on-line. + +Finally, if you have USENET access and are very brave, you can try posting +to the newsgroups rec.games.mud.diku or rec.games.mud.admin. + +No matter how you choose to get help, make sure to always include the +following information in your mail: + + -- The exact version of CircleMUD you're using (e.g., "CircleMUD 2.20", + "CircleMUD 3.0 beta patchlevel 12", etc.). + -- The EXACT text of any error messages, compiler errors, link errors, + or any other errors you're getting. + -- The exact type of hardware, operating system name and version, and + compiler you're using. + -- A description of ANY changes you've made, no matter how small, that + might have contributed to the error. + -- If you are having trouble getting Circle running for the very first + time, also be sure to include the output of 'configure' and the file + 'config.log'. + +Remember, I get dozens of pieces of email every day. If you don't bother to +give me an excellent description of your problem, I will be somewhat annoyed +and will not be able to help you. For example, this email that I received: + + hi I need some help with CircleMUD....i tried compiling it on my system + but I got all sorts of errors, and when i type bin/circle like it says + in the manual it doesn't work. Can you help???? you can log into my + system if you want, the password is mud5. + +Letters like that are always ignored. I get a lot of them. + + +Good luck, and have fun! + +Jeremy Elson +aka Ras/Rasmussen +jelson@circlemud.org + + +USE OF THIS SOFTWARE IN ANY CAPACITY IMPLIES THAT YOU HAVE READ, UNDERSTOOD, +AND AGREED TO ABIDE BY THE TERMS AND CONDITIONS SET DOWN BY THE CIRCLEMUD +LICENSE. + diff --git a/automaint b/automaint new file mode 100755 index 0000000..b70cd26 --- /dev/null +++ b/automaint @@ -0,0 +1,37 @@ +#!/bin/sh + +cat << EOF +This script will purge your playerfile, and then delete the object files +of all players not in the playerfile. A log of all deleted players, and +the reason for their deletion, will be kept in lib/etc/DELETED. If you +would like to adjust the allowable idle times before players are deleted, +edit src/util/purgeplay.c and recompile it. + +*************************************************************************** +Note, you should NEVER run this script while the MUD is running. Also, you +may wish to make a backup of your playerfile and/or object files before +purging them. +*************************************************************************** + +Press return to continue with the purge, Ctrl-C to quit... +EOF +read dummy +echo "Last chance to bail out. Press return now to purge old players." +read dummy + +echo "Purging playerfile, please wait..." +cd lib/etc +echo `date` >> DELETED +../../bin/purgeplay players >> DELETED + +if [ ! -z players.new ]; then + mv players players.old + mv players.new players +fi + +echo "Done." + +cd ../plrobjs +purgeobjs +cd ../.. +exit diff --git a/autorun b/autorun new file mode 100755 index 0000000..70ee8bf --- /dev/null +++ b/autorun @@ -0,0 +1,166 @@ +#!/bin/sh +# +# CircleMUD autorun script +# Contributions by Fred Merkel, Stuart Lamble, and Jeremy Elson +# New log rotating code contributed by Peter Ajamian +# Copyright (c) 1996 The Trustees of The Johns Hopkins University +# All Rights Reserved +# See license.doc for more information +# +############################################################################# +# +# This script can be used to run CircleMUD over and over again (i.e., have it +# automatically reboot if it crashes). It will run the game, and copy some +# of the more useful information from the system logs to the 'log' directory +# for safe keeping. +# +# You can control the operation of this script by creating and deleting files +# in Circle's root directory, either manually or by using the 'shutdown' +# command from within the MUD. +# +# Creating a file called .fastboot makes the script wait only 5 seconds +# between reboot attempts instead of the usual 60. If you want a quick +# reboot, use the "shutdown reboot" command from within the MUD. +# +# Creating a file called .killscript makes the script terminate (i.e., stop +# rebooting the MUD). If you want to shut down the MUD and make it stay +# shut down, use the "shutdown die" command from within the MUD. +# +# Finally, if a file called pause exists, the script will not reboot the MUD +# again until pause is removed. This is useful if you want to turn the MUD +# off for a couple of minutes and then bring it back up without killing the +# script. Type "shutdown pause" from within the MUD to activate this feature. +# + +# The port on which to run the MUD +PORT=4000 + +# Default flags to pass to the MUD server (see admin.txt for a description +# of all flags). +FLAGS='-q' + +# Number of syslog.# files to keep in the log directory. +BACKLOGS=6 + +# Each record in the following variable contains information for one log file. +# The fields are filename:maxlines:pattern where filename is the name of the +# log file, maxlines is the maximum number of lines in the file (0 for +# unlimited) and pattern is a pattern which must be matched for a line to get +# copied from syslog to this log file. +LOGFILES=' +delete:0:self-delete +dts:0:death trap +rip:0:killed +restarts:0:Running +levels:0:advanced +rentgone:0:equipment lost +usage:0:usage +newplayers:0:new player +errors:0:SYSERR +godcmds:0:(GC) +badpws:0:Bad PW +' + +# The following is the number of lines in syslog.CRASH. Set to 0 to disable +# crashlogs. +LEN_CRASHLOG=30 + +############################################################################# + +############# +# Functions # +############# + +# The proc_syslog function will grep the logs for the various different info +# and rotate the logs in the log directory. +proc_syslog () { + # Return if there's no syslog + if ! [ -s syslog ]; then return; fi + + # Create the crashlog + if [ -n "$LEN_CRASHLOG" -a "$LEN_CRASHLOG" -gt 0 ]; then + tail -n $LEN_CRASHLOG syslog > syslog.CRASH + fi + + # Append to the specialty logfiles and truncate to maximum length if + # applicable + OLD_IFS=$IFS + IFS=' +' + for rec in $LOGFILES; do + name=log/`echo $rec|cut -f 1 -d:` + len=`echo $rec|cut -f 2 -d:` + pattern=`echo $rec|cut -f 3- -d:` + + fgrep $pattern syslog >> $name + if [ $len -gt 0 ]; then + temp=`mktemp $name.XXXXXX` + tail -n $len $name > $temp + mv -f $temp $name + fi + done + IFS=$OLD_IFS + + # Find the # to set the new log file to. + if [ -s log/syslog.$BACKLOGS ]; then + declare -i newlog=$BACKLOGS+1 + else + declare -i newlog=1 + while [ -s log/syslog.$newlog ]; do newlog=$newlog+1; done + fi + + # Rotate the logs. + declare -i y=2 + while [ $y -lt $newlog ]; do + declare -i x=$y-1 + mv -f log/syslog.$y log/syslog.$x + y=$y+1 + done + mv -f syslog log/syslog.$newlog +} + + +######## +# Main # +######## + +# Check to see if there is a syslog which would indicate that autorun +# was improperly killed (ie maybe the system was rebooted or ?). +if [ -s syslog ]; then + echo Improper shutdown of autorun detected, rotating syslogs before startup. >> syslog + proc_syslog +fi + +# The main loop +while ( : ) do + + DATE=`date` + echo "autorun starting game $DATE" > syslog + echo "running bin/circle $FLAGS $PORT" >> syslog + + # On Cygwin, you may need to precede this next line with './' for + # './bin/circle' as the command. + bin/circle $FLAGS $PORT >> syslog 2>&1 + + if [ -r .killscript ]; then + DATE=`date`; + echo "autoscript killed $DATE" >> syslog + rm .killscript + proc_syslog + exit + fi + + if [ ! -r .fastboot ]; then + sleep 60 + else + rm .fastboot + fi + + while [ -r pause ]; do + sleep 60 + done + + proc_syslog + sleep 5 + +done diff --git a/autorun.README b/autorun.README new file mode 100644 index 0000000..857cb02 --- /dev/null +++ b/autorun.README @@ -0,0 +1,29 @@ +From: Peter Ajamian + +This is something I did a few weeks ago but didn't get around to +submitting it until now. Basically There have always been a few things +about the autorun script which have always irked me, this "improved" +version is my attempt to correct those deficiencies as well as to add a +little bit of extra functionality to the script. The script addresses +the following deficiencies: +- syslog rotation: When a new MUD is started an error is produced + during the syslog rotation after the first 6 times the MUD is run. This + is because there is no check for the existance of the files being + rotated. +- autorun crashes append to log instead of rotating: If autorun crashes, + or is manually killed, or a server reboot is done without first shutting + down the MUD then the new syslog will continue to append to the old one + instead of rotating the syslogs and starting a fresh one. This is + because the syslogs are currently rotated only _after_ the mud is + properly shut down. To correct for this I have allowed for syslog + rotation before the MUD boots as well. Also this script will detect + improper shutdown of autorun and make a note in the syslog before + rotating them. +- Better customization of grep-generated logs: Various options have been + added to the autorun script to allow for easy customization of + grep-generated logs. See the comments in the script for details. + +You may want to do some compatibility testing on varying platforms +because this uses various commands that were are not present in the +current autorun (cut, mktemp, and maybe others I can't think of now). +This script also uses functions. diff --git a/autorun.amiga b/autorun.amiga new file mode 100755 index 0000000..96c468e --- /dev/null +++ b/autorun.amiga @@ -0,0 +1,33 @@ +LAB runloop + + if exists .killscript then + delete .killscript quiet + SKIP the_end + endif + + if exists .fastboot then + wait 3 + delete .fastboot quiet + else + wait 5 + endif + + bin/Circle + + search nonum log/syslog "self-delete" >> log/delete + search nonum log/syslog "death trap" >> log/dts + search nonum log/syslog "killed" >> log/rip + search nonum log/syslog "Running" >> log/restarts + search nonum log/syslog "advanced" >> log/levels + search nonum log/syslog "equipment lost" >> log/rentgone + search nonum log/syslog "usage" >> log/usage + search nonum log/syslog "new player" >> log/newplayers + search nonum log/syslog "SYSERR" >> log/errors + search nonum log/syslog "(GC)" >> log/godcmds + search nonum log/syslog "Bad PW" >> log/badpws + + delete log/syslog quiet + + SKIP runloop BACK + +LAB the_end \ No newline at end of file diff --git a/autorun.cmd b/autorun.cmd new file mode 100644 index 0000000..29199e5 --- /dev/null +++ b/autorun.cmd @@ -0,0 +1,75 @@ +/* REXX */ +/* Note: This is an example Autorun REXX Script for use with OS/2 and + CircleMUD. You may use it as is, or as the basis for your own + script. + April 18, 1996 - David A. Carver */ + +/* CircleMUD autorun script + * Originally by Fred C. Merkel + * Copyright (c) 1993 The Trustees of The Johns Hopkins University + * All Rights Reserved + * See license.doc for more information + * + * If .fastboot exists, the script will sleep for only 5 seconds between + * reboot attempts. If .killscript exists, the script commit suicide (and + * remove .killscript). If pause exists, the script will repeatedly sleep for + * 60 seconds and will not restart the mud until pause is removed. + */ + +'echo off' + +PORT=4000 +FLAGS='' + +call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs" +call SysLoadFuncs + +Do forever + call SysCls + say center('CrapWeasel MUD',79) + say center('AutoRun Procedure',79) + 'del syslog' + Say "AutoRun starting game " || DATE() + "set EMXOPT=-h150" + + "bin\circle " FLAGS PORT || " >> syslog" + + + say 'Extracting little log information' + 'del log\*.* /n' + 'fgrep -w "self-delete" syslog >> log/delete' + 'fgrep -w "death trap" syslog >> log/dts' + 'fgrep -w "killed" syslog >> log/rip' + 'fgrep -w "Running" syslog >> log/restarts' + 'fgrep -w "advanced" syslog >> log/levels' + 'fgrep -w "equipment lost" syslog >> log/rentgone' + 'fgrep -w "usage" syslog >> log/usage' + 'fgrep -w "olc" syslog >> log/olc' + 'fgrep -w "new player" syslog >> log/newplayers' + 'fgrep -w "SYSERR" syslog >> log/errors' + 'fgrep -w "(GC)" syslog >> log/godcmds' + 'fgrep -w "Bad PW" syslog >> log/badpws' + 'fgrep -w "has connected" syslog >> log/whocon' + + Do while stream("pause","c","query exists")<>"" + Say "Pausing..." + Call SysSleep(10) + end + + if (stream("fastboot","c","query exists")="") then do + Say "Waiting 40 seconds to reboot" + Call SysSleep(40) + end + else do + "del fastboot" + Say "Waiting 5 seconds to reboot" + Call SysSleep(5) + end + + if (stream("killscr","c","query exists")<>"") then do + Say "Exiting autorun" + "echo autoscript killed "DATE() ">> syslog" + "del killscr" + exit + end +end diff --git a/autorun.pl b/autorun.pl new file mode 100755 index 0000000..5895af8 --- /dev/null +++ b/autorun.pl @@ -0,0 +1,107 @@ +#!/usr/bin/perl +# autorun -- maintain a Circle mud server +# Copyright (c)1995 Vi'Rage Studios + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. + +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. + +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + +# csh original by Fred C. Merkel, PERL conversion by D. Hall + +# .fastboot sleep for only 5 seconds, instead of the default 20 +# .killscript script will exit, and mud will not reboot +# .pause pause (sleep 1 minute intervals) until .pause it removed + +$port = 4000; +$flags = "-q"; + +$home = "."; +$bin = "$home/bin"; +$lib = "$home/lib"; +$log = "$home/log"; + +chdir $home; + +while (1) { + + # Open SYSLOG and dup STDERR into SYSLOG + open (SYSLOG, ">> syslog"); + open (STDERR, ">& SYSLOG"); + + print SYSLOG "autoscript starting game ", `date`; + open (SERVER, "bin/circle $flags $port |"); + + while () { + print SYSLOG; + } + + # First we open everything + open (SYSLOG, ">log/delete"); + open (DTRAPS, ">>log/dtraps"); + open (DEATHS, ">>log/deaths"); + open (REBOOT, ">>log/reboots"); + open (LEVELS, ">>log/levels"); + open (NORENT, ">>log/norent"); + open (USAGE, ">>log/usage"); + open (NEWPLR, ">>log/newplrs"); + open (SYSERR, ">>log/errors"); + open (GODCMD, ">>log/godcmds"); + open (BADPWS, ">>log/badpws"); + + # Then we stash everything + while () { + print DELETE if /self-delete/; + print DTRAPS if /death trap/; + print DEATHS if /killed/; + print REBOOT if /Running/; + print LEVELS if /advanced/; + print NORENT if /equipment lost/; + print USAGE if /usage/; + print NEWPLR if /new player/; + print SYSERR if /SYSERR/; + print GODCMD if /$GC$/; + print BADPWs if /Bad PW/; + } + close (SYSLOG); + + # Rotate SYSLOG files + unlink ('log/syslog.6'); + rename ('log/syslog.5', 'log/syslog.6'); + rename ('log/syslog.4', 'log/syslog.5'); + rename ('log/syslog.3', 'log/syslog.4'); + rename ('log/syslog.2', 'log/syslog.3'); + rename ('log/syslog.1', 'log/syslog.2'); + rename ('syslog' , 'log/syslog.1'); + + # should we stay dead? + if (-r '.killscript') { + unlink '.killscript'; + open (SYSLOG, '>> log/syslog.1'); + print SYSLOG "autoscript killed ", `date`; + exit; + } + + # or just play dead? + while (-r '.pause') { + sleep 60; + } + + # or reboot as soon as possible? + if (-r '.fastboot') { + unlink '.fastboot'; + sleep 5; + } else { + sleep 20 + } +} diff --git a/autorun.sh b/autorun.sh new file mode 100755 index 0000000..74980ec --- /dev/null +++ b/autorun.sh @@ -0,0 +1,92 @@ +#!/bin/sh +# +# CircleMUD autorun script +# Contributions by Fred Merkel, Stuart Lamble, and Jeremy Elson +# Copyright (c) 1996 The Trustees of The Johns Hopkins University +# All Rights Reserved +# See license.doc for more information +# +############################################################################# +# +# This script can be used to run CircleMUD over and over again (i.e., have it +# automatically reboot if it crashes). It will run the game, and copy some +# of the more useful information from the system logs to the 'log' directory +# for safe keeping. +# +# You can control the operation of this script by creating and deleting files +# in Circle's root directory, either manually or by using the 'shutdown' +# command from within the MUD. +# +# Creating a file called .fastboot makes the script wait only 5 seconds +# between reboot attempts instead of the usual 60. If you want a quick +# reboot, use the "shutdown reboot" command from within the MUD. +# +# Creating a file called .killscript makes the script terminate (i.e., stop +# rebooting the MUD). If you want to shut down the MUD and make it stay +# shut down, use the "shutdown die" command from within the MUD. +# +# Finally, if a file called pause exists, the script will not reboot the MUD +# again until pause is removed. This is useful if you want to turn the MUD +# off for a couple of minutes and then bring it back up without killing the +# script. Type "shutdown pause" from within the MUD to activate this feature. +# + +# The port on which to run the MUD +PORT=4000 + +# Default flags to pass to the MUD server (see admin.txt for a description +# of all flags). +FLAGS='-q' + +############################################################################# + +while ( : ) do + + DATE=`date` + echo "autorun starting game $DATE" >> syslog + echo "running bin/circle $FLAGS $PORT" >> syslog + + bin/circle $FLAGS $PORT >> syslog 2>&1 + + tail -30 syslog > syslog.CRASH + + fgrep "self-delete" syslog >> log/delete + fgrep "death trap" syslog >> log/dts + fgrep "killed" syslog >> log/rip + fgrep "Running" syslog >> log/restarts + fgrep "advanced" syslog >> log/levels + fgrep "equipment lost" syslog >> log/rentgone + fgrep "usage" syslog >> log/usage + fgrep "new player" syslog >> log/newplayers + fgrep "SYSERR" syslog >> log/errors + fgrep "(GC)" syslog >> log/godcmds + fgrep "Bad PW" syslog >> log/badpws + + rm log/syslog.1 + mv log/syslog.2 log/syslog.1 + mv log/syslog.3 log/syslog.2 + mv log/syslog.4 log/syslog.3 + mv log/syslog.5 log/syslog.4 + mv log/syslog.6 log/syslog.5 + mv syslog log/syslog.6 + touch syslog + + if [ -r .killscript ]; then + DATE=`date`; + echo "autoscript killed $DATE" >> syslog + rm .killscript + exit + fi + + if [ ! -r .fastboot ]; then + sleep 60 + else + rm .fastboot + sleep 5 + fi + + while [ -r pause ]; do + sleep 60 + done + +done diff --git a/bin/.gitignore b/bin/.gitignore new file mode 100644 index 0000000..ee26c68 --- /dev/null +++ b/bin/.gitignore @@ -0,0 +1,12 @@ +autowiz +delobjs +listrent +mudpasswd +play2to3 +purgeplay +shopconv +showplay +sign +split +wld2html +circle diff --git a/bin/README b/bin/README new file mode 100644 index 0000000..5da5ca5 --- /dev/null +++ b/bin/README @@ -0,0 +1 @@ +This is the directory for compiled binaries. diff --git a/cnf/README b/cnf/README new file mode 100644 index 0000000..a2af237 --- /dev/null +++ b/cnf/README @@ -0,0 +1,2 @@ +These files are for generating the 'configure' script. They are useless +to everyone except for hackers who know how to use GNU autoconf. JE 28 Oct 97 diff --git a/cnf/acconfig.h b/cnf/acconfig.h new file mode 100644 index 0000000..e07f499 --- /dev/null +++ b/cnf/acconfig.h @@ -0,0 +1,17 @@ +/* Define if we're compiling CircleMUD under any type of UNIX system. */ +#undef CIRCLE_UNIX + +/* Define if the system is capable of using crypt() to encrypt. */ +#undef CIRCLE_CRYPT + +/* Define if we don't have proper support for the system's crypt(). */ +#undef HAVE_UNSAFE_CRYPT + +/* Define is the system has struct in_addr. */ +#undef HAVE_STRUCT_IN_ADDR + +/* Define to `int' if doesn't define. */ +#undef socklen_t + +/* Define to `int' if doesn't define. */ +#undef ssize_t diff --git a/cnf/aclocal.m4 b/cnf/aclocal.m4 new file mode 100644 index 0000000..e43caef --- /dev/null +++ b/cnf/aclocal.m4 @@ -0,0 +1,77 @@ +AC_DEFUN(AC_CHECK_PROTO, +[ +ac_safe=translit($1, './+-', '__p_'); + +AC_MSG_CHECKING([if $1 is prototyped]) +AC_CACHE_VAL(ac_cv_prototype_$ac_safe, [# + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +AC_TRY_COMPILE([ +#define NO_LIBRARY_PROTOTYPES +#define __COMM_C__ +#define __ACT_OTHER_C__ +#include "src/sysdep.h" +#ifdef $1 + error - already defined! +#endif +void $1(int a, char b, int c, char d, int e, char f, int g, char h); +],dnl +, +eval "ac_cv_prototype_$ac_safe=no",eval "ac_cv_prototype_$ac_safe=yes") + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi +]) + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + AC_MSG_RESULT(yes) +else + AC_DEFINE(builtin(format, NEED_%s_PROTO, translit($1, 'a-z', 'A-Z')), , Check for a prototype to $1.) + AC_MSG_RESULT(no) +fi +]) + +dnl @@@t1="MAKE_PROTO_SAFE($1)"; t2="MAKE_PROTO_NAME($t1)"; literals="$literals $t2"@@@]) + + +AC_DEFUN(AC_UNSAFE_CRYPT, [ + AC_CACHE_CHECK([whether crypt needs over 10 characters], ac_cv_unsafe_crypt, [ + if test ${ac_cv_header_crypt_h-no} = yes; then + use_crypt_header="#include " + fi + if test ${ac_cv_lib_crypt_crypt-no} = yes; then + ORIGLIBS=$LIBS + LIBS="-lcrypt $LIBS" + fi + AC_TRY_RUN( +changequote(<<, >>)dnl +<< +#define _XOPEN_SOURCE +#include +#include +$use_crypt_header + +int main(void) +{ + char pwd[11], pwd2[11]; + + strncpy(pwd, (char *)crypt("FooBar", "BazQux"), 10); + pwd[10] = '\0'; + strncpy(pwd2, (char *)crypt("xyzzy", "BazQux"), 10); + pwd2[10] = '\0'; + if (strcmp(pwd, pwd2) == 0) + exit(0); + exit(1); +} +>> +changequote([, ])dnl +, ac_cv_unsafe_crypt=yes, ac_cv_unsafe_crypt=no, ac_cv_unsafe_crypt=no)]) +if test $ac_cv_unsafe_crypt = yes; then + AC_DEFINE(HAVE_UNSAFE_CRYPT) +fi +if test ${ac_cv_lib_crypt_crypt-no} = yes; then + LIBS=$ORIGLIBS +fi +]) diff --git a/cnf/configure.in b/cnf/configure.in new file mode 100644 index 0000000..1b4bc41 --- /dev/null +++ b/cnf/configure.in @@ -0,0 +1,215 @@ +dnl Process this file with autoconf to produce a configure script. +AC_INIT(src/act.comm.c) +AC_SUBST(MYFLAGS) +AC_SUBST(NETLIB) +AC_SUBST(CRYPTLIB) + +AC_CONFIG_HEADER(src/conf.h) +AC_DEFINE(CIRCLE_UNIX) + +dnl Find the 'more' program +AC_CHECK_PROGS(MORE, less most more cat) + +dnl Checks for programs. +AC_PROG_CC + +dnl If we're using gcc, use gcc options. +dnl If not, test for various common switches to make a 'cc' compiler +dnl compile ANSI C code. +if test $ac_cv_prog_gcc = yes; then + + dnl Determine if gcc -Wall causes warnings on isascii(), etc. + AC_CACHE_CHECK(whether ${CC-cc} -Wall also needs -Wno-char-subscripts, + ac_cv_char_warn, + [ + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -Wall -Werror" + AC_TRY_COMPILE([#include ], + [ int i; char c = '0'; + i = isascii(c); + i = isdigit(c); + i = isprint(c); + ], ac_cv_char_warn=no, ac_cv_char_warn=yes) + CFLAGS=$OLDCFLAGS + ]) + + dnl If Determine if gcc can accept -Wno-char-subscripts + AC_CACHE_CHECK(whether ${CC-cc} accepts -Wno-char-subscripts, ac_cv_gcc_ncs, + [ + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -Wno-char-subscripts" + AC_TRY_COMPILE(, , ac_cv_gcc_ncs=yes, ac_cv_gcc_ncs=no) + CFLAGS=$OLDCFLAGS + ]) + + dnl If Determine if gcc can accept -fno-builtin + AC_CACHE_CHECK(whether ${CC-cc} accepts -fno-builtin, ac_cv_gcc_fnb, + [ + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + AC_TRY_COMPILE(, , ac_cv_gcc_fnb=yes, ac_cv_gcc_fnb=no) + CFLAGS=$OLDCFLAGS + ]) + + dnl If gcc -Wall gives no warnings with isascii(), use "-Wall"; + dnl Otherwise, if gcc -Wall gives isascii warnings: + dnl If we can use -Wno-char-subscripts, use "-Wall -Wno-char-subscripts" + dnl If can't use -Wno-char-subscripts, use no flags at all. + + if test ${ac_cv_char_warn:-ERROR} = no; then + MYFLAGS="-Wall" + else + if test ${ac_cv_gcc_ncs:-ERROR} = yes; then + MYFLAGS="-Wall -Wno-char-subscripts" + else + MYFLAGS="" + fi + fi + +else + dnl We aren't using gcc so we can't assume any special flags. + MYFLAGS="" + +fi + +dnl Checks for libraries. We check for the library only if the function is +dnl not available without the library. +AC_CHECK_FUNC(gethostbyaddr, , + [AC_CHECK_LIB(nsl, gethostbyaddr, NETLIB="-lnsl $NETLIB")]) + +AC_CHECK_FUNC(socket, , + [AC_CHECK_LIB(socket, socket, NETLIB="-lsocket $NETLIB")]) + +AC_CHECK_FUNC(malloc, , + [AC_CHECK_LIB(malloc, malloc)]) + +AC_CHECK_FUNC(crypt, AC_DEFINE(CIRCLE_CRYPT), + [AC_CHECK_LIB(crypt, crypt, AC_DEFINE(CIRCLE_CRYPT) CRYPTLIB="-lcrypt")] + ) + +dnl Checks for header files. +AC_HEADER_STDC +AC_HEADER_SYS_WAIT +AC_CHECK_HEADERS(fcntl.h sys/fcntl.h errno.h net/errno.h string.h strings.h) +AC_CHECK_HEADERS(limits.h sys/time.h sys/select.h sys/types.h unistd.h) +AC_CHECK_HEADERS(memory.h crypt.h assert.h arpa/telnet.h arpa/inet.h) +AC_CHECK_HEADERS(sys/stat.h sys/socket.h sys/resource.h netinet/in.h netdb.h) +AC_CHECK_HEADERS(signal.h sys/uio.h mcheck.h) + +AC_UNSAFE_CRYPT + +dnl Checks for typedefs, structures, and compiler characteristics. +AC_C_CONST +AC_TYPE_PID_T +AC_TYPE_SIZE_T +AC_CHECK_TYPE(ssize_t, int) +AC_HEADER_TIME + +dnl Check for the 'struct in_addr' definition. Ugly, yes. +if test $ac_cv_header_netinet_in_h = no; then + ac_cv_struct_in_addr = no +else + if test $ac_cv_header_sys_types_h = yes; then + headers=`cat << EOF +#include +#include +EOF +` + else + headers="#include " + fi + + AC_CACHE_CHECK([for struct in_addr], ac_cv_struct_in_addr, + [ AC_TRY_COMPILE([$headers],[struct in_addr tp; tp.s_addr;], ac_cv_struct_in_addr=yes, ac_cv_struct_in_addr=no)]) + + if test $ac_cv_struct_in_addr = yes; then + AC_DEFINE(HAVE_STRUCT_IN_ADDR) + fi +fi + + +dnl Check for the 'typedef socklen_t' definition. Even uglier, yes. +if test $ac_cv_header_sys_socket_h = no; then + ac_cv_socklen_t = no; +else + AC_CACHE_CHECK([for typedef socklen_t], ac_cv_socklen_t, + [ AC_TRY_COMPILE([#include ],[socklen_t sl; sl=0;], ac_cv_socklen_t=yes, ac_cv_socklen_t=no)]) +fi + +if test $ac_cv_socklen_t = no; then + AC_DEFINE(socklen_t, int) +fi + + +dnl Checks for library functions. +AC_TYPE_SIGNAL +AC_FUNC_VPRINTF +AC_CHECK_FUNCS(gettimeofday select snprintf strcasecmp strdup strerror stricmp strlcpy strncasecmp strnicmp strstr vsnprintf) + +dnl Check for functions that parse IP addresses +ORIGLIBS=$LIBS +LIBS="$LIBS $NETLIB" +AC_CHECK_FUNCS(inet_addr inet_aton) +LIBS=$ORIGLIBS + +dnl Check for prototypes +AC_CHECK_PROTO(accept) +AC_CHECK_PROTO(atoi) +AC_CHECK_PROTO(atol) +AC_CHECK_PROTO(bind) +AC_CHECK_PROTO(bzero) +AC_CHECK_PROTO(chdir) +AC_CHECK_PROTO(close) +AC_CHECK_PROTO(crypt) +AC_CHECK_PROTO(fclose) +AC_CHECK_PROTO(fcntl) +AC_CHECK_PROTO(fflush) +AC_CHECK_PROTO(fprintf) +AC_CHECK_PROTO(fputc) +AC_CHECK_PROTO(fputs) +AC_CHECK_PROTO(fread) +AC_CHECK_PROTO(fscanf) +AC_CHECK_PROTO(fseek) +AC_CHECK_PROTO(fwrite) +AC_CHECK_PROTO(getpeername) +AC_CHECK_PROTO(getpid) +AC_CHECK_PROTO(getrlimit) +AC_CHECK_PROTO(getsockname) +AC_CHECK_PROTO(gettimeofday) +AC_CHECK_PROTO(htonl) +AC_CHECK_PROTO(htons) +AC_CHECK_PROTO(inet_addr) +AC_CHECK_PROTO(inet_aton) +AC_CHECK_PROTO(inet_ntoa) +AC_CHECK_PROTO(listen) +AC_CHECK_PROTO(ntohl) +AC_CHECK_PROTO(perror) +AC_CHECK_PROTO(printf) +AC_CHECK_PROTO(qsort) +AC_CHECK_PROTO(read) +AC_CHECK_PROTO(remove) +AC_CHECK_PROTO(rewind) +AC_CHECK_PROTO(select) +AC_CHECK_PROTO(setitimer) +AC_CHECK_PROTO(setrlimit) +AC_CHECK_PROTO(setsockopt) +AC_CHECK_PROTO(snprintf) +AC_CHECK_PROTO(socket) +AC_CHECK_PROTO(sprintf) +AC_CHECK_PROTO(sscanf) +AC_CHECK_PROTO(strcasecmp) +AC_CHECK_PROTO(strdup) +AC_CHECK_PROTO(strerror) +AC_CHECK_PROTO(stricmp) +AC_CHECK_PROTO(strlcpy) +AC_CHECK_PROTO(strncasecmp) +AC_CHECK_PROTO(strnicmp) +AC_CHECK_PROTO(system) +AC_CHECK_PROTO(time) +AC_CHECK_PROTO(unlink) +AC_CHECK_PROTO(vsnprintf) +AC_CHECK_PROTO(write) + +AC_OUTPUT(src/Makefile src/util/Makefile) +# +echo "Configuration completed. To compile, type: cd src; make" diff --git a/configure b/configure new file mode 100755 index 0000000..5bd8ad1 --- /dev/null +++ b/configure @@ -0,0 +1,5879 @@ +#! /bin/sh + +# Guess values for system-dependent variables and create Makefiles. +# Generated automatically using autoconf version 2.13 +# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. +# +# This configure script is free software; the Free Software Foundation +# gives unlimited permission to copy, distribute and modify it. + +# Defaults: +ac_help= +ac_default_prefix=/usr/local +# Any additions from configure.in: + +# Initialize some variables set by options. +# The variables have the same names as the options, with +# dashes changed to underlines. +build=NONE +cache_file=./config.cache +exec_prefix=NONE +host=NONE +no_create= +nonopt=NONE +no_recursion= +prefix=NONE +program_prefix=NONE +program_suffix=NONE +program_transform_name=s,x,x, +silent= +site= +srcdir= +target=NONE +verbose= +x_includes=NONE +x_libraries=NONE +bindir='${exec_prefix}/bin' +sbindir='${exec_prefix}/sbin' +libexecdir='${exec_prefix}/libexec' +datadir='${prefix}/share' +sysconfdir='${prefix}/etc' +sharedstatedir='${prefix}/com' +localstatedir='${prefix}/var' +libdir='${exec_prefix}/lib' +includedir='${prefix}/include' +oldincludedir='/usr/include' +infodir='${prefix}/info' +mandir='${prefix}/man' + +# Initialize some other variables. +subdirs= +MFLAGS= MAKEFLAGS= +SHELL=${CONFIG_SHELL-/bin/sh} +# Maximum number of lines to put in a shell here document. +ac_max_here_lines=12 + +ac_prev= +for ac_option +do + + # If the previous option needs an argument, assign it. + if test -n "$ac_prev"; then + eval "$ac_prev=\$ac_option" + ac_prev= + continue + fi + + case "$ac_option" in + -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; + *) ac_optarg= ;; + esac + + # Accept the important Cygnus configure options, so we can diagnose typos. + + case "$ac_option" in + + -bindir | --bindir | --bindi | --bind | --bin | --bi) + ac_prev=bindir ;; + -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) + bindir="$ac_optarg" ;; + + -build | --build | --buil | --bui | --bu) + ac_prev=build ;; + -build=* | --build=* | --buil=* | --bui=* | --bu=*) + build="$ac_optarg" ;; + + -cache-file | --cache-file | --cache-fil | --cache-fi \ + | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) + ac_prev=cache_file ;; + -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ + | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) + cache_file="$ac_optarg" ;; + + -datadir | --datadir | --datadi | --datad | --data | --dat | --da) + ac_prev=datadir ;; + -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ + | --da=*) + datadir="$ac_optarg" ;; + + -disable-* | --disable-*) + ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` + # Reject names that are not valid shell variable names. + if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then + { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } + fi + ac_feature=`echo $ac_feature| sed 's/-/_/g'` + eval "enable_${ac_feature}=no" ;; + + -enable-* | --enable-*) + ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` + # Reject names that are not valid shell variable names. + if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then + { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } + fi + ac_feature=`echo $ac_feature| sed 's/-/_/g'` + case "$ac_option" in + *=*) ;; + *) ac_optarg=yes ;; + esac + eval "enable_${ac_feature}='$ac_optarg'" ;; + + -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ + | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ + | --exec | --exe | --ex) + ac_prev=exec_prefix ;; + -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ + | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ + | --exec=* | --exe=* | --ex=*) + exec_prefix="$ac_optarg" ;; + + -gas | --gas | --ga | --g) + # Obsolete; use --with-gas. + with_gas=yes ;; + + -help | --help | --hel | --he) + # Omit some internal or obsolete options to make the list less imposing. + # This message is too long to be a string in the A/UX 3.1 sh. + cat << EOF +Usage: configure [options] [host] +Options: [defaults in brackets after descriptions] +Configuration: + --cache-file=FILE cache test results in FILE + --help print this message + --no-create do not create output files + --quiet, --silent do not print \`checking...' messages + --version print the version of autoconf that created configure +Directory and file names: + --prefix=PREFIX install architecture-independent files in PREFIX + [$ac_default_prefix] + --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX + [same as prefix] + --bindir=DIR user executables in DIR [EPREFIX/bin] + --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] + --libexecdir=DIR program executables in DIR [EPREFIX/libexec] + --datadir=DIR read-only architecture-independent data in DIR + [PREFIX/share] + --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] + --sharedstatedir=DIR modifiable architecture-independent data in DIR + [PREFIX/com] + --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] + --libdir=DIR object code libraries in DIR [EPREFIX/lib] + --includedir=DIR C header files in DIR [PREFIX/include] + --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] + --infodir=DIR info documentation in DIR [PREFIX/info] + --mandir=DIR man documentation in DIR [PREFIX/man] + --srcdir=DIR find the sources in DIR [configure dir or ..] + --program-prefix=PREFIX prepend PREFIX to installed program names + --program-suffix=SUFFIX append SUFFIX to installed program names + --program-transform-name=PROGRAM + run sed PROGRAM on installed program names +EOF + cat << EOF +Host type: + --build=BUILD configure for building on BUILD [BUILD=HOST] + --host=HOST configure for HOST [guessed] + --target=TARGET configure for TARGET [TARGET=HOST] +Features and packages: + --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) + --enable-FEATURE[=ARG] include FEATURE [ARG=yes] + --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] + --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) + --x-includes=DIR X include files are in DIR + --x-libraries=DIR X library files are in DIR +EOF + if test -n "$ac_help"; then + echo "--enable and --with options recognized:$ac_help" + fi + exit 0 ;; + + -host | --host | --hos | --ho) + ac_prev=host ;; + -host=* | --host=* | --hos=* | --ho=*) + host="$ac_optarg" ;; + + -includedir | --includedir | --includedi | --included | --include \ + | --includ | --inclu | --incl | --inc) + ac_prev=includedir ;; + -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ + | --includ=* | --inclu=* | --incl=* | --inc=*) + includedir="$ac_optarg" ;; + + -infodir | --infodir | --infodi | --infod | --info | --inf) + ac_prev=infodir ;; + -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) + infodir="$ac_optarg" ;; + + -libdir | --libdir | --libdi | --libd) + ac_prev=libdir ;; + -libdir=* | --libdir=* | --libdi=* | --libd=*) + libdir="$ac_optarg" ;; + + -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ + | --libexe | --libex | --libe) + ac_prev=libexecdir ;; + -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ + | --libexe=* | --libex=* | --libe=*) + libexecdir="$ac_optarg" ;; + + -localstatedir | --localstatedir | --localstatedi | --localstated \ + | --localstate | --localstat | --localsta | --localst \ + | --locals | --local | --loca | --loc | --lo) + ac_prev=localstatedir ;; + -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ + | --localstate=* | --localstat=* | --localsta=* | --localst=* \ + | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) + localstatedir="$ac_optarg" ;; + + -mandir | --mandir | --mandi | --mand | --man | --ma | --m) + ac_prev=mandir ;; + -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) + mandir="$ac_optarg" ;; + + -nfp | --nfp | --nf) + # Obsolete; use --without-fp. + with_fp=no ;; + + -no-create | --no-create | --no-creat | --no-crea | --no-cre \ + | --no-cr | --no-c) + no_create=yes ;; + + -no-recursion | --no-recursion | --no-recursio | --no-recursi \ + | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) + no_recursion=yes ;; + + -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ + | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ + | --oldin | --oldi | --old | --ol | --o) + ac_prev=oldincludedir ;; + -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ + | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ + | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) + oldincludedir="$ac_optarg" ;; + + -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) + ac_prev=prefix ;; + -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) + prefix="$ac_optarg" ;; + + -program-prefix | --program-prefix | --program-prefi | --program-pref \ + | --program-pre | --program-pr | --program-p) + ac_prev=program_prefix ;; + -program-prefix=* | --program-prefix=* | --program-prefi=* \ + | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) + program_prefix="$ac_optarg" ;; + + -program-suffix | --program-suffix | --program-suffi | --program-suff \ + | --program-suf | --program-su | --program-s) + ac_prev=program_suffix ;; + -program-suffix=* | --program-suffix=* | --program-suffi=* \ + | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) + program_suffix="$ac_optarg" ;; + + -program-transform-name | --program-transform-name \ + | --program-transform-nam | --program-transform-na \ + | --program-transform-n | --program-transform- \ + | --program-transform | --program-transfor \ + | --program-transfo | --program-transf \ + | --program-trans | --program-tran \ + | --progr-tra | --program-tr | --program-t) + ac_prev=program_transform_name ;; + -program-transform-name=* | --program-transform-name=* \ + | --program-transform-nam=* | --program-transform-na=* \ + | --program-transform-n=* | --program-transform-=* \ + | --program-transform=* | --program-transfor=* \ + | --program-transfo=* | --program-transf=* \ + | --program-trans=* | --program-tran=* \ + | --progr-tra=* | --program-tr=* | --program-t=*) + program_transform_name="$ac_optarg" ;; + + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + silent=yes ;; + + -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) + ac_prev=sbindir ;; + -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ + | --sbi=* | --sb=*) + sbindir="$ac_optarg" ;; + + -sharedstatedir | --sharedstatedir | --sharedstatedi \ + | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ + | --sharedst | --shareds | --shared | --share | --shar \ + | --sha | --sh) + ac_prev=sharedstatedir ;; + -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ + | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ + | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ + | --sha=* | --sh=*) + sharedstatedir="$ac_optarg" ;; + + -site | --site | --sit) + ac_prev=site ;; + -site=* | --site=* | --sit=*) + site="$ac_optarg" ;; + + -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) + ac_prev=srcdir ;; + -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) + srcdir="$ac_optarg" ;; + + -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ + | --syscon | --sysco | --sysc | --sys | --sy) + ac_prev=sysconfdir ;; + -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ + | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) + sysconfdir="$ac_optarg" ;; + + -target | --target | --targe | --targ | --tar | --ta | --t) + ac_prev=target ;; + -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) + target="$ac_optarg" ;; + + -v | -verbose | --verbose | --verbos | --verbo | --verb) + verbose=yes ;; + + -version | --version | --versio | --versi | --vers) + echo "configure generated by autoconf version 2.13" + exit 0 ;; + + -with-* | --with-*) + ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` + # Reject names that are not valid shell variable names. + if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then + { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } + fi + ac_package=`echo $ac_package| sed 's/-/_/g'` + case "$ac_option" in + *=*) ;; + *) ac_optarg=yes ;; + esac + eval "with_${ac_package}='$ac_optarg'" ;; + + -without-* | --without-*) + ac_package=`echo $ac_option|sed -e 's/-*without-//'` + # Reject names that are not valid shell variable names. + if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then + { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } + fi + ac_package=`echo $ac_package| sed 's/-/_/g'` + eval "with_${ac_package}=no" ;; + + --x) + # Obsolete; use --with-x. + with_x=yes ;; + + -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ + | --x-incl | --x-inc | --x-in | --x-i) + ac_prev=x_includes ;; + -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ + | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) + x_includes="$ac_optarg" ;; + + -x-libraries | --x-libraries | --x-librarie | --x-librari \ + | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) + ac_prev=x_libraries ;; + -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ + | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) + x_libraries="$ac_optarg" ;; + + -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } + ;; + + *) + if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then + echo "configure: warning: $ac_option: invalid host type" 1>&2 + fi + if test "x$nonopt" != xNONE; then + { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } + fi + nonopt="$ac_option" + ;; + + esac +done + +if test -n "$ac_prev"; then + { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } +fi + +trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 + +# File descriptor usage: +# 0 standard input +# 1 file creation +# 2 errors and warnings +# 3 some systems may open it to /dev/tty +# 4 used on the Kubota Titan +# 6 checking for... messages and results +# 5 compiler messages saved in config.log +if test "$silent" = yes; then + exec 6>/dev/null +else + exec 6>&1 +fi +exec 5>./config.log + +echo "\ +This file contains any messages produced by compilers while +running configure, to aid debugging if configure makes a mistake. +" 1>&5 + +# Strip out --no-create and --no-recursion so they do not pile up. +# Also quote any args containing shell metacharacters. +ac_configure_args= +for ac_arg +do + case "$ac_arg" in + -no-create | --no-create | --no-creat | --no-crea | --no-cre \ + | --no-cr | --no-c) ;; + -no-recursion | --no-recursion | --no-recursio | --no-recursi \ + | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; + *" "*|*" "*|*[\[\]\~\#\$\^\&\*\{\}\\\|\;\<\>\?]*) + ac_configure_args="$ac_configure_args '$ac_arg'" ;; + *) ac_configure_args="$ac_configure_args $ac_arg" ;; + esac +done + +# NLS nuisances. +# Only set these to C if already set. These must not be set unconditionally +# because not all systems understand e.g. LANG=C (notably SCO). +# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! +# Non-C LC_CTYPE values break the ctype check. +if test "${LANG+set}" = set; then LANG=C; export LANG; fi +if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi +if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi +if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi + +# confdefs.h avoids OS command line length limits that DEFS can exceed. +rm -rf conftest* confdefs.h +# AIX cpp loses on an empty file, so make sure it contains at least a newline. +echo > confdefs.h + +# A filename unique to this package, relative to the directory that +# configure is in, which we can look for to find out if srcdir is correct. +ac_unique_file=src/act.comm.c + +# Find the source files, if location was not specified. +if test -z "$srcdir"; then + ac_srcdir_defaulted=yes + # Try the directory containing this script, then its parent. + ac_prog=$0 + ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` + test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. + srcdir=$ac_confdir + if test ! -r $srcdir/$ac_unique_file; then + srcdir=.. + fi +else + ac_srcdir_defaulted=no +fi +if test ! -r $srcdir/$ac_unique_file; then + if test "$ac_srcdir_defaulted" = yes; then + { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } + else + { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } + fi +fi +srcdir=`echo "${srcdir}" | sed 's%$[^/]$/*$%\1%'` + +# Prefer explicitly selected file to automatically selected ones. +if test -z "$CONFIG_SITE"; then + if test "x$prefix" != xNONE; then + CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" + else + CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" + fi +fi +for ac_site_file in $CONFIG_SITE; do + if test -r "$ac_site_file"; then + echo "loading site script $ac_site_file" + . "$ac_site_file" + fi +done + +if test -r "$cache_file"; then + echo "loading cache $cache_file" + . $cache_file +else + echo "creating cache $cache_file" + > $cache_file +fi + +ac_ext=c +# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. +ac_cpp='$CPP $CPPFLAGS' +ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' +ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' +cross_compiling=$ac_cv_prog_cc_cross + +ac_exeext= +ac_objext=o +if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then + # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. + if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then + ac_n= ac_c=' +' ac_t=' ' + else + ac_n=-n ac_c= ac_t= + fi +else + ac_n= ac_c='\c' ac_t= +fi + + + + + + + +cat >> confdefs.h <<\EOF +#define CIRCLE_UNIX 1 +EOF + + +for ac_prog in less most more cat +do +# Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 +echo "configure:540: checking for $ac_word" >&5 +if eval "test \"`echo '$''{'ac_cv_prog_MORE'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + if test -n "$MORE"; then + ac_cv_prog_MORE="$MORE" # Let the user override the test. +else + IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" + ac_dummy="$PATH" + for ac_dir in $ac_dummy; do + test -z "$ac_dir" && ac_dir=. + if test -f $ac_dir/$ac_word; then + ac_cv_prog_MORE="$ac_prog" + break + fi + done + IFS="$ac_save_ifs" +fi +fi +MORE="$ac_cv_prog_MORE" +if test -n "$MORE"; then + echo "$ac_t""$MORE" 1>&6 +else + echo "$ac_t""no" 1>&6 +fi + +test -n "$MORE" && break +done + + +# Extract the first word of "gcc", so it can be a program name with args. +set dummy gcc; ac_word=$2 +echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 +echo "configure:573: checking for $ac_word" >&5 +if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else + IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" + ac_dummy="$PATH" + for ac_dir in $ac_dummy; do + test -z "$ac_dir" && ac_dir=. + if test -f $ac_dir/$ac_word; then + ac_cv_prog_CC="gcc" + break + fi + done + IFS="$ac_save_ifs" +fi +fi +CC="$ac_cv_prog_CC" +if test -n "$CC"; then + echo "$ac_t""$CC" 1>&6 +else + echo "$ac_t""no" 1>&6 +fi + +if test -z "$CC"; then + # Extract the first word of "cc", so it can be a program name with args. +set dummy cc; ac_word=$2 +echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 +echo "configure:603: checking for $ac_word" >&5 +if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else + IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" + ac_prog_rejected=no + ac_dummy="$PATH" + for ac_dir in $ac_dummy; do + test -z "$ac_dir" && ac_dir=. + if test -f $ac_dir/$ac_word; then + if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then + ac_prog_rejected=yes + continue + fi + ac_cv_prog_CC="cc" + break + fi + done + IFS="$ac_save_ifs" +if test $ac_prog_rejected = yes; then + # We found a bogon in the path, so make sure we never use it. + set dummy $ac_cv_prog_CC + shift + if test $# -gt 0; then + # We chose a different compiler from the bogus one. + # However, it has the same basename, so the bogon will be chosen + # first if we set CC to just the basename; use the full file name. + shift + set dummy "$ac_dir/$ac_word" "$@" + shift + ac_cv_prog_CC="$@" + fi +fi +fi +fi +CC="$ac_cv_prog_CC" +if test -n "$CC"; then + echo "$ac_t""$CC" 1>&6 +else + echo "$ac_t""no" 1>&6 +fi + + if test -z "$CC"; then + case "`uname -s`" in + *win32* | *WIN32*) + # Extract the first word of "cl", so it can be a program name with args. +set dummy cl; ac_word=$2 +echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 +echo "configure:654: checking for $ac_word" >&5 +if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else + IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" + ac_dummy="$PATH" + for ac_dir in $ac_dummy; do + test -z "$ac_dir" && ac_dir=. + if test -f $ac_dir/$ac_word; then + ac_cv_prog_CC="cl" + break + fi + done + IFS="$ac_save_ifs" +fi +fi +CC="$ac_cv_prog_CC" +if test -n "$CC"; then + echo "$ac_t""$CC" 1>&6 +else + echo "$ac_t""no" 1>&6 +fi + ;; + esac + fi + test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } +fi + +echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6 +echo "configure:686: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5 + +ac_ext=c +# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. +ac_cpp='$CPP $CPPFLAGS' +ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' +ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' +cross_compiling=$ac_cv_prog_cc_cross + +cat > conftest.$ac_ext << EOF + +#line 697 "configure" +#include "confdefs.h" + +main(){return(0);} +EOF +if { (eval echo configure:702: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + ac_cv_prog_cc_works=yes + # If we can't run a trivial program, we are probably using a cross compiler. + if (./conftest; exit) 2>/dev/null; then + ac_cv_prog_cc_cross=no + else + ac_cv_prog_cc_cross=yes + fi +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + ac_cv_prog_cc_works=no +fi +rm -fr conftest* +ac_ext=c +# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. +ac_cpp='$CPP $CPPFLAGS' +ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' +ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' +cross_compiling=$ac_cv_prog_cc_cross + +echo "$ac_t""$ac_cv_prog_cc_works" 1>&6 +if test $ac_cv_prog_cc_works = no; then + { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; } +fi +echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6 +echo "configure:728: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5 +echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6 +cross_compiling=$ac_cv_prog_cc_cross + +echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 +echo "configure:733: checking whether we are using GNU C" >&5 +if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.c <&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then + ac_cv_prog_gcc=yes +else + ac_cv_prog_gcc=no +fi +fi + +echo "$ac_t""$ac_cv_prog_gcc" 1>&6 + +if test $ac_cv_prog_gcc = yes; then + GCC=yes +else + GCC= +fi + +ac_test_CFLAGS="${CFLAGS+set}" +ac_save_CFLAGS="$CFLAGS" +CFLAGS= +echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 +echo "configure:761: checking whether ${CC-cc} accepts -g" >&5 +if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + echo 'void f(){}' > conftest.c +if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then + ac_cv_prog_cc_g=yes +else + ac_cv_prog_cc_g=no +fi +rm -f conftest* + +fi + +echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 +if test "$ac_test_CFLAGS" = set; then + CFLAGS="$ac_save_CFLAGS" +elif test $ac_cv_prog_cc_g = yes; then + if test "$GCC" = yes; then + CFLAGS="-g -O2" + else + CFLAGS="-g" + fi +else + if test "$GCC" = yes; then + CFLAGS="-O2" + else + CFLAGS= + fi +fi + + +if test $ac_cv_prog_gcc = yes; then + + echo $ac_n "checking whether ${CC-cc} -Wall also needs -Wno-char-subscripts""... $ac_c" 1>&6 +echo "configure:796: checking whether ${CC-cc} -Wall also needs -Wno-char-subscripts" >&5 +if eval "test \"`echo '$''{'ac_cv_char_warn'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -Wall -Werror" + cat > conftest.$ac_ext < +int main() { + int i; char c = '0'; + i = isascii(c); + i = isdigit(c); + i = isprint(c); + +; return 0; } +EOF +if { (eval echo configure:815: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_char_warn=no +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_char_warn=yes +fi +rm -f conftest* + CFLAGS=$OLDCFLAGS + +fi + +echo "$ac_t""$ac_cv_char_warn" 1>&6 + + echo $ac_n "checking whether ${CC-cc} accepts -Wno-char-subscripts""... $ac_c" 1>&6 +echo "configure:832: checking whether ${CC-cc} accepts -Wno-char-subscripts" >&5 +if eval "test \"`echo '$''{'ac_cv_gcc_ncs'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -Wno-char-subscripts" + cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_gcc_ncs=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_gcc_ncs=no +fi +rm -f conftest* + CFLAGS=$OLDCFLAGS + +fi + +echo "$ac_t""$ac_cv_gcc_ncs" 1>&6 + + echo $ac_n "checking whether ${CC-cc} accepts -fno-builtin""... $ac_c" 1>&6 +echo "configure:864: checking whether ${CC-cc} accepts -fno-builtin" >&5 +if eval "test \"`echo '$''{'ac_cv_gcc_fnb'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_gcc_fnb=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_gcc_fnb=no +fi +rm -f conftest* + CFLAGS=$OLDCFLAGS + +fi + +echo "$ac_t""$ac_cv_gcc_fnb" 1>&6 + + + if test ${ac_cv_char_warn:-ERROR} = no; then + MYFLAGS="-Wall" + else + if test ${ac_cv_gcc_ncs:-ERROR} = yes; then + MYFLAGS="-Wall -Wno-char-subscripts" + else + MYFLAGS="" + fi + fi + +else + MYFLAGS="" + +fi + +echo $ac_n "checking for gethostbyaddr""... $ac_c" 1>&6 +echo "configure:912: checking for gethostbyaddr" >&5 +if eval "test \"`echo '$''{'ac_cv_func_gethostbyaddr'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +/* Override any gcc2 internal prototype to avoid an error. */ +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char gethostbyaddr(); + +int main() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_gethostbyaddr) || defined (__stub___gethostbyaddr) +choke me +#else +gethostbyaddr(); +#endif + +; return 0; } +EOF +if { (eval echo configure:940: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_func_gethostbyaddr=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_func_gethostbyaddr=no" +fi +rm -f conftest* +fi + +if eval "test \"`echo '$ac_cv_func_'gethostbyaddr`\" = yes"; then + echo "$ac_t""yes" 1>&6 + : +else + echo "$ac_t""no" 1>&6 +echo $ac_n "checking for gethostbyaddr in -lnsl""... $ac_c" 1>&6 +echo "configure:958: checking for gethostbyaddr in -lnsl" >&5 +ac_lib_var=`echo nsl'_'gethostbyaddr | sed 'y%./+-%__p_%'` +if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + ac_save_LIBS="$LIBS" +LIBS="-lnsl $LIBS" +cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=no" +fi +rm -f conftest* +LIBS="$ac_save_LIBS" + +fi +if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then + echo "$ac_t""yes" 1>&6 + NETLIB="-lnsl $NETLIB" +else + echo "$ac_t""no" 1>&6 +fi + +fi + + +echo $ac_n "checking for socket""... $ac_c" 1>&6 +echo "configure:1001: checking for socket" >&5 +if eval "test \"`echo '$''{'ac_cv_func_socket'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +/* Override any gcc2 internal prototype to avoid an error. */ +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char socket(); + +int main() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_socket) || defined (__stub___socket) +choke me +#else +socket(); +#endif + +; return 0; } +EOF +if { (eval echo configure:1029: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_func_socket=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_func_socket=no" +fi +rm -f conftest* +fi + +if eval "test \"`echo '$ac_cv_func_'socket`\" = yes"; then + echo "$ac_t""yes" 1>&6 + : +else + echo "$ac_t""no" 1>&6 +echo $ac_n "checking for socket in -lsocket""... $ac_c" 1>&6 +echo "configure:1047: checking for socket in -lsocket" >&5 +ac_lib_var=`echo socket'_'socket | sed 'y%./+-%__p_%'` +if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + ac_save_LIBS="$LIBS" +LIBS="-lsocket $LIBS" +cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=no" +fi +rm -f conftest* +LIBS="$ac_save_LIBS" + +fi +if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then + echo "$ac_t""yes" 1>&6 + NETLIB="-lsocket $NETLIB" +else + echo "$ac_t""no" 1>&6 +fi + +fi + + +echo $ac_n "checking for malloc""... $ac_c" 1>&6 +echo "configure:1090: checking for malloc" >&5 +if eval "test \"`echo '$''{'ac_cv_func_malloc'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +/* Override any gcc2 internal prototype to avoid an error. */ +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char malloc(); + +int main() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_malloc) || defined (__stub___malloc) +choke me +#else +malloc(); +#endif + +; return 0; } +EOF +if { (eval echo configure:1118: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_func_malloc=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_func_malloc=no" +fi +rm -f conftest* +fi + +if eval "test \"`echo '$ac_cv_func_'malloc`\" = yes"; then + echo "$ac_t""yes" 1>&6 + : +else + echo "$ac_t""no" 1>&6 +echo $ac_n "checking for malloc in -lmalloc""... $ac_c" 1>&6 +echo "configure:1136: checking for malloc in -lmalloc" >&5 +ac_lib_var=`echo malloc'_'malloc | sed 'y%./+-%__p_%'` +if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + ac_save_LIBS="$LIBS" +LIBS="-lmalloc $LIBS" +cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=no" +fi +rm -f conftest* +LIBS="$ac_save_LIBS" + +fi +if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_lib=HAVE_LIB`echo malloc | sed -e 's/[^a-zA-Z0-9_]/_/g' \ + -e 'y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/'` + cat >> confdefs.h <&6 +fi + +fi + + +echo $ac_n "checking for crypt""... $ac_c" 1>&6 +echo "configure:1186: checking for crypt" >&5 +if eval "test \"`echo '$''{'ac_cv_func_crypt'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +/* Override any gcc2 internal prototype to avoid an error. */ +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char crypt(); + +int main() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_crypt) || defined (__stub___crypt) +choke me +#else +crypt(); +#endif + +; return 0; } +EOF +if { (eval echo configure:1214: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_func_crypt=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_func_crypt=no" +fi +rm -f conftest* +fi + +if eval "test \"`echo '$ac_cv_func_'crypt`\" = yes"; then + echo "$ac_t""yes" 1>&6 + cat >> confdefs.h <<\EOF +#define CIRCLE_CRYPT 1 +EOF + +else + echo "$ac_t""no" 1>&6 +echo $ac_n "checking for crypt in -lcrypt""... $ac_c" 1>&6 +echo "configure:1235: checking for crypt in -lcrypt" >&5 +ac_lib_var=`echo crypt'_'crypt | sed 'y%./+-%__p_%'` +if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + ac_save_LIBS="$LIBS" +LIBS="-lcrypt $LIBS" +cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_lib_$ac_lib_var=no" +fi +rm -f conftest* +LIBS="$ac_save_LIBS" + +fi +if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then + echo "$ac_t""yes" 1>&6 + cat >> confdefs.h <<\EOF +#define CIRCLE_CRYPT 1 +EOF + CRYPTLIB="-lcrypt" +else + echo "$ac_t""no" 1>&6 +fi + + +fi + + +echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 +echo "configure:1282: checking how to run the C preprocessor" >&5 +# On Suns, sometimes $CPP names a directory. +if test -n "$CPP" && test -d "$CPP"; then + CPP= +fi +if test -z "$CPP"; then +if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # This must be in double quotes, not single quotes, because CPP may get + # substituted into the Makefile and "${CC-cc}" will confuse make. + CPP="${CC-cc} -E" + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. + cat > conftest.$ac_ext < +Syntax Error +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1303: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + : +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + CPP="${CC-cc} -E -traditional-cpp" + cat > conftest.$ac_ext < +Syntax Error +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1320: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + : +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + CPP="${CC-cc} -nologo -E" + cat > conftest.$ac_ext < +Syntax Error +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1337: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + : +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + CPP=/lib/cpp +fi +rm -f conftest* +fi +rm -f conftest* +fi +rm -f conftest* + ac_cv_prog_CPP="$CPP" +fi + CPP="$ac_cv_prog_CPP" +else + ac_cv_prog_CPP="$CPP" +fi +echo "$ac_t""$CPP" 1>&6 + +echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 +echo "configure:1362: checking for ANSI C header files" >&5 +if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +#include +#include +#include +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1375: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + rm -rf conftest* + ac_cv_header_stdc=yes +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_header_stdc=no +fi +rm -f conftest* + +if test $ac_cv_header_stdc = yes; then + # SunOS 4.x string.h does not declare mem*, contrary to ANSI. +cat > conftest.$ac_ext < +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "memchr" >/dev/null 2>&1; then + : +else + rm -rf conftest* + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. +cat > conftest.$ac_ext < +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "free" >/dev/null 2>&1; then + : +else + rm -rf conftest* + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. +if test "$cross_compiling" = yes; then + : +else + cat > conftest.$ac_ext < +#define ISLOWER(c) ('a' <= (c) && (c) <= 'z') +#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) +#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) +int main () { int i; for (i = 0; i < 256; i++) +if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); +exit (0); } + +EOF +if { (eval echo configure:1442: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null +then + : +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -fr conftest* + ac_cv_header_stdc=no +fi +rm -fr conftest* +fi + +fi +fi + +echo "$ac_t""$ac_cv_header_stdc" 1>&6 +if test $ac_cv_header_stdc = yes; then + cat >> confdefs.h <<\EOF +#define STDC_HEADERS 1 +EOF + +fi + +echo $ac_n "checking for sys/wait.h that is POSIX.1 compatible""... $ac_c" 1>&6 +echo "configure:1466: checking for sys/wait.h that is POSIX.1 compatible" >&5 +if eval "test \"`echo '$''{'ac_cv_header_sys_wait_h'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +#include +#ifndef WEXITSTATUS +#define WEXITSTATUS(stat_val) ((unsigned)(stat_val) >> 8) +#endif +#ifndef WIFEXITED +#define WIFEXITED(stat_val) (((stat_val) & 255) == 0) +#endif +int main() { +int s; +wait (&s); +s = WIFEXITED (s) ? WEXITSTATUS (s) : 1; +; return 0; } +EOF +if { (eval echo configure:1487: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_header_sys_wait_h=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_header_sys_wait_h=no +fi +rm -f conftest* +fi + +echo "$ac_t""$ac_cv_header_sys_wait_h" 1>&6 +if test $ac_cv_header_sys_wait_h = yes; then + cat >> confdefs.h <<\EOF +#define HAVE_SYS_WAIT_H 1 +EOF + +fi + +for ac_hdr in fcntl.h sys/fcntl.h errno.h net/errno.h string.h strings.h +do +ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` +echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 +echo "configure:1511: checking for $ac_hdr" >&5 +if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1521: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + rm -rf conftest* + eval "ac_cv_header_$ac_safe=yes" +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_header_$ac_safe=no" +fi +rm -f conftest* +fi +if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` + cat >> confdefs.h <&6 +fi +done + +for ac_hdr in limits.h sys/time.h sys/select.h sys/types.h unistd.h +do +ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` +echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 +echo "configure:1551: checking for $ac_hdr" >&5 +if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1561: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + rm -rf conftest* + eval "ac_cv_header_$ac_safe=yes" +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_header_$ac_safe=no" +fi +rm -f conftest* +fi +if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` + cat >> confdefs.h <&6 +fi +done + +for ac_hdr in memory.h crypt.h assert.h arpa/telnet.h arpa/inet.h +do +ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` +echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 +echo "configure:1591: checking for $ac_hdr" >&5 +if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1601: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + rm -rf conftest* + eval "ac_cv_header_$ac_safe=yes" +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_header_$ac_safe=no" +fi +rm -f conftest* +fi +if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` + cat >> confdefs.h <&6 +fi +done + +for ac_hdr in sys/stat.h sys/socket.h sys/resource.h netinet/in.h netdb.h +do +ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` +echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 +echo "configure:1631: checking for $ac_hdr" >&5 +if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1641: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + rm -rf conftest* + eval "ac_cv_header_$ac_safe=yes" +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_header_$ac_safe=no" +fi +rm -f conftest* +fi +if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` + cat >> confdefs.h <&6 +fi +done + +for ac_hdr in signal.h sys/uio.h mcheck.h +do +ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` +echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 +echo "configure:1671: checking for $ac_hdr" >&5 +if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +EOF +ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" +{ (eval echo configure:1681: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } +ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` +if test -z "$ac_err"; then + rm -rf conftest* + eval "ac_cv_header_$ac_safe=yes" +else + echo "$ac_err" >&5 + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_header_$ac_safe=no" +fi +rm -f conftest* +fi +if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` + cat >> confdefs.h <&6 +fi +done + + + + echo $ac_n "checking whether crypt needs over 10 characters""... $ac_c" 1>&6 +echo "configure:1710: checking whether crypt needs over 10 characters" >&5 +if eval "test \"`echo '$''{'ac_cv_unsafe_crypt'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + + if test ${ac_cv_header_crypt_h-no} = yes; then + use_crypt_header="#include " + fi + if test ${ac_cv_lib_crypt_crypt-no} = yes; then + ORIGLIBS=$LIBS + LIBS="-lcrypt $LIBS" + fi + if test "$cross_compiling" = yes; then + ac_cv_unsafe_crypt=no +else + cat > conftest.$ac_ext < +#include +$use_crypt_header + +int main(void) +{ + char pwd[11], pwd2[11]; + + strncpy(pwd, (char *)crypt("FooBar", "BazQux"), 10); + pwd[10] = '\0'; + strncpy(pwd2, (char *)crypt("xyzzy", "BazQux"), 10); + pwd2[10] = '\0'; + if (strcmp(pwd, pwd2) == 0) + exit(0); + exit(1); +} + + +EOF +if { (eval echo configure:1749: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null +then + ac_cv_unsafe_crypt=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -fr conftest* + ac_cv_unsafe_crypt=no +fi +rm -fr conftest* +fi + +fi + +echo "$ac_t""$ac_cv_unsafe_crypt" 1>&6 +if test $ac_cv_unsafe_crypt = yes; then + cat >> confdefs.h <<\EOF +#define HAVE_UNSAFE_CRYPT 1 +EOF + +fi +if test ${ac_cv_lib_crypt_crypt-no} = yes; then + LIBS=$ORIGLIBS +fi + + +echo $ac_n "checking for working const""... $ac_c" 1>&6 +echo "configure:1776: checking for working const" >&5 +if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext <j = 5; +} +{ /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ + const int foo = 10; +} + +; return 0; } +EOF +if { (eval echo configure:1830: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_c_const=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_c_const=no +fi +rm -f conftest* +fi + +echo "$ac_t""$ac_cv_c_const" 1>&6 +if test $ac_cv_c_const = no; then + cat >> confdefs.h <<\EOF +#define const +EOF + +fi + +echo $ac_n "checking for pid_t""... $ac_c" 1>&6 +echo "configure:1851: checking for pid_t" >&5 +if eval "test \"`echo '$''{'ac_cv_type_pid_t'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +#if STDC_HEADERS +#include +#include +#endif +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "(^|[^a-zA-Z_0-9])pid_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then + rm -rf conftest* + ac_cv_type_pid_t=yes +else + rm -rf conftest* + ac_cv_type_pid_t=no +fi +rm -f conftest* + +fi +echo "$ac_t""$ac_cv_type_pid_t" 1>&6 +if test $ac_cv_type_pid_t = no; then + cat >> confdefs.h <<\EOF +#define pid_t int +EOF + +fi + +echo $ac_n "checking for size_t""... $ac_c" 1>&6 +echo "configure:1884: checking for size_t" >&5 +if eval "test \"`echo '$''{'ac_cv_type_size_t'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +#if STDC_HEADERS +#include +#include +#endif +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "(^|[^a-zA-Z_0-9])size_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then + rm -rf conftest* + ac_cv_type_size_t=yes +else + rm -rf conftest* + ac_cv_type_size_t=no +fi +rm -f conftest* + +fi +echo "$ac_t""$ac_cv_type_size_t" 1>&6 +if test $ac_cv_type_size_t = no; then + cat >> confdefs.h <<\EOF +#define size_t unsigned +EOF + +fi + +echo $ac_n "checking for ssize_t""... $ac_c" 1>&6 +echo "configure:1917: checking for ssize_t" >&5 +if eval "test \"`echo '$''{'ac_cv_type_ssize_t'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +#if STDC_HEADERS +#include +#include +#endif +EOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + egrep "(^|[^a-zA-Z_0-9])ssize_t[^a-zA-Z_0-9]" >/dev/null 2>&1; then + rm -rf conftest* + ac_cv_type_ssize_t=yes +else + rm -rf conftest* + ac_cv_type_ssize_t=no +fi +rm -f conftest* + +fi +echo "$ac_t""$ac_cv_type_ssize_t" 1>&6 +if test $ac_cv_type_ssize_t = no; then + cat >> confdefs.h <<\EOF +#define ssize_t int +EOF + +fi + +echo $ac_n "checking whether time.h and sys/time.h may both be included""... $ac_c" 1>&6 +echo "configure:1950: checking whether time.h and sys/time.h may both be included" >&5 +if eval "test \"`echo '$''{'ac_cv_header_time'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +#include +#include +int main() { +struct tm *tp; +; return 0; } +EOF +if { (eval echo configure:1964: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_header_time=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_header_time=no +fi +rm -f conftest* +fi + +echo "$ac_t""$ac_cv_header_time" 1>&6 +if test $ac_cv_header_time = yes; then + cat >> confdefs.h <<\EOF +#define TIME_WITH_SYS_TIME 1 +EOF + +fi + + +if test $ac_cv_header_netinet_in_h = no; then + ac_cv_struct_in_addr = no +else + if test $ac_cv_header_sys_types_h = yes; then + headers=`cat << EOF +#include +#include +EOF +` + else + headers="#include " + fi + + echo $ac_n "checking for struct in_addr""... $ac_c" 1>&6 +echo "configure:1999: checking for struct in_addr" >&5 +if eval "test \"`echo '$''{'ac_cv_struct_in_addr'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_struct_in_addr=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_struct_in_addr=no +fi +rm -f conftest* +fi + +echo "$ac_t""$ac_cv_struct_in_addr" 1>&6 + + if test $ac_cv_struct_in_addr = yes; then + cat >> confdefs.h <<\EOF +#define HAVE_STRUCT_IN_ADDR 1 +EOF + + fi +fi + + +if test $ac_cv_header_sys_socket_h = no; then + ac_cv_socklen_t = no; +else + echo $ac_n "checking for typedef socklen_t""... $ac_c" 1>&6 +echo "configure:2038: checking for typedef socklen_t" >&5 +if eval "test \"`echo '$''{'ac_cv_socklen_t'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +int main() { +socklen_t sl; sl=0; +; return 0; } +EOF +if { (eval echo configure:2050: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_socklen_t=yes +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_socklen_t=no +fi +rm -f conftest* +fi + +echo "$ac_t""$ac_cv_socklen_t" 1>&6 +fi + +if test $ac_cv_socklen_t = no; then + cat >> confdefs.h <<\EOF +#define socklen_t int +EOF + +fi + + +echo $ac_n "checking return type of signal handlers""... $ac_c" 1>&6 +echo "configure:2074: checking return type of signal handlers" >&5 +if eval "test \"`echo '$''{'ac_cv_type_signal'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +#include +#ifdef signal +#undef signal +#endif +#ifdef __cplusplus +extern "C" void (*signal (int, void (*)(int)))(int); +#else +void (*signal ()) (); +#endif + +int main() { +int i; +; return 0; } +EOF +if { (eval echo configure:2096: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + ac_cv_type_signal=void +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + ac_cv_type_signal=int +fi +rm -f conftest* +fi + +echo "$ac_t""$ac_cv_type_signal" 1>&6 +cat >> confdefs.h <&6 +echo "configure:2115: checking for vprintf" >&5 +if eval "test \"`echo '$''{'ac_cv_func_vprintf'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +/* Override any gcc2 internal prototype to avoid an error. */ +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char vprintf(); + +int main() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_vprintf) || defined (__stub___vprintf) +choke me +#else +vprintf(); +#endif + +; return 0; } +EOF +if { (eval echo configure:2143: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_func_vprintf=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_func_vprintf=no" +fi +rm -f conftest* +fi + +if eval "test \"`echo '$ac_cv_func_'vprintf`\" = yes"; then + echo "$ac_t""yes" 1>&6 + cat >> confdefs.h <<\EOF +#define HAVE_VPRINTF 1 +EOF + +else + echo "$ac_t""no" 1>&6 +fi + +if test "$ac_cv_func_vprintf" != yes; then +echo $ac_n "checking for _doprnt""... $ac_c" 1>&6 +echo "configure:2167: checking for _doprnt" >&5 +if eval "test \"`echo '$''{'ac_cv_func__doprnt'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +/* Override any gcc2 internal prototype to avoid an error. */ +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char _doprnt(); + +int main() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub__doprnt) || defined (__stub____doprnt) +choke me +#else +_doprnt(); +#endif + +; return 0; } +EOF +if { (eval echo configure:2195: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_func__doprnt=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_func__doprnt=no" +fi +rm -f conftest* +fi + +if eval "test \"`echo '$ac_cv_func_'_doprnt`\" = yes"; then + echo "$ac_t""yes" 1>&6 + cat >> confdefs.h <<\EOF +#define HAVE_DOPRNT 1 +EOF + +else + echo "$ac_t""no" 1>&6 +fi + +fi + +for ac_func in gettimeofday select snprintf strcasecmp strdup strerror stricmp strlcpy strncasecmp strnicmp strstr vsnprintf +do +echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 +echo "configure:2222: checking for $ac_func" >&5 +if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +/* Override any gcc2 internal prototype to avoid an error. */ +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char $ac_func(); + +int main() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_$ac_func) || defined (__stub___$ac_func) +choke me +#else +$ac_func(); +#endif + +; return 0; } +EOF +if { (eval echo configure:2250: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_func_$ac_func=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_func_$ac_func=no" +fi +rm -f conftest* +fi + +if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` + cat >> confdefs.h <&6 +fi +done + + +ORIGLIBS=$LIBS +LIBS="$LIBS $NETLIB" +for ac_func in inet_addr inet_aton +do +echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 +echo "configure:2280: checking for $ac_func" >&5 +if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + cat > conftest.$ac_ext < +/* Override any gcc2 internal prototype to avoid an error. */ +/* We use char because int might match the return type of a gcc2 + builtin and then its argument prototype would still apply. */ +char $ac_func(); + +int main() { + +/* The GNU C library defines this for functions which it implements + to always fail with ENOSYS. Some functions are actually named + something starting with __ and the normal name is an alias. */ +#if defined (__stub_$ac_func) || defined (__stub___$ac_func) +choke me +#else +$ac_func(); +#endif + +; return 0; } +EOF +if { (eval echo configure:2308: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then + rm -rf conftest* + eval "ac_cv_func_$ac_func=yes" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_func_$ac_func=no" +fi +rm -f conftest* +fi + +if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then + echo "$ac_t""yes" 1>&6 + ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` + cat >> confdefs.h <&6 +fi +done + +LIBS=$ORIGLIBS + + +ac_safe=accept; + +echo $ac_n "checking if accept is prototyped""... $ac_c" 1>&6 +echo "configure:2338: checking if accept is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_ACCEPT_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=atoi; + +echo $ac_n "checking if atoi is prototyped""... $ac_c" 1>&6 +echo "configure:2395: checking if atoi is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_ATOI_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=atol; + +echo $ac_n "checking if atol is prototyped""... $ac_c" 1>&6 +echo "configure:2452: checking if atol is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_ATOL_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=bind; + +echo $ac_n "checking if bind is prototyped""... $ac_c" 1>&6 +echo "configure:2509: checking if bind is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_BIND_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=bzero; + +echo $ac_n "checking if bzero is prototyped""... $ac_c" 1>&6 +echo "configure:2566: checking if bzero is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_BZERO_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=chdir; + +echo $ac_n "checking if chdir is prototyped""... $ac_c" 1>&6 +echo "configure:2623: checking if chdir is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_CHDIR_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=close; + +echo $ac_n "checking if close is prototyped""... $ac_c" 1>&6 +echo "configure:2680: checking if close is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_CLOSE_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=crypt; + +echo $ac_n "checking if crypt is prototyped""... $ac_c" 1>&6 +echo "configure:2737: checking if crypt is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_CRYPT_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fclose; + +echo $ac_n "checking if fclose is prototyped""... $ac_c" 1>&6 +echo "configure:2794: checking if fclose is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FCLOSE_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fcntl; + +echo $ac_n "checking if fcntl is prototyped""... $ac_c" 1>&6 +echo "configure:2851: checking if fcntl is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FCNTL_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fflush; + +echo $ac_n "checking if fflush is prototyped""... $ac_c" 1>&6 +echo "configure:2908: checking if fflush is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FFLUSH_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fprintf; + +echo $ac_n "checking if fprintf is prototyped""... $ac_c" 1>&6 +echo "configure:2965: checking if fprintf is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FPRINTF_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fputc; + +echo $ac_n "checking if fputc is prototyped""... $ac_c" 1>&6 +echo "configure:3022: checking if fputc is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FPUTC_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fputs; + +echo $ac_n "checking if fputs is prototyped""... $ac_c" 1>&6 +echo "configure:3079: checking if fputs is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FPUTS_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fread; + +echo $ac_n "checking if fread is prototyped""... $ac_c" 1>&6 +echo "configure:3136: checking if fread is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FREAD_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fscanf; + +echo $ac_n "checking if fscanf is prototyped""... $ac_c" 1>&6 +echo "configure:3193: checking if fscanf is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FSCANF_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fseek; + +echo $ac_n "checking if fseek is prototyped""... $ac_c" 1>&6 +echo "configure:3250: checking if fseek is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FSEEK_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=fwrite; + +echo $ac_n "checking if fwrite is prototyped""... $ac_c" 1>&6 +echo "configure:3307: checking if fwrite is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_FWRITE_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=getpeername; + +echo $ac_n "checking if getpeername is prototyped""... $ac_c" 1>&6 +echo "configure:3364: checking if getpeername is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_GETPEERNAME_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=getpid; + +echo $ac_n "checking if getpid is prototyped""... $ac_c" 1>&6 +echo "configure:3421: checking if getpid is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_GETPID_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=getrlimit; + +echo $ac_n "checking if getrlimit is prototyped""... $ac_c" 1>&6 +echo "configure:3478: checking if getrlimit is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_GETRLIMIT_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=getsockname; + +echo $ac_n "checking if getsockname is prototyped""... $ac_c" 1>&6 +echo "configure:3535: checking if getsockname is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_GETSOCKNAME_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=gettimeofday; + +echo $ac_n "checking if gettimeofday is prototyped""... $ac_c" 1>&6 +echo "configure:3592: checking if gettimeofday is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_GETTIMEOFDAY_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=htonl; + +echo $ac_n "checking if htonl is prototyped""... $ac_c" 1>&6 +echo "configure:3649: checking if htonl is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_HTONL_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=htons; + +echo $ac_n "checking if htons is prototyped""... $ac_c" 1>&6 +echo "configure:3706: checking if htons is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_HTONS_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=inet_addr; + +echo $ac_n "checking if inet_addr is prototyped""... $ac_c" 1>&6 +echo "configure:3763: checking if inet_addr is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_INET_ADDR_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=inet_aton; + +echo $ac_n "checking if inet_aton is prototyped""... $ac_c" 1>&6 +echo "configure:3820: checking if inet_aton is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_INET_ATON_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=inet_ntoa; + +echo $ac_n "checking if inet_ntoa is prototyped""... $ac_c" 1>&6 +echo "configure:3877: checking if inet_ntoa is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_INET_NTOA_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=listen; + +echo $ac_n "checking if listen is prototyped""... $ac_c" 1>&6 +echo "configure:3934: checking if listen is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_LISTEN_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=ntohl; + +echo $ac_n "checking if ntohl is prototyped""... $ac_c" 1>&6 +echo "configure:3991: checking if ntohl is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_NTOHL_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=perror; + +echo $ac_n "checking if perror is prototyped""... $ac_c" 1>&6 +echo "configure:4048: checking if perror is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_PERROR_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=printf; + +echo $ac_n "checking if printf is prototyped""... $ac_c" 1>&6 +echo "configure:4105: checking if printf is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_PRINTF_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=qsort; + +echo $ac_n "checking if qsort is prototyped""... $ac_c" 1>&6 +echo "configure:4162: checking if qsort is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_QSORT_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=read; + +echo $ac_n "checking if read is prototyped""... $ac_c" 1>&6 +echo "configure:4219: checking if read is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_READ_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=remove; + +echo $ac_n "checking if remove is prototyped""... $ac_c" 1>&6 +echo "configure:4276: checking if remove is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_REMOVE_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=rewind; + +echo $ac_n "checking if rewind is prototyped""... $ac_c" 1>&6 +echo "configure:4333: checking if rewind is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_REWIND_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=select; + +echo $ac_n "checking if select is prototyped""... $ac_c" 1>&6 +echo "configure:4390: checking if select is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SELECT_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=setitimer; + +echo $ac_n "checking if setitimer is prototyped""... $ac_c" 1>&6 +echo "configure:4447: checking if setitimer is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SETITIMER_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=setrlimit; + +echo $ac_n "checking if setrlimit is prototyped""... $ac_c" 1>&6 +echo "configure:4504: checking if setrlimit is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SETRLIMIT_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=setsockopt; + +echo $ac_n "checking if setsockopt is prototyped""... $ac_c" 1>&6 +echo "configure:4561: checking if setsockopt is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SETSOCKOPT_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=snprintf; + +echo $ac_n "checking if snprintf is prototyped""... $ac_c" 1>&6 +echo "configure:4618: checking if snprintf is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SNPRINTF_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=socket; + +echo $ac_n "checking if socket is prototyped""... $ac_c" 1>&6 +echo "configure:4675: checking if socket is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SOCKET_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=sprintf; + +echo $ac_n "checking if sprintf is prototyped""... $ac_c" 1>&6 +echo "configure:4732: checking if sprintf is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SPRINTF_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=sscanf; + +echo $ac_n "checking if sscanf is prototyped""... $ac_c" 1>&6 +echo "configure:4789: checking if sscanf is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SSCANF_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=strcasecmp; + +echo $ac_n "checking if strcasecmp is prototyped""... $ac_c" 1>&6 +echo "configure:4846: checking if strcasecmp is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_STRCASECMP_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=strdup; + +echo $ac_n "checking if strdup is prototyped""... $ac_c" 1>&6 +echo "configure:4903: checking if strdup is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_STRDUP_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=strerror; + +echo $ac_n "checking if strerror is prototyped""... $ac_c" 1>&6 +echo "configure:4960: checking if strerror is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_STRERROR_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=stricmp; + +echo $ac_n "checking if stricmp is prototyped""... $ac_c" 1>&6 +echo "configure:5017: checking if stricmp is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_STRICMP_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=strlcpy; + +echo $ac_n "checking if strlcpy is prototyped""... $ac_c" 1>&6 +echo "configure:5074: checking if strlcpy is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_STRLCPY_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=strncasecmp; + +echo $ac_n "checking if strncasecmp is prototyped""... $ac_c" 1>&6 +echo "configure:5131: checking if strncasecmp is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_STRNCASECMP_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=strnicmp; + +echo $ac_n "checking if strnicmp is prototyped""... $ac_c" 1>&6 +echo "configure:5188: checking if strnicmp is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_STRNICMP_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=system; + +echo $ac_n "checking if system is prototyped""... $ac_c" 1>&6 +echo "configure:5245: checking if system is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_SYSTEM_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=time; + +echo $ac_n "checking if time is prototyped""... $ac_c" 1>&6 +echo "configure:5302: checking if time is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_TIME_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=unlink; + +echo $ac_n "checking if unlink is prototyped""... $ac_c" 1>&6 +echo "configure:5359: checking if unlink is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_UNLINK_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=vsnprintf; + +echo $ac_n "checking if vsnprintf is prototyped""... $ac_c" 1>&6 +echo "configure:5416: checking if vsnprintf is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_VSNPRINTF_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +ac_safe=write; + +echo $ac_n "checking if write is prototyped""... $ac_c" 1>&6 +echo "configure:5473: checking if write is prototyped" >&5 +if eval "test \"`echo '$''{'ac_cv_prototype_$ac_safe'+set}'`\" = set"; then + echo $ac_n "(cached) $ac_c" 1>&6 +else + # + if test $ac_cv_gcc_fnb = yes; then + OLDCFLAGS=$CFLAGS + CFLAGS="$CFLAGS -fno-builtin" + fi +cat > conftest.$ac_ext <&5; (eval $ac_compile) 2>&5; }; then + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=no" +else + echo "configure: failed program was:" >&5 + cat conftest.$ac_ext >&5 + rm -rf conftest* + eval "ac_cv_prototype_$ac_safe=yes" +fi +rm -f conftest* + if test $ac_cv_gcc_fnb = yes; then + CFLAGS=$OLDCFLAGS + fi + +fi + + +if eval "test \"`echo '$ac_cv_prototype_'$ac_safe`\" = yes"; then + echo "$ac_t""yes" 1>&6 +else + cat >> confdefs.h <<\EOF +#define NEED_WRITE_PROTO +EOF + + echo "$ac_t""no" 1>&6 +fi + + +trap '' 1 2 15 +cat > confcache <<\EOF +# This file is a shell script that caches the results of configure +# tests run on this system so they can be shared between configure +# scripts and configure runs. It is not useful on other systems. +# If it contains results you don't want to keep, you may remove or edit it. +# +# By default, configure uses ./config.cache as the cache file, +# creating it if it does not exist already. You can give configure +# the --cache-file=FILE option to use a different cache file; that is +# what configure does when it calls configure scripts in +# subdirectories, so they share the cache. +# Giving --cache-file=/dev/null disables caching, for debugging configure. +# config.status only pays attention to the cache file if you give it the +# --recheck option to rerun configure. +# +EOF +# The following way of writing the cache mishandles newlines in values, +# but we know of no workaround that is simple, portable, and efficient. +# So, don't put newlines in cache variables' values. +# Ultrix sh set writes to stderr and can't be redirected directly, +# and sets the high bit in the cache file unless we assign to the vars. +(set) 2>&1 | + case `(ac_space=' '; set | grep ac_space) 2>&1` in + *ac_space=\ *) + # `set' does not quote correctly, so add quotes (double-quote substitution + # turns \\\\ into \\, and sed turns \\ into \). + sed -n \ + -e "s/'/'\\\\''/g" \ + -e "s/^\$[a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\$=\$.*\$/\\1=\${\\1='\\2'}/p" + ;; + *) + # `set' quotes correctly as required by POSIX, so do not add quotes. + sed -n -e 's/^$[a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*$=$.*$/\1=${\1=\2}/p' + ;; + esac >> confcache +if cmp -s $cache_file confcache; then + : +else + if test -w $cache_file; then + echo "updating cache $cache_file" + cat confcache > $cache_file + else + echo "not updating unwritable cache $cache_file" + fi +fi +rm -f confcache + +trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 + +test "x$prefix" = xNONE && prefix=$ac_default_prefix +# Let make expand exec_prefix. +test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' + +# Any assignment to VPATH causes Sun make to only execute +# the first set of double-colon rules, so remove it if not needed. +# If there is a colon in the path, we need to keep it. +if test "x$srcdir" = x.; then + ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' +fi + +trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 + +DEFS=-DHAVE_CONFIG_H + +# Without the "./", some shells look in PATH for config.status. +: ${CONFIG_STATUS=./config.status} + +echo creating $CONFIG_STATUS +rm -f $CONFIG_STATUS +cat > $CONFIG_STATUS </dev/null | sed 1q`: +# +# $0 $ac_configure_args +# +# Compiler output produced by configure, useful for debugging +# configure, is in ./config.log if it exists. + +ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" +for ac_option +do + case "\$ac_option" in + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" + exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; + -version | --version | --versio | --versi | --vers | --ver | --ve | --v) + echo "$CONFIG_STATUS generated by autoconf version 2.13" + exit 0 ;; + -help | --help | --hel | --he | --h) + echo "\$ac_cs_usage"; exit 0 ;; + *) echo "\$ac_cs_usage"; exit 1 ;; + esac +done + +ac_given_srcdir=$srcdir + +trap 'rm -fr `echo "src/Makefile src/util/Makefile src/conf.h" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 +EOF +cat >> $CONFIG_STATUS < conftest.subs <<\\CEOF +$ac_vpsub +$extrasub +s%@SHELL@%$SHELL%g +s%@CFLAGS@%$CFLAGS%g +s%@CPPFLAGS@%$CPPFLAGS%g +s%@CXXFLAGS@%$CXXFLAGS%g +s%@FFLAGS@%$FFLAGS%g +s%@DEFS@%$DEFS%g +s%@LDFLAGS@%$LDFLAGS%g +s%@LIBS@%$LIBS%g +s%@exec_prefix@%$exec_prefix%g +s%@prefix@%$prefix%g +s%@program_transform_name@%$program_transform_name%g +s%@bindir@%$bindir%g +s%@sbindir@%$sbindir%g +s%@libexecdir@%$libexecdir%g +s%@datadir@%$datadir%g +s%@sysconfdir@%$sysconfdir%g +s%@sharedstatedir@%$sharedstatedir%g +s%@localstatedir@%$localstatedir%g +s%@libdir@%$libdir%g +s%@includedir@%$includedir%g +s%@oldincludedir@%$oldincludedir%g +s%@infodir@%$infodir%g +s%@mandir@%$mandir%g +s%@MYFLAGS@%$MYFLAGS%g +s%@NETLIB@%$NETLIB%g +s%@CRYPTLIB@%$CRYPTLIB%g +s%@MORE@%$MORE%g +s%@CC@%$CC%g +s%@CPP@%$CPP%g + +CEOF +EOF + +cat >> $CONFIG_STATUS <<\EOF + +# Split the substitutions into bite-sized pieces for seds with +# small command number limits, like on Digital OSF/1 and HP-UX. +ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. +ac_file=1 # Number of current file. +ac_beg=1 # First line for current file. +ac_end=$ac_max_sed_cmds # Line after last line for current file. +ac_more_lines=: +ac_sed_cmds="" +while $ac_more_lines; do + if test $ac_beg -gt 1; then + sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file + else + sed "${ac_end}q" conftest.subs > conftest.s$ac_file + fi + if test ! -s conftest.s$ac_file; then + ac_more_lines=false + rm -f conftest.s$ac_file + else + if test -z "$ac_sed_cmds"; then + ac_sed_cmds="sed -f conftest.s$ac_file" + else + ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" + fi + ac_file=`expr $ac_file + 1` + ac_beg=$ac_end + ac_end=`expr $ac_end + $ac_max_sed_cmds` + fi +done +if test -z "$ac_sed_cmds"; then + ac_sed_cmds=cat +fi +EOF + +cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF +for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then + # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". + case "$ac_file" in + *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` + ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; + *) ac_file_in="${ac_file}.in" ;; + esac + + # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. + + # Remove last slash and all that follows it. Not all systems have dirname. + ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` + if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then + # The file is in a subdirectory. + test ! -d "$ac_dir" && mkdir "$ac_dir" + ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" + # A "../" for each directory in $ac_dir_suffix. + ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` + else + ac_dir_suffix= ac_dots= + fi + + case "$ac_given_srcdir" in + .) srcdir=. + if test -z "$ac_dots"; then top_srcdir=. + else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; + /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; + *) # Relative path. + srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" + top_srcdir="$ac_dots$ac_given_srcdir" ;; + esac + + + echo creating "$ac_file" + rm -f "$ac_file" + configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." + case "$ac_file" in + *Makefile*) ac_comsub="1i\\ +# $configure_input" ;; + *) ac_comsub= ;; + esac + + ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` + sed -e "$ac_comsub +s%@configure_input@%$configure_input%g +s%@srcdir@%$srcdir%g +s%@top_srcdir@%$top_srcdir%g +" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file +fi; done +rm -f conftest.s* + +# These sed commands are passed to sed as "A NAME B NAME C VALUE D", where +# NAME is the cpp macro being defined and VALUE is the value it is being given. +# +# ac_d sets the value in "#define NAME VALUE" lines. +ac_dA='s%^$[ ]*$#$[ ]*define[ ][ ]*$' +ac_dB='$[ ][ ]*$[^ ]*%\1#\2' +ac_dC='\3' +ac_dD='%g' +# ac_u turns "#undef NAME" with trailing blanks into "#define NAME VALUE". +ac_uA='s%^$[ ]*$#$[ ]*$undef$[ ][ ]*$' +ac_uB='$[ ]$%\1#\2define\3' +ac_uC=' ' +ac_uD='\4%g' +# ac_e turns "#undef NAME" without trailing blanks into "#define NAME VALUE". +ac_eA='s%^$[ ]*$#$[ ]*$undef$[ ][ ]*$' +ac_eB='$%\1#\2define\3' +ac_eC=' ' +ac_eD='%g' + +if test "${CONFIG_HEADERS+set}" != set; then +EOF +cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF +fi +for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then + # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". + case "$ac_file" in + *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` + ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; + *) ac_file_in="${ac_file}.in" ;; + esac + + echo creating $ac_file + + rm -f conftest.frag conftest.in conftest.out + ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` + cat $ac_file_inputs > conftest.in + +EOF + +# Transform confdefs.h into a sed script conftest.vals that substitutes +# the proper values into config.h.in to produce config.h. And first: +# Protect against being on the right side of a sed subst in config.status. +# Protect against being in an unquoted here document in config.status. +rm -f conftest.vals +cat > conftest.hdr <<\EOF +s/[\\&%]/\\&/g +s%[\\$`]%\\&%g +s%#define $[A-Za-z_][A-Za-z0-9_]*$ *$.*$%${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD}%gp +s%ac_d%ac_u%gp +s%ac_u%ac_e%gp +EOF +sed -n -f conftest.hdr confdefs.h > conftest.vals +rm -f conftest.hdr + +# This sed command replaces #undef with comments. This is necessary, for +# example, in the case of _POSIX_SOURCE, which is predefined and required +# on some systems where configure will not decide to define it. +cat >> conftest.vals <<\EOF +s%^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*%/* & */% +EOF + +# Break up conftest.vals because some shells have a limit on +# the size of here documents, and old seds have small limits too. + +rm -f conftest.tail +while : +do + ac_lines=`grep -c . conftest.vals` + # grep -c gives empty output for an empty file on some AIX systems. + if test -z "$ac_lines" || test "$ac_lines" -eq 0; then break; fi + # Write a limited-size here document to conftest.frag. + echo ' cat > conftest.frag <> $CONFIG_STATUS + sed ${ac_max_here_lines}q conftest.vals >> $CONFIG_STATUS + echo 'CEOF + sed -f conftest.frag conftest.in > conftest.out + rm -f conftest.in + mv conftest.out conftest.in +' >> $CONFIG_STATUS + sed 1,${ac_max_here_lines}d conftest.vals > conftest.tail + rm -f conftest.vals + mv conftest.tail conftest.vals +done +rm -f conftest.vals + +cat >> $CONFIG_STATUS <<\EOF + rm -f conftest.frag conftest.h + echo "/* $ac_file. Generated automatically by configure. */" > conftest.h + cat conftest.in >> conftest.h + rm -f conftest.in + if cmp -s $ac_file conftest.h 2>/dev/null; then + echo "$ac_file is unchanged" + rm -f conftest.h + else + # Remove last slash and all that follows it. Not all systems have dirname. + ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` + if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then + # The file is in a subdirectory. + test ! -d "$ac_dir" && mkdir "$ac_dir" + fi + rm -f $ac_file + mv conftest.h $ac_file + fi +fi; done + +EOF +cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF + +exit 0 +EOF +chmod +x $CONFIG_STATUS +rm -fr confdefs* $ac_clean_files +test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 + +# +echo "Configuration completed. To compile, type: cd src; make" diff --git a/doc/FAQ.pdf b/doc/FAQ.pdf new file mode 100644 index 0000000..cdf10b5 Binary files /dev/null and b/doc/FAQ.pdf differ diff --git a/doc/OLD-DOCS/README b/doc/OLD-DOCS/README new file mode 100644 index 0000000..26f7dd2 --- /dev/null +++ b/doc/OLD-DOCS/README @@ -0,0 +1,34 @@ +This directory contains documentation on various aspects of the game. + +Area builders will be most interested in database.doc, dbsup.doc, defs.doc, +shop.doc, and values.doc. These five files can be mailed automatically +with the "do_mail" script in this directory. do_mail takes the recipient +as its only command-line argument. For example, to mail the documentation +to CircleMUD's author, you'd type "do_mail jelson@cs.jhu.edu". + +CONTENTS: +-------- + +COLOR.DOC - Programmer's manual on how to use color codes +COMM.DOC - The game-to-player communications system, most importantly + the act() procedure +DATABASE.DOC - The format of the most important data files +DBSUP.DOC - Detailed information on each field in database.doc +DEFS.DOC - Important document on what rules should be followed + when creating a part of the world, to avoid complete chaos +HACKER.DOC - Insight into the art & science of programming (courtesy MERC) +HANDLER.DOC - Descriptions of most of the basic 'database handling' + procedures, found in handler.c +LICENSE.DOC - The conditions under which this game is distributed + NOTE: THIS FILE MUST ALWAYS BE PRESENT +RELEASE.DOC - CircleMUD release history +RUNNING.DOC - Directions for compiling, running, and maintaining the game +SHOP.DOC - Describes how to create a shop file +SOCIALS.DOC - Description of the 'social action' system +SPELL_INFO.DOC - Doc on spells, especially how damage is calculated +SPELLS.DOC - Info on the spell/affection system +TIME.DOC - How time is in DikuMud compared to real world +UTILS.DOC - Description of the CircleMUD maintenance utilities +VALUES.DOC - The 4 generic values for items, described in detail +WIZHELP.DOC - Description of all god commands + diff --git a/doc/OLD-DOCS/README-DOCS b/doc/OLD-DOCS/README-DOCS new file mode 100644 index 0000000..890ea08 --- /dev/null +++ b/doc/OLD-DOCS/README-DOCS @@ -0,0 +1,9 @@ + +3/6/95 +----- + +This directory contains the documentation distributed with CircleMUD 2.2. +This directory and all the files in it will eventually disappear. They +are here now to serve as a reference while I write the new documentation. + +--JE diff --git a/doc/OLD-DOCS/coding.doc b/doc/OLD-DOCS/coding.doc new file mode 100644 index 0000000..b23b967 --- /dev/null +++ b/doc/OLD-DOCS/coding.doc @@ -0,0 +1,31 @@ +/************************************************************************** +* Copyright (C) 1993 - see 'license.doc' for complete information. * +**************************************************************************/ + + HOW TO CONVERT YOUR IDEAS INTO REALITY + A CircleMUD Coding Manual + +Table of Contents +--------------------------------------------------------------------------- + +i. Introduction + +1. Overview and Coding Basics + 1.1. The Way Things Work -- Overview + 1.2. CircleMUD's Structures and Lists + 1.3. Frequently Used Functions + +2. Changing the Code + 2.1. Adding Commands + 2.2. Adding Socials + 2.3. Adding Spells + 2.4. Adding Skills + 2.5. Writing Special Procedures + 2.6. Adding Classes + + 2.9. Adding Color + +3. Changing the World + 3.1. Adding Areas + 3.2. Removing Areas + 3.2. Writing Areas diff --git a/doc/OLD-DOCS/color.doc b/doc/OLD-DOCS/color.doc new file mode 100644 index 0000000..1e1dfce --- /dev/null +++ b/doc/OLD-DOCS/color.doc @@ -0,0 +1,134 @@ +/************************************************************************** +* Copyright (C) 1993 - see 'license.doc' for complete information. * +**************************************************************************/ + + USING COLOR IN CIRCLEMUD + "color.doc" + +CircleMUD allows you to create colorful messages by using ANSI control +sequences. Each player may select what "level" of color he/she desires +from the four levels "off", "sparse", "normal", and "complete." Each +player can select his/her color level by using the COLOR command from +within the MUD; you as the programmer must decide which messages will be +colored for each of the color levels. + +All files in which you wish to use color must have the line: + +#include "screen.h" + +after all other includes in the beginning of the file. + +There are 8 colors available -- "normal", red, green, yellow, blue, magenta, +cyan and white. They are accessible by sending control sequences as part of +another string, for example: + +sprintf(buf, "If you're %shappy%s and you know it clap %d of your hands.\n\r", + x, y, num_of_hands); +send_to_char(buf, ch); + +In this example, x and y are the "on" and "off" sequences for the color you +want. There are 2 main series of color macros available for you to use +(don't actually use "x" and "y", of course!): the K series and the CC series. +The CC (Conditional Color) series is recommended for most general use. + +The name of the actual sequence starts with the name of its series, plus +a 3-letter color code, as follows: + +Normal : NRM +Red : RED +Yellow : YEL +Green : GRN +Blue : BLU +Magenta: MAG +Cyan : CYN +White : WHT + +For example, white in the K series is KWHT; blue in the CC series +is CCBLU() (arguments defined below). + +The K series requires no arguments, and is simply a macro to the ANSI +color code. Therefore, if you use a K-series color code, the color will +ALWAYS be sent, even if the person you're sending it to has color off. +This is very bad -- people who do not have ANSI-compatible terminals +will see garbage characters instead of colors. The K series is mainly +used to print colors to a string if the player's color level will later +be tested manually (for an example, see do_gen_com in act.comm.c). + +The recommended series is the CC series (i.e. CCNRM(), CCRED(), etc.) +The CC series macros require two arguments -- a pointer to the character +to whom the string is being sent, and the minimum color level the player +must be set to in order to see the color. Color sent as 'sparse' (C_SPR) +will be seen by people with color set to sparse, normal, or complete; +color sent as 'normal' (C_NRM) will be seen only by people with color +set to normal or complete; color sent as 'complete' (C_CMP) will be seen +only by people with color set to complete. + +To illustrate the above, an example is in order: + +#include "screen.h" /* include screen.h in all files that you use color in */ + +ACMD(do_showcolor) +{ + char buf[300]; + + sprintf(buf, "Don't you just love %scolor%s, %scolor%s, %sCOLOR%s!\n\r", + CCBLU(ch, C_CMP), CCNRM(ch, C_CMP), + CCYEL(ch, C_NRM), CCNRM(ch, C_NRM), + CCRED(ch, C_SPR), CCNRM(ch, C_SPR)); + send_to_char(buf, ch); +} + +What does this do? For people with color set to Complete, it prints: + + Don't you just love color, color, COLOR! + (blue) (yellow) (red) + +People who have color set to Normal will see: + + Don't you just love color, color, COLOR! + (yellow) (red) + +People who have color set to Sparse will see: + + Don't you just love color, color, COLOR! + (red) + +People who have color set to Off will see: + + Don't you just love color, color, COLOR! + (no color, as you'd expect) + + +There are several common pitfalls with using the CC series of color macros: + +* Do not confuse CCNRM with C_NRM. CCNRM() is a macro to turn the color + back to normal; C_NRM is a color level of "normal". + +* Always make sure that every pair of "on" and "off" codes are at the + same color level. For example: + + WRONG: sprintf(buf, "%sCOLOR%s\n\r", CCBLU(ch, C_NRM), CCNRM(ch, C_CMP)); + + This is wrong because if someone has their color level set to Normal, + the CCBLU code will be sent but the CCNRM command will not, causing all + subsequent output to be blue. + + WRONG: sprintf(buf, "%sCOLOR%s\n\r", CCBLU(ch, C_CMP), CCNRM(ch, C_NRM)); + + The above statement is also wrong, although not as bad. In this case, + someone with color set to Normal will (correctly) not get the CCBLU code, + but will then unnecessarily get the CCNRM code. Never send a color code if + you don't have to -- the codes are several bytes long, and cause a noticable + pause at 2400 baud. + +* This should go without saying, but don't ever send color at the C_OFF + level. + +* Special precautions must be taken when sending a colored string to a + large group of people -- you can't use the color level of "ch" (the + person sending the string) -- each person receiving the string must + get a string appropriately colored for his/her level. In such cases, + it's usually best to set up two strings (one colored and one not), + and test each player's color level individually (see do_gen_com in + act.comm.c for an example). + diff --git a/doc/OLD-DOCS/comm.doc b/doc/OLD-DOCS/comm.doc new file mode 100644 index 0000000..48bdf83 --- /dev/null +++ b/doc/OLD-DOCS/comm.doc @@ -0,0 +1,146 @@ +/* ************************************************************************ +* Copyright (C) 1990, 1991 - see 'license.doc' for complete information. * +************************************************************************* */ + +Descriptions of the message-to-character routines of comm.c + + + +void send_to_char(char *messg, struct char_data *ch) +Places messg in the output queue for ch, for later sending. + +void send_to_all(char *messg) +Sends a message to all players. + +void send_to_except(char *messg, struct char_data *ch) +Sends to all players, except the one pointed to by ch. + +void send_to_room(char *messg, int room) +Sends messg to all players in the room. + +void send_to_room_except(char *messg, int room, struct char_data *ch) +Send to all in room, with the exception of ch. + + +The following routine takes the place of all the old perform-routines. It is +to gradually replace these in the old code, and is to be used exclusively in +all additions. + + +FUNCTION ACT --- Process and send string to characters in a room. + +SYNOPSIS + +#include "comm.h" + +act(string, hide_invisible, ch, obj, vict_obj, type) + +char *string; /* the string to send */ +int hide_invisible, /* hide the action if vict can't see us? */ + type; /* who gets the string */ +struct char_data *ch; /* the 'performing' character */ +struct obj_data *obj; /* an object */ +void *vict_obj; /* an object OR a char OR an ascii string */ + + +DESCRIPTION + +This function is used to send a string to one or more characters in a room. The +string may contain certain control characters which are expanded before the +string is sent. + +Obj and vict_obj are ignored if no reference is made to them (via CONTROL +CHARACTERS), and if type (see below) is set to TO_ROOM. Thus, null-pointers +may be supplied in this case. Ch should always be defined. If String is a +null-pointer or if string points to a null-character, nothing will be sent. + +When the string has been parsed, it is capitalized and a newline is added. + + CONTROL CHARACTERS + +Each control character is preceded by a '$'. + + $n - Write name, short description, or "someone", for ch, depending on + whether ch is a PC, a NPC, or an invisible PC/NPC. + + $N - Like $n, except insert the text for vict_obj. NOTE: vict_obj must + point to an object of type struct char_data. + + $m - "him", "her", or "it", depending on the gender of ch. + + $M - Like $m, for vict_obj. NOTE: vict_obj must be a pointer of type + struct char_data. + + $s - "his", "her", or "it", depending on the gender of ch. + + $S - Like $s, for vict_obj. + + $e - "he", "she", "it", depending on the gender of ch. + + $E - Like $e, for vict_obj. + + $o - Name or "something" for obj, depending on visibility. + + $O - Like $o, for vict_obj. NOTE: vict_obj must be a pointer of type + struct obj_data. + + $p - Short description or "something" for obj. + + $P - Like $p for vict_obj. + + $a - "an" or "a", depending on the first character of obj's name. + + $A - Like $a, for vict_obj. + + $T - Prints the string pointed to by vict_obj. + + $F - Processes the string pointed to by vict_obj with fname() prior to + printing. + + $u - Processes the buffer and uppercases the first letter of the previous + word (the word immediately prior to the control code). If there is + no previous word, no action is taken. -- CircleMUD addition (09/18/00) + + $U - Processes the buffer and uppercases the first letter of the following + word (the word immediately after to the control code). If there is + no following word, no action is taken. -- CircleMUD addition (09/18/00) + + $$ - Print the character '$'. + + HIDE_INVISIBLE + +If this parameter is nonzero, the action will be hidden to those who are +unable to see ch. + + TYPE + +This value determines who the string is sent to. It may take one of four +values (the macros are defined in comm.h). + +TO_ROOM - Send the string to everybody in the room, except ch. +TO_VICT - Send the string to the character (!) pointed to by vict_obj. +TO_NOTVICT - Send the string to everybody in the room except ch and vict_obj. +TO_CHAR - Send the string to the ch. + + +EXAMPLES + +act("$n smiles happily.", TRUE, ch, 0, 0, TO_ROOM); + +(eg: Rainbird smiles happily.) + +act("You kiss $M.", FALSE, ch, 0, vict, TO_CHAR); + +(eg: You kiss her.) + +act("$n gives $p to $N.", TRUE, ch, obj, vict, TO_NOTVICT); + +(eg: Dave gives a small sword to the giant.) + +act("$n gives you $p.", FALSE, ch, obj, vict, TO_VICT); + +(eg: Dave gives you a small sword.) + +act("$n puts $p in $s $O.", TRUE, ch, obj1, obj2, TO_ROOM); + +(eg: Jones puts a small sword in his sack.) diff --git a/doc/OLD-DOCS/database.doc b/doc/OLD-DOCS/database.doc new file mode 100644 index 0000000..7d5d796 --- /dev/null +++ b/doc/OLD-DOCS/database.doc @@ -0,0 +1,389 @@ +/* ************************************************************************ +* Copyright (C) 1990, 1991 - see 'license.doc' for complete information. * +************************************************************************* */ + + DATABASE DOCUMENTATION + "database.doc" + + +1. The world file: +================== + +This file contains all the rooms, and is loaded once and for all at +boot-time. It follows the this format: + +-------------------------------------------- +# +~ +~ + + + +{} +'S' +# + +. +. +. + +#99999 +$~ + +Explanation of fields: +---------------------- + + follow this format: + +D +~ +~ + + +Extra descriptions +------------------ + +Format: + +'E' +~ +~ + + +----- +NOTE: + +All the text fields above may be left blank, but the '~' should always be +there. + +On the 'virtual' number: + +Since the rooms for this game are expected to be written by several people, +we have made it possible to number the rooms freely. Thus, it is possible to, +say, number the rooms in zone 0 from 0 to 1000, the rooms in zone 1 from 1000 +to 2000, and so on. Rooms can then be added to the room file without +upsetting the various references to rooms. In the reset command-tables, as well +as in the exits, references to a given room are made via the virtual number +rather than the array index. At boot-time, these references are substituted +with the actual array indices in order to improve the game-time execution +speed. In such places (ie the special routines for mobs/objs/rooms) where +this substitution cannot take place, a function 'real_room', with prototype + + int real_room(int virtual_number) + +must be used. This functions performs a binary search on the array of rooms, +looking for a room with a given virtual number. If found, the function +returns the index to this room; if not, the game is halted. + +Note: Since a binary search is used, the rooms MUST be sorted (in the +room-file) after their virtual number. + +----------------------------------------------------------------------------- + +2. Objects and monsters +======================= + +The objects and mobiles are stored in two separate files. They are loaded +once at boot-time, and then each time their zone is reset, according to the +information stored in the ZONE-FILE. + +The world is split up into a number of zones that are updated independently. +The exact nature of these updates are defined by the contents of the ZONE-FILE. + + +----------------------------------------------------------------------------- + +2.1. The Monster file: +====================== + +The format of this file is as follows: + + +# +~ +~ +~ +~ + + +IF != 'S' { + + + + + + + +} else { /* Simple monsters flag is 'S' */ + + + + + +} +# + +. +. +. + +# +$~ + + + +----------------------------------------------------------------------------- + +2.3. The object file: +===================== + + +The format is as follows: + +# +~ +~ +~ +~ + +