URL
https://opencores.org/ocsvn/ion/ion/trunk
Subversion Repositories ion
[/] [ion/] [trunk/] [src/] [adventure/] [actions2.c] - Rev 229
Go to most recent revision | Compare with Previous | Blame | View Log
#include "misc.h" #include "main.h" #include "share.h" #include "funcs.h" #define TRUE (0==0) #define FALSE (0!=0) /* CARRY AN OBJECT. SPECIAL CASES FOR BIRD AND CAGE (IF BIRD IN CAGE, CAN'T * TAKE ONE WITHOUT THE OTHER). LIQUIDS ALSO SPECIAL, SINCE THEY DEPEND ON * STATUS OF BOTTLE. ALSO VARIOUS SIDE EFFECTS, ETC. */ carry() { if(TOTING(OBJ)) return(2011); SPK=25; if(OBJ == PLANT && PROP[PLANT] <= 0)SPK=115; if(OBJ == BEAR && PROP[BEAR] == 1)SPK=169; if(OBJ == CHAIN && PROP[BEAR] != 0)SPK=170; if(OBJ == URN)SPK=215; if(OBJ == CAVITY)SPK=217; if(OBJ == BLOOD)SPK=239; if(OBJ == RUG && PROP[RUG] == 2)SPK=222; if(OBJ == SIGN)SPK=196; if(OBJ != MESSAG) goto L9011; SPK=190; DSTROY(MESSAG); L9011: if(FIXED[OBJ] != 0) return(2011); if(OBJ != WATER && OBJ != OIL) goto L9017; K=OBJ; OBJ=BOTTLE; if(HERE(BOTTLE) && LIQ(0) == K) goto L9017; if(TOTING(BOTTLE) && PROP[BOTTLE] == 1) return(fill()); if(PROP[BOTTLE] != 1)SPK=105; if(!TOTING(BOTTLE))SPK=104; return(2011); L9017: SPK=92; if(HOLDNG >= 7) return(2011); if(OBJ != BIRD || PROP[BIRD] == 1 || -1-PROP[BIRD] == 1) goto L9014; if(PROP[BIRD] == 2) goto L9015; if(!TOTING(CAGE))SPK=27; if(TOTING(ROD))SPK=26; if(SPK/2 == 13) return(2011); PROP[BIRD]=1; L9014: if((OBJ == BIRD || OBJ == CAGE) && (PROP[BIRD] == 1 || -1-PROP[BIRD] == 1))CARRY(BIRD+CAGE-OBJ,LOC); CARRY(OBJ,LOC); K=LIQ(0); if(OBJ == BOTTLE && K != 0)PLACE[K]= -1; if(!GSTONE(OBJ) || PROP[OBJ] == 0) return(2009); PROP[OBJ]=0; PROP[CAVITY]=1; return(2009); L9015: SPK=238; DSTROY(BIRD); return(2011); } /* DISCARD OBJECT. "THROW" ALSO COMES HERE FOR MOST OBJECTS. SPECIAL CASES FOR * BIRD (MIGHT ATTACK SNAKE OR DRAGON) AND CAGE (MIGHT CONTAIN BIRD) AND VASE. * DROP COINS AT VENDING MACHINE FOR EXTRA BATTERIES. */ discard(just_do_it)long just_do_it; { if(just_do_it) goto L9021; if(TOTING(ROD2) && OBJ == ROD && !TOTING(ROD))OBJ=ROD2; if(!TOTING(OBJ)) return(2011); if(OBJ != BIRD || !HERE(SNAKE)) goto L9023; RSPEAK(30); if(CLOSED) return(19000); DSTROY(SNAKE); /* SET PROP FOR USE BY TRAVEL OPTIONS */ PROP[SNAKE]=1; L9021: K=LIQ(0); if(K == OBJ)OBJ=BOTTLE; if(OBJ == BOTTLE && K != 0)PLACE[K]=0; if(OBJ == CAGE && PROP[BIRD] == 1)DROP(BIRD,LOC); DROP(OBJ,LOC); if(OBJ != BIRD) return(2012); PROP[BIRD]=0; if(FOREST(LOC))PROP[BIRD]=2; return(2012); L9023: if(!(GSTONE(OBJ) && AT(CAVITY) && PROP[CAVITY] != 0)) goto L9024; RSPEAK(218); PROP[OBJ]=1; PROP[CAVITY]=0; if(!HERE(RUG) || !((OBJ == EMRALD && PROP[RUG] != 2) || (OBJ == RUBY && PROP[RUG] == 2))) goto L9021; SPK=219; if(TOTING(RUG))SPK=220; if(OBJ == RUBY)SPK=221; RSPEAK(SPK); if(SPK == 220) goto L9021; K=2-PROP[RUG]; PROP[RUG]=K; if(K == 2)K=PLAC[SAPPH]; MOVE(RUG+100,K); goto L9021; L9024: if(OBJ != COINS || !HERE(VEND)) goto L9025; DSTROY(COINS); DROP(BATTER,LOC); PSPEAK(BATTER,0); return(2012); L9025: if(OBJ != BIRD || !AT(DRAGON) || PROP[DRAGON] != 0) goto L9026; RSPEAK(154); DSTROY(BIRD); PROP[BIRD]=0; return(2012); L9026: if(OBJ != BEAR || !AT(TROLL)) goto L9027; RSPEAK(163); MOVE(TROLL,0); MOVE(TROLL+100,0); MOVE(TROLL2,PLAC[TROLL]); MOVE(TROLL2+100,FIXD[TROLL]); JUGGLE(CHASM); PROP[TROLL]=2; goto L9021; L9027: if(OBJ == VASE && LOC != PLAC[PILLOW]) goto L9028; RSPEAK(54); goto L9021; L9028: PROP[VASE]=2; if(AT(PILLOW))PROP[VASE]=0; PSPEAK(VASE,PROP[VASE]+1); if(PROP[VASE] != 0)FIXED[VASE]= -1; goto L9021; } /* ATTACK. ASSUME TARGET IF UNAMBIGUOUS. "THROW" ALSO LINKS HERE. ATTACKABLE * OBJECTS FALL INTO TWO CATEGORIES: ENEMIES (SNAKE, DWARF, ETC.) AND OTHERS * (BIRD, CLAM, MACHINE). AMBIGUOUS IF 2 ENEMIES, OR NO ENEMIES BUT 2 OTHERS. */ attack() { I=ATDWRF(LOC); if(OBJ != 0) goto L9124; if(I > 0)OBJ=DWARF; if(HERE(SNAKE))OBJ=OBJ*100+SNAKE; if(AT(DRAGON) && PROP[DRAGON] == 0)OBJ=OBJ*100+DRAGON; if(AT(TROLL))OBJ=OBJ*100+TROLL; if(AT(OGRE))OBJ=OBJ*100+OGRE; if(HERE(BEAR) && PROP[BEAR] == 0)OBJ=OBJ*100+BEAR; if(OBJ > 100) return(8000); if(OBJ != 0) goto L9124; /* CAN'T ATTACK BIRD OR MACHINE BY THROWING AXE. */ if(HERE(BIRD) && VERB != THROW)OBJ=BIRD; if(HERE(VEND) && VERB != THROW)OBJ=OBJ*100+VEND; /* CLAM AND OYSTER BOTH TREATED AS CLAM FOR INTRANSITIVE CASE; NO HARM DONE. */ if(HERE(CLAM) || HERE(OYSTER))OBJ=100*OBJ+CLAM; if(OBJ > 100) return(8000); L9124: if(OBJ != BIRD) goto L9125; SPK=137; if(CLOSED) return(2011); DSTROY(BIRD); PROP[BIRD]=0; SPK=45; L9125: if(OBJ != VEND) goto L9126; PSPEAK(VEND,PROP[VEND]+2); PROP[VEND]=3-PROP[VEND]; return(2012); L9126: if(OBJ == 0)SPK=44; if(OBJ == CLAM || OBJ == OYSTER)SPK=150; if(OBJ == SNAKE)SPK=46; if(OBJ == DWARF)SPK=49; if(OBJ == DWARF && CLOSED) return(19000); if(OBJ == DRAGON)SPK=167; if(OBJ == TROLL)SPK=157; if(OBJ == OGRE)SPK=203; if(OBJ == OGRE && I > 0) goto L9128; if(OBJ == BEAR)SPK=165+(PROP[BEAR]+1)/2; if(OBJ != DRAGON || PROP[DRAGON] != 0) return(2011); /* FUN STUFF FOR DRAGON. IF HE INSISTS ON ATTACKING IT, WIN! SET PROP TO DEAD, * MOVE DRAGON TO CENTRAL LOC (STILL FIXED), MOVE RUG THERE (NOT FIXED), AND * MOVE HIM THERE, TOO. THEN DO A NULL MOTION TO GET NEW DESCRIPTION. */ RSPEAK(49); VERB=0; OBJ=0; GETIN(WD1,WD1X,WD2,WD2X); if(WD1 != MAKEWD(25) && WD1 != MAKEWD(250519)) return(2607); PSPEAK(DRAGON,3); PROP[DRAGON]=1; PROP[RUG]=0; K=(PLAC[DRAGON]+FIXD[DRAGON])/2; MOVE(DRAGON+100,-1); MOVE(RUG+100,0); MOVE(DRAGON,K); MOVE(RUG,K); DROP(BLOOD,K); /* 9127 */ for (OBJ=1; OBJ<=100; OBJ++) { if(PLACE[OBJ] == PLAC[DRAGON] || PLACE[OBJ] == FIXD[DRAGON])MOVE(OBJ,K); L9127: /*etc*/ ; } /* end loop */ LOC=K; K=NUL; return(8); L9128: RSPEAK(SPK); RSPEAK(6); DSTROY(OGRE); K=0; /* 9129 */ for (I=1; I<=5; I++) { if(DLOC[I] != LOC) goto L9129; K=K+1; DLOC[I]=61; DSEEN[I]=FALSE; L9129: /*etc*/ ; } /* end loop */ SPK=SPK+1+1/K; return(2011); } /* THROW. SAME AS DISCARD UNLESS AXE. THEN SAME AS ATTACK EXCEPT IGNORE BIRD, * AND IF DWARF IS PRESENT THEN ONE MIGHT BE KILLED. (ONLY WAY TO DO SO!) * AXE ALSO SPECIAL FOR DRAGON, BEAR, AND TROLL. TREASURES SPECIAL FOR TROLL. */ throw() { if(TOTING(ROD2) && OBJ == ROD && !TOTING(ROD))OBJ=ROD2; if(!TOTING(OBJ)) return(2011); if(OBJ >= 50 && OBJ <= MAXTRS && AT(TROLL)) goto L9178; if(OBJ == FOOD && HERE(BEAR)) goto L9177; if(OBJ != AXE) return(discard(FALSE)); I=ATDWRF(LOC); if(I > 0) goto L9172; SPK=152; if(AT(DRAGON) && PROP[DRAGON] == 0) goto L9175; SPK=158; if(AT(TROLL)) goto L9175; SPK=203; if(AT(OGRE)) goto L9175; if(HERE(BEAR) && PROP[BEAR] == 0) goto L9176; OBJ=0; return(attack()); L9172: SPK=48; if(RAN(7) < DFLAG) goto L9175; DSEEN[I]=FALSE; DLOC[I]=0; SPK=47; DKILL=DKILL+1; if(DKILL == 1)SPK=149; L9175: RSPEAK(SPK); DROP(AXE,LOC); K=NUL; return(8); /* THIS'LL TEACH HIM TO THROW THE AXE AT THE BEAR! */ L9176: SPK=164; DROP(AXE,LOC); FIXED[AXE]= -1; PROP[AXE]=1; JUGGLE(BEAR); return(2011); /* BUT THROWING FOOD IS ANOTHER STORY. */ L9177: OBJ=BEAR; return(feed()); L9178: SPK=159; /* SNARF A TREASURE FOR THE TROLL. */ DROP(OBJ,0); MOVE(TROLL,0); MOVE(TROLL+100,0); DROP(TROLL2,PLAC[TROLL]); DROP(TROLL2+100,FIXD[TROLL]); JUGGLE(CHASM); return(2011); } /* FEED. IF BIRD, NO SEED. SNAKE, DRAGON, TROLL: QUIP. IF DWARF, MAKE HIM * MAD. BEAR, SPECIAL. */ feed() { if(OBJ != BIRD) goto L9212; SPK=100; return(2011); L9212: if(OBJ != SNAKE && OBJ != DRAGON && OBJ != TROLL) goto L9213; SPK=102; if(OBJ == DRAGON && PROP[DRAGON] != 0)SPK=110; if(OBJ == TROLL)SPK=182; if(OBJ != SNAKE || CLOSED || !HERE(BIRD)) return(2011); SPK=101; DSTROY(BIRD); PROP[BIRD]=0; return(2011); L9213: if(OBJ != DWARF) goto L9214; if(!HERE(FOOD)) return(2011); SPK=103; DFLAG=DFLAG+2; return(2011); L9214: if(OBJ != BEAR) goto L9215; if(PROP[BEAR] == 0)SPK=102; if(PROP[BEAR] == 3)SPK=110; if(!HERE(FOOD)) return(2011); DSTROY(FOOD); PROP[BEAR]=1; FIXED[AXE]=0; PROP[AXE]=0; SPK=168; return(2011); L9215: if(OBJ != OGRE) goto L9216; if(HERE(FOOD))SPK=202; return(2011); L9216: SPK=14; return(2011); } /* FILL. BOTTLE OR URN MUST BE EMPTY, AND LIQUID AVAILABLE. (VASE IS NASTY.) */ fill() { if(OBJ == VASE) goto L9222; if(OBJ == URN) goto L9224; if(OBJ != 0 && OBJ != BOTTLE) return(2011); if(OBJ == 0 && !HERE(BOTTLE)) return(8000); SPK=107; if(LIQLOC(LOC) == 0)SPK=106; if(HERE(URN) && PROP[URN] != 0)SPK=214; if(LIQ(0) != 0)SPK=105; if(SPK != 107) return(2011); PROP[BOTTLE]=MOD(COND[LOC],4)/2*2; K=LIQ(0); if(TOTING(BOTTLE))PLACE[K]= -1; if(K == OIL)SPK=108; return(2011); L9222: SPK=29; if(LIQLOC(LOC) == 0)SPK=144; if(LIQLOC(LOC) == 0 || !TOTING(VASE)) return(2011); RSPEAK(145); PROP[VASE]=2; FIXED[VASE]= -1; return(discard(TRUE)); L9224: SPK=213; if(PROP[URN] != 0) return(2011); SPK=144; K=LIQ(0); if(K == 0 || !HERE(BOTTLE)) return(2011); PLACE[K]=0; PROP[BOTTLE]=1; if(K == OIL)PROP[URN]=1; SPK=211+PROP[URN]; return(2011); }
Go to most recent revision | Compare with Previous | Blame | View Log