X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/61a9cc74b83fcbc7593fe8b89d27a6daa42c1c6a..e10286b262c2acafc73f909a0c20e0915774f0d2:/wormedit.pas diff --git a/wormedit.pas b/wormedit.pas index d56ea6b..35e496a 100644 --- a/wormedit.pas +++ b/wormedit.pas @@ -1,5 +1,5 @@ -{WORMEDIT 0.5 OR SOMETHING... BY SHIAR - ---------------------------------w00t} +{WORMEDIT 0.51 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} @@ -50,10 +50,12 @@ CONST GAMETYPE:ARRAY[1..9]OF STRING[12] = HEAD86S:STRING[53] = ('**TI86**'+#$1A+#$A+#0+ {HEADER} - 'Wormyá95 Levelfile made using WormEdit 0.5'); {COMMENT} + 'Wormy.97 Levelfile made using WormEdit0.51'); {COMMENT} HEADEDIT = ('WormEditá95'+#0+'LVL'); HEADVERSION = 95; + HEADOUTVERSION = 97; + PC = $F080; {F400} B:RECORD HEAD:ARRAY[1..15]OF CHAR; @@ -90,6 +92,7 @@ CONST GAMETYPE:ARRAY[1..9]OF STRING[12] = LVLPOS:BYTE = 1; OBJPOS:BYTE = 1; + BBPOS :BYTE = 1; C_BAR = 15; CB_BAR = 1; @@ -127,7 +130,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.5á'); TEXTBACKGROUND(CB_TEXT); + GOTOXY(74,1); TEXTCOLOR(0); WRITE('v0.51á'); TEXTBACKGROUND(CB_TEXT); END; {MAINTITLE} PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER); @@ -402,7 +405,7 @@ BEGIN END; {DISP1MAP} PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER); -VAR M1,M2:BOOLEAN; +VAR M1,M2,M3:BOOLEAN; MXX,MYY:WORD; XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER; BEGIN @@ -418,8 +421,9 @@ BEGIN 2:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-4; YMIN:=2; YMAX:=L[II].FIELDY-4; END; {FATTY} 3:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-1; YMIN:=2; YMAX:=L[II].FIELDY-2; - IF OBJSUB=0THEN YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1 - ELSE YMIN:=L[II].OBJ[OBJ].Y1+1; + IF OBJSUB=0THEN BEGIN + IF L[II].OBJ[OBJ].Y2<>0THEN YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1 + END {X1,Y1} ELSE YMIN:=L[II].OBJ[OBJ].Y1+1; END; {BOX} 4:BEGIN XMIN:=0; IF OBJSUB=0THEN BEGIN @@ -436,23 +440,21 @@ BEGIN REPEAT PPDISPOBJ(OBJ,0); IF USEMOUSE THEN BEGIN - REPEAT GETMOUSEPOS(MX,MY,M1,M2); - UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(KEYPRESSED); + REPEAT GETMOUSEPOS(MX,MY,M1,M2); M3:=KEYPRESSED; + UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(M3); MXX:=MX; MYY:=MY; MX:=MX SHR 1; - IF KEYPRESSED THEN BEGIN C:=READKEY; - IF(C=#13)OR(C=' ')THEN M1:=TRUE; IF(C=#27)OR(C='+')THEN M2:=TRUE; - END; {KEYS} - END {MOUSE} ELSE BEGIN - REPEAT UNTIL KEYPRESSED; C:=READKEY; + END; {MOUSE} + IF M3 THEN BEGIN + C:=READKEY; IF(C=#13)OR(C=' ')THEN M1:=TRUE ELSE M1:=FALSE; IF(C=#27)OR(C='+')THEN M2:=TRUE ELSE M2:=FALSE; IF C='2'THEN INC(MY); {DOWN} IF C='8'THEN DEC(MY); {UP} IF C='4'THEN DEC(MX); {L} IF C='6'THEN INC(MX); {R} - IF C=#0THEN BEGIN C:=READKEY; - IF C=#80 THEN INC(MY); {DOWN} IF C=#72 THEN DEC(MY); {UP} - IF C=#75 THEN DEC(MX); {L} IF C=#77 THEN INC(MX); {R} + IF C=#0 THEN BEGIN C:=READKEY; + IF C=#80 THEN INC(MY); {DOWN} IF C=#72 THEN DEC(MY); {UP} + IF C=#75 THEN DEC(MX); {L} IF C=#77 THEN INC(MX); {R} END; {EXTENDED} - END; {KEYB} + END; {KEYPRESSED} IF NOT M1 THEN BEGIN IF MXXMAX THEN MX:=XMAX; IF MYYMAX THEN MY:=YMAX; @@ -502,8 +504,9 @@ BEGIN 2:WRITE('YOU UNDERSTAND EVERYTHING'); 3:WRITE('THIS AIN''T A BUG, IT A FEATURE!'); 4:WRITE('ALL YOUR WORMS ARE BELONG TO US!'); - 5:WRITE('PRESS UP AND DOWN TO VIEW ALL LEVELS'); - 6:WRITE('PRESS UP AND DOWN TO VIEW ALL OBJECTS'); + 5:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL LEVELS'); + 6:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL OBJECTS'); + 8:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL BOUNCIES'); END; {TEXT TO DISPLAY} END; {HELPBAR} @@ -519,6 +522,7 @@ BEGIN IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE); WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT); END; {DISP LEVELS} + WINDOW(2,3,3,20); END; {DISPLEVELS} PROCEDURE DISPOBJECTS; @@ -537,8 +541,21 @@ BEGIN END; {TYPE} END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT); END; {DISP OBJS} + WINDOW(2,3,3,20); END; {DISPOBJECTS} +PROCEDURE DISPBOUNCIES; +BEGIN + WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR; + IF L[II].NRBALLS<1THEN WRITELN('NONE') + ELSE FOR I4:=BBPOS TO MIN(L[II].NRBALLS,BBPOS+9)DO BEGIN + WRITE(I4); TEXTCOLOR(C_VALUE); + WRITE(': (',L[II].BALLS[I4].X,',',L[II].BALLS[I4].Y,'),',L[II].BALLS[I4].D); + TEXTCOLOR(C_TEXT); + END; {DISP OBJS} + WINDOW(2,3,3,20); +END; {DISPLEVELS} + FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT; VAR EDITOK,MENUPOS:SHORTINT; BEGIN @@ -568,32 +585,30 @@ BEGIN END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN IF(C=#77)AND(OBJPOS1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE - END; {OBJS DISPED} + END {OBJS DISPED} ELSE IF HELPPAGE=6THEN BEGIN + IF(C=#77)AND(BBPOS1)THEN BEGIN DEC(BBPOS); DISPBOUNCIES; END {L} ELSE + END; {BOUNCIES DISPED} IF C=#59THEN HELPBAR(HELPPAGE); END; {EXTENDED} UNTIL EDITOK<>0; EDITMENU:=EDITOK; TEXTCOLOR(C_TEXT); END; {EDITMENU} FUNCTION COMPSIZE:WORD; -PROCEDURE COMPLEVEL; -BEGIN - INC(I,L[II].SIZE); - FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(I,5); -END; {SIZE OF LEVEL II} BEGIN I:=B.SPRSIZE+1; - 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[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); {SP} + IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(I,L[II].SIZE); {MP} IF B.LFROM[8]>0THEN - FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO COMPLEVEL; {RACE} + FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO INC(I,L[II].SIZE); {RACE} IF B.LFROM[9]>0THEN - FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]DO COMPLEVEL; {CTF} + FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]DO INC(I,L[II].SIZE); {CTF} {MAKE SP_END CODE} CASE B.ENDTYPE OF - 1:B.ENDDATA:=#$21+CHR(LO($F40A+I))+CHR(HI($F40A+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0; + 1:B.ENDDATA:=#$21+CHR(LO(PC+10+I))+CHR(HI(PC+10+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0; {LD HL,MSG\CALL _PUTS\JP _GETKEY\.DB MSG} - 2:B.ENDDATA:=#$21+#0+#$1C+#$22+#$7C+#$C3+#$21+CHR(LO($F410+I))+CHR(HI($F410+I)) + 2:B.ENDDATA:=#$21+#0+#$1C+#$22+#$7C+#$C3+#$21+CHR(LO(PC+16+I))+CHR(HI(PC+16+I)) +#$CD+#$A5+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0; {LD HL,X\LD (_PENCOL),HL\LD HL,MSG\CALL _VPUTS\JP _GETKEY\.DB MSG} ELSE B.ENDDATA:=#$C9; {RET} @@ -877,7 +892,10 @@ BEGIN 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); + L[II].OBJ[I].Y2:=0; MAPOBJ(I,0); + IF L[II].OBJ[I].TYP=3THEN BEGIN + L[II].OBJ[I].X2:=L[II].OBJ[I].X1; L[II].OBJ[I].Y2:=1; + END; {BOX} MAPOBJ(I,1); END; {CREATE} 5:BEGIN I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ); @@ -950,7 +968,7 @@ END; {EDITSPR} PROCEDURE EDITBOUNCIES; BEGIN REPEAT - TITLEBAR(0,'EDIT BALLS IN LEVEL #'+NR(II)); + TITLEBAR(8,'EDIT BALLS IN LEVEL #'+NR(II)); TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE BALL'); TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE BALL'); FOR III:=1TO L[II].NRBALLS DO BEGIN @@ -1064,6 +1082,7 @@ PROCEDURE EDITLEVEL; BEGIN REPEAT L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5; + FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(L[II].SIZE,5); IF II<=B.LSINGLE THEN L[II].NAME:=ZERO(II,2); IF II>B.LSINGLE THEN INC(L[II].SIZE,10+LENGTH(L[II].NAME)); IF II>B.LSINGLE+B.LMULTI THEN INC(L[II].SIZE,2); @@ -1115,7 +1134,7 @@ BEGIN L[II].FIELDY:=INPUTINT('ENTER FIELD HEIGHT','57=ONE SCREEN; MORE WILL SCROLL THE SCREEN',5,L[II].FIELDY,255); IF L[II].FIELDY<57THEN BEGIN INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=2; - L[II].OBJ[L[II].NROBJ].Y2:=255-L[II].FIELDY; + L[II].OBJ[L[II].NROBJ].Y2:=257-L[II].FIELDY; L[II].OBJ[L[II].NROBJ].X2:=L[II].FIELDX-1; L[II].OBJ[L[II].NROBJ].TYP:=3; L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY; END; {PUT BAR} @@ -1422,7 +1441,7 @@ BEGIN DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)} C:='w'; BLOCKWRITE(FF,C,1); {WORM ID} - I:=HEADVERSION; BLOCKWRITE(FF,I,1); {VERSION} + I:=HEADOUTVERSION; BLOCKWRITE(FF,I,1); {VERSION} I:=0; BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE} BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0} BLOCKWRITE(FF,B.DESC[1],ORD(B.DESC[0])); {DESCRIPTION} BLOCKWRITE(FF,I,1); @@ -1436,7 +1455,7 @@ BEGIN DO I:=I+L[II].SIZE; BLOCKWRITE(FF,I,2); {SIZE} - I2:=0; I:=$F401+B.SPRSIZE; + I2:=0; I:=PC+1+B.SPRSIZE; IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0])); @@ -1569,6 +1588,6 @@ BEGIN TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS'); 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.5 BY SHIAR'); + WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.51 BY SHIAR'); TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN; END. \ No newline at end of file