-/* 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;