X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=actions1.c;h=a0ba0b060a8f337a11f298b890a5878c46641e23;hb=c8a231275555289cbfe215e7a4f49930eff691f2;hp=4ba3492177f85ffbb3ec839482478c4dd2305c1e;hpb=e7451b543d1a8a7bdd8fe32318a0490590d78025;p=open-adventure.git diff --git a/actions1.c b/actions1.c index 4ba3492..a0ba0b0 100644 --- a/actions1.c +++ b/actions1.c @@ -5,9 +5,39 @@ /* * Action handlers. Eventually we'll do lookup through a method table - * that calls these. Absolutely nothing like the original FORTRAN + * that calls these. Absolutely nothing like the original FORTRAN. */ +static int bigwords(long foo) +/* FEE FIE FOE FOO (AND FUM). Advance to next state if given in proper order. + * Look up WD1 in section 3 of vocab to determine which word we've got. Last + * word zips the eggs back to the giant room (unless already there). */ +{ + int k=VOCAB(foo,3); + SPK=42; + if(game.foobar != 1-k) { + if(game.foobar != 0)SPK=151; + return(2011); + } else { + + game.foobar=k; + if(k != 4) return(2009); + game.foobar=0; + if(game.place[EGGS] == PLAC[EGGS] || (TOTING(EGGS) && game.loc == PLAC[EGGS])) + return(2011); + /* Bring back troll if we steal the eggs back from him before + * crossing. */ + if(game.place[EGGS]==0 && game.place[TROLL]==0 && game.prop[TROLL]==0) + game.prop[TROLL]=1; + k=2; + if(HERE(EGGS))k=1; + if(game.loc == PLAC[EGGS])k=0; + MOVE(EGGS,PLAC[EGGS]); + PSPEAK(EGGS,k); + return(2012); + } +} + static int bivalve(token_t verb, token_t obj) /* Clam/oyster actions */ { @@ -165,6 +195,38 @@ static int listen(void) return(2011); } +static int pour(token_t obj) +/* Pour. If no object, or object is bottle, assume contents of bottle. + * special tests for pouring water or oil on plant or rusty door. */ +{ + if(obj == BOTTLE || obj == 0)obj=LIQ(0); + if(obj == 0) return(8000); + if(!TOTING(obj)) return(2011); + SPK=78; + if(obj != OIL && obj != WATER) return(2011); + if(HERE(URN) && game.prop[URN] == 0) + return fill(URN); + game.prop[BOTTLE]=1; + game.place[obj]=0; + SPK=77; + if(!(AT(PLANT) || AT(DOOR))) + return(2011); + if(!AT(DOOR)) { + SPK=112; + if(obj != WATER) return(2011); + PSPEAK(PLANT,game.prop[PLANT]+3); + game.prop[PLANT]=MOD(game.prop[PLANT]+1,3); + game.prop[PLANT2]=game.prop[PLANT]; + K=NUL; + return(8); + } else { + game.prop[DOOR]=0; + if(obj == OIL)game.prop[DOOR]=1; + SPK=113+game.prop[DOOR]; + return(2011); + } +} + static int quit(FILE *input) /* Quit. Intransitive only. Verify intent and exit if that's what he wants. */ { @@ -187,6 +249,23 @@ static int rub(token_t obj) return(2011); } +static int say(void) +/* SAY. Echo WD2 (or WD1 if no WD2 (SAY WHAT?, etc.).) Magic words override. */ +{ + /* FIXME: ugly use of globals */ + SETPRM(1,WD2,WD2X); + if(WD2 <= 0)SETPRM(1,WD1,WD1X); + if(WD2 > 0)WD1=WD2; + I=VOCAB(WD1,-1); + if(I == 62 || I == 65 || I == 71 || I == 2025 || I == 2034) goto L9035; + RSPEAK(258); + return(2012); + +L9035: WD2=0; + //obj=0; + return(2630); +} + static int vscore(void) /* Score. Call scoring routine but tell it to return. */ { @@ -255,80 +334,80 @@ L4000: /* Analyse an intransitive verb (ie, no object given yet). */ switch (verb-1) { - case 0: goto L8010; /* CARRY */ - case 1: return(8000); /* DROP */ - case 2: return(8000); /* SAY */ - case 3: goto L8040; /* UNLOC */ - case 4: return(2009); /* NOTHI */ - case 5: goto L8040; /* LOCK */ - case 6: goto L8070; /* LIGHT */ - case 7: goto L8080; /* EXTIN */ - case 8: return(8000); /* WAVE */ - case 9: return(8000); /* CALM */ - case 10: return(2011); /* WALK */ - case 11: goto L9120; /* ATTAC */ - case 12: goto L9130; /* POUR */ - case 13: goto L8140; /* EAT */ - case 14: goto L9150; /* DRINK */ - case 15: return(8000); /* RUB */ - case 16: return(8000); /* TOSS */ - case 17: goto L8180; /* QUIT */ - case 18: return(8000); /* FIND */ - case 19: goto L8200; /* INVEN */ - case 20: return(8000); /* FEED */ - case 21: goto L9220; /* FILL */ - case 22: goto L9230; /* BLAST */ - case 23: goto L8240; /* SCOR */ - case 24: goto L8250; /* FOO */ - case 25: goto L8260; /* BRIEF */ - case 26: goto L8270; /* READ */ - case 27: return(8000); /* BREAK */ - case 28: return(8000); /* WAKE */ - case 29: goto L8300; /* SUSP */ - case 30: goto L8310; /* RESU */ - case 31: goto L8320; /* FLY */ - case 32: goto L8330; /* LISTEN */ - case 33: goto L8340; /* ZZZZ */ + case 0: /* CARRY */ goto L8010; + case 1: /* DROP */ return(8000); + case 2: /* SAY */ return(8000); + case 3: /* UNLOC */ goto L8040; + case 4: /* NOTHI */ return(2009); + case 5: /* LOCK */ goto L8040; + case 6: /* LIGHT */ goto L8070; + case 7: /* EXTIN */ goto L8080; + case 8: /* WAVE */ return(8000); + case 9: /* CALM */ return(8000); + case 10: /* WALK */ return(2011); + case 11: /* ATTAC */ goto L9120; + case 12: /* POUR */ goto L9130; + case 13: /* EAT */ goto L8140; + case 14: /* DRINK */ goto L9150; + case 15: /* RUB */ return(8000); + case 16: /* TOSS */ return(8000); + case 17: /* QUIT */ goto L8180; + case 18: /* FIND */ return(8000); + case 19: /* INVEN */ goto L8200; + case 20: /* FEED */ return(8000); + case 21: /* FILL */ goto L9220; + case 22: /* BLAST */ goto L9230; + case 23: /* SCOR */ goto L8240; + case 24: /* FOO */ goto L8250; + case 25: /* BRIEF */ goto L8260; + case 26: /* READ */ goto L8270; + case 27: /* BREAK */ return(8000); + case 28: /* WAKE */ return(8000); + case 29: /* SUSP */ goto L8300; + case 30: /* RESU */ goto L8310; + case 31: /* FLY */ goto L8320; + case 32: /* LISTE */ goto L8330; + case 33: /* ZZZZ */ goto L8340; } BUG(23); /* Analyse a transitive verb. */ L4090: switch (verb-1) { - case 0: goto L9010; /* CARRY */ - case 1: goto L9020; /* DROP */ - case 2: goto L9030; /* SAY */ - case 3: goto L9040; /* UNLOC */ - case 4: return(2009); /* NOTHI */ - case 5: goto L9040; /* LOCK */ - case 6: goto L9070; /* LIGHT */ - case 7: goto L9080; /* EXTI */ - case 8: goto L9090; /* WAVE */ - case 9: return(2011); /* CALM */ - case 10: return(2011); /* WALK */ - case 11: goto L9120; /* ATTAC */ - case 12: goto L9130; /* POUR */ - case 13: goto L9140; /* EAT */ - case 14: goto L9150; /* DRINK */ - case 15: goto L9160; /* RUB */ - case 16: goto L9170; /* TOSS */ - case 17: return(2011); /* QUIT */ - case 18: goto L9190; /* FIND */ - case 19: goto L9190; /* INVEN */ - case 20: goto L9210; /* FEED */ - case 21: goto L9220; /* FILL */ - case 22: goto L9230; /* BLAST */ - case 23: return(2011); /* SCOR */ - case 24: return(2011); /* FOO */ - case 25: return(2011); /* BRIEF */ - case 26: goto L9270; /* READ */ - case 27: goto L9280; /* BREAK */ - case 28: goto L9290; /* WAKE */ - case 29: return(2011); /* SUSP */ - case 30: return(2011); /* RESU */ - case 31: goto L9320; /* FLY */ - case 32: return(2011); /* LISTEN */ - case 33: goto L8340; /* ZZZZ */ + case 0: /* CARRY */ goto L9010; + case 1: /* DROP */ goto L9020; + case 2: /* SAY */ goto L9030; + case 3: /* UNLOC */ goto L9040; + case 4: /* NOTHI */ return(2009); + case 5: /* LOCK */ goto L9040; + case 6: /* LIGHT */ goto L9070; + case 7: /* EXTI */ goto L9080; + case 8: /* WAVE */ goto L9090; + case 9: /* CALM */ return(2011); + case 10: /* WALK */ return(2011); + case 11: /* ATTAC */ goto L9120; + case 12: /* POUR */ goto L9130; + case 13: /* EAT */ goto L9140; + case 14: /* DRINK */ goto L9150; + case 15: /* RUB */ goto L9160; + case 16: /* TOSS */ goto L9170; + case 17: /* QUIT */ return(2011); + case 18: /* FIND */ goto L9190; + case 19: /* INVEN */ goto L9190; + case 20: /* FEED */ goto L9210; + case 21: /* FILL */ goto L9220; + case 22: /* BLAST */ goto L9230; + case 23: /* SCOR */ return(2011); + case 24: /* FOO */ return(2011); + case 25: /* BRIEF */ return(2011); + case 26: /* READ */ goto L9270; + case 27: /* BREAK */ goto L9280; + case 28: /* WAKE */ goto L9290; + case 29: /* SUSP */ return(2011); + case 30: /* RESU */ return(2011); + case 31: /* FLY */ goto L9320; + case 32: /* LISTE */ return(2011); + case 33: /* ZZZZ */ goto L8340; } BUG(24); @@ -386,22 +465,10 @@ L8010: if(game.atloc[game.loc] == 0 || game.link[game.atloc[game.loc]] != 0 || A /* Transitive carry/drop are in separate file. */ -L9010: return(carry(obj)); -L9020: return(discard(obj, false)); +L9010: return carry(obj); +L9020: return discard(obj, false); -/* SAY. Echo WD2 (or WD1 if no WD2 (SAY WHAT?, etc.).) Magic words override. */ - -L9030: SETPRM(1,WD2,WD2X); - if(WD2 <= 0)SETPRM(1,WD1,WD1X); - if(WD2 > 0)WD1=WD2; - I=VOCAB(WD1,-1); - if(I == 62 || I == 65 || I == 71 || I == 2025 || I == 2034) goto L9035; - RSPEAK(258); - return(2012); - -L9035: WD2=0; - obj=0; - return(2630); +L9030: return say(); /* Lock, unlock, no object given. Assume various things if present. */ @@ -487,36 +554,7 @@ L9090: return wave(obj); L9120: return attack(input, verb, obj); -/* Pour. If no object, or object is bottle, assume contents of bottle. - * special tests for pouring water or oil on plant or rusty door. */ - -L9130: if(obj == BOTTLE || obj == 0)obj=LIQ(0); - if(obj == 0) return(8000); - if(!TOTING(obj)) return(2011); - SPK=78; - if(obj != OIL && obj != WATER) return(2011); - if(HERE(URN) && game.prop[URN] == 0) goto L9134; - game.prop[BOTTLE]=1; - game.place[obj]=0; - SPK=77; - if(!(AT(PLANT) || AT(DOOR))) return(2011); - - if(AT(DOOR)) goto L9132; - SPK=112; - if(obj != WATER) return(2011); - PSPEAK(PLANT,game.prop[PLANT]+3); - game.prop[PLANT]=MOD(game.prop[PLANT]+1,3); - game.prop[PLANT2]=game.prop[PLANT]; - K=NUL; - return(8); - -L9132: game.prop[DOOR]=0; - if(obj == OIL)game.prop[DOOR]=1; - SPK=113+game.prop[DOOR]; - return(2011); - -L9134: obj=URN; - goto L9220; +L9130: return pour(obj); /* Eat. Intransitive: assume food if present, else ask what. Transitive: food * ok, some things lose appetite, rest are ridiculous. */ @@ -552,30 +590,7 @@ L9230: return blast(); L8240: return vscore(); -/* FEE FIE FOE FOO (AND FUM). Advance to next state if given in proper order. - * Look up WD1 in section 3 of vocab to determine which word we've got. Last - * word zips the eggs back to the giant room (unless already there). */ - -L8250: K=VOCAB(WD1,3); - SPK=42; - if(game.foobar == 1-K) goto L8252; - if(game.foobar != 0)SPK=151; - return(2011); - -L8252: game.foobar=K; - if(K != 4) return(2009); - game.foobar=0; - if(game.place[EGGS] == PLAC[EGGS] || (TOTING(EGGS) && game.loc == PLAC[EGGS])) - return(2011); -/* Bring back troll if we steal the eggs back from him before crossing. */ - if(game.place[EGGS] == 0 && game.place[TROLL] == 0 && game.prop[TROLL] == - 0)game.prop[TROLL]=1; - K=2; - if(HERE(EGGS))K=1; - if(game.loc == PLAC[EGGS])K=0; - MOVE(EGGS,PLAC[EGGS]); - PSPEAK(EGGS,K); - return(2012); +L8250: return bigwords(WD1); L8260: return brief();