From 3acdd88c17c6453c5b58569dfeb76c981c5655c6 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sat, 22 Sep 2012 20:42:37 -0400 Subject: [PATCH] Initial import --- mystic/nodespy_ansiterm.pas | 76 +++++++++++++++++++++++++++++++++++++ 1 file changed, 76 insertions(+) create mode 100644 mystic/nodespy_ansiterm.pas diff --git a/mystic/nodespy_ansiterm.pas b/mystic/nodespy_ansiterm.pas new file mode 100644 index 0000000..cd78020 --- /dev/null +++ b/mystic/nodespy_ansiterm.pas @@ -0,0 +1,76 @@ +Procedure DrawTerminalAnsi; +Const + IMAGEDATA_WIDTH=80; + IMAGEDATA_DEPTH=25; + IMAGEDATA_LENGTH=1134; + IMAGEDATA : array [1..1134] of Char = ( + #1,#16,'Ü','Ü',#25,#10, #8,'Ü','Ü',#25, #3, #7,'°', #0,#23,'²',#16, + #25,#23, #9,#26, #4,'Ü',#25, #9,#14,'±','Û','±', #7,'°', #0,#23,'²', + #16,#25, #8, #7,'°', #0,#23,'²', #8,#16,'g','j','!',#24,' ', #9,#17, + 'Þ',#16,'Û',#17,'Ü', #1,#16,'Ü',#25, #4, #8,'þ',' ','ß',' ',' ','Ý', + ' ', #1,'°','°', #9,'°',#17,'Þ',#11,#16,'Û','Û', #9,#17,'Û','Ý',#16, + #25, #5, #8,'Ý',#25, #5,#11,#17,'Ü', #9,#16,#26, #3,'Ü', #1,'Ü', #9, + 'Ü','Û',#11,'Û','Û', #9,'Û',#11,'Û', #9,#26, #3,'Ü',#14,'ß',' ','ß', + 'ß','Û',#15,'Û','Û',#14,'Û','Û','Û','²','ß','ß', #1,'Ü', #9,#26, #4, + 'Ü',#17,'Ü','Û','Û','Ü', #1,#16,'Ü',#24,' ', #9,'°','Û',#11,'Û','Û', + #9,#17,'Ü', #1,#16,'Ü',#25, #5, #8,'Ü','ß', #1,'Ü', #9,#17,'Ü','Û', + 'Û','Û','Þ','Û','Û','Û','Ý',#16,' ', #8,#23,'²',#16,'ß','ß',' ',' ', + 'ß',' ',' ', #1,'Ü', #9,#17,'Ü',#16,#26, #5,'Û','²','°',#17,'ß',#16, + #26, #4,'Û',#17,#26, #3,'ß',#16,#25, #3,#14,'Ü',#26, #3,'Û','²','Ü', + #1,'ß', #9,'Û','Û',#11,'Û','Û', #9,'Û',#11,'Û', #9,#26, #4,'Û','±', + #8,'þ',#24,#11,#23,'ß',#16,' ', #9,'²',#26, #3,'Û',#17,'Ü', #1,#16, + 'Ü', #8,'ß','Û',#23,'²',#16,'ß', #1,'Ü', #9,#17,'Û','Û',#11,#16,'Û', + #9,#17,'Û','Û',#16,'²',#17,'Þ','Û','Û','Û','Ý',#16,' ', #8,#17,'²', + #16,' ', #9,#17,'Þ','Û','Û','Û','²','±','²',#16,'Û','Û','Û',#17,'Ü', + #1,#16,'Ü',' ',' ', #8,'Ü','Ü',' ', #9,'²','Û','Û','Û','²',' ', #8, + 'Ü',' ', #9,'Ü','Ü','Ü',' ',#14,'ß','ß', #9,#26, #4,'Ü',#14,'ß','ß', + #1,'Þ', #9,'Û',#17,'²',#16,' ', #8,'Ü','Ü',' ', #1,'Ü', #9,'Û','Û', + 'Û', #1,'Ý', #8,'Þ',#24,#23,'²',#16,' ', #9,'±',#17,'²','²','²',#16, + 'Û','ß',#17,'ß','Û',#16,'Ü','Ü',#17,'Û','ß',#16,'ß',#17,'Û','²','²', + '²',#16,'±', #1,'Þ', #9,'²',#17,'²','²','²', #1,#16,'Ü',' ',' ', #9, + #17,'Þ','²','²','²','±',#16,' ', #1,'ß', #9,#17,'ß',#16,'Û','Û',#17, + '²','²','±','°', #1,#16,'Ü', #8,'ß',' ', #9,#17,'°','²','²','²','°', + #16,' ', #8,#17,'²',#16,' ', #9,#17,'²','²','Ü','±','°',#16,' ',#11, + 'Û','Û', #9,'Û','Û','²','°','²',#17,'²','²','±',#16,' ', #8,'²',' ', + #1,'Þ', #9,'²',#17,'²','²','°',#16,' ', #8,#23,'²',#24,#16,'ß',' ', + #1,'Û', #9,#17,'°','°','°', #1,#16,'Û',' ',' ','ß', #9,#17,'ß','ß', + #1,#16,'ß',' ',' ','Û', #9,#17,'°','°','°', #1,#16,'Û',' ','ß', #9, + #17,#26, #3,'°', #1,#16,'Û','Ü','Û', #9,#17,'°','°','°', #1,#16,'Û', + ' ', #8,'ß',' ',' ', #1,'ß','ß', #9,#17,#26, #3,'°', #1,#16,'Û',' ', + 'Û', #9,#17,'°','°','°', #1,#16,'Û','Ý', #8,'±',' ', #9,#17,#26, #3, + '°', #1,#16,'Û', #9,'°',#17,#26, #3,'²',#16,'²', #1,'Û', #9,'±',#17, + '°','°','°', #1,#16,'Ý', #8,'ß',' ', #9,#17,'°','°','°', #1,#16,'Û', + #9,'°',' ', #8,#17,'²',#24, #1,#16,'°','°','²',#26, #3,'Û',' ', #8, + #17,'²',#16,#26, #3,'Ü','²',' ', #1,#26, #4,'Û',' ', #8,'±','Ü',' ', + #1,#26, #3,'ß',#26, #3,'Û','²',#26, #9,'Û','²','±',' ','ß',#26, #3, + 'Û','Ü','Ü',#26, #4,'Û', #9,'±',#17,#26, #4,'°',#16,' ', #1,'ß',#26, + #3,'Û',#26, #4,'Ü',' ', #8,'Ü','Ü','Û',#24,'Ü','Ü','þ',' ', #1,'ß', + 'ß','²',' ', #8,'±',' ',' ','°','°','²',#26, #6,'Ü','²',#26, #4,'ß', + ' ', #1,'²','Û','Û','Û',' ','²','²','²','Û','Û','Û','²',#26, #3,'ß', + ' ', #8,'Þ','Ü','Ü',' ', #1,#26, #7,'ß',' ',' ',#26, #4,'ß',#25, #3, + #26, #6,'ß',' ', #8,'Ý','°','°',#24,#25, #7,'°',#25,#11,'Ý',#25, #5, + #1,'°','°',#25,#10, #8,'þ',#25, #3,'Þ',#26,#12,'ß',' ','ß',#25, #2, + #15,'N', #7,'o','d','e',' ',#15,'S', #7,'p','y',#25, #2, #8,'ß','Ü', + #24, #7,'Ü',#15,#26,#25,'Ü', #7,'Ü',' ','Ü',#15,#26,#25,'Ü', #7,'Ü', + ' ','Ü',#15,#26, #9,'Ü', #7,'Ü',' ','Ü',#15,#26, #6,'Ü', #7,'Ü',#24, + #8,#23,'²',' ', #0,'S','y','s','t','e','m',' ','N','a','m','e',#25, + #13, #7,#16,'²',#15,'³', #8,#23,'²',' ', #0,'A','d','d','r','e','s', + 's',#25,#17, #7,#16,'²',#15,'³', #8,#23,'²',' ', #0,'L','a','s','t', + 'C','a','l','l',' ', #8,#16,'²',#15,'³', #8,#23,'²',' ', #0,'C','a', + 'l','l','s',' ', #8,'²',#24,#16,'Û',#26,#26,'ß', #9,'³', #8,#26,#27, + 'ß', #9,'³', #8,#26,#11,'ß', #9,'³', #8,#26, #7,'ß','Û',#24,'Ý',#25, + 'M','Þ',#24,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,'Ý',#25,'M', + 'Þ',#24,'Ý',#25,'M','Þ',#24,#15,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M', + 'Þ',#24,#15,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,'²',#26,'M','Ü', + '²',#24, #7,'°',#23,' ', #0,'D','e','f','a','u','l','t',' ','N','o', + 'd','e','S','p','y',' ','P','h','o','n','e',' ','B','o','o','k',#25, + #27,'%',' ', #8,#16,#26, #9,'°',#23,' ', #0,'(',#25, #2,'/','2','0', + '0',')',' ', #7,#16,'°',#24,' ', #8,#26,'M','ß',#24,#25, #2,#15,'E', + 'N','T','E','R', #8,':',' ', #7,'C','a','l','l',#25, #3,#15,'A','L', + 'T','+','E', #8,':',' ', #7,'E','d','i','t',#25, #3,#15,'A','L','T', + '+','S', #8,':',' ', #7,'S','o','r','t',#25, #3,#15,'I','N','S','E', + 'R','T', #8,':',' ', #7,'N','e','w',#25, #3,#15,'D','E','L','E','T', + 'E', #8,':',' ', #7,'R','e','m','o','v','e',#24); +Begin + Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1); +End; \ No newline at end of file