AfterGameOver (lines 4834-4901)
Back to List
Browsing parserm.h
4834 #Endif; ! TARGET_
4835
4836 [ AfterGameOver i;
4837
4838 .RRQPL;
4839
4840 L__M(##Miscellany,5);
4841
4842 .RRQL;
4843
4844 print "> ";
4845 #Ifdef TARGET_ZCODE;
4846 #IfV3; read buffer parse; #Endif; ! V3
4847 temp_global=0;
4848 #IfV5; read buffer parse DrawStatusLine; #Endif; ! V5
4849 #Ifnot; ! TARGET_GLULX
4850 KeyboardPrimitive(buffer, parse);
4851 #Endif; ! TARGET_
4852 i = parse-->1;
4853 if (i == QUIT1__WD or QUIT2__WD) {
4854 #Ifdef TARGET_ZCODE;
4855 quit;
4856 #Ifnot; ! TARGET_GLULX
4857 quit;
4858 #Endif; ! TARGET_
4859 }
4860 if (i == RESTART__WD) {
4861 #Ifdef TARGET_ZCODE;
4862 @restart;
4863 #Ifnot; ! TARGET_GLULX
4864 @restart;
4865 #Endif; ! TARGET_
4866 }
4867 if (i == RESTORE__WD) {
4868 RestoreSub();
4869 jump RRQPL;
4870 }
4871 if (i == FULLSCORE1__WD or FULLSCORE2__WD && TASKS_PROVIDED==0) {
4872 new_line; FullScoreSub();
4873 jump RRQPL;
4874 }
4875 if (deadflag == 2 && i == AMUSING__WD && AMUSING_PROVIDED==0) {
4876 new_line; Amusing();
4877 jump RRQPL;
4878 }
4879 #IfV5;
4880 if (i == UNDO1__WD or UNDO2__WD or UNDO3__WD) {
4881 if (undo_flag == 0) {
4882 L__M(##Miscellany, 6);
4883 jump RRQPL;
4884 }
4885 if (undo_flag == 1) jump UndoFailed2;
4886 #Ifdef TARGET_ZCODE;
4887 @restore_undo i;
4888 #Ifnot; ! TARGET_GLULX
4889 @restoreundo i;
4890 i = (~~i);
4891 #Endif; ! TARGET_
4892 if (i == 0) {
4893 .UndoFailed2;
4894 L__M(##Miscellany, 7);
4895 }
4896 jump RRQPL;
4897 }
4898 #Endif; ! V5
4899 L__M(##Miscellany, 8);
4900 jump RRQL;
4901 ];
Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.