mysticbbs/mystic/nodespy_ansi.pas

96 lines
5.9 KiB
ObjectPascal

// ====================================================================
// Mystic BBS Software Copyright 1997-2013 By James Coyle
// ====================================================================
//
// This file is part of Mystic BBS.
//
// Mystic BBS is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Mystic BBS is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Mystic BBS. If not, see <http://www.gnu.org/licenses/>.
//
// ====================================================================
Procedure DrawNodeSpyScreen;
Const
IMAGEDATA_WIDTH=80;
IMAGEDATA_DEPTH=25;
IMAGEDATA_LENGTH=1114;
IMAGEDATA : array [1..1114] 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,'Ä',' ',#15,'#', #7,'#','#',' ', #8,'Ä','Ä',' ',#15,'U', #7,'s',
'e','r',' ', #8,#26,#19,'Ä',' ',#15,'A', #7,'c','t','i','o','n',' ',
#8,#26,'$','Ä',#24,#24,#24,#24,#24,#24,#24,#26,#10,'Ä',' ',#15,'T',
#7,'o','d','a','y',' ', #8,#26, #5,'Ä',' ',#15,'T', #7,'o','t','a',
'l', #8,'Ä',' ',#15,'H', #7,'o','u','r','l','y',' ', #8,#26,#17,'Ä',
' ',#15,'W', #7,'e','e','k','l','y',' ', #8,'Ä',' ',#15,'M', #7,'o',
'n','t','h','l','y',' ', #8,#26, #3,'Ä',#24,#25, #4,#15,'C', #7,'a',
'l','l','s',#24,' ',#15,'N', #7,'e','w',' ',#15,'U', #7,'s','e','r',
's',#24,' ',#15,'M', #7,'s','g',' ',#15,'P', #7,'o','s','t','s',#24,
#25, #3,#15,'E', #7,'m','a','i','l','s',#24,' ',#15,'D', #7,'o','w',
'n','l','o','a','d','s',#24,#25, #2,#15,'U', #7,'p','l','o','a','d',
's',#25,#21, #9,'A', #7,'1','2','3','4','5','6','7','8','9','0','1',
#9,'P', #7,'1','2','3','4','5','6','7','8','9','0','1',' ',' ','S',
'M','T','W','T','F','S',' ',' ','J','F','M','A','M','J','J','A','S',
'O','N','D',#24,#24, #9,#17,'°',#25, #8,#15,'E','S','C', #7,'/',#15,
'Q','u','i','t',#25, #4,'A','R','R','O','W','S', #7,'/',#15,'S','e',
'l','e','c','t',#25, #4,'E','N','T','E','R', #7,'/',#15,'S','e','l',
'e','c','t',#25, #3,'S','P','A','C','E', #7,'/',#15,'T','e','r','m',
'i','n','a','l',#25, #6, #9,'°',#24);
Begin
Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
End;