More yourcroft

This commit is contained in:
Neil McPhail 2024-09-16 21:47:10 +00:00
parent a6cff03a70
commit 3220e8fcc8

View File

@ -4,9 +4,12 @@ PROCESS examine;
PROCESS help; PROCESS help;
PROCESS crunch; PROCESS crunch;
PROCESS yourcroft_status; PROCESS yourcroft_status;
PROCESS yourcroft_parse;
PROCESS say_help;
FLAG crunchvol; FLAG crunchvol;
FLAG yourcroftstate; FLAG yourcroftstate;
FLAG say_help;
DEFAULTS DEFAULTS
{ {
@ -52,7 +55,7 @@ LOCATION scene
LOCATION trap LOCATION trap
{ {
"Wimpy is trapped in a room with no obvious exits. "Wimpy is trapped in a room with no obvious exits.
He is rather perplexed.^Oh, bother!"; He is rather perplexed.^Oh, bother!^(This is placeholder text)^";
} }
VOCABULARY VOCABULARY
@ -120,12 +123,14 @@ VOCABULARY
NOUN: "USBDR", "DRIVE"; NOUN: "USBDR", "DRIVE";
ADJECTIVE: "USB"; ADJECTIVE: "USB";
NOUN: "PORT"; NOUN: "PORT";
NOUN 18: "YOURC", "LADYC", "COMPU", "ASSIS", "CYLIN"; NOUN 18: "YOURC", "LADYC", "COMPU", "ASSIS", "CYLIN", "DEVIC";
NOUN: "FLAP"; NOUN: "FLAP";
NOUN: "DOOR"; NOUN: "DOOR";
VERB: "HELP"; VERB: "HELP";
VERB: "EAT", "CONSU", "BITE", "CRUNC", "CHOMP", "MUNCH"; VERB: "EAT", "CONSU", "BITE", "CRUNC", "CHOMP", "MUNCH";
VERB: "WAIT"; VERB: "WAIT";
VERB: "OPEN";
VERB: "CLOSE";
} }
OBJECT notused 0 OBJECT notused 0
@ -139,7 +144,7 @@ OBJECT notused 0
OBJECT mug 1 OBJECT mug 1
{ {
"A large, chipped mug"; "A large, chipped mug";
INITIALLYAT CARRIED; INITIALLYAT NOTCREATED;
WORDS MUG _; WORDS MUG _;
WEIGHT 1; WEIGHT 1;
PROPERTY CONTAINER; PROPERTY CONTAINER;
@ -155,7 +160,7 @@ PROCESS examine
OBJECT biscuits OBJECT biscuits
{ {
"An inexhaustible supply of delicious biscuits"; "An inexhaustible supply of delicious biscuits";
INITIALLYAT CARRIED; INITIALLYAT NOTCREATED;
WORDS BISCU _; WORDS BISCU _;
WEIGHT 1; WEIGHT 1;
} }
@ -282,6 +287,17 @@ RESPONSE
MESSAGE "He tries to be quiet but they're just too tasty."; MESSAGE "He tries to be quiet but they're just too tasty.";
WAIT _: MESSAGE "Wimpy waits for a moment." WAIT _: MESSAGE "Wimpy waits for a moment."
DONE; DONE;
SAY _: AT trap
PROCESS yourcroft_parse
DONE;
}
PROCESS say_help
{
_ _: ZERO say_help
SET say_help
MESSAGE "(Remember to enclose anything you want Wimpy to say in double quotes, like {0}SAY \"HELLO\"{1}. On a Spectrum, hold {0}SYMBOL-SHIFT{1} and press {0}P{1}. On an emulator, you'll probably need to hold {0}Ctrl{1} and press {0}P{1}.)";
} }
PROCESS 1 PROCESS 1
@ -346,17 +362,40 @@ PROCESS yourcroft_status
_ _: EQ yourcroftstate 1 _ _: EQ yourcroftstate 1
MESSAGE "Yourcroft surveys Wimpy with its tacky, green, blinking LED eye and barks 'I'm watching you, mister!'."; MESSAGE "Yourcroft surveys Wimpy with its tacky, green, blinking LED eye and barks 'I'm watching you, mister!'.";
_ _: EQ yourcroftstate 2 _ _: EQ yourcroftstate 2
MESSAGE "Yourcroft's eye flashes indignantly and burns with shame at its open flap and exposed port"; MESSAGE "Yourcroft's eye flashes indignantly and burns with shame at its open flap and exposed port.";
_ _: EQ yourcroftstate 3 _ _: EQ yourcroftstate 3
MESSAGE "Yourcroft's LED eye keeps flicking with rage between Wimpy's face and its new USB appendage"; MESSAGE "Yourcroft's LED eye keeps flicking with rage between Wimpy's face and its new USB appendage.";
_ _: EQ yourcroftstate 4 _ _: EQ yourcroftstate 4
MESSAGE "The smouldering remains of Yourcroft sparks and fizzles"; MESSAGE "The smouldering remains of Yourcroft sparks and fizzles.";
} }
PROCESS examine PROCESS examine
{ {
_ CYLIN: ZERO yourcroftstate _ CYLIN: ZERO yourcroftstate
MESSAGE "'What you looking at, buddy?', barks the device. 'I'm a Yourcroft(TM) mark 1 cylindrical assistant, and I've been charged with keeping this door closed.'^'Don't get any bright ideas for escape or I'll zap you!'^Its voice sounds like a strangely robotic-yet-feminine version of popey's dulcet tones. A cheap LED array is lit to form a green, blinking eye which follows your every movement. Below is a flap with a label saying 'USB', which is closed and obscuring any port.^'By the way, please fund our Kickstarter for version 2.0!" MESSAGE "'What you looking at, buddy?', barks the device. 'I'm a Yourcroft(TM) mark 1 cylindrical assistant, and I've been charged with keeping this door closed.'^^'Don't get any bright ideas for escape or I'll zap you!'^^Its voice sounds like a strangely robotic-yet-feminine version of popey's dulcet tones. A cheap LED array is lit to form a green, blinking eye which follows Wimpy's every movement. Below is a flap with a label saying 'USB', which is closed and obscuring any port.^'By the way, please fund our Kickstarter for version 2.0!'"
PLUS yourcroftstate 1 PLUS yourcroftstate 1
DONE; DONE;
_ YOURC: EQ yourcroftstate 1
MESSAGE "'Don't go poking around - I'm password protected you know!'"
DONE;
_ YOURC: EQ yourcroftstate 2
MESSAGE "Yourcroft is clearly annoyed that its USB port and control touch screen are showing."
DONE;
}
PROCESS yourcroft_parse
{
* *: PARSE
MESSAGE "'Keep it simple, buddy - I ain't ChattyJeeps.'"
PROCESS say_help
DONE;
_ PASSW: LT yourcroftstate 2
MESSAGE "'Hey - that's the right password! You some kind of genius hacker? You can't stop me guarding this door, buddy...'.^^The flap drops open, revealing a USB socket and a small touch screen.^^'Do you mind?', admonishes Yourcroft, 'you're exposing my circuits!'."
LET yourcroftstate 2
DONE;
_ _: MESSAGE "'You ain't the boss of me!'"
DONE;
} }