- TITLEBAR(0,'EDIT DEFAULT SPRITE');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': SPRITE SIZE ');
- TEXTCOLOR(3); WRITELN('(',B.SPRSIZE,')');
- FOR I:=1TO B.SPRSIZE DO BEGIN
- TEXTCOLOR(14); WRITE(I+1); TEXTCOLOR(7); WRITE(': EDIT '); TEXTCOLOR(3);
- WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE));
- END; {DISP SPRITE}
-
- III:=EDITMENU(1+B.SPRSIZE,0);
- IF III=1THEN BEGIN
- I:=INPUTINT('ENTER THE DEFAULT SPRITE SIZE','CAN BE CHANGED PER LEVEL',1,B.SPRSIZE,8);
- IF I>B.SPRSIZE THEN FOR I4:=B.SPRSIZE+1TO I DO B.SPRITE[I4]:=0;
- B.SPRSIZE:=I;
- END {SIZE} ELSE IF III>1THEN BEGIN
- S:=INPUTSTR('ENTER NEW LINE #'+NR(III-1)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
- ZERO(BYTE2BIN(B.SPRITE[III-1]),8),8);
- B.SPRITE[III-1]:=STR2BYTE(S);
- END; {APP}
- UNTIL III=-1; III:=0;
-END; {EDITDSPR}
-
-PROCEDURE EDITSPEND;
-BEGIN
- REPEAT
- TITLEBAR(0,'SINGLEPLAYER ENDING');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': END TYPE ');
- TEXTCOLOR(3); WRITELN(' (',ENDTYPE[B.ENDTYPE],')'); TEXTCOLOR(14);
+ TITLEBAR(0,'CHANGE DEFAULTS');
+ TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': HISCORE NAME ');
+ TEXTCOLOR(3); WRITELN('(',B.HINAME,')');
+ TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': END TYPE ');
+ TEXTCOLOR(3); WRITELN('(',ENDTYPE[B.ENDTYPE],')');