diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/letter.txt b/ATL/Pooh/dialogue/letter.txt new file mode 100644 index 0000000..262a80e --- /dev/null +++ b/ATL/Pooh/dialogue/letter.txt @@ -0,0 +1,12 @@ + +OWL: +I have received a letter! Do you want to hear it? +Here, let me read it to you: +Hrrmpf, this is rather bad handwriting. +'Dear Pooh,' +Wait, this letter isn't to me at all? +Oh well, no matter. Ahem. +'I need to meet you urgently. +Come to see me at Galleon's Lap. +Sincerely, Christopher Robin' +There you go, what do you think about that? diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/letter.txt b/ATL/Pooh/dialogue/letter.txt new file mode 100644 index 0000000..262a80e --- /dev/null +++ b/ATL/Pooh/dialogue/letter.txt @@ -0,0 +1,12 @@ + +OWL: +I have received a letter! Do you want to hear it? +Here, let me read it to you: +Hrrmpf, this is rather bad handwriting. +'Dear Pooh,' +Wait, this letter isn't to me at all? +Oh well, no matter. Ahem. +'I need to meet you urgently. +Come to see me at Galleon's Lap. +Sincerely, Christopher Robin' +There you go, what do you think about that? diff --git a/ATL/Pooh/dialogue/stream-current.txt b/ATL/Pooh/dialogue/stream-current.txt new file mode 100644 index 0000000..c3288cf --- /dev/null +++ b/ATL/Pooh/dialogue/stream-current.txt @@ -0,0 +1,5 @@ + +You struggle to get back to the banks. +You fight against the rushing water, but it's stronger than you. +The stream pulls you along. +It finally deposits you in a floody place. diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/letter.txt b/ATL/Pooh/dialogue/letter.txt new file mode 100644 index 0000000..262a80e --- /dev/null +++ b/ATL/Pooh/dialogue/letter.txt @@ -0,0 +1,12 @@ + +OWL: +I have received a letter! Do you want to hear it? +Here, let me read it to you: +Hrrmpf, this is rather bad handwriting. +'Dear Pooh,' +Wait, this letter isn't to me at all? +Oh well, no matter. Ahem. +'I need to meet you urgently. +Come to see me at Galleon's Lap. +Sincerely, Christopher Robin' +There you go, what do you think about that? diff --git a/ATL/Pooh/dialogue/stream-current.txt b/ATL/Pooh/dialogue/stream-current.txt new file mode 100644 index 0000000..c3288cf --- /dev/null +++ b/ATL/Pooh/dialogue/stream-current.txt @@ -0,0 +1,5 @@ + +You struggle to get back to the banks. +You fight against the rushing water, but it's stronger than you. +The stream pulls you along. +It finally deposits you in a floody place. diff --git a/ATL/Pooh/dialogue/woodland-map.txt b/ATL/Pooh/dialogue/woodland-map.txt new file mode 100644 index 0000000..111727c --- /dev/null +++ b/ATL/Pooh/dialogue/woodland-map.txt @@ -0,0 +1,29 @@ +..............................[ 100 ACRE WOODS ].............................. +: : +: Misty forest Rapids : +: : +: Bee tree : +: Sandy pit : +: : +: Rabbit : +: Kanga Northern : +: woods Rabbit's : +: Stream | friends-and-relations : +: | : +: Deep | Hill : +: forest | : +: | : +: POOH'S Western ___________ Central _____________ Eastern : +: HOME woods woods woods : +: | : +: | Owl Christopher : +: Six pine | Robin : +: trees | : +: | : +: Southern : +: Piglet woods : +: : +: : +: Floody Bridge : +: place Eeyore : +:..............................................................................: diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/letter.txt b/ATL/Pooh/dialogue/letter.txt new file mode 100644 index 0000000..262a80e --- /dev/null +++ b/ATL/Pooh/dialogue/letter.txt @@ -0,0 +1,12 @@ + +OWL: +I have received a letter! Do you want to hear it? +Here, let me read it to you: +Hrrmpf, this is rather bad handwriting. +'Dear Pooh,' +Wait, this letter isn't to me at all? +Oh well, no matter. Ahem. +'I need to meet you urgently. +Come to see me at Galleon's Lap. +Sincerely, Christopher Robin' +There you go, what do you think about that? diff --git a/ATL/Pooh/dialogue/stream-current.txt b/ATL/Pooh/dialogue/stream-current.txt new file mode 100644 index 0000000..c3288cf --- /dev/null +++ b/ATL/Pooh/dialogue/stream-current.txt @@ -0,0 +1,5 @@ + +You struggle to get back to the banks. +You fight against the rushing water, but it's stronger than you. +The stream pulls you along. +It finally deposits you in a floody place. diff --git a/ATL/Pooh/dialogue/woodland-map.txt b/ATL/Pooh/dialogue/woodland-map.txt new file mode 100644 index 0000000..111727c --- /dev/null +++ b/ATL/Pooh/dialogue/woodland-map.txt @@ -0,0 +1,29 @@ +..............................[ 100 ACRE WOODS ].............................. +: : +: Misty forest Rapids : +: : +: Bee tree : +: Sandy pit : +: : +: Rabbit : +: Kanga Northern : +: woods Rabbit's : +: Stream | friends-and-relations : +: | : +: Deep | Hill : +: forest | : +: | : +: POOH'S Western ___________ Central _____________ Eastern : +: HOME woods woods woods : +: | : +: | Owl Christopher : +: Six pine | Robin : +: trees | : +: | : +: Southern : +: Piglet woods : +: : +: : +: Floody Bridge : +: place Eeyore : +:..............................................................................: diff --git a/ATL/Pooh/intro.txt b/ATL/Pooh/intro.txt deleted file mode 100644 index 1c15ab6..0000000 --- a/ATL/Pooh/intro.txt +++ /dev/null @@ -1,13 +0,0 @@ -You have the feeling that you ought to be doing something. -You tap your paw against your head: Think Think Think! -You realize you haven't seen Christopher Robin in a long time. -How about visiting him again? -That sounds like a good idea. -You suddenly realize you are hungry. -Perhaps it would be better to have a little something before you go. -You go over to your shelf to take out a jar of honey. -You open the shelf door. -It's empty! -You pick yourself back up off the floor and tell your legs to behave. -You postpone your plans to visit Christopher Robin. -You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/letter.txt b/ATL/Pooh/dialogue/letter.txt new file mode 100644 index 0000000..262a80e --- /dev/null +++ b/ATL/Pooh/dialogue/letter.txt @@ -0,0 +1,12 @@ + +OWL: +I have received a letter! Do you want to hear it? +Here, let me read it to you: +Hrrmpf, this is rather bad handwriting. +'Dear Pooh,' +Wait, this letter isn't to me at all? +Oh well, no matter. Ahem. +'I need to meet you urgently. +Come to see me at Galleon's Lap. +Sincerely, Christopher Robin' +There you go, what do you think about that? diff --git a/ATL/Pooh/dialogue/stream-current.txt b/ATL/Pooh/dialogue/stream-current.txt new file mode 100644 index 0000000..c3288cf --- /dev/null +++ b/ATL/Pooh/dialogue/stream-current.txt @@ -0,0 +1,5 @@ + +You struggle to get back to the banks. +You fight against the rushing water, but it's stronger than you. +The stream pulls you along. +It finally deposits you in a floody place. diff --git a/ATL/Pooh/dialogue/woodland-map.txt b/ATL/Pooh/dialogue/woodland-map.txt new file mode 100644 index 0000000..111727c --- /dev/null +++ b/ATL/Pooh/dialogue/woodland-map.txt @@ -0,0 +1,29 @@ +..............................[ 100 ACRE WOODS ].............................. +: : +: Misty forest Rapids : +: : +: Bee tree : +: Sandy pit : +: : +: Rabbit : +: Kanga Northern : +: woods Rabbit's : +: Stream | friends-and-relations : +: | : +: Deep | Hill : +: forest | : +: | : +: POOH'S Western ___________ Central _____________ Eastern : +: HOME woods woods woods : +: | : +: | Owl Christopher : +: Six pine | Robin : +: trees | : +: | : +: Southern : +: Piglet woods : +: : +: : +: Floody Bridge : +: place Eeyore : +:..............................................................................: diff --git a/ATL/Pooh/intro.txt b/ATL/Pooh/intro.txt deleted file mode 100644 index 1c15ab6..0000000 --- a/ATL/Pooh/intro.txt +++ /dev/null @@ -1,13 +0,0 @@ -You have the feeling that you ought to be doing something. -You tap your paw against your head: Think Think Think! -You realize you haven't seen Christopher Robin in a long time. -How about visiting him again? -That sounds like a good idea. -You suddenly realize you are hungry. -Perhaps it would be better to have a little something before you go. -You go over to your shelf to take out a jar of honey. -You open the shelf door. -It's empty! -You pick yourself back up off the floor and tell your legs to behave. -You postpone your plans to visit Christopher Robin. -You first need to refill your honey stocks! diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index d9a8630..a78f59c 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -28,10 +28,8 @@ (if (member "Hunny" (player-item player) :test #'equalp) (if (> (player-health player) 10) (format t "~&The honey looks incredibly tempting, but perhaps you should save it for later.") - (progn (format t "~&You really shouldn't, but you are feeling sore enough to eat some anyway.") (sleep 1) - (format t "~&You stick your paw deeply into the jar, then draw it out again.") (sleep 1) - (format t "~&Smooth golden honey runs into your mouth, making you feel much better.") - (format t "~&+10 HP") + (progn + (narrate "../ATL/Pooh/dialogue/honey.txt") (change-player-health player 10) (remove-object-attribute player 'item "Hunny") (set-object-attribute player 'item "Jar"))) @@ -40,12 +38,8 @@ (defun eat-malt (player) "Extract of Malt is very healthy, so obviously it can't be tasty..." (if (member "Extract of Malt" (player-item player) :test #'equalp) - (progn (format t "~&You open the bottle and tip it over a spoon.") (sleep 1) - (format t "~&A big dollop of Extract flows out slowly.") (sleep 3) - (format t "~&The smell of it makes you wrinkle your nose.") (sleep 2) - (format t "~&Without thinking much longer, you shove it into your mouth.") (sleep 1) - (format t "~&That's bitter! You scrunch up your face and try to swallow.") (sleep 3) - (format t "~&Something that disgusting can only be healthy. +1 HP") + (progn + (narrate "../ATL/Pooh/dialoge/extract-of-malt.txt" '(1 3 2 1 3 1)) (change-player-health player 1)) (format t "~&You don't have any Extract of Malt!"))) @@ -54,14 +48,11 @@ (unless (member 'map (extract-elements arg)) (format t "~&What do you want to study?") (return-from study)) - (print-text-file "../ATL/Pooh/woodland-map.txt")) + (print-text-file "../ATL/Pooh/dialogue/woodland-map.txt")) (defun think (player &optional arg) "Play the intro text." - (let ((intro (load-text-file "../ATL/Pooh/intro.txt"))) - (dolist (line intro) - (when line (format t "~&~A" line)) - (sleep 3)))) + (narrate "../ATL/Pooh/dialogue/intro.txt" 3)) (defun store (player &optional arg) "Store a jar of honey in the larder." @@ -237,12 +228,9 @@ (defun stream-current (player &optional arg) "The stream sweeps the player on into the Floody place." (when (> 75 (random 100)) - (describe-place "Stream") - (format t "~&~%You struggle to get back to the banks.") (sleep 5) - (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) - (format t "~&The stream pulls you along.") (sleep 3) - (format t "~&It finally deposits you in a floody place.") (sleep 2) - (goto player "Floody place") (clear-screen))) + (narrate "../ATL/Pooh/dialogue/stream-current.txt" '(5 2 3 2)) + (goto player "Floody place") + (clear-screen))) (defun play (player &optional arg) "Let the player play a game" @@ -289,26 +277,7 @@ (defun blow (player &optional arg) "Blow up a balloon." - (setf msg '("You take a deep breath and put the balloon between your lips." - "You blow as hard as you can." - "The balloon starts to fill up." - "You take another breath and blow again." - "Your lungs are going to burst any minute now, but you keep blowing." - "The balloon is already pretty big, but you want it even larger." - "Your eyes feel as if they're about to pop out, but you keep blowing." - "The balloon is huge. You struggle to keep hold of it." - "You blow just a little bit more." - "The balloon lifts you up! Your feet leave the ground." - "This is fun!" - "You rise up into the sky, free as a bird." - "There's a branch above you!" - "The balloon flies into the branch." - "KER-BOOM!" - "You fall back down to the ground." - "Ouch, that hurt! -3 HP")) - (dolist (m msg) - (format t "~&~A" m) - (sleep 2)) + (narrate "../ATL/Pooh/dialogue/balloon.txt") (remove-object-attribute player 'item "Balloon") (add-player-experience player 5) (change-player-health player -3)) @@ -350,14 +319,9 @@ (let ((place (get-game-object 'place "Owl's home"))) (when (or (member "Letter" (place-item place) :test #'equalp) (member "Letter" (place-hidden place) :test #'equalp)) - (sleep 2) - (format t "~&~%OWL:~%I have received a letter! Let me read it to you:") (sleep 3) - (format t "~&Hrrmpf, 'Dear Pooh,'") (sleep 2) - (format t "~&Wait, this letter isn't to me at all? Oh well, no matter.") (sleep 3) - (format t "~&Ahem. 'I need to meet you urgently.") (sleep 2) - (format t "~&Come to see me at Galleon's Lap.") (sleep 2) - (format t "~&Sincerely, Christopher Robin'")))) - + (narrate "../ATL/Pooh/dialogue/letter.txt" + '(0 1 2 2 3 2 3 2 2 2 3 1))))) + (defun smell-honey (player &optional arg) "The player smells honey when leaving the tunnel" (let ((place (get-game-object 'place (player-place player)))) diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/letter.txt b/ATL/Pooh/dialogue/letter.txt new file mode 100644 index 0000000..262a80e --- /dev/null +++ b/ATL/Pooh/dialogue/letter.txt @@ -0,0 +1,12 @@ + +OWL: +I have received a letter! Do you want to hear it? +Here, let me read it to you: +Hrrmpf, this is rather bad handwriting. +'Dear Pooh,' +Wait, this letter isn't to me at all? +Oh well, no matter. Ahem. +'I need to meet you urgently. +Come to see me at Galleon's Lap. +Sincerely, Christopher Robin' +There you go, what do you think about that? diff --git a/ATL/Pooh/dialogue/stream-current.txt b/ATL/Pooh/dialogue/stream-current.txt new file mode 100644 index 0000000..c3288cf --- /dev/null +++ b/ATL/Pooh/dialogue/stream-current.txt @@ -0,0 +1,5 @@ + +You struggle to get back to the banks. +You fight against the rushing water, but it's stronger than you. +The stream pulls you along. +It finally deposits you in a floody place. diff --git a/ATL/Pooh/dialogue/woodland-map.txt b/ATL/Pooh/dialogue/woodland-map.txt new file mode 100644 index 0000000..111727c --- /dev/null +++ b/ATL/Pooh/dialogue/woodland-map.txt @@ -0,0 +1,29 @@ +..............................[ 100 ACRE WOODS ].............................. +: : +: Misty forest Rapids : +: : +: Bee tree : +: Sandy pit : +: : +: Rabbit : +: Kanga Northern : +: woods Rabbit's : +: Stream | friends-and-relations : +: | : +: Deep | Hill : +: forest | : +: | : +: POOH'S Western ___________ Central _____________ Eastern : +: HOME woods woods woods : +: | : +: | Owl Christopher : +: Six pine | Robin : +: trees | : +: | : +: Southern : +: Piglet woods : +: : +: : +: Floody Bridge : +: place Eeyore : +:..............................................................................: diff --git a/ATL/Pooh/intro.txt b/ATL/Pooh/intro.txt deleted file mode 100644 index 1c15ab6..0000000 --- a/ATL/Pooh/intro.txt +++ /dev/null @@ -1,13 +0,0 @@ -You have the feeling that you ought to be doing something. -You tap your paw against your head: Think Think Think! -You realize you haven't seen Christopher Robin in a long time. -How about visiting him again? -That sounds like a good idea. -You suddenly realize you are hungry. -Perhaps it would be better to have a little something before you go. -You go over to your shelf to take out a jar of honey. -You open the shelf door. -It's empty! -You pick yourself back up off the floor and tell your legs to behave. -You postpone your plans to visit Christopher Robin. -You first need to refill your honey stocks! diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index d9a8630..a78f59c 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -28,10 +28,8 @@ (if (member "Hunny" (player-item player) :test #'equalp) (if (> (player-health player) 10) (format t "~&The honey looks incredibly tempting, but perhaps you should save it for later.") - (progn (format t "~&You really shouldn't, but you are feeling sore enough to eat some anyway.") (sleep 1) - (format t "~&You stick your paw deeply into the jar, then draw it out again.") (sleep 1) - (format t "~&Smooth golden honey runs into your mouth, making you feel much better.") - (format t "~&+10 HP") + (progn + (narrate "../ATL/Pooh/dialogue/honey.txt") (change-player-health player 10) (remove-object-attribute player 'item "Hunny") (set-object-attribute player 'item "Jar"))) @@ -40,12 +38,8 @@ (defun eat-malt (player) "Extract of Malt is very healthy, so obviously it can't be tasty..." (if (member "Extract of Malt" (player-item player) :test #'equalp) - (progn (format t "~&You open the bottle and tip it over a spoon.") (sleep 1) - (format t "~&A big dollop of Extract flows out slowly.") (sleep 3) - (format t "~&The smell of it makes you wrinkle your nose.") (sleep 2) - (format t "~&Without thinking much longer, you shove it into your mouth.") (sleep 1) - (format t "~&That's bitter! You scrunch up your face and try to swallow.") (sleep 3) - (format t "~&Something that disgusting can only be healthy. +1 HP") + (progn + (narrate "../ATL/Pooh/dialoge/extract-of-malt.txt" '(1 3 2 1 3 1)) (change-player-health player 1)) (format t "~&You don't have any Extract of Malt!"))) @@ -54,14 +48,11 @@ (unless (member 'map (extract-elements arg)) (format t "~&What do you want to study?") (return-from study)) - (print-text-file "../ATL/Pooh/woodland-map.txt")) + (print-text-file "../ATL/Pooh/dialogue/woodland-map.txt")) (defun think (player &optional arg) "Play the intro text." - (let ((intro (load-text-file "../ATL/Pooh/intro.txt"))) - (dolist (line intro) - (when line (format t "~&~A" line)) - (sleep 3)))) + (narrate "../ATL/Pooh/dialogue/intro.txt" 3)) (defun store (player &optional arg) "Store a jar of honey in the larder." @@ -237,12 +228,9 @@ (defun stream-current (player &optional arg) "The stream sweeps the player on into the Floody place." (when (> 75 (random 100)) - (describe-place "Stream") - (format t "~&~%You struggle to get back to the banks.") (sleep 5) - (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) - (format t "~&The stream pulls you along.") (sleep 3) - (format t "~&It finally deposits you in a floody place.") (sleep 2) - (goto player "Floody place") (clear-screen))) + (narrate "../ATL/Pooh/dialogue/stream-current.txt" '(5 2 3 2)) + (goto player "Floody place") + (clear-screen))) (defun play (player &optional arg) "Let the player play a game" @@ -289,26 +277,7 @@ (defun blow (player &optional arg) "Blow up a balloon." - (setf msg '("You take a deep breath and put the balloon between your lips." - "You blow as hard as you can." - "The balloon starts to fill up." - "You take another breath and blow again." - "Your lungs are going to burst any minute now, but you keep blowing." - "The balloon is already pretty big, but you want it even larger." - "Your eyes feel as if they're about to pop out, but you keep blowing." - "The balloon is huge. You struggle to keep hold of it." - "You blow just a little bit more." - "The balloon lifts you up! Your feet leave the ground." - "This is fun!" - "You rise up into the sky, free as a bird." - "There's a branch above you!" - "The balloon flies into the branch." - "KER-BOOM!" - "You fall back down to the ground." - "Ouch, that hurt! -3 HP")) - (dolist (m msg) - (format t "~&~A" m) - (sleep 2)) + (narrate "../ATL/Pooh/dialogue/balloon.txt") (remove-object-attribute player 'item "Balloon") (add-player-experience player 5) (change-player-health player -3)) @@ -350,14 +319,9 @@ (let ((place (get-game-object 'place "Owl's home"))) (when (or (member "Letter" (place-item place) :test #'equalp) (member "Letter" (place-hidden place) :test #'equalp)) - (sleep 2) - (format t "~&~%OWL:~%I have received a letter! Let me read it to you:") (sleep 3) - (format t "~&Hrrmpf, 'Dear Pooh,'") (sleep 2) - (format t "~&Wait, this letter isn't to me at all? Oh well, no matter.") (sleep 3) - (format t "~&Ahem. 'I need to meet you urgently.") (sleep 2) - (format t "~&Come to see me at Galleon's Lap.") (sleep 2) - (format t "~&Sincerely, Christopher Robin'")))) - + (narrate "../ATL/Pooh/dialogue/letter.txt" + '(0 1 2 2 3 2 3 2 2 2 3 1))))) + (defun smell-honey (player &optional arg) "The player smells honey when leaving the tunnel" (let ((place (get-game-object 'place (player-place player)))) diff --git a/ATL/Pooh/woodland-map.txt b/ATL/Pooh/woodland-map.txt deleted file mode 100644 index 111727c..0000000 --- a/ATL/Pooh/woodland-map.txt +++ /dev/null @@ -1,29 +0,0 @@ -..............................[ 100 ACRE WOODS ].............................. -: : -: Misty forest Rapids : -: : -: Bee tree : -: Sandy pit : -: : -: Rabbit : -: Kanga Northern : -: woods Rabbit's : -: Stream | friends-and-relations : -: | : -: Deep | Hill : -: forest | : -: | : -: POOH'S Western ___________ Central _____________ Eastern : -: HOME woods woods woods : -: | : -: | Owl Christopher : -: Six pine | Robin : -: trees | : -: | : -: Southern : -: Piglet woods : -: : -: : -: Floody Bridge : -: place Eeyore : -:..............................................................................: diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/letter.txt b/ATL/Pooh/dialogue/letter.txt new file mode 100644 index 0000000..262a80e --- /dev/null +++ b/ATL/Pooh/dialogue/letter.txt @@ -0,0 +1,12 @@ + +OWL: +I have received a letter! Do you want to hear it? +Here, let me read it to you: +Hrrmpf, this is rather bad handwriting. +'Dear Pooh,' +Wait, this letter isn't to me at all? +Oh well, no matter. Ahem. +'I need to meet you urgently. +Come to see me at Galleon's Lap. +Sincerely, Christopher Robin' +There you go, what do you think about that? diff --git a/ATL/Pooh/dialogue/stream-current.txt b/ATL/Pooh/dialogue/stream-current.txt new file mode 100644 index 0000000..c3288cf --- /dev/null +++ b/ATL/Pooh/dialogue/stream-current.txt @@ -0,0 +1,5 @@ + +You struggle to get back to the banks. +You fight against the rushing water, but it's stronger than you. +The stream pulls you along. +It finally deposits you in a floody place. diff --git a/ATL/Pooh/dialogue/woodland-map.txt b/ATL/Pooh/dialogue/woodland-map.txt new file mode 100644 index 0000000..111727c --- /dev/null +++ b/ATL/Pooh/dialogue/woodland-map.txt @@ -0,0 +1,29 @@ +..............................[ 100 ACRE WOODS ].............................. +: : +: Misty forest Rapids : +: : +: Bee tree : +: Sandy pit : +: : +: Rabbit : +: Kanga Northern : +: woods Rabbit's : +: Stream | friends-and-relations : +: | : +: Deep | Hill : +: forest | : +: | : +: POOH'S Western ___________ Central _____________ Eastern : +: HOME woods woods woods : +: | : +: | Owl Christopher : +: Six pine | Robin : +: trees | : +: | : +: Southern : +: Piglet woods : +: : +: : +: Floody Bridge : +: place Eeyore : +:..............................................................................: diff --git a/ATL/Pooh/intro.txt b/ATL/Pooh/intro.txt deleted file mode 100644 index 1c15ab6..0000000 --- a/ATL/Pooh/intro.txt +++ /dev/null @@ -1,13 +0,0 @@ -You have the feeling that you ought to be doing something. -You tap your paw against your head: Think Think Think! -You realize you haven't seen Christopher Robin in a long time. -How about visiting him again? -That sounds like a good idea. -You suddenly realize you are hungry. -Perhaps it would be better to have a little something before you go. -You go over to your shelf to take out a jar of honey. -You open the shelf door. -It's empty! -You pick yourself back up off the floor and tell your legs to behave. -You postpone your plans to visit Christopher Robin. -You first need to refill your honey stocks! diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index d9a8630..a78f59c 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -28,10 +28,8 @@ (if (member "Hunny" (player-item player) :test #'equalp) (if (> (player-health player) 10) (format t "~&The honey looks incredibly tempting, but perhaps you should save it for later.") - (progn (format t "~&You really shouldn't, but you are feeling sore enough to eat some anyway.") (sleep 1) - (format t "~&You stick your paw deeply into the jar, then draw it out again.") (sleep 1) - (format t "~&Smooth golden honey runs into your mouth, making you feel much better.") - (format t "~&+10 HP") + (progn + (narrate "../ATL/Pooh/dialogue/honey.txt") (change-player-health player 10) (remove-object-attribute player 'item "Hunny") (set-object-attribute player 'item "Jar"))) @@ -40,12 +38,8 @@ (defun eat-malt (player) "Extract of Malt is very healthy, so obviously it can't be tasty..." (if (member "Extract of Malt" (player-item player) :test #'equalp) - (progn (format t "~&You open the bottle and tip it over a spoon.") (sleep 1) - (format t "~&A big dollop of Extract flows out slowly.") (sleep 3) - (format t "~&The smell of it makes you wrinkle your nose.") (sleep 2) - (format t "~&Without thinking much longer, you shove it into your mouth.") (sleep 1) - (format t "~&That's bitter! You scrunch up your face and try to swallow.") (sleep 3) - (format t "~&Something that disgusting can only be healthy. +1 HP") + (progn + (narrate "../ATL/Pooh/dialoge/extract-of-malt.txt" '(1 3 2 1 3 1)) (change-player-health player 1)) (format t "~&You don't have any Extract of Malt!"))) @@ -54,14 +48,11 @@ (unless (member 'map (extract-elements arg)) (format t "~&What do you want to study?") (return-from study)) - (print-text-file "../ATL/Pooh/woodland-map.txt")) + (print-text-file "../ATL/Pooh/dialogue/woodland-map.txt")) (defun think (player &optional arg) "Play the intro text." - (let ((intro (load-text-file "../ATL/Pooh/intro.txt"))) - (dolist (line intro) - (when line (format t "~&~A" line)) - (sleep 3)))) + (narrate "../ATL/Pooh/dialogue/intro.txt" 3)) (defun store (player &optional arg) "Store a jar of honey in the larder." @@ -237,12 +228,9 @@ (defun stream-current (player &optional arg) "The stream sweeps the player on into the Floody place." (when (> 75 (random 100)) - (describe-place "Stream") - (format t "~&~%You struggle to get back to the banks.") (sleep 5) - (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) - (format t "~&The stream pulls you along.") (sleep 3) - (format t "~&It finally deposits you in a floody place.") (sleep 2) - (goto player "Floody place") (clear-screen))) + (narrate "../ATL/Pooh/dialogue/stream-current.txt" '(5 2 3 2)) + (goto player "Floody place") + (clear-screen))) (defun play (player &optional arg) "Let the player play a game" @@ -289,26 +277,7 @@ (defun blow (player &optional arg) "Blow up a balloon." - (setf msg '("You take a deep breath and put the balloon between your lips." - "You blow as hard as you can." - "The balloon starts to fill up." - "You take another breath and blow again." - "Your lungs are going to burst any minute now, but you keep blowing." - "The balloon is already pretty big, but you want it even larger." - "Your eyes feel as if they're about to pop out, but you keep blowing." - "The balloon is huge. You struggle to keep hold of it." - "You blow just a little bit more." - "The balloon lifts you up! Your feet leave the ground." - "This is fun!" - "You rise up into the sky, free as a bird." - "There's a branch above you!" - "The balloon flies into the branch." - "KER-BOOM!" - "You fall back down to the ground." - "Ouch, that hurt! -3 HP")) - (dolist (m msg) - (format t "~&~A" m) - (sleep 2)) + (narrate "../ATL/Pooh/dialogue/balloon.txt") (remove-object-attribute player 'item "Balloon") (add-player-experience player 5) (change-player-health player -3)) @@ -350,14 +319,9 @@ (let ((place (get-game-object 'place "Owl's home"))) (when (or (member "Letter" (place-item place) :test #'equalp) (member "Letter" (place-hidden place) :test #'equalp)) - (sleep 2) - (format t "~&~%OWL:~%I have received a letter! Let me read it to you:") (sleep 3) - (format t "~&Hrrmpf, 'Dear Pooh,'") (sleep 2) - (format t "~&Wait, this letter isn't to me at all? Oh well, no matter.") (sleep 3) - (format t "~&Ahem. 'I need to meet you urgently.") (sleep 2) - (format t "~&Come to see me at Galleon's Lap.") (sleep 2) - (format t "~&Sincerely, Christopher Robin'")))) - + (narrate "../ATL/Pooh/dialogue/letter.txt" + '(0 1 2 2 3 2 3 2 2 2 3 1))))) + (defun smell-honey (player &optional arg) "The player smells honey when leaving the tunnel" (let ((place (get-game-object 'place (player-place player)))) diff --git a/ATL/Pooh/woodland-map.txt b/ATL/Pooh/woodland-map.txt deleted file mode 100644 index 111727c..0000000 --- a/ATL/Pooh/woodland-map.txt +++ /dev/null @@ -1,29 +0,0 @@ -..............................[ 100 ACRE WOODS ].............................. -: : -: Misty forest Rapids : -: : -: Bee tree : -: Sandy pit : -: : -: Rabbit : -: Kanga Northern : -: woods Rabbit's : -: Stream | friends-and-relations : -: | : -: Deep | Hill : -: forest | : -: | : -: POOH'S Western ___________ Central _____________ Eastern : -: HOME woods woods woods : -: | : -: | Owl Christopher : -: Six pine | Robin : -: trees | : -: | : -: Southern : -: Piglet woods : -: : -: : -: Floody Bridge : -: place Eeyore : -:..............................................................................: diff --git a/lisp/ui.lisp b/lisp/ui.lisp index 626035f..55a50aa 100644 --- a/lisp/ui.lisp +++ b/lisp/ui.lisp @@ -179,10 +179,10 @@ (debugging "~&~A is going to ~A." (player-name player) location) (change-player-location player location) (spawn-monsters location) - (let ((hook (place-entry-hook (get-game-object 'place location)))) ;entry hook - (unless (zerop (length hook)) (funcall (read-from-string hook) player))) (add-player-experience player 1) (describe-place (player-place player)) + (let ((hook (place-entry-hook (get-game-object 'place location)))) ;entry hook + (unless (zerop (length hook)) (funcall (read-from-string hook) player))) ;; Aggressive monsters attack (dolist (m (place-monster (get-game-object 'place (player-place player)))) (when (> (monster-aggression m) (random 100)) diff --git a/ATL/Pooh/dialogue/balloon.txt b/ATL/Pooh/dialogue/balloon.txt new file mode 100644 index 0000000..62f0b9c --- /dev/null +++ b/ATL/Pooh/dialogue/balloon.txt @@ -0,0 +1,17 @@ +You take a deep breath and put the balloon between your lips. +You blow as hard as you can. +The balloon starts to fill up. +You take another breath and blow again. +Your lungs are going to burst any minute now, but you keep blowing. +The balloon is already pretty big, but you want it even larger. +Your eyes feel as if they're about to pop out, but you keep blowing. +The balloon is huge. You struggle to keep hold of it. +You blow just a little bit more. +The balloon lifts you up! Your feet leave the ground. +This is fun! +You rise up into the sky, free as a bird. +There's a branch above you! +The balloon flies into the branch. +KER-BOOM! +You fall back down to the ground. +Ouch, that hurt! -3 HP diff --git a/ATL/Pooh/dialogue/extract-of-malt.txt b/ATL/Pooh/dialogue/extract-of-malt.txt new file mode 100644 index 0000000..7a4875a --- /dev/null +++ b/ATL/Pooh/dialogue/extract-of-malt.txt @@ -0,0 +1,6 @@ +You open the bottle and tip it over a spoon. +A big dollop of Extract flows out slowly. +The smell of it makes you wrinkle your nose. +Without thinking much longer, you shove it into your mouth. +That's bitter! You scrunch up your face and try to swallow. +Something that disgusting can only be healthy. +1 HP diff --git a/ATL/Pooh/dialogue/honey.txt b/ATL/Pooh/dialogue/honey.txt new file mode 100644 index 0000000..8e28b0d --- /dev/null +++ b/ATL/Pooh/dialogue/honey.txt @@ -0,0 +1,4 @@ +You really shouldn't, but you are feeling sore enough to eat some anyway. +You stick your paw deeply into the jar, then draw it out again. +Smooth golden honey runs into your mouth, making you feel much better. ++10 HP diff --git a/ATL/Pooh/dialogue/intro.txt b/ATL/Pooh/dialogue/intro.txt new file mode 100644 index 0000000..1c15ab6 --- /dev/null +++ b/ATL/Pooh/dialogue/intro.txt @@ -0,0 +1,13 @@ +You have the feeling that you ought to be doing something. +You tap your paw against your head: Think Think Think! +You realize you haven't seen Christopher Robin in a long time. +How about visiting him again? +That sounds like a good idea. +You suddenly realize you are hungry. +Perhaps it would be better to have a little something before you go. +You go over to your shelf to take out a jar of honey. +You open the shelf door. +It's empty! +You pick yourself back up off the floor and tell your legs to behave. +You postpone your plans to visit Christopher Robin. +You first need to refill your honey stocks! diff --git a/ATL/Pooh/dialogue/letter.txt b/ATL/Pooh/dialogue/letter.txt new file mode 100644 index 0000000..262a80e --- /dev/null +++ b/ATL/Pooh/dialogue/letter.txt @@ -0,0 +1,12 @@ + +OWL: +I have received a letter! Do you want to hear it? +Here, let me read it to you: +Hrrmpf, this is rather bad handwriting. +'Dear Pooh,' +Wait, this letter isn't to me at all? +Oh well, no matter. Ahem. +'I need to meet you urgently. +Come to see me at Galleon's Lap. +Sincerely, Christopher Robin' +There you go, what do you think about that? diff --git a/ATL/Pooh/dialogue/stream-current.txt b/ATL/Pooh/dialogue/stream-current.txt new file mode 100644 index 0000000..c3288cf --- /dev/null +++ b/ATL/Pooh/dialogue/stream-current.txt @@ -0,0 +1,5 @@ + +You struggle to get back to the banks. +You fight against the rushing water, but it's stronger than you. +The stream pulls you along. +It finally deposits you in a floody place. diff --git a/ATL/Pooh/dialogue/woodland-map.txt b/ATL/Pooh/dialogue/woodland-map.txt new file mode 100644 index 0000000..111727c --- /dev/null +++ b/ATL/Pooh/dialogue/woodland-map.txt @@ -0,0 +1,29 @@ +..............................[ 100 ACRE WOODS ].............................. +: : +: Misty forest Rapids : +: : +: Bee tree : +: Sandy pit : +: : +: Rabbit : +: Kanga Northern : +: woods Rabbit's : +: Stream | friends-and-relations : +: | : +: Deep | Hill : +: forest | : +: | : +: POOH'S Western ___________ Central _____________ Eastern : +: HOME woods woods woods : +: | : +: | Owl Christopher : +: Six pine | Robin : +: trees | : +: | : +: Southern : +: Piglet woods : +: : +: : +: Floody Bridge : +: place Eeyore : +:..............................................................................: diff --git a/ATL/Pooh/intro.txt b/ATL/Pooh/intro.txt deleted file mode 100644 index 1c15ab6..0000000 --- a/ATL/Pooh/intro.txt +++ /dev/null @@ -1,13 +0,0 @@ -You have the feeling that you ought to be doing something. -You tap your paw against your head: Think Think Think! -You realize you haven't seen Christopher Robin in a long time. -How about visiting him again? -That sounds like a good idea. -You suddenly realize you are hungry. -Perhaps it would be better to have a little something before you go. -You go over to your shelf to take out a jar of honey. -You open the shelf door. -It's empty! -You pick yourself back up off the floor and tell your legs to behave. -You postpone your plans to visit Christopher Robin. -You first need to refill your honey stocks! diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index d9a8630..a78f59c 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -28,10 +28,8 @@ (if (member "Hunny" (player-item player) :test #'equalp) (if (> (player-health player) 10) (format t "~&The honey looks incredibly tempting, but perhaps you should save it for later.") - (progn (format t "~&You really shouldn't, but you are feeling sore enough to eat some anyway.") (sleep 1) - (format t "~&You stick your paw deeply into the jar, then draw it out again.") (sleep 1) - (format t "~&Smooth golden honey runs into your mouth, making you feel much better.") - (format t "~&+10 HP") + (progn + (narrate "../ATL/Pooh/dialogue/honey.txt") (change-player-health player 10) (remove-object-attribute player 'item "Hunny") (set-object-attribute player 'item "Jar"))) @@ -40,12 +38,8 @@ (defun eat-malt (player) "Extract of Malt is very healthy, so obviously it can't be tasty..." (if (member "Extract of Malt" (player-item player) :test #'equalp) - (progn (format t "~&You open the bottle and tip it over a spoon.") (sleep 1) - (format t "~&A big dollop of Extract flows out slowly.") (sleep 3) - (format t "~&The smell of it makes you wrinkle your nose.") (sleep 2) - (format t "~&Without thinking much longer, you shove it into your mouth.") (sleep 1) - (format t "~&That's bitter! You scrunch up your face and try to swallow.") (sleep 3) - (format t "~&Something that disgusting can only be healthy. +1 HP") + (progn + (narrate "../ATL/Pooh/dialoge/extract-of-malt.txt" '(1 3 2 1 3 1)) (change-player-health player 1)) (format t "~&You don't have any Extract of Malt!"))) @@ -54,14 +48,11 @@ (unless (member 'map (extract-elements arg)) (format t "~&What do you want to study?") (return-from study)) - (print-text-file "../ATL/Pooh/woodland-map.txt")) + (print-text-file "../ATL/Pooh/dialogue/woodland-map.txt")) (defun think (player &optional arg) "Play the intro text." - (let ((intro (load-text-file "../ATL/Pooh/intro.txt"))) - (dolist (line intro) - (when line (format t "~&~A" line)) - (sleep 3)))) + (narrate "../ATL/Pooh/dialogue/intro.txt" 3)) (defun store (player &optional arg) "Store a jar of honey in the larder." @@ -237,12 +228,9 @@ (defun stream-current (player &optional arg) "The stream sweeps the player on into the Floody place." (when (> 75 (random 100)) - (describe-place "Stream") - (format t "~&~%You struggle to get back to the banks.") (sleep 5) - (format t "~&You fight against the rushing water, but it's stronger than you.") (sleep 2) - (format t "~&The stream pulls you along.") (sleep 3) - (format t "~&It finally deposits you in a floody place.") (sleep 2) - (goto player "Floody place") (clear-screen))) + (narrate "../ATL/Pooh/dialogue/stream-current.txt" '(5 2 3 2)) + (goto player "Floody place") + (clear-screen))) (defun play (player &optional arg) "Let the player play a game" @@ -289,26 +277,7 @@ (defun blow (player &optional arg) "Blow up a balloon." - (setf msg '("You take a deep breath and put the balloon between your lips." - "You blow as hard as you can." - "The balloon starts to fill up." - "You take another breath and blow again." - "Your lungs are going to burst any minute now, but you keep blowing." - "The balloon is already pretty big, but you want it even larger." - "Your eyes feel as if they're about to pop out, but you keep blowing." - "The balloon is huge. You struggle to keep hold of it." - "You blow just a little bit more." - "The balloon lifts you up! Your feet leave the ground." - "This is fun!" - "You rise up into the sky, free as a bird." - "There's a branch above you!" - "The balloon flies into the branch." - "KER-BOOM!" - "You fall back down to the ground." - "Ouch, that hurt! -3 HP")) - (dolist (m msg) - (format t "~&~A" m) - (sleep 2)) + (narrate "../ATL/Pooh/dialogue/balloon.txt") (remove-object-attribute player 'item "Balloon") (add-player-experience player 5) (change-player-health player -3)) @@ -350,14 +319,9 @@ (let ((place (get-game-object 'place "Owl's home"))) (when (or (member "Letter" (place-item place) :test #'equalp) (member "Letter" (place-hidden place) :test #'equalp)) - (sleep 2) - (format t "~&~%OWL:~%I have received a letter! Let me read it to you:") (sleep 3) - (format t "~&Hrrmpf, 'Dear Pooh,'") (sleep 2) - (format t "~&Wait, this letter isn't to me at all? Oh well, no matter.") (sleep 3) - (format t "~&Ahem. 'I need to meet you urgently.") (sleep 2) - (format t "~&Come to see me at Galleon's Lap.") (sleep 2) - (format t "~&Sincerely, Christopher Robin'")))) - + (narrate "../ATL/Pooh/dialogue/letter.txt" + '(0 1 2 2 3 2 3 2 2 2 3 1))))) + (defun smell-honey (player &optional arg) "The player smells honey when leaving the tunnel" (let ((place (get-game-object 'place (player-place player)))) diff --git a/ATL/Pooh/woodland-map.txt b/ATL/Pooh/woodland-map.txt deleted file mode 100644 index 111727c..0000000 --- a/ATL/Pooh/woodland-map.txt +++ /dev/null @@ -1,29 +0,0 @@ -..............................[ 100 ACRE WOODS ].............................. -: : -: Misty forest Rapids : -: : -: Bee tree : -: Sandy pit : -: : -: Rabbit : -: Kanga Northern : -: woods Rabbit's : -: Stream | friends-and-relations : -: | : -: Deep | Hill : -: forest | : -: | : -: POOH'S Western ___________ Central _____________ Eastern : -: HOME woods woods woods : -: | : -: | Owl Christopher : -: Six pine | Robin : -: trees | : -: | : -: Southern : -: Piglet woods : -: : -: : -: Floody Bridge : -: place Eeyore : -:..............................................................................: diff --git a/lisp/ui.lisp b/lisp/ui.lisp index 626035f..55a50aa 100644 --- a/lisp/ui.lisp +++ b/lisp/ui.lisp @@ -179,10 +179,10 @@ (debugging "~&~A is going to ~A." (player-name player) location) (change-player-location player location) (spawn-monsters location) - (let ((hook (place-entry-hook (get-game-object 'place location)))) ;entry hook - (unless (zerop (length hook)) (funcall (read-from-string hook) player))) (add-player-experience player 1) (describe-place (player-place player)) + (let ((hook (place-entry-hook (get-game-object 'place location)))) ;entry hook + (unless (zerop (length hook)) (funcall (read-from-string hook) player))) ;; Aggressive monsters attack (dolist (m (place-monster (get-game-object 'place (player-place player)))) (when (> (monster-aggression m) (random 100)) diff --git a/lisp/util.lisp b/lisp/util.lisp index c885d6f..b8849c5 100644 --- a/lisp/util.lisp +++ b/lisp/util.lisp @@ -222,6 +222,18 @@ (file-lines (list line) (append file-lines (list line)))) ((null line) file-lines)))) +(defun narrate (file-name &optional (pauses 2)) + "Print out the given file, pausing between each line." + ;;'pauses' is a list of numbers, giving the sleep time in seconds between + ;; each line. When the end of the list is reached, (narrate) wraps around. + (when (numberp pauses) (setf pauses (list pauses))) + (do ((lines (load-text-file file-name) (cdr lines)) (p 0 (1+ p))) + ((null lines)) + (when (= p (length pauses)) (setf p 0)) + (unless (null (first lines)) + (format t "~&~A" (first lines)) + (sleep (nth p pauses))))) + (defun print-text-file (file-name) "Print out the contents of this text file" (dolist (line (load-text-file file-name))