X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/0519b439bb5b1eb97a4513fb363f74122f410ca8..59ccc7b1271204ab23e92b3c25df19165f58d838:/wormedit.pas diff --git a/wormedit.pas b/wormedit.pas index abba523..39aa846 100644 --- a/wormedit.pas +++ b/wormedit.pas @@ -1,3 +1,16 @@ +{WORMEDIT 0.5 OR SOMETHING... BY SHIAR + ---------------------------------w00t} + +{PASCAL.... BECAUSE I'VE GOT A LOT OF EXPERIENCE USING IT, AND I JUST NEEDED A + QUICK SUCKY EDITOR. IF YOU'RE WILLING TO WRITE SOMETHING BETTER, JUST MAIL ME} + +{WRITTEN USING ULTRAEDIT IN DVORAK WITH BORLAND PASCAL 7.0 FILES AND CRT PATCH + FOR DOS, HUZZAH. TESTED OK IN DOS 6, WINDOWS 98 AND XP, AND LINUX WITH DOSEMU} + +{ALLCAPS BECAUSE. AND IT MAKES IT HARDER TO UNDERSTAND THE CODE} + +{ENJOY! >:} + USES CRT,SHIAR,DOS; TYPE ONELEVEL = RECORD @@ -36,7 +49,7 @@ CONST GAMETYPE:ARRAY[1..8]OF STRING[12] = HEAD86S:STRING[53] = ('**TI86**'+#$1A+#$A+#0+ {HEADER} - 'Levelfile for Worm 0á95 made with WormEdit'); {COMMENT} + 'Wormyá95 Levelfile made using WormEdit 0.5'); {COMMENT} HEADEDIT = ('WormEditá95'+#0+'LVL'); HEADVERSION = 95; @@ -113,7 +126,7 @@ BEGIN TEXTCOLOR(CB_BAR); WRITE('>ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'); WINDOW(41,2,41,25); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); WRITE(CC('³',23)); WINDOW(1,25,80,25); TEXTBACKGROUND(CB_BAR); CLRSCR; - GOTOXY(75,1); TEXTCOLOR(0); WRITE('v0.94'); TEXTBACKGROUND(CB_TEXT); + GOTOXY(75,1); TEXTCOLOR(0); WRITE('v0.5á'); TEXTBACKGROUND(CB_TEXT); END; {MAINTITLE} PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER); @@ -235,81 +248,83 @@ BEGIN END; {OBJECT TYPE} END; {DISPOBJ} BEGIN {---} - TI:=3; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,18,WHERE); INC(TI,8); END; {GRID} - TI:=4; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,18,WHERE); INC(TI,8); END; - TI:=7; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,2,WHERE); INC(TI,8); END; {GRID} - TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,2,WHERE); INC(TI,8); END; - TI:=127; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,6,WHERE); INC(TI,128); END; - TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,6,WHERE); INC(TI,56); END; + TI:=3; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,2,WHERE); INC(TI,8); END; {GRID} + TI:=4; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,2,WHERE); INC(TI,8); END; + TI:=7; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,4,WHERE); INC(TI,8); END; {GRID} + TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,4,WHERE); INC(TI,8); END; + TI:=127; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,8,WHERE); INC(TI,128); END; + TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,8,WHERE); INC(TI,56); END; FOR TI:=2TO L[II].FIELDX-2DO BEGIN - IF TI MOD 2=0THEN PUTPIXEL(TI,L[II].FIELDY SHR 1,4,WHERE) + IF TI MOD 2=0THEN PUTPIXEL(TI,L[II].FIELDY SHR 1,6,WHERE) ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1,2,WHERE); END; {MID} IF L[II].FIELDY MOD 2=0THEN FOR TI:=2TO L[II].FIELDX-2DO BEGIN - IF TI MOD 2=1THEN PUTPIXEL(TI,L[II].FIELDY SHR 1-1,4,WHERE) + IF TI MOD 2=1THEN PUTPIXEL(TI,L[II].FIELDY SHR 1-1,6,WHERE) ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1-1,2,WHERE); END; {DOUBLEMID} FOR TI:=2TO L[II].FIELDY-2DO BEGIN - IF TI MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,TI,4,WHERE) + IF TI MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,TI,6,WHERE) ELSE PUTPIXEL(L[II].FIELDX SHR 1,TI,2,WHERE); END; {CENTER} IF L[II].FIELDX MOD 2=0THEN FOR TI:=2TO L[II].FIELDY-2DO BEGIN - IF TI MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,TI,4,WHERE) + IF TI MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,TI,6,WHERE) ELSE PUTPIXEL(L[II].FIELDX SHR 1-1,TI,2,WHERE); END; {DOUBLECENTER} IF(II>B.LSINGLE+B.LMULTI)AND(II<=B.LSINGLE+B.LMULTI+B.LRACE)THEN BEGIN - LINE(L[II].FLAG1Y,0,L[II].FLAG1Y,L[II].FLAG1X,22,WHERE); - LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,24,WHERE); + LINE(L[II].FLAG1Y,0,L[II].FLAG1Y,L[II].FLAG1X,26,WHERE); + LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,28,WHERE); LINE(0,L[II].FLAG1X,L[II].FIELDX-1,L[II].FLAG1X,16,WHERE); END; {RACE} IF II<=B.LSINGLE THEN TI:=1 ELSE TI:=4; FOR TI:=1TO TI DO BEGIN - CIRCLE(L[II].W[TI].X,L[II].W[TI].Y,2,14); + CIRCLE(L[II].W[TI].X,L[II].W[TI].Y,2,12); LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN(L[II].W[TI].D/128*PI)*20), - L[II].W[TI].Y+ROUND(COS(L[II].W[TI].D/128*PI)*20),16,WHERE); + L[II].W[TI].Y+ROUND(COS(L[II].W[TI].D/128*PI)*20),14,WHERE); LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN((L[II].W[TI].D-13)/128*PI)*15), - L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D-13)/128*PI)*15),14,WHERE); + L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D-13)/128*PI)*15),12,WHERE); LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN((L[II].W[TI].D+13)/128*PI)*15), - L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D+13)/128*PI)*15),14,WHERE); + L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D+13)/128*PI)*15),12,WHERE); PUTPIXEL(L[II].W[TI].X,L[II].W[TI].Y,0,WHERE); END; {WORMS} IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN IF L[II].SPRSIZE>0THEN TI:=L[II].SPRSIZE ELSE TI:=B.SPRSIZE; - DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,TI,TI,22); {FLAGS} - DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,TI,TI,24); + DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,TI,TI,26); {FLAGS} + DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,TI,TI,28); END; {DRAW FLAGS} - LINE(0,0,255,0,8,WHERE); LINE(0,1,255,1,8,WHERE); {BORDERS} - LINE(0,2,0,190-3,8,WHERE); LINE(1,2,1,190-3,8,WHERE); - LINE(MAX(126,L[II].FIELDX-2),2,MAX(126,L[II].FIELDX-2),L[II].FIELDY-1,8,WHERE); - LINE(MAX(127,L[II].FIELDX-1),2,MAX(127,L[II].FIELDX-1),L[II].FIELDY-1,8,WHERE); - LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,8,WHERE); - LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,8,WHERE); - FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,10); {OBJS} - IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,12); {HIGHLIGHTED_OBJ} + LINE(0,0,255,0,22,WHERE); LINE(0,1,255,1,22,WHERE); {BORDERS} + LINE(0,2,0,190-3,22,WHERE); LINE(1,2,1,190-3,22,WHERE); + LINE(MAX(126,L[II].FIELDX-2),2,MAX(126,L[II].FIELDX-2),L[II].FIELDY-1,22,WHERE); + LINE(MAX(127,L[II].FIELDX-1),2,MAX(127,L[II].FIELDX-1),L[II].FIELDY-1,22,WHERE); + LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,22,WHERE); + LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,22,WHERE); + FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,18); {OBJS} + IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,20); {HIGHLIGHTED_OBJ} FOR OBJ2:=1TO L[II].NRBALLS DO - DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,12); {BOUNCIES} + DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,20); {BOUNCIES} END; {DISPMAP} -PROCEDURE DISPMAPMCGA(OBJ:INTEGER); +PROCEDURE DISPMCGACOMMON; BEGIN SETMCGA; - SETPAL(0,0,0,0); {BACK} SETPAL(1,32,0,0); {BACK} - SETPAL(2,12,0,0); {GRID} SETPAL(3,38,0,0); {GRID} - SETPAL(4,20,0,0); {MID} SETPAL(5,40,0,0); {MID} - SETPAL(6,28,0,0); {MAINGRID} SETPAL(7,44,0,0); {MAINGRID} - SETPAL(8,63,63,63); {BORDER} SETPAL(9,63,0,0); {BORDER} - SETPAL(10,48,48,48); {OBJ} SETPAL(11,63,0,0); {OBJ} - SETPAL(12,63,63,20); {HL_OBJ} SETPAL(13,63,16,0); {HL_OBJ} - SETPAL(14,48,32,0); SETPAL(15,44,0,0); {STLN} - SETPAL(16,48,48,0); SETPAL(17,52,0,0); {STARTPOS} - SETPAL(18,8,0,0); SETPAL(19,36,0,0); {SUBGRID} - SETPAL(22,0,0,63); {FLAG1} SETPAL(23,63,0,0); {FLAG1} - SETPAL(24,0,63,0); {FLAG2} SETPAL(25,63,0,0); {FLAG2} - DISPMAP(OBJ,PTR(VGA,0)); -END; {DISPMAPMCGA} + SETPAL(0,0,0,0); SETPAL(1,32,0,0); {BACK} + SETPAL(2,8,0,0); SETPAL(3,35,0,0); {SUBGRID} + SETPAL(4,12,0,0); SETPAL(5,38,0,0); {GRID} + SETPAL(6,20,0,0); SETPAL(7,40,0,0); {MID} + SETPAL(8,28,0,0); SETPAL(9,44,0,0); {MAINGRID} + + SETPAL(12,48,32,0); SETPAL(13,44,0,0); {STLN} + SETPAL(14,48,48,0); SETPAL(15,52,0,0); {STARTPOS} + SETPAL(26,0,0,63); SETPAL(27,63,0,0); {FLAG1} + SETPAL(28,0,63,0); SETPAL(29,63,0,0); {FLAG2} + + SETPAL(16,32,32,32); SETPAL(17,48,0,0); {HALFOBJ} + SETPAL(18,48,48,48); SETPAL(19,63,0,0); {OBJ} + SETPAL(20,63,63,20); SETPAL(21,63,16,0); {HL_OBJ} + SETPAL(22,63,63,63); SETPAL(23,63,0,0); {BORDER} +END; {DISPMCGACOMMON} PROCEDURE DISP1MAP(OBJ:INTEGER); VAR MXX,MYY:WORD; @@ -336,7 +351,42 @@ BEGIN END; DISPOSE(VIRT);} BEGIN - DISPMAPMCGA(OBJ); CLRKEY; + DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY; + REPEAT + IF USEMOUSE THEN BEGIN + GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;} + PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0)); + DELAY(10); + PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0)); + IF M1 THEN PPLINE(MXX,MYY,MX,MY,0); + IF M2 THEN PPLINE(MXX,MYY,MX,MY,1); + MXX:=MX; MYY:=MY; + END; {MOUSE} + UNTIL KEYPRESSED; WHILE KEYPRESSED DO READKEY; MAINTITLE; +END; {DISP1MAP} + +PROCEDURE DISPMANYMAP(MAG:BYTE); +TYPE SCRN = ARRAY[0..199,0..319]OF BYTE; +VAR VIRT:^SCRN; +PROCEDURE DISP1MANYMAP(OFFSETX,OFFSETY,MAG:BYTE); +VAR I1,I1X,I1Y,I1XX,I1YY:BYTE; +BEGIN + FOR I:=0 TO 199DO FOR I2:=0 TO 255DO VIRT^[I,I2]:=0; DISPMAP(0,VIRT); + FOR I:=0 TO 255 DIV MAG DO FOR I2:=0 TO 199 DIV MAG DO BEGIN + {I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);} + I1:=0; + FOR I1XX:=I*MAG TO(I+1)*MAG-1 DO FOR I1YY:=I2*MAG TO(I2+1)*MAG-1DO + IF VIRT^[I1YY,I1XX]>I1 THEN I1:=VIRT^[I1YY,I1XX]; + PUTPIXEL(OFFSETX+I,OFFSETY+I2,I1,PTR(VGA,0)); + END; +END; {DISP1MANYMAP} +VAR MXX,MYY:WORD; M1,M2:BOOLEAN; +BEGIN + DISPMCGACOMMON; NEW(VIRT); + MX:=255 DIV MAG+1; MY:=192 DIV MAG+1; + FOR II:=1TO MIN(B.LTOTAL,SQR(MAG))DO + DISP1MANYMAP(((II-1)MOD MAG)*MX,(II-1)DIV MAG*MY,MAG); + DISPOSE(VIRT); CLRKEY; REPEAT IF USEMOUSE THEN BEGIN GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;} @@ -347,7 +397,7 @@ BEGIN IF M2 THEN PPLINE(MXX,MYY,MX,MY,1); MXX:=MX; MYY:=MY; END; {MOUSE} - UNTIL KEYPRESSED; MAINTITLE; + UNTIL KEYPRESSED; WHILE KEYPRESSED DO READKEY; MAINTITLE; END; {DISP1MAP} PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER); @@ -355,7 +405,7 @@ VAR M1,M2:BOOLEAN; MXX,MYY:WORD; XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER; BEGIN - DISPMAPMCGA(OBJ); CLRKEY; + DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY; IF OBJSUB=0THEN BEGIN XDEF:=L[II].OBJ[OBJ].X1; YDEF:=L[II].OBJ[OBJ].Y1; END {FROM} ELSE BEGIN @@ -424,6 +474,8 @@ BEGIN END; {TO} END; {K} UNTIL M1; MAINTITLE; + IF USEMOUSE THEN WHILE(M1)OR(M2)DO GETMOUSEPOS(MX,MY,M1,M2); + WHILE KEYPRESSED DO C:=READKEY; IF(L[II].OBJ[OBJ].TYP=3)AND(L[II].OBJ[OBJ].Y1<0)THEN BEGIN I4:=L[II].OBJ[OBJ].Y1; L[II].OBJ[OBJ].Y1:=L[II].OBJ[OBJ].Y2; L[II].OBJ[OBJ].Y1:=-I4; @@ -487,25 +539,38 @@ BEGIN END; {DISPOBJECTS} FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT; -VAR EDITOK:SHORTINT; +VAR EDITOK,MENUPOS:SHORTINT; BEGIN - EDITOK:=0; REPEAT - WINDOW(39,1,39,1); GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY; + MENUPOS:=1; EDITOK:=0; + WINDOW(2,3,3,20); GOTOXY(1,1); TEXTCOLOR(C_MENU); WRITE('>>'); + REPEAT + GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY; IF C=' 'THEN EDITOK:=10 {10} ELSE - IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))THEN EDITOK:=ORD(C)-48 {1..<=9} ELSE + IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))AND(C<='9')THEN EDITOK:=ORD(C)-48 {1..<=9} ELSE + IF(EDITMENUMAX>9)AND(UPCASE(C)>='A')AND(UPCASE(C)<=CHR(EDITMENUMAX+55))AND(UPCASE(C)<='Z')THEN + EDITOK:=ORD(UPCASE(C))-55 {1..<=9} ELSE + IF C=#13 THEN EDITOK:=MENUPOS {ENTER} ELSE IF(C=#27)OR(C='-')OR(C='+')THEN EDITOK:=-1 {EXIT} ELSE IF UPCASE(C)='H'THEN HELPBAR(HELPPAGE) ELSE IF C=#0THEN BEGIN C:=READKEY; + IF(C=#80)AND(MENUPOS>'); + END; {DOWN} + IF(C=#72)AND(MENUPOS>1)THEN BEGIN + TEXTCOLOR(C_TEXT); GOTOXY(1,MENUPOS); WRITE(': '); + DEC(MENUPOS); TEXTCOLOR(C_MENU); GOTOXY(1,MENUPOS); WRITE('>>'); + END; {UP} IF HELPPAGE=5THEN BEGIN - IF(C=#80)AND(LVLPOS1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {UP} ELSE + IF(C=#77)AND(LVLPOS1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {L} ELSE END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN - IF(C=#80)AND(OBJPOS1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {UP} ELSE + IF(C=#77)AND(OBJPOS1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE END; {OBJS DISPED} IF C=#59THEN HELPBAR(HELPPAGE); END; {EXTENDED} - UNTIL EDITOK<>0; EDITMENU:=EDITOK; + UNTIL EDITOK<>0; EDITMENU:=EDITOK; TEXTCOLOR(C_TEXT); END; {EDITMENU} FUNCTION COMPSIZE:WORD; @@ -516,12 +581,12 @@ BEGIN END; {SIZE OF LEVEL II} BEGIN I:=$31+B.SPRSIZE+ORD(B.NAME[0])+ORD(B.DESC[0])+6; - IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5); - IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); + IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5); {HI_PW} + IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); {HI_TRON} IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO COMPLEVEL; {SP} IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO COMPLEVEL; {MP} IF B.LFROM[7]>0THEN - FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]DO COMPLEVEL; {CTF} + FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]DO COMPLEVEL; {RACE} IF B.LFROM[8]>0THEN FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]DO COMPLEVEL; {CTF} @@ -779,9 +844,10 @@ BEGIN IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE OBJECT'); TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE OBJECT'); - TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': VIEW OBJECT'); + TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': PLACE OBJECT'); + TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': VIEW OBJECT'); - III:=EDITMENU(4,6); + III:=EDITMENU(5,6); CASE III OF 1:IF L[II].NROBJ>0THEN BEGIN I:=INPUTINT('EDIT WHICH OBJECT','',1,1,L[II].NROBJ); @@ -800,6 +866,13 @@ BEGIN INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0; EDITOBJ; END; {CREATE} 4:BEGIN + INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0; + S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0])); + L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4); + L[II].OBJ[I].X1:=0; L[II].OBJ[I].Y1:=0; L[II].OBJ[I].X2:=0; + L[II].OBJ[I].Y2:=0; MAPOBJ(I,0); MAPOBJ(I,1); + END; {CREATE} + 5:BEGIN I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ); DISP1MAP(I4); END; {DISP} @@ -1063,7 +1136,8 @@ BEGIN TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE MULTIPLAYER LEVEL'); TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE RACE LEVEL'); TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE CTF LEVEL'); - TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(8,5); + TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW LEVELS'); + TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(9,5); CASE III OF 1:IF B.LTOTAL>0THEN BEGIN @@ -1097,7 +1171,7 @@ BEGIN I:=INPUTINT('MOVE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL); IF II<>0THEN BEGIN II:=INPUTINT('NEW LEVEL NUMBER','ENTER 0 TO CANCEL',0,0,B.LTOTAL); - IF((I<=B.LSINGLE)AND(II<=B.LSINGLE)) + IF II<>0THEN IF((I<=B.LSINGLE)AND(II<=B.LSINGLE)) OR((I>B.LSINGLE)AND(I<=B.LMULTI+B.LSINGLE)AND(II>B.LSINGLE)AND(II<=B.LMULTI+B.LSINGLE)) OR((I>B.LSINGLE+B.LMULTI)AND(I<=B.LMULTI+B.LSINGLE+B.LRACE)AND(II>B.LSINGLE+B.LMULTI)AND(II<=B.LMULTI+B.LSINGLE+B.LRACE)) OR((I>B.LSINGLE+B.LMULTI+B.LRACE)AND(II>B.LSINGLE+B.LMULTI+B.LRACE))THEN BEGIN @@ -1143,7 +1217,7 @@ BEGIN INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]); END; {} INC(B.LTOTAL); INC(B.LMULTI); II:=B.LSINGLE+B.LMULTI; - FOR I:=B.LSINGLE+B.LMULTI+B.LCTF DOWNTO II+1DO L[I]:=L[I-1]; + FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1]; L[II].ID:='Arena #'+NR(B.LMULTI); L[II].NAME:=ZERO(B.LMULTI,2); L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].W[1].D:=$40; L[II].W[1].Y:=28; L[II].W[1].X:=2; @@ -1158,7 +1232,7 @@ BEGIN FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1]; INC(B.LTO[7]); IF B.LFROM[7]=0THEN INC(B.LFROM[7]); L[II].ID:='Track #'+NR(II); L[II].NAME:=ZERO(B.LRACE,2); - L[II].DELAY:=4; L[II].GROWTH:=15; + L[II].DELAY:=8; L[II].GROWTH:=15; L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0; L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23; L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23; @@ -1172,7 +1246,7 @@ BEGIN INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL; INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]); L[II].ID:='Field #'+NR(II); L[II].NAME:=ZERO(B.LCTF,2); - L[II].DELAY:=4; L[II].GROWTH:=15; + L[II].DELAY:=5; L[II].GROWTH:=15; L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0; L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23; L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23; @@ -1183,6 +1257,10 @@ BEGIN L[II].FLAG1Y:=27; L[II].FLAG2Y:=27; EDITLEVEL; END; {CREATE CTF} + 9:BEGIN + II:=INPUTINT('MAP SIZE','4=SHRINK 16 MAPS ON SCREEN',1,5,32); + DISPMANYMAP(II); + END; {PREVIEW} END; {HANDLE} UNTIL III=-1; III:=0; END; {EDITLVL} @@ -1206,7 +1284,8 @@ BEGIN TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE '); TEXTCOLOR(C_VALUE); WRITELN('(',B.SPRSIZE,')'); FOR I:=1TO B.SPRSIZE DO BEGIN - TEXTCOLOR(C_MENU); WRITE(I+4); TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE); + TEXTCOLOR(C_MENU); IF I>5THEN WRITE(CHR(I+59))ELSE WRITE(I+4); + TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE); WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE)); END; {DISP SPRITE} @@ -1250,7 +1329,7 @@ BEGIN TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': LEVELS'); TEXTCOLOR(C_VALUE); WRITE(' (',B.LTOTAL,')'); - III:=EDITMENU(4,3); + III:=EDITMENU(5,3); CASE III OF 1:B.NAME:=INPUTSTR('ENTER NEW TITLE FOR THIS LEVELFILE', 'NOTE TI-86 DISPLAYS ONLY 22 CHARS ON THEFIRST LINE',B.NAME,32); {TITLE} @@ -1397,32 +1476,7 @@ BEGIN BLOCKWRITE(FF,I,2); {CHECKSUM} END; {FILECOMP} -PROCEDURE EDITQUIT; -BEGIN - REPEAT - TITLEBAR(0,'CHOOSE LEVELFILE'); - TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': COMPILE, SAVE AND QUIT'); - TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': SAVE '); - TEXTCOLOR(C_VALUE); WRITELN(FILENAME,'.LVL'); - TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': QUIT'); - TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': CONTINUE EDITING'); - WRITELN; III:=EDITMENU(4,0); - CASE III OF - 1:BEGIN - FILESAVE; FILECOMP; QUITOK:=TRUE; - END; {COMPILE} - 2:FILESAVE; - 3:BEGIN - WINDOW(1,8,40,8); - WRITE('REALLY QUIT '); TEXTCOLOR(C_SUB); WRITE('[Y/N]'); TEXTCOLOR(C_TEXT); - WRITE('> '); REPEAT C:=READKEY; UNTIL(UPCASE(C)='Y')OR(UPCASE(C)='N'); - IF UPCASE(C)='Y'THEN QUITOK:=TRUE; - END; {QUIT} - END; {HANDLE} - UNTIL(III=4)OR(QUITOK); -END; {EDITQUIT} - -PROCEDURE EDITFILE; +PROCEDURE EDITFILE(STARTUP:BOOLEAN); VAR SFILE:SEARCHREC; FILESFOUND:INTEGER; SFILES:ARRAY[3..9]OF STRING[12]; @@ -1432,8 +1486,10 @@ BEGIN INC(FILESFOUND); IF FILESFOUND>9THEN BREAK; SFILES[FILESFOUND]:=SFILE.NAME; FINDNEXT(SFILE); END; {FIND MORE LEVELS} - TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': ALL DONE!'); - DELAY(250); + IF STARTUP THEN BEGIN + TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': ALL DONE!'); + DELAY(250); + END; {STARTUP TEXT} REPEAT TITLEBAR(0,'CHOOSE LEVELFILE'); TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE NEW FILE'); @@ -1463,9 +1519,35 @@ BEGIN UNTIL III<>0; END; {EDITFILE} +PROCEDURE EDITQUIT; +BEGIN + REPEAT + TITLEBAR(0,'CHOOSE LEVELFILE'); + TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': COMPILE, SAVE AND QUIT'); + TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': SAVE '); + TEXTCOLOR(C_VALUE); WRITELN(FILENAME,'.LVL'); + TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': QUIT'); + TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': LOAD'); + TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': CONTINUE EDITING'); + WRITELN; III:=EDITMENU(5,0); + CASE III OF + 1:BEGIN + FILESAVE; FILECOMP; QUITOK:=TRUE; + END; {COMPILE} + 2:FILESAVE; + 3:BEGIN + WINDOW(1,8,40,8); + WRITE('REALLY QUIT '); TEXTCOLOR(C_SUB); WRITE('[Y/N]'); TEXTCOLOR(C_TEXT); + WRITE('> '); REPEAT C:=READKEY; UNTIL(UPCASE(C)='Y')OR(UPCASE(C)='N'); + IF UPCASE(C)='Y'THEN QUITOK:=TRUE; + END; {QUIT} + 4:EDITFILE(FALSE); {LOAD} + END; {HANDLE} + UNTIL(III>=4)OR(QUITOK); +END; {EDITQUIT} + BEGIN - {M 16384,0,655360} {$M 16384,0,655360} MAINTITLE; TITLEBAR(0,'LOADING WORMEDIT...'); TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': WORMEDIT STARTED'); @@ -1475,8 +1557,8 @@ BEGIN WRITELN(' NOT FOUND!'); USEMOUSE:=FALSE; REPEAT UNTIL KEYPRESSED; END; {NO_MOUSE} TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS'); - EDITFILE; REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE; + EDITFILE(TRUE); REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE; WINDOW(1,1,80,25); TEXTCOLOR(7); TEXTBACKGROUND(0); CLRSCR; - WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.95 BY SHIAR'); + WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.5 BY SHIAR'); TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN; END. \ No newline at end of file