rg: console.pas annotate

author	Radomir Dopieralski <sheep-devel@sheep.art.pl>
date	Sun, 08 Dec 2013 19:39:15 +0100
parents
children

rev	line source
0 62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	1 { Display and input routines. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	2
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	3 UNIT Console;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	4
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	5 INTERFACE
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	6
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	7 USES Porting;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	8
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	9 CONST MSGCOL:BYTE=6; { Default messages color. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	10
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	11 PROCEDURE Msg(m:STRING); { Displays string as a message on the right of the screen. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	12 PROCEDURE Txt(m:STRING); { Displays string as a text on the left of the screen. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	13 PROCEDURE Stat(m:STRING); { Displays string in the upper right part of the screen. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	14 PROCEDURE PrepScr; { Prepares screen (actually does nothing) }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	15 PROCEDURE ResetScr; { Brings the screen to previous condition. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	16 PROCEDURE ClrMsg; { Clears the messages window. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	17 PROCEDURE ClrTxt; { Clears the text/map window. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	18 PROCEDURE PutChr(x,y: INTEGER; c:CHAR; a:BYTE); { Displays a character on the screen. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	19 PROCEDURE Cursor(x,y: INTEGER); { Changes cursor position. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	20
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	21 FUNCTION GetKey:CHAR; { Reads a character from keyboard. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	22 FUNCTION GetString(l:BYTE):STRING; { Allows to input a string. L sets maximum string length. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	23
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	24 FUNCTION Number(n: INTEGER):STRING; { Converts number into a string, three characters long. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	25 FUNCTION Num(n: INTEGER):STRING; { Converts number into a string. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	26 FUNCTION Replace(s,a,b:STRING):STRING; { Replaces the first occurance of A in string S with B. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	27 FUNCTION Capitalize(s:STRING): STRING; { Changes the first letter in the string to upper case. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	28 FUNCTION Plural(s:STRING):STRING; { Replaces '@s' and makes proper plural form. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	29
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	30 IMPLEMENTATION
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	31
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	32 VAR nnl: BOOLEAN; { No new line -- should next msg change line? }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	33 line,txtline: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	34
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	35 FUNCTION Capitalize(s:STRING):STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	36 VAR t: STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	37 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	38 IF s='' THEN Exit;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	39 t:=s;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	40 t[1]:=UpCase(t[1]);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	41 Capitalize:=t;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	42 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	43
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	44 FUNCTION Plural(s:STRING):STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	45 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	46 s:=Replace(s, 'y@s' , 'ies' );
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	47 s:=Replace(s, 'fe@s', 'ves' );
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	48 s:=Replace(s, 'ff@s', 'ves' );
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	49 s:=Replace(s, 'ex@s', 'icies');
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	50 s:=Replace(s, 'va@s', 'vae' );
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	51 s:=Replace(s, 's@s' , 'ses' );
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	52 s:=Replace(s, '@s' , 's' );
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	53
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	54 Plural:=s;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	55 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	56
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	57 FUNCTION Replace(s,a,b:STRING):STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	58 VAR d: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	59 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	60 d:=Pos(a,s);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	61 Replace:=s;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	62 IF d<=0 THEN Exit;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	63 Delete(s,d,Length(a));
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	64 Insert(b,s,d);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	65 Replace:=s;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	66 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	67
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	68
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	69 PROCEDURE PutChr(x,y: INTEGER;c: CHAR; a:BYTE);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	70 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	71 IF (NOT pal_changed) THEN BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	72 IF (a=14) THEN a:=6;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	73 IF (a=13) THEN a:=14;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	74 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	75 PutChar(x,y,c,a);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	76 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	77
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	78 PROCEDURE Cursor(x,y: INTEGER);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	79 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	80 GotoXY(x,y);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	81 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	82
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	83 PROCEDURE ClrMsg;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	84 VAR x,y: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	85 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	86 FOR y:=5 TO 24 DO
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	87 FOR x:=50 TO 79 DO PutChar(x,y,' ',$07);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	88 line:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	89 nnl:=TRUE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	90 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	91
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	92 PROCEDURE Msg(m:STRING);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	93 VAR i,p: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	94 a,l: BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	95
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	96 PROCEDURE NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	97 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	98 IF line>=19 THEN ScrollWin(50,5,79,24)
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	99 ELSE Inc(line);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	100 i:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	101 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	102
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	103 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	104 IF NOT nnl THEN NewLine ELSE BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	105 FOR i:=50 TO 79 DO PutChar(i,line+5,' ',MSGCOL);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	106 i:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	107 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	108 nnl:=FALSE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	109 p:=1;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	110 a:=MSGCOL;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	111 l:=Length(m);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	112 REPEAT
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	113 WHILE m[p]='@' DO BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	114 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	115 CASE m[p] OF
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	116 'd': a:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	117 'b': a:=1;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	118 'g': a:=2;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	119 'c': a:=3;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	120 'r': a:=4;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	121 'p': a:=5;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	122 'o': a:=6;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	123 'w': a:=7;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	124 'D': a:=8;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	125 'B': a:=9;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	126 'G': a:=10;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	127 'C': a:=11;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	128 'R': a:=12;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	129 'P': a:=13;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	130 'O': a:=14;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	131 'W': a:=15;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	132 'm': a:=MSGCOL;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	133 'M': a:=MSGCOL XOR $08;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	134 'n': NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	135 'N': nnl:=TRUE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	136 '@': Break;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	137 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	138 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	139 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	140 IF p>l THEN Exit;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	141 IF i>29 THEN NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	142 PutChar(50+i,line+5,m[p],a);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	143 Inc(i);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	144 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	145 UNTIL FALSE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	146 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	147
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	148 PROCEDURE ClrTxt;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	149 VAR x,y: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	150 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	151 FOR y:=0 TO 24 DO
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	152 FOR x:=0 TO 49 DO PutChar(x,y,' ',$07);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	153 txtline:=-1;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	154 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	155
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	156
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	157 PROCEDURE Txt(m:STRING);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	158 VAR i,p: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	159 a,l: BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	160
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	161 PROCEDURE NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	162 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	163 IF txtline>=24 THEN ScrollWin(0,0,49,24)
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	164 ELSE Inc(txtline);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	165 i:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	166 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	167
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	168 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	169 NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	170 p:=1;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	171 a:=MSGCOL;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	172 l:=Length(m);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	173 REPEAT
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	174 WHILE m[p]='@' DO BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	175 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	176 CASE m[p] OF
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	177 'd': a:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	178 'b': a:=1;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	179 'g': a:=2;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	180 'c': a:=3;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	181 'r': a:=4;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	182 'p': a:=5;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	183 'o': a:=6;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	184 'w': a:=7;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	185 'D': a:=8;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	186 'B': a:=9;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	187 'G': a:=10;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	188 'C': a:=11;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	189 'R': a:=12;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	190 'P': a:=13;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	191 'O': a:=14;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	192 'W': a:=15;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	193 'm': a:=MSGCOL;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	194 'M': a:=MSGCOL XOR $08;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	195 'n': NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	196 '@': Break;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	197 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	198 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	199 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	200 IF p>l THEN Exit;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	201 IF i>49 THEN NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	202 PutChar(i,txtline,m[p],a);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	203 Inc(i);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	204 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	205 UNTIL FALSE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	206 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	207
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	208 FUNCTION GetString(l:BYTE):STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	209 VAR c: CHAR;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	210 s: STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	211 i: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	212 a: BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	213
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	214 PROCEDURE NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	215 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	216 IF line>=19 THEN ScrollWin(50,5,79,24)
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	217 ELSE Inc(line);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	218 i:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	219 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	220
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	221 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	222 IF l=0 THEN Exit;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	223 IF l>30 THEN l:=30;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	224
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	225 IF NOT nnl THEN NewLine ELSE BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	226 FOR i:=50 TO 79 DO PutChar(i,line+5,' ',MSGCOL);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	227 i:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	228 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	229
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	230
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	231 a:=MSGCOL XOR $08;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	232 nnl:=TRUE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	233
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	234 s:='';
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	235 i:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	236 REPEAT
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	237 GotoXY(50+i,line+5);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	238 c:=GetKey;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	239 IF (i<l) AND (c>=' ') AND (c<#127) THEN BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	240 s:=Concat(s,c);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	241 PutChar(50+i,line+5,c,a);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	242 Inc(i);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	243 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	244 IF c=KEYCHR_BS THEN BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	245 IF i>0 THEN Dec(i);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	246 PutChar(50+i,line+5,' ',a);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	247 s:=Copy(s,1,length(s)-1);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	248 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	249 UNTIL (c=KEYCHR_CR);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	250 GetString:=s;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	251 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	252
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	253 PROCEDURE Stat(m:STRING);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	254 VAR a: BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	255 i,p: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	256
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	257 PROCEDURE NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	258 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	259 ScrollWin(50,0,79,4);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	260 i:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	261 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	262
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	263 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	264 NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	265 p:=1;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	266 a:=MSGCOL;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	267 REPEAT
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	268 WHILE m[p]='@' DO BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	269 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	270 CASE m[p] OF
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	271 'd': a:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	272 'b': a:=1;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	273 'g': a:=2;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	274 'c': a:=3;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	275 'r': a:=4;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	276 'p': a:=5;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	277 'o': a:=6;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	278 'w': a:=7;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	279 'D': a:=8;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	280 'B': a:=9;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	281 'G': a:=10;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	282 'C': a:=11;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	283 'R': a:=12;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	284 'P': a:=13;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	285 'O': a:=14;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	286 'W': a:=15;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	287 'm': a:=MSGCOL;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	288 'M': a:=MSGCOL XOR $08;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	289 'n': NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	290 'v': ;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	291 '@': Break;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	292 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	293 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	294 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	295 IF i>29 THEN NewLine;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	296 PutChar(50+i,4,m[p],a);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	297 Inc(p);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	298 Inc(i);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	299 UNTIL (p>Length(m));
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	300 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	301
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	302 FUNCTION Number(n: INTEGER):STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	303 VAR s: STRING[3];
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	304 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	305 Str(n:3,s);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	306 Number:=s;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	307 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	308
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	309 FUNCTION Num(n: INTEGER):STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	310 VAR s: STRING;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	311 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	312 Str(n,s);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	313 Num:=s;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	314 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	315
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	316 PROCEDURE PrepScr;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	317 VAR x,y: INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	318 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	319 { FOR y:=0 TO 24 DO
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	320 FOR x:=0 TO 79 DO PutChar(x,y,' ',$07);}
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	321 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	322
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	323 PROCEDURE ResetScr;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	324 VAR i,x,y:BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	325 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	326 FOR y:=0 TO 24 DO FOR x:=0 TO 79 DO PutChar(x,y,' ',$07);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	327 GotoXY(0,0);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	328 ResetPal;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	329 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	330
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	331 FUNCTION GetKey:CHAR;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	332 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	333 GetKey:=GetChr;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	334 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	335
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	336 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	337 line:=0;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	338 nnl:=TRUE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	339 END.
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	340

0

62966dd383ed initial