+{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
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;
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.95'); 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);
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 DISPMANYMAP(MAG:BYTE);
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);
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;
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<EDITMENUMAX)THEN BEGIN
+ TEXTCOLOR(C_TEXT); GOTOXY(1,MENUPOS); WRITE(': ');
+ INC(MENUPOS); TEXTCOLOR(C_MENU); GOTOXY(1,MENUPOS); WRITE('>>');
+ 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(LVLPOS<B.LTOTAL-9)THEN BEGIN INC(LVLPOS); DISPLEVELS; END {DOWN} ELSE
- IF(C=#72)AND(LVLPOS>1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {UP} ELSE
+ IF(C=#77)AND(LVLPOS<B.LTOTAL-9)THEN BEGIN INC(LVLPOS); DISPLEVELS; END {R} ELSE
+ IF(C=#75)AND(LVLPOS>1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {L} ELSE
END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
- IF(C=#80)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {DOWN} ELSE
- IF(C=#72)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {UP} ELSE
+ IF(C=#77)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {R} ELSE
+ IF(C=#75)AND(OBJPOS>1)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;
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}
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);
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}
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_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW LEVELS');
TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(9,5);
CASE III OF
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
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}
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');
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.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
git.shiar.nl / wormy.git / blobdiff