mysticbbs/mystic/nodespy_ansiterm.pas

76 lines
5.0 KiB
ObjectPascal
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

Procedure DrawTerminalAnsi;
Const
IMAGEDATA_WIDTH=80;
IMAGEDATA_DEPTH=25;
IMAGEDATA_LENGTH=1112;
IMAGEDATA : array [1..1112] 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,'В','Г', #8,#23,'В',' ', #0,'A','d','d','r','e','s','s',
#25,#17, #7,#16,'В','Г', #8,#23,'В',' ', #0,'L','a','s','t','C','a',
'l','l',' ', #8,#16,'В', #7,'Г', #8,#23,'В',' ', #0,'C','a','l','l',
's',' ', #8,'В',#24,#16,'л',#26,#26,'п', #1,'Г', #8,#26,#27,'п', #1,
'Г', #8,#26,#11,'п', #1,'Г', #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,#25,#27, #0,'N','o','d','e','S','p','y',' ','T','e','l',
'n','e','t',' ','D','i','r','e','c','t','o','r','y',#25,#25, #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,'I','N','S','E','R','T', #8,':',
' ', #7,'A','d','d',#25, #3,#15,'D','E','L','E','T','E', #8,':',' ',
#7,'C','l','e','a','r',#25, #3,#15,'E','S','C','A','P','E', #8,':',
' ', #7,'Q','u','i','t',#24);
Begin
Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
End;