RejKaster3/maptester.pas at master · normaluser/RejKaster3 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program tester;
{$mode objFPC}     //object pascal extension on; [ or use $mode FPC or $mode DELPHI ]
uses sysutils;

var
	k,l: integer;
	name: string;


const
map:array[0..15,0..15] of integer =((1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1),
							(1,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1),
							(1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
							(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
							(1,0,0,0,2,2,2,2,2,2,2,2,0,0,0,1),
							(1,0,0,0,2,0,0,0,0,0,0,2,0,0,0,1),
							(1,0,0,0,2,0,2,2,2,2,0,2,0,0,0,1),
							(1,0,0,0,2,0,2,3,9,2,0,2,0,0,0,1),
							(1,0,0,0,2,0,2,2,0,2,0,2,0,0,0,1),
							(1,0,0,0,2,0,2,2,0,2,0,2,0,0,0,1),
							(1,0,0,0,2,0,0,0,0,2,0,2,0,0,0,1),
							(1,0,0,0,2,2,2,2,2,2,0,2,0,0,0,1),
							(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
							(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
							(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
							(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1));

procedure generate_map();
	 var i,j: integer;
		mapfile: file of smallint;      //not integer
	 begin
		 Assign(mapfile, name);
		 rewrite(mapfile);
		 for i:=0 to 15 do begin
			 for j:=0 to 15 do begin
				 write(mapfile, map[i,j]);
			 end;
		 end;

		 {for i:=0 to 15 do begin
			write(mapfile, map[i,0],map[i,1],map[i,2],map[i,3],map[i,4],map[i,5],map[i,6],map[i,7],map[i,8],map[i,9],map[i,10],map[i,11],map[i,12],map[i,13],map[i,14],map[i,15]);
			//map[i,j]:=StrToInt(table[i,j]);
		 end;}
			Close(mapfile);
	 end;

	 begin
		 write('Enter a filename: ');
		 readln(name);
		 writeln;
		 generate_map();
			for k := 0 to 15 do begin      // show ascii map on screen
			  for l := 0 to 15 do begin
				if map[k,l] = 0 then write('  ')
				                else write(map[k,l], ' ');
				end;
				writeln;
			end;
	writeln;
end.