From: Mischa Poslawsky Date: Thu, 20 Dec 2001 20:38:28 +0000 (+0100) Subject: wormedit 0.5.1C20 X-Git-Url: http://git.shiar.nl/wormy.git/commitdiff_plain/d5bfaf913bc4776654586efd74bd535eb4d9774b wormedit 0.5.1C20 --- diff --git a/wormedit.pas b/wormedit.pas index 8142810..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.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); @@ -349,7 +362,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 DISPMANYMAP(MAG:BYTE); @@ -384,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); @@ -461,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; @@ -524,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; @@ -553,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} @@ -816,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); @@ -837,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} @@ -1100,6 +1136,7 @@ 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_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW LEVELS'); TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(9,5); CASE III OF @@ -1134,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 @@ -1247,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} @@ -1510,7 +1548,6 @@ 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'); @@ -1522,6 +1559,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.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