diff --git a/ATL/Lugwey/items.atl b/ATL/Lugwey/items.atl index f29c37e..f7ee691 100644 --- a/ATL/Lugwey/items.atl +++ b/ATL/Lugwey/items.atl @@ -57,4 +57,59 @@ cost 15 define-item "Cup of water" - description "A cup brimming full of nice, cool water..." \ No newline at end of file + description "A cup brimming full of nice, cool water..." + +define-item "Herbs" + description "Small, seemingly insignificant herbs. And yet, who knows what + healing powers here lie hid?" + +define-item "Quill" + description "A goose-feather quill, sharpened at the end and dipped in ink." + cost 5 + +define-item "Parchment" + description "A sheet of paper made from animal hides." + cost 5 + +define-item "Bible" + description "A thick, precious, illustrated Bible." + cost 150 + +define-item "Book of Lore" + description "A book full of nature lore: plants, animals, seasons..." + cost 60 + +define-item "Bread" + description "A loaf of rich brown bread, fresh out of the oven." + +define-item "Cheese" + description "A large round cheese. Hm, smells delicious!" + +define-item "Wine bottle" + description "Red wine in a glass bottle, looks tempting!" + +define-item "Candle" + description "A tallow candle, not bright, but sufficient for a bit of light." + cost 2 + function "light" + +define-monster "Fox" + description "A fox watching you out of yellow eyes. He is foaming around the + lips - watch out, rabies!" + health 7 + strength 3 + dexterity 5 + aggression 75 + spawn-probability 40 + weapon "Teeth" + item "Foxhide" + armour-class 0 + +define-weapon "Teeth" + description "A carnivore's teeth can do quite a bit of damage!" + type "body" + damage 2 + +define-item "Foxhide" + description "The hide of a red fox - looks good on your wall!" + cost 40 \ No newline at end of file diff --git a/ATL/Lugwey/items.atl b/ATL/Lugwey/items.atl index f29c37e..f7ee691 100644 --- a/ATL/Lugwey/items.atl +++ b/ATL/Lugwey/items.atl @@ -57,4 +57,59 @@ cost 15 define-item "Cup of water" - description "A cup brimming full of nice, cool water..." \ No newline at end of file + description "A cup brimming full of nice, cool water..." + +define-item "Herbs" + description "Small, seemingly insignificant herbs. And yet, who knows what + healing powers here lie hid?" + +define-item "Quill" + description "A goose-feather quill, sharpened at the end and dipped in ink." + cost 5 + +define-item "Parchment" + description "A sheet of paper made from animal hides." + cost 5 + +define-item "Bible" + description "A thick, precious, illustrated Bible." + cost 150 + +define-item "Book of Lore" + description "A book full of nature lore: plants, animals, seasons..." + cost 60 + +define-item "Bread" + description "A loaf of rich brown bread, fresh out of the oven." + +define-item "Cheese" + description "A large round cheese. Hm, smells delicious!" + +define-item "Wine bottle" + description "Red wine in a glass bottle, looks tempting!" + +define-item "Candle" + description "A tallow candle, not bright, but sufficient for a bit of light." + cost 2 + function "light" + +define-monster "Fox" + description "A fox watching you out of yellow eyes. He is foaming around the + lips - watch out, rabies!" + health 7 + strength 3 + dexterity 5 + aggression 75 + spawn-probability 40 + weapon "Teeth" + item "Foxhide" + armour-class 0 + +define-weapon "Teeth" + description "A carnivore's teeth can do quite a bit of damage!" + type "body" + damage 2 + +define-item "Foxhide" + description "The hide of a red fox - looks good on your wall!" + cost 40 \ No newline at end of file diff --git a/ATL/Lugwey/lugwey.atl b/ATL/Lugwey/lugwey.atl index 7f8c269..df42617 100644 --- a/ATL/Lugwey/lugwey.atl +++ b/ATL/Lugwey/lugwey.atl @@ -35,6 +35,11 @@ item "Lantern" ; night-vision +define-function "light" + docstring "Gives the player night vision" + player night-vision + print "You now have night vision!" + load-file "places.atl" load-file "items.atl" load-file "npcs.atl" \ No newline at end of file diff --git a/ATL/Lugwey/items.atl b/ATL/Lugwey/items.atl index f29c37e..f7ee691 100644 --- a/ATL/Lugwey/items.atl +++ b/ATL/Lugwey/items.atl @@ -57,4 +57,59 @@ cost 15 define-item "Cup of water" - description "A cup brimming full of nice, cool water..." \ No newline at end of file + description "A cup brimming full of nice, cool water..." + +define-item "Herbs" + description "Small, seemingly insignificant herbs. And yet, who knows what + healing powers here lie hid?" + +define-item "Quill" + description "A goose-feather quill, sharpened at the end and dipped in ink." + cost 5 + +define-item "Parchment" + description "A sheet of paper made from animal hides." + cost 5 + +define-item "Bible" + description "A thick, precious, illustrated Bible." + cost 150 + +define-item "Book of Lore" + description "A book full of nature lore: plants, animals, seasons..." + cost 60 + +define-item "Bread" + description "A loaf of rich brown bread, fresh out of the oven." + +define-item "Cheese" + description "A large round cheese. Hm, smells delicious!" + +define-item "Wine bottle" + description "Red wine in a glass bottle, looks tempting!" + +define-item "Candle" + description "A tallow candle, not bright, but sufficient for a bit of light." + cost 2 + function "light" + +define-monster "Fox" + description "A fox watching you out of yellow eyes. He is foaming around the + lips - watch out, rabies!" + health 7 + strength 3 + dexterity 5 + aggression 75 + spawn-probability 40 + weapon "Teeth" + item "Foxhide" + armour-class 0 + +define-weapon "Teeth" + description "A carnivore's teeth can do quite a bit of damage!" + type "body" + damage 2 + +define-item "Foxhide" + description "The hide of a red fox - looks good on your wall!" + cost 40 \ No newline at end of file diff --git a/ATL/Lugwey/lugwey.atl b/ATL/Lugwey/lugwey.atl index 7f8c269..df42617 100644 --- a/ATL/Lugwey/lugwey.atl +++ b/ATL/Lugwey/lugwey.atl @@ -35,6 +35,11 @@ item "Lantern" ; night-vision +define-function "light" + docstring "Gives the player night vision" + player night-vision + print "You now have night vision!" + load-file "places.atl" load-file "items.atl" load-file "npcs.atl" \ No newline at end of file diff --git a/ATL/Lugwey/npcs.atl b/ATL/Lugwey/npcs.atl index d66ae2d..44273a0 100644 --- a/ATL/Lugwey/npcs.atl +++ b/ATL/Lugwey/npcs.atl @@ -20,4 +20,69 @@ say-before "Go and have a look near the kitchen, perhaps you'll find some." say-after "Thank you very much for this water, I appreciate that!" proof-item "Cup of water" - experience 15 \ No newline at end of file + experience 15 + +define-npc "Priest" + description "One of the monks who have been elevated to priesthood, dressed + in the robes of his role." + says "Peace to you, brother." + +define-npc "Patient" + description "Quite obviously a peasant, the man's face is grey and sunk." + says "Ooooooh, please don't leave me! Please don't leave me!!" + +define-npc "Healer" + description "His sleeves rolled up, a towel over his arm and a bowl in his + hand, this monk looks rather puffed from scuttling around so much." + says "Where is that blasted Brother Fred? He was supposed to be helping us!" + quest "Find herbs" + +define-quest "Find herbs" + say-before "We've run out of some herbs, and urgently need more. Can you get + us some? They grow in the forest." + say-after "Oh thank goodness, you're a heaven-sent! Here is a small reward + for your pains. But where is Brother Fred?!" + proof-item "Herbs" + experience 20 + money 10 + +define-npc "Scribe" + description "A monk copying out a manuscript with utmost care." + says "Don't disturb me!" + +define-npc "Cook" + description "A fat, red-faced monk wearing a white apron and swinging a + ladel - don't get in his way!" + says "Shoo, out of my way! No disturbance in the kitchen!" + +define-npc "Kitchen helper" + description "A young monk, obviously assigned as assistant to the cook." + says "Sorry, I don't have time to talk, I need to run! The cook is already + upset! See you later!" + +define-npc "Store keeper" + description "This is the monk in charge of the supplies and the store room." + says "Nobody takes anything without my knowing about it, clear?" + +define-npc "Brewer" + description "A monk in a leather apron, stirring the vat." + says "Hello brother, nice to see someone here! Care to join me for a drink?" + +define-npc "Caretaker" + description "A friendly-looking monk in his late forties with greyish hair." + says "Welcome, traveller! Do you want to stay for the night?" + +define-npc "Abbot" + description "An elderly, well-fed cleric, the abbot of Lugwey wears a white + habit with a heavy gold cross on a chain around his neck." + says "Who are you? How dare you intrude in my room?" + quest "Find signet ring" + +define-quest "Find signet ring" + say-before "But while you're here, you might as well help me. I've lost my + signet ring - can you help me find it? I have no clue where it + is... I'll pay you handsomely!" + say-after "Oh thank you, thank you! Now you may go." + proof-item "signet ring" + money 90 + experience 30 diff --git a/ATL/Lugwey/items.atl b/ATL/Lugwey/items.atl index f29c37e..f7ee691 100644 --- a/ATL/Lugwey/items.atl +++ b/ATL/Lugwey/items.atl @@ -57,4 +57,59 @@ cost 15 define-item "Cup of water" - description "A cup brimming full of nice, cool water..." \ No newline at end of file + description "A cup brimming full of nice, cool water..." + +define-item "Herbs" + description "Small, seemingly insignificant herbs. And yet, who knows what + healing powers here lie hid?" + +define-item "Quill" + description "A goose-feather quill, sharpened at the end and dipped in ink." + cost 5 + +define-item "Parchment" + description "A sheet of paper made from animal hides." + cost 5 + +define-item "Bible" + description "A thick, precious, illustrated Bible." + cost 150 + +define-item "Book of Lore" + description "A book full of nature lore: plants, animals, seasons..." + cost 60 + +define-item "Bread" + description "A loaf of rich brown bread, fresh out of the oven." + +define-item "Cheese" + description "A large round cheese. Hm, smells delicious!" + +define-item "Wine bottle" + description "Red wine in a glass bottle, looks tempting!" + +define-item "Candle" + description "A tallow candle, not bright, but sufficient for a bit of light." + cost 2 + function "light" + +define-monster "Fox" + description "A fox watching you out of yellow eyes. He is foaming around the + lips - watch out, rabies!" + health 7 + strength 3 + dexterity 5 + aggression 75 + spawn-probability 40 + weapon "Teeth" + item "Foxhide" + armour-class 0 + +define-weapon "Teeth" + description "A carnivore's teeth can do quite a bit of damage!" + type "body" + damage 2 + +define-item "Foxhide" + description "The hide of a red fox - looks good on your wall!" + cost 40 \ No newline at end of file diff --git a/ATL/Lugwey/lugwey.atl b/ATL/Lugwey/lugwey.atl index 7f8c269..df42617 100644 --- a/ATL/Lugwey/lugwey.atl +++ b/ATL/Lugwey/lugwey.atl @@ -35,6 +35,11 @@ item "Lantern" ; night-vision +define-function "light" + docstring "Gives the player night vision" + player night-vision + print "You now have night vision!" + load-file "places.atl" load-file "items.atl" load-file "npcs.atl" \ No newline at end of file diff --git a/ATL/Lugwey/npcs.atl b/ATL/Lugwey/npcs.atl index d66ae2d..44273a0 100644 --- a/ATL/Lugwey/npcs.atl +++ b/ATL/Lugwey/npcs.atl @@ -20,4 +20,69 @@ say-before "Go and have a look near the kitchen, perhaps you'll find some." say-after "Thank you very much for this water, I appreciate that!" proof-item "Cup of water" - experience 15 \ No newline at end of file + experience 15 + +define-npc "Priest" + description "One of the monks who have been elevated to priesthood, dressed + in the robes of his role." + says "Peace to you, brother." + +define-npc "Patient" + description "Quite obviously a peasant, the man's face is grey and sunk." + says "Ooooooh, please don't leave me! Please don't leave me!!" + +define-npc "Healer" + description "His sleeves rolled up, a towel over his arm and a bowl in his + hand, this monk looks rather puffed from scuttling around so much." + says "Where is that blasted Brother Fred? He was supposed to be helping us!" + quest "Find herbs" + +define-quest "Find herbs" + say-before "We've run out of some herbs, and urgently need more. Can you get + us some? They grow in the forest." + say-after "Oh thank goodness, you're a heaven-sent! Here is a small reward + for your pains. But where is Brother Fred?!" + proof-item "Herbs" + experience 20 + money 10 + +define-npc "Scribe" + description "A monk copying out a manuscript with utmost care." + says "Don't disturb me!" + +define-npc "Cook" + description "A fat, red-faced monk wearing a white apron and swinging a + ladel - don't get in his way!" + says "Shoo, out of my way! No disturbance in the kitchen!" + +define-npc "Kitchen helper" + description "A young monk, obviously assigned as assistant to the cook." + says "Sorry, I don't have time to talk, I need to run! The cook is already + upset! See you later!" + +define-npc "Store keeper" + description "This is the monk in charge of the supplies and the store room." + says "Nobody takes anything without my knowing about it, clear?" + +define-npc "Brewer" + description "A monk in a leather apron, stirring the vat." + says "Hello brother, nice to see someone here! Care to join me for a drink?" + +define-npc "Caretaker" + description "A friendly-looking monk in his late forties with greyish hair." + says "Welcome, traveller! Do you want to stay for the night?" + +define-npc "Abbot" + description "An elderly, well-fed cleric, the abbot of Lugwey wears a white + habit with a heavy gold cross on a chain around his neck." + says "Who are you? How dare you intrude in my room?" + quest "Find signet ring" + +define-quest "Find signet ring" + say-before "But while you're here, you might as well help me. I've lost my + signet ring - can you help me find it? I have no clue where it + is... I'll pay you handsomely!" + say-after "Oh thank you, thank you! Now you may go." + proof-item "signet ring" + money 90 + experience 30 diff --git a/ATL/Lugwey/places.atl b/ATL/Lugwey/places.atl index 58cfc4e..b305b7f 100644 --- a/ATL/Lugwey/places.atl +++ b/ATL/Lugwey/places.atl @@ -15,6 +15,7 @@ A monk is sitting in the gate house, obviously bored." neighbour "Forest track" + neighbour "Forest" neighbour "Monastery grounds" npc "Gatekeeper" @@ -25,16 +26,28 @@ and agricultural outhouses speak of a simple working life." neighbour "Gate" neighbour "Chapel" - neighbour "Dormitory" neighbour "Gardens" neighbour "Stable" + neighbour "Kitchen" + neighbour "Cloister" + neighbour "Guest house" define-place "Forest track" description "A rutted track, scarred by the wheels of many carts, leads through the forest from the monastery to the near-by village." neighbour "Gate" + neighbour "Forest" item "Signet ring" +define-place "Forest" + description "Firs stretch all around you. A rabbit darts away from you as + a wood pecker starts hammering away. In the dim light reaching + you from above, the world looks a whole lot calmer..." + neighbour "Forest track" + neighbour "Gate" + item "Herbs" + monster "Fox" + define-place "Chapel" description "Soft light filters in through the stained glass window, illuminating statues of saints and angels. The pews in this @@ -45,6 +58,7 @@ neighbour "Dormitory" neighbour "Cloister" neighbour "Crypt" + npc "Priest" define-place "Crypt" description "Your steps echo in the cold, vaulted chamber. Here, underneath @@ -53,14 +67,29 @@ neighbour "Chapel" dark - define-place "Dormitory" - description "" - neighbour "Monastery grounds" + description "The dormitory houses the monks' cells. It is a stone house + like all the others, no frills, showing signs of age. Plain + corridors lead to similarly plain rooms. A few monks are talking + in their rooms, but in general it is very quiet. + + The abbot has his own suite, it lies at the back of the main dormitory." + neighbour "Abbot's suite" neighbour "Chapel" neighbour "Dining hall" neighbour "Cloister" +define-place "Abbot's suite" + description "While perhaps not quite luxurious, the abbot's suite is + definitely more comfortable than the rooms of the common + brothers. Rugs soften your footsteps on the floor, wall + hangings provide decoration. The abbot himself is standing + by the window." + neighbour "Dormitory" + item "Bible" + item "Candle" + npc "Abbot" + define-place "Cloister" description "Inside the main monastery building, a colonnade surrounds a rectangular courtyard. Neatly laid out flower beds are arranged @@ -71,37 +100,70 @@ neighbour "Dining hall" neighbour "Infirmary" neighbour "Scriptorium" + neighbour "Monastery grounds" define-place "Dining hall" - description "" + description "The dining hall is large enough for all the monks (about 100 + of them) to eat in all together. Tables and chairs are set up, + the monks on kitchen duty can be heard through the door at the + far end. There is an elevated pulpit half-way along the wall, + from whence a devotion is read every meal time." neighbour "Dormitory" neighbour "Cloister" neighbour "Kitchen" define-place "Infirmary" - description "" + description "The infirmary is the monastery clinic. The healers here treat + everyone: monks, locals, travellers. The main room offers a dozen + sick beds, especially severe cases are treated in an isolated room. + A few patients are lying around, with two monks tending to them." neighbour "Cloister" + npc "Patient" + npc "Healer" define-place "Scriptorium" - description "" + description "The Scriptorium is the book room. Several monks are at work, + bending over their desks, carefully copying out ancient + manuscripts with goose quills. Others are simply reading, + concentrating on the precious books available here." neighbour "Cloister" + npc "Scribe" + item "Quill" + item "Parchment" + item "Bible" + item "Book of Lore" define-place "Kitchen" - description "" + description "The large monastery kitchen has to cater for five score monks + every day, apart from any visitors. Accordingly, it's pretty busy + in here, not to mention loud and hot." neighbour "Dining Hall" neighbour "Storeroom" neighbour "Beer cellar" + neighbour "Monastery grounds" + npc "Cook" + npc "Kitchen helper" item "Cup of water" define-place "Storeroom" - description "" + description "All the monastery's food stores are kept here, in a nice cool + cellar underground. Loaves of bread, rolls of cheese, bottles of + wine, sacks full of flour... Everything goes in here." neighbour "Kitchen" neighbour "Beer cellar" + item "Bread" + item "Cheese" + item "Wine bottle" + npc "Store keeper" define-place "Beer cellar" - description "" + description "Like any self-respecting monastery, Lugwey brews its own beer. + This cellar is brewery and storage space in one - hundreds of + casks are stacked around the wall, a large fermenting vat + stands in the center." neighbour "Kitchen" neighbour "Storeroom" + npc "Brewer" define-place "Gardens" description "Plots of lettuce, tomatoes, beans, and many more vegetables @@ -122,4 +184,11 @@ neighbour "Gardens" item "Whip" item "Saddle" - item "Lantern" \ No newline at end of file + item "Lantern" + +define-place "Guest house" + description "Like most monasteries, Lugwey welcomes guests and travellers. + They are quartered here, in the guest house - a plain, but clean + and pleasant cottage on the monastery grounds." + neighbour "Monastery grounds" + npc "Caretaker" diff --git a/ATL/Lugwey/items.atl b/ATL/Lugwey/items.atl index f29c37e..f7ee691 100644 --- a/ATL/Lugwey/items.atl +++ b/ATL/Lugwey/items.atl @@ -57,4 +57,59 @@ cost 15 define-item "Cup of water" - description "A cup brimming full of nice, cool water..." \ No newline at end of file + description "A cup brimming full of nice, cool water..." + +define-item "Herbs" + description "Small, seemingly insignificant herbs. And yet, who knows what + healing powers here lie hid?" + +define-item "Quill" + description "A goose-feather quill, sharpened at the end and dipped in ink." + cost 5 + +define-item "Parchment" + description "A sheet of paper made from animal hides." + cost 5 + +define-item "Bible" + description "A thick, precious, illustrated Bible." + cost 150 + +define-item "Book of Lore" + description "A book full of nature lore: plants, animals, seasons..." + cost 60 + +define-item "Bread" + description "A loaf of rich brown bread, fresh out of the oven." + +define-item "Cheese" + description "A large round cheese. Hm, smells delicious!" + +define-item "Wine bottle" + description "Red wine in a glass bottle, looks tempting!" + +define-item "Candle" + description "A tallow candle, not bright, but sufficient for a bit of light." + cost 2 + function "light" + +define-monster "Fox" + description "A fox watching you out of yellow eyes. He is foaming around the + lips - watch out, rabies!" + health 7 + strength 3 + dexterity 5 + aggression 75 + spawn-probability 40 + weapon "Teeth" + item "Foxhide" + armour-class 0 + +define-weapon "Teeth" + description "A carnivore's teeth can do quite a bit of damage!" + type "body" + damage 2 + +define-item "Foxhide" + description "The hide of a red fox - looks good on your wall!" + cost 40 \ No newline at end of file diff --git a/ATL/Lugwey/lugwey.atl b/ATL/Lugwey/lugwey.atl index 7f8c269..df42617 100644 --- a/ATL/Lugwey/lugwey.atl +++ b/ATL/Lugwey/lugwey.atl @@ -35,6 +35,11 @@ item "Lantern" ; night-vision +define-function "light" + docstring "Gives the player night vision" + player night-vision + print "You now have night vision!" + load-file "places.atl" load-file "items.atl" load-file "npcs.atl" \ No newline at end of file diff --git a/ATL/Lugwey/npcs.atl b/ATL/Lugwey/npcs.atl index d66ae2d..44273a0 100644 --- a/ATL/Lugwey/npcs.atl +++ b/ATL/Lugwey/npcs.atl @@ -20,4 +20,69 @@ say-before "Go and have a look near the kitchen, perhaps you'll find some." say-after "Thank you very much for this water, I appreciate that!" proof-item "Cup of water" - experience 15 \ No newline at end of file + experience 15 + +define-npc "Priest" + description "One of the monks who have been elevated to priesthood, dressed + in the robes of his role." + says "Peace to you, brother." + +define-npc "Patient" + description "Quite obviously a peasant, the man's face is grey and sunk." + says "Ooooooh, please don't leave me! Please don't leave me!!" + +define-npc "Healer" + description "His sleeves rolled up, a towel over his arm and a bowl in his + hand, this monk looks rather puffed from scuttling around so much." + says "Where is that blasted Brother Fred? He was supposed to be helping us!" + quest "Find herbs" + +define-quest "Find herbs" + say-before "We've run out of some herbs, and urgently need more. Can you get + us some? They grow in the forest." + say-after "Oh thank goodness, you're a heaven-sent! Here is a small reward + for your pains. But where is Brother Fred?!" + proof-item "Herbs" + experience 20 + money 10 + +define-npc "Scribe" + description "A monk copying out a manuscript with utmost care." + says "Don't disturb me!" + +define-npc "Cook" + description "A fat, red-faced monk wearing a white apron and swinging a + ladel - don't get in his way!" + says "Shoo, out of my way! No disturbance in the kitchen!" + +define-npc "Kitchen helper" + description "A young monk, obviously assigned as assistant to the cook." + says "Sorry, I don't have time to talk, I need to run! The cook is already + upset! See you later!" + +define-npc "Store keeper" + description "This is the monk in charge of the supplies and the store room." + says "Nobody takes anything without my knowing about it, clear?" + +define-npc "Brewer" + description "A monk in a leather apron, stirring the vat." + says "Hello brother, nice to see someone here! Care to join me for a drink?" + +define-npc "Caretaker" + description "A friendly-looking monk in his late forties with greyish hair." + says "Welcome, traveller! Do you want to stay for the night?" + +define-npc "Abbot" + description "An elderly, well-fed cleric, the abbot of Lugwey wears a white + habit with a heavy gold cross on a chain around his neck." + says "Who are you? How dare you intrude in my room?" + quest "Find signet ring" + +define-quest "Find signet ring" + say-before "But while you're here, you might as well help me. I've lost my + signet ring - can you help me find it? I have no clue where it + is... I'll pay you handsomely!" + say-after "Oh thank you, thank you! Now you may go." + proof-item "signet ring" + money 90 + experience 30 diff --git a/ATL/Lugwey/places.atl b/ATL/Lugwey/places.atl index 58cfc4e..b305b7f 100644 --- a/ATL/Lugwey/places.atl +++ b/ATL/Lugwey/places.atl @@ -15,6 +15,7 @@ A monk is sitting in the gate house, obviously bored." neighbour "Forest track" + neighbour "Forest" neighbour "Monastery grounds" npc "Gatekeeper" @@ -25,16 +26,28 @@ and agricultural outhouses speak of a simple working life." neighbour "Gate" neighbour "Chapel" - neighbour "Dormitory" neighbour "Gardens" neighbour "Stable" + neighbour "Kitchen" + neighbour "Cloister" + neighbour "Guest house" define-place "Forest track" description "A rutted track, scarred by the wheels of many carts, leads through the forest from the monastery to the near-by village." neighbour "Gate" + neighbour "Forest" item "Signet ring" +define-place "Forest" + description "Firs stretch all around you. A rabbit darts away from you as + a wood pecker starts hammering away. In the dim light reaching + you from above, the world looks a whole lot calmer..." + neighbour "Forest track" + neighbour "Gate" + item "Herbs" + monster "Fox" + define-place "Chapel" description "Soft light filters in through the stained glass window, illuminating statues of saints and angels. The pews in this @@ -45,6 +58,7 @@ neighbour "Dormitory" neighbour "Cloister" neighbour "Crypt" + npc "Priest" define-place "Crypt" description "Your steps echo in the cold, vaulted chamber. Here, underneath @@ -53,14 +67,29 @@ neighbour "Chapel" dark - define-place "Dormitory" - description "" - neighbour "Monastery grounds" + description "The dormitory houses the monks' cells. It is a stone house + like all the others, no frills, showing signs of age. Plain + corridors lead to similarly plain rooms. A few monks are talking + in their rooms, but in general it is very quiet. + + The abbot has his own suite, it lies at the back of the main dormitory." + neighbour "Abbot's suite" neighbour "Chapel" neighbour "Dining hall" neighbour "Cloister" +define-place "Abbot's suite" + description "While perhaps not quite luxurious, the abbot's suite is + definitely more comfortable than the rooms of the common + brothers. Rugs soften your footsteps on the floor, wall + hangings provide decoration. The abbot himself is standing + by the window." + neighbour "Dormitory" + item "Bible" + item "Candle" + npc "Abbot" + define-place "Cloister" description "Inside the main monastery building, a colonnade surrounds a rectangular courtyard. Neatly laid out flower beds are arranged @@ -71,37 +100,70 @@ neighbour "Dining hall" neighbour "Infirmary" neighbour "Scriptorium" + neighbour "Monastery grounds" define-place "Dining hall" - description "" + description "The dining hall is large enough for all the monks (about 100 + of them) to eat in all together. Tables and chairs are set up, + the monks on kitchen duty can be heard through the door at the + far end. There is an elevated pulpit half-way along the wall, + from whence a devotion is read every meal time." neighbour "Dormitory" neighbour "Cloister" neighbour "Kitchen" define-place "Infirmary" - description "" + description "The infirmary is the monastery clinic. The healers here treat + everyone: monks, locals, travellers. The main room offers a dozen + sick beds, especially severe cases are treated in an isolated room. + A few patients are lying around, with two monks tending to them." neighbour "Cloister" + npc "Patient" + npc "Healer" define-place "Scriptorium" - description "" + description "The Scriptorium is the book room. Several monks are at work, + bending over their desks, carefully copying out ancient + manuscripts with goose quills. Others are simply reading, + concentrating on the precious books available here." neighbour "Cloister" + npc "Scribe" + item "Quill" + item "Parchment" + item "Bible" + item "Book of Lore" define-place "Kitchen" - description "" + description "The large monastery kitchen has to cater for five score monks + every day, apart from any visitors. Accordingly, it's pretty busy + in here, not to mention loud and hot." neighbour "Dining Hall" neighbour "Storeroom" neighbour "Beer cellar" + neighbour "Monastery grounds" + npc "Cook" + npc "Kitchen helper" item "Cup of water" define-place "Storeroom" - description "" + description "All the monastery's food stores are kept here, in a nice cool + cellar underground. Loaves of bread, rolls of cheese, bottles of + wine, sacks full of flour... Everything goes in here." neighbour "Kitchen" neighbour "Beer cellar" + item "Bread" + item "Cheese" + item "Wine bottle" + npc "Store keeper" define-place "Beer cellar" - description "" + description "Like any self-respecting monastery, Lugwey brews its own beer. + This cellar is brewery and storage space in one - hundreds of + casks are stacked around the wall, a large fermenting vat + stands in the center." neighbour "Kitchen" neighbour "Storeroom" + npc "Brewer" define-place "Gardens" description "Plots of lettuce, tomatoes, beans, and many more vegetables @@ -122,4 +184,11 @@ neighbour "Gardens" item "Whip" item "Saddle" - item "Lantern" \ No newline at end of file + item "Lantern" + +define-place "Guest house" + description "Like most monasteries, Lugwey welcomes guests and travellers. + They are quartered here, in the guest house - a plain, but clean + and pleasant cottage on the monastery grounds." + neighbour "Monastery grounds" + npc "Caretaker" diff --git a/ATL/atl-mode.el b/ATL/atl-mode.el index d0eaa0d..8ac9ae9 100644 --- a/ATL/atl-mode.el +++ b/ATL/atl-mode.el @@ -14,9 +14,9 @@ '("define-place" "define-item" "define-monster" "define-npc" "define-race" "define-place" "define-weapon" "define-class" "define-player" "define-quest" - "define-function" "name-world" "load-file") + "define-function" "name-world" "load-file" "load") '() ;; other commands (adjust this?) '("\\.atl$") ;; files for which to activate this mode - '(linum-mode) ;; other functions to call + '(linum-mode) ;; other functions to call - doesn't work for some reason "An Emacs mode for the ATL game description language" ;; doc string ) diff --git a/ATL/Lugwey/items.atl b/ATL/Lugwey/items.atl index f29c37e..f7ee691 100644 --- a/ATL/Lugwey/items.atl +++ b/ATL/Lugwey/items.atl @@ -57,4 +57,59 @@ cost 15 define-item "Cup of water" - description "A cup brimming full of nice, cool water..." \ No newline at end of file + description "A cup brimming full of nice, cool water..." + +define-item "Herbs" + description "Small, seemingly insignificant herbs. And yet, who knows what + healing powers here lie hid?" + +define-item "Quill" + description "A goose-feather quill, sharpened at the end and dipped in ink." + cost 5 + +define-item "Parchment" + description "A sheet of paper made from animal hides." + cost 5 + +define-item "Bible" + description "A thick, precious, illustrated Bible." + cost 150 + +define-item "Book of Lore" + description "A book full of nature lore: plants, animals, seasons..." + cost 60 + +define-item "Bread" + description "A loaf of rich brown bread, fresh out of the oven." + +define-item "Cheese" + description "A large round cheese. Hm, smells delicious!" + +define-item "Wine bottle" + description "Red wine in a glass bottle, looks tempting!" + +define-item "Candle" + description "A tallow candle, not bright, but sufficient for a bit of light." + cost 2 + function "light" + +define-monster "Fox" + description "A fox watching you out of yellow eyes. He is foaming around the + lips - watch out, rabies!" + health 7 + strength 3 + dexterity 5 + aggression 75 + spawn-probability 40 + weapon "Teeth" + item "Foxhide" + armour-class 0 + +define-weapon "Teeth" + description "A carnivore's teeth can do quite a bit of damage!" + type "body" + damage 2 + +define-item "Foxhide" + description "The hide of a red fox - looks good on your wall!" + cost 40 \ No newline at end of file diff --git a/ATL/Lugwey/lugwey.atl b/ATL/Lugwey/lugwey.atl index 7f8c269..df42617 100644 --- a/ATL/Lugwey/lugwey.atl +++ b/ATL/Lugwey/lugwey.atl @@ -35,6 +35,11 @@ item "Lantern" ; night-vision +define-function "light" + docstring "Gives the player night vision" + player night-vision + print "You now have night vision!" + load-file "places.atl" load-file "items.atl" load-file "npcs.atl" \ No newline at end of file diff --git a/ATL/Lugwey/npcs.atl b/ATL/Lugwey/npcs.atl index d66ae2d..44273a0 100644 --- a/ATL/Lugwey/npcs.atl +++ b/ATL/Lugwey/npcs.atl @@ -20,4 +20,69 @@ say-before "Go and have a look near the kitchen, perhaps you'll find some." say-after "Thank you very much for this water, I appreciate that!" proof-item "Cup of water" - experience 15 \ No newline at end of file + experience 15 + +define-npc "Priest" + description "One of the monks who have been elevated to priesthood, dressed + in the robes of his role." + says "Peace to you, brother." + +define-npc "Patient" + description "Quite obviously a peasant, the man's face is grey and sunk." + says "Ooooooh, please don't leave me! Please don't leave me!!" + +define-npc "Healer" + description "His sleeves rolled up, a towel over his arm and a bowl in his + hand, this monk looks rather puffed from scuttling around so much." + says "Where is that blasted Brother Fred? He was supposed to be helping us!" + quest "Find herbs" + +define-quest "Find herbs" + say-before "We've run out of some herbs, and urgently need more. Can you get + us some? They grow in the forest." + say-after "Oh thank goodness, you're a heaven-sent! Here is a small reward + for your pains. But where is Brother Fred?!" + proof-item "Herbs" + experience 20 + money 10 + +define-npc "Scribe" + description "A monk copying out a manuscript with utmost care." + says "Don't disturb me!" + +define-npc "Cook" + description "A fat, red-faced monk wearing a white apron and swinging a + ladel - don't get in his way!" + says "Shoo, out of my way! No disturbance in the kitchen!" + +define-npc "Kitchen helper" + description "A young monk, obviously assigned as assistant to the cook." + says "Sorry, I don't have time to talk, I need to run! The cook is already + upset! See you later!" + +define-npc "Store keeper" + description "This is the monk in charge of the supplies and the store room." + says "Nobody takes anything without my knowing about it, clear?" + +define-npc "Brewer" + description "A monk in a leather apron, stirring the vat." + says "Hello brother, nice to see someone here! Care to join me for a drink?" + +define-npc "Caretaker" + description "A friendly-looking monk in his late forties with greyish hair." + says "Welcome, traveller! Do you want to stay for the night?" + +define-npc "Abbot" + description "An elderly, well-fed cleric, the abbot of Lugwey wears a white + habit with a heavy gold cross on a chain around his neck." + says "Who are you? How dare you intrude in my room?" + quest "Find signet ring" + +define-quest "Find signet ring" + say-before "But while you're here, you might as well help me. I've lost my + signet ring - can you help me find it? I have no clue where it + is... I'll pay you handsomely!" + say-after "Oh thank you, thank you! Now you may go." + proof-item "signet ring" + money 90 + experience 30 diff --git a/ATL/Lugwey/places.atl b/ATL/Lugwey/places.atl index 58cfc4e..b305b7f 100644 --- a/ATL/Lugwey/places.atl +++ b/ATL/Lugwey/places.atl @@ -15,6 +15,7 @@ A monk is sitting in the gate house, obviously bored." neighbour "Forest track" + neighbour "Forest" neighbour "Monastery grounds" npc "Gatekeeper" @@ -25,16 +26,28 @@ and agricultural outhouses speak of a simple working life." neighbour "Gate" neighbour "Chapel" - neighbour "Dormitory" neighbour "Gardens" neighbour "Stable" + neighbour "Kitchen" + neighbour "Cloister" + neighbour "Guest house" define-place "Forest track" description "A rutted track, scarred by the wheels of many carts, leads through the forest from the monastery to the near-by village." neighbour "Gate" + neighbour "Forest" item "Signet ring" +define-place "Forest" + description "Firs stretch all around you. A rabbit darts away from you as + a wood pecker starts hammering away. In the dim light reaching + you from above, the world looks a whole lot calmer..." + neighbour "Forest track" + neighbour "Gate" + item "Herbs" + monster "Fox" + define-place "Chapel" description "Soft light filters in through the stained glass window, illuminating statues of saints and angels. The pews in this @@ -45,6 +58,7 @@ neighbour "Dormitory" neighbour "Cloister" neighbour "Crypt" + npc "Priest" define-place "Crypt" description "Your steps echo in the cold, vaulted chamber. Here, underneath @@ -53,14 +67,29 @@ neighbour "Chapel" dark - define-place "Dormitory" - description "" - neighbour "Monastery grounds" + description "The dormitory houses the monks' cells. It is a stone house + like all the others, no frills, showing signs of age. Plain + corridors lead to similarly plain rooms. A few monks are talking + in their rooms, but in general it is very quiet. + + The abbot has his own suite, it lies at the back of the main dormitory." + neighbour "Abbot's suite" neighbour "Chapel" neighbour "Dining hall" neighbour "Cloister" +define-place "Abbot's suite" + description "While perhaps not quite luxurious, the abbot's suite is + definitely more comfortable than the rooms of the common + brothers. Rugs soften your footsteps on the floor, wall + hangings provide decoration. The abbot himself is standing + by the window." + neighbour "Dormitory" + item "Bible" + item "Candle" + npc "Abbot" + define-place "Cloister" description "Inside the main monastery building, a colonnade surrounds a rectangular courtyard. Neatly laid out flower beds are arranged @@ -71,37 +100,70 @@ neighbour "Dining hall" neighbour "Infirmary" neighbour "Scriptorium" + neighbour "Monastery grounds" define-place "Dining hall" - description "" + description "The dining hall is large enough for all the monks (about 100 + of them) to eat in all together. Tables and chairs are set up, + the monks on kitchen duty can be heard through the door at the + far end. There is an elevated pulpit half-way along the wall, + from whence a devotion is read every meal time." neighbour "Dormitory" neighbour "Cloister" neighbour "Kitchen" define-place "Infirmary" - description "" + description "The infirmary is the monastery clinic. The healers here treat + everyone: monks, locals, travellers. The main room offers a dozen + sick beds, especially severe cases are treated in an isolated room. + A few patients are lying around, with two monks tending to them." neighbour "Cloister" + npc "Patient" + npc "Healer" define-place "Scriptorium" - description "" + description "The Scriptorium is the book room. Several monks are at work, + bending over their desks, carefully copying out ancient + manuscripts with goose quills. Others are simply reading, + concentrating on the precious books available here." neighbour "Cloister" + npc "Scribe" + item "Quill" + item "Parchment" + item "Bible" + item "Book of Lore" define-place "Kitchen" - description "" + description "The large monastery kitchen has to cater for five score monks + every day, apart from any visitors. Accordingly, it's pretty busy + in here, not to mention loud and hot." neighbour "Dining Hall" neighbour "Storeroom" neighbour "Beer cellar" + neighbour "Monastery grounds" + npc "Cook" + npc "Kitchen helper" item "Cup of water" define-place "Storeroom" - description "" + description "All the monastery's food stores are kept here, in a nice cool + cellar underground. Loaves of bread, rolls of cheese, bottles of + wine, sacks full of flour... Everything goes in here." neighbour "Kitchen" neighbour "Beer cellar" + item "Bread" + item "Cheese" + item "Wine bottle" + npc "Store keeper" define-place "Beer cellar" - description "" + description "Like any self-respecting monastery, Lugwey brews its own beer. + This cellar is brewery and storage space in one - hundreds of + casks are stacked around the wall, a large fermenting vat + stands in the center." neighbour "Kitchen" neighbour "Storeroom" + npc "Brewer" define-place "Gardens" description "Plots of lettuce, tomatoes, beans, and many more vegetables @@ -122,4 +184,11 @@ neighbour "Gardens" item "Whip" item "Saddle" - item "Lantern" \ No newline at end of file + item "Lantern" + +define-place "Guest house" + description "Like most monasteries, Lugwey welcomes guests and travellers. + They are quartered here, in the guest house - a plain, but clean + and pleasant cottage on the monastery grounds." + neighbour "Monastery grounds" + npc "Caretaker" diff --git a/ATL/atl-mode.el b/ATL/atl-mode.el index d0eaa0d..8ac9ae9 100644 --- a/ATL/atl-mode.el +++ b/ATL/atl-mode.el @@ -14,9 +14,9 @@ '("define-place" "define-item" "define-monster" "define-npc" "define-race" "define-place" "define-weapon" "define-class" "define-player" "define-quest" - "define-function" "name-world" "load-file") + "define-function" "name-world" "load-file" "load") '() ;; other commands (adjust this?) '("\\.atl$") ;; files for which to activate this mode - '(linum-mode) ;; other functions to call + '(linum-mode) ;; other functions to call - doesn't work for some reason "An Emacs mode for the ATL game description language" ;; doc string ) diff --git a/lisp/game-objects.lisp b/lisp/game-objects.lisp index 697e2e8..1daf24e 100644 --- a/lisp/game-objects.lisp +++ b/lisp/game-objects.lisp @@ -39,6 +39,7 @@ (dexterity 0) (aggression 0) (spawn-probability 0) + (item NIL) (weapon "") (armour-class 0)) diff --git a/ATL/Lugwey/items.atl b/ATL/Lugwey/items.atl index f29c37e..f7ee691 100644 --- a/ATL/Lugwey/items.atl +++ b/ATL/Lugwey/items.atl @@ -57,4 +57,59 @@ cost 15 define-item "Cup of water" - description "A cup brimming full of nice, cool water..." \ No newline at end of file + description "A cup brimming full of nice, cool water..." + +define-item "Herbs" + description "Small, seemingly insignificant herbs. And yet, who knows what + healing powers here lie hid?" + +define-item "Quill" + description "A goose-feather quill, sharpened at the end and dipped in ink." + cost 5 + +define-item "Parchment" + description "A sheet of paper made from animal hides." + cost 5 + +define-item "Bible" + description "A thick, precious, illustrated Bible." + cost 150 + +define-item "Book of Lore" + description "A book full of nature lore: plants, animals, seasons..." + cost 60 + +define-item "Bread" + description "A loaf of rich brown bread, fresh out of the oven." + +define-item "Cheese" + description "A large round cheese. Hm, smells delicious!" + +define-item "Wine bottle" + description "Red wine in a glass bottle, looks tempting!" + +define-item "Candle" + description "A tallow candle, not bright, but sufficient for a bit of light." + cost 2 + function "light" + +define-monster "Fox" + description "A fox watching you out of yellow eyes. He is foaming around the + lips - watch out, rabies!" + health 7 + strength 3 + dexterity 5 + aggression 75 + spawn-probability 40 + weapon "Teeth" + item "Foxhide" + armour-class 0 + +define-weapon "Teeth" + description "A carnivore's teeth can do quite a bit of damage!" + type "body" + damage 2 + +define-item "Foxhide" + description "The hide of a red fox - looks good on your wall!" + cost 40 \ No newline at end of file diff --git a/ATL/Lugwey/lugwey.atl b/ATL/Lugwey/lugwey.atl index 7f8c269..df42617 100644 --- a/ATL/Lugwey/lugwey.atl +++ b/ATL/Lugwey/lugwey.atl @@ -35,6 +35,11 @@ item "Lantern" ; night-vision +define-function "light" + docstring "Gives the player night vision" + player night-vision + print "You now have night vision!" + load-file "places.atl" load-file "items.atl" load-file "npcs.atl" \ No newline at end of file diff --git a/ATL/Lugwey/npcs.atl b/ATL/Lugwey/npcs.atl index d66ae2d..44273a0 100644 --- a/ATL/Lugwey/npcs.atl +++ b/ATL/Lugwey/npcs.atl @@ -20,4 +20,69 @@ say-before "Go and have a look near the kitchen, perhaps you'll find some." say-after "Thank you very much for this water, I appreciate that!" proof-item "Cup of water" - experience 15 \ No newline at end of file + experience 15 + +define-npc "Priest" + description "One of the monks who have been elevated to priesthood, dressed + in the robes of his role." + says "Peace to you, brother." + +define-npc "Patient" + description "Quite obviously a peasant, the man's face is grey and sunk." + says "Ooooooh, please don't leave me! Please don't leave me!!" + +define-npc "Healer" + description "His sleeves rolled up, a towel over his arm and a bowl in his + hand, this monk looks rather puffed from scuttling around so much." + says "Where is that blasted Brother Fred? He was supposed to be helping us!" + quest "Find herbs" + +define-quest "Find herbs" + say-before "We've run out of some herbs, and urgently need more. Can you get + us some? They grow in the forest." + say-after "Oh thank goodness, you're a heaven-sent! Here is a small reward + for your pains. But where is Brother Fred?!" + proof-item "Herbs" + experience 20 + money 10 + +define-npc "Scribe" + description "A monk copying out a manuscript with utmost care." + says "Don't disturb me!" + +define-npc "Cook" + description "A fat, red-faced monk wearing a white apron and swinging a + ladel - don't get in his way!" + says "Shoo, out of my way! No disturbance in the kitchen!" + +define-npc "Kitchen helper" + description "A young monk, obviously assigned as assistant to the cook." + says "Sorry, I don't have time to talk, I need to run! The cook is already + upset! See you later!" + +define-npc "Store keeper" + description "This is the monk in charge of the supplies and the store room." + says "Nobody takes anything without my knowing about it, clear?" + +define-npc "Brewer" + description "A monk in a leather apron, stirring the vat." + says "Hello brother, nice to see someone here! Care to join me for a drink?" + +define-npc "Caretaker" + description "A friendly-looking monk in his late forties with greyish hair." + says "Welcome, traveller! Do you want to stay for the night?" + +define-npc "Abbot" + description "An elderly, well-fed cleric, the abbot of Lugwey wears a white + habit with a heavy gold cross on a chain around his neck." + says "Who are you? How dare you intrude in my room?" + quest "Find signet ring" + +define-quest "Find signet ring" + say-before "But while you're here, you might as well help me. I've lost my + signet ring - can you help me find it? I have no clue where it + is... I'll pay you handsomely!" + say-after "Oh thank you, thank you! Now you may go." + proof-item "signet ring" + money 90 + experience 30 diff --git a/ATL/Lugwey/places.atl b/ATL/Lugwey/places.atl index 58cfc4e..b305b7f 100644 --- a/ATL/Lugwey/places.atl +++ b/ATL/Lugwey/places.atl @@ -15,6 +15,7 @@ A monk is sitting in the gate house, obviously bored." neighbour "Forest track" + neighbour "Forest" neighbour "Monastery grounds" npc "Gatekeeper" @@ -25,16 +26,28 @@ and agricultural outhouses speak of a simple working life." neighbour "Gate" neighbour "Chapel" - neighbour "Dormitory" neighbour "Gardens" neighbour "Stable" + neighbour "Kitchen" + neighbour "Cloister" + neighbour "Guest house" define-place "Forest track" description "A rutted track, scarred by the wheels of many carts, leads through the forest from the monastery to the near-by village." neighbour "Gate" + neighbour "Forest" item "Signet ring" +define-place "Forest" + description "Firs stretch all around you. A rabbit darts away from you as + a wood pecker starts hammering away. In the dim light reaching + you from above, the world looks a whole lot calmer..." + neighbour "Forest track" + neighbour "Gate" + item "Herbs" + monster "Fox" + define-place "Chapel" description "Soft light filters in through the stained glass window, illuminating statues of saints and angels. The pews in this @@ -45,6 +58,7 @@ neighbour "Dormitory" neighbour "Cloister" neighbour "Crypt" + npc "Priest" define-place "Crypt" description "Your steps echo in the cold, vaulted chamber. Here, underneath @@ -53,14 +67,29 @@ neighbour "Chapel" dark - define-place "Dormitory" - description "" - neighbour "Monastery grounds" + description "The dormitory houses the monks' cells. It is a stone house + like all the others, no frills, showing signs of age. Plain + corridors lead to similarly plain rooms. A few monks are talking + in their rooms, but in general it is very quiet. + + The abbot has his own suite, it lies at the back of the main dormitory." + neighbour "Abbot's suite" neighbour "Chapel" neighbour "Dining hall" neighbour "Cloister" +define-place "Abbot's suite" + description "While perhaps not quite luxurious, the abbot's suite is + definitely more comfortable than the rooms of the common + brothers. Rugs soften your footsteps on the floor, wall + hangings provide decoration. The abbot himself is standing + by the window." + neighbour "Dormitory" + item "Bible" + item "Candle" + npc "Abbot" + define-place "Cloister" description "Inside the main monastery building, a colonnade surrounds a rectangular courtyard. Neatly laid out flower beds are arranged @@ -71,37 +100,70 @@ neighbour "Dining hall" neighbour "Infirmary" neighbour "Scriptorium" + neighbour "Monastery grounds" define-place "Dining hall" - description "" + description "The dining hall is large enough for all the monks (about 100 + of them) to eat in all together. Tables and chairs are set up, + the monks on kitchen duty can be heard through the door at the + far end. There is an elevated pulpit half-way along the wall, + from whence a devotion is read every meal time." neighbour "Dormitory" neighbour "Cloister" neighbour "Kitchen" define-place "Infirmary" - description "" + description "The infirmary is the monastery clinic. The healers here treat + everyone: monks, locals, travellers. The main room offers a dozen + sick beds, especially severe cases are treated in an isolated room. + A few patients are lying around, with two monks tending to them." neighbour "Cloister" + npc "Patient" + npc "Healer" define-place "Scriptorium" - description "" + description "The Scriptorium is the book room. Several monks are at work, + bending over their desks, carefully copying out ancient + manuscripts with goose quills. Others are simply reading, + concentrating on the precious books available here." neighbour "Cloister" + npc "Scribe" + item "Quill" + item "Parchment" + item "Bible" + item "Book of Lore" define-place "Kitchen" - description "" + description "The large monastery kitchen has to cater for five score monks + every day, apart from any visitors. Accordingly, it's pretty busy + in here, not to mention loud and hot." neighbour "Dining Hall" neighbour "Storeroom" neighbour "Beer cellar" + neighbour "Monastery grounds" + npc "Cook" + npc "Kitchen helper" item "Cup of water" define-place "Storeroom" - description "" + description "All the monastery's food stores are kept here, in a nice cool + cellar underground. Loaves of bread, rolls of cheese, bottles of + wine, sacks full of flour... Everything goes in here." neighbour "Kitchen" neighbour "Beer cellar" + item "Bread" + item "Cheese" + item "Wine bottle" + npc "Store keeper" define-place "Beer cellar" - description "" + description "Like any self-respecting monastery, Lugwey brews its own beer. + This cellar is brewery and storage space in one - hundreds of + casks are stacked around the wall, a large fermenting vat + stands in the center." neighbour "Kitchen" neighbour "Storeroom" + npc "Brewer" define-place "Gardens" description "Plots of lettuce, tomatoes, beans, and many more vegetables @@ -122,4 +184,11 @@ neighbour "Gardens" item "Whip" item "Saddle" - item "Lantern" \ No newline at end of file + item "Lantern" + +define-place "Guest house" + description "Like most monasteries, Lugwey welcomes guests and travellers. + They are quartered here, in the guest house - a plain, but clean + and pleasant cottage on the monastery grounds." + neighbour "Monastery grounds" + npc "Caretaker" diff --git a/ATL/atl-mode.el b/ATL/atl-mode.el index d0eaa0d..8ac9ae9 100644 --- a/ATL/atl-mode.el +++ b/ATL/atl-mode.el @@ -14,9 +14,9 @@ '("define-place" "define-item" "define-monster" "define-npc" "define-race" "define-place" "define-weapon" "define-class" "define-player" "define-quest" - "define-function" "name-world" "load-file") + "define-function" "name-world" "load-file" "load") '() ;; other commands (adjust this?) '("\\.atl$") ;; files for which to activate this mode - '(linum-mode) ;; other functions to call + '(linum-mode) ;; other functions to call - doesn't work for some reason "An Emacs mode for the ATL game description language" ;; doc string ) diff --git a/lisp/game-objects.lisp b/lisp/game-objects.lisp index 697e2e8..1daf24e 100644 --- a/lisp/game-objects.lisp +++ b/lisp/game-objects.lisp @@ -39,6 +39,7 @@ (dexterity 0) (aggression 0) (spawn-probability 0) + (item NIL) (weapon "") (armour-class 0)) diff --git a/lisp/ui.lisp b/lisp/ui.lisp index 9723339..d4d8720 100644 --- a/lisp/ui.lisp +++ b/lisp/ui.lisp @@ -413,9 +413,9 @@ (defun calculate-damage (att-str att-weapon def-dex def-ac) "A private function to calculate the damage caused by an attack" (let ((damage 0)) - (incf damage (random att-str)) + (incf damage (if (zerop att-str) 0 (random att-str))) (incf damage (weapon-damage att-weapon)) - (decf damage (random def-dex)) + (decf damage (if (zerop def-dex) 0 (random def-dex))) (decf damage def-ac) (if (minusp damage) 0 damage)))