66 lines
4.3 KiB
ObjectPascal
66 lines
4.3 KiB
ObjectPascal
Procedure DrawMainMenu;
|
||
const
|
||
IMAGEDATA_WIDTH=80;
|
||
IMAGEDATA_DEPTH=25;
|
||
IMAGEDATA_LENGTH=903;
|
||
IMAGEDATA : array [1..903] of Char = (
|
||
#15,#16,#25,'<',#14,'В',#24, #3,'м','м',#25,#10, #8,'м','м',#25, #3,
|
||
#7,'А', #0,#23,'В',#16,#25,#23,#11,#26, #4,'м',#25, #9,#14,'Б','л',
|
||
'Б', #7,'А', #0,#23,'В',#16,#25, #8, #7,'А', #0,#23,'В', #8,#16,'g',
|
||
'j','!',#24,' ',#11,#19,'о','л','м', #3,#16,'м',#25, #4, #8,'ў',' ',
|
||
'п',' ',' ','н',' ', #3,'А', #0,#19,'В',#11,#16,'А',#19,'о',#15,'л',
|
||
'л',#11,'л','н',#16,#25, #5, #8,'н',#25, #5,#15,#23,'м',#11,#16,#26,
|
||
#3,'м', #3,'м',#11,'м','л',#15,#23,'л','л',#11,#19,'л',#15,#23,'л',
|
||
#11,#16,#26, #3,'м',#14,'п',' ','п','п','л',#15,'л','л',#14,'л','л',
|
||
'л','В','п','п', #3,'м',#11,#26, #4,'м',#19,'м',#16,'л','л',#19,'м',
|
||
#3,#16,'м',#24,' ',#11,'А',#19,'л',#15,'л','л',#11,'м', #3,#16,'м',
|
||
#25, #5, #8,'м','п', #3,'м',#11,#19,'м','л','л','л','о','л','л','л',
|
||
'н',#16,' ', #8,#23,'В',#16,'п','п',' ',' ','п',' ',' ', #3,'м',#11,
|
||
#19,'м','л','л','л',#16,'л','л',#19,'л',#16,'В','А',#19,'п',#26, #4,
|
||
'л',#26, #3,'п',#16,#25, #3,#14,'м',#26, #3,'л','В','м', #3,'п',#11,
|
||
#19,'л','л',#15,#23,'л','л',#11,#19,'л',#15,#23,'л',#11,#19,#26, #4,
|
||
'л',#16,'Б', #8,'ў',#24,#15,#23,'п',#16,' ',#11,'В',#19,#26, #3,'л',
|
||
'м', #3,#16,'м', #8,'п','л',#23,'В',#16,'п', #3,'м',#11,#19,'м','л',
|
||
#15,#23,'л',#11,#19,'л','л',#16,'В',#19,'о','л','л','л','н',#16,' ',
|
||
#8,#19,'В',#16,' ',#11,#19,'о','л','л','л',#16,'В','Б','В',#19,'л',
|
||
'л','л','м', #3,#16,'м',' ',' ', #8,'м','м',' ',#11,'В',#19,'л','л',
|
||
'л',#16,'В',' ', #8,'м',' ',#11,'м','м','м',' ',#14,'п','п',#11,#26,
|
||
#4,'м',#14,'п','п', #3,'о',#11,#19,'л','В',#16,' ', #8,'м','м',' ',
|
||
#3,'м',#11,#19,'л','л','л', #3,#16,'н', #8,'о',#24,#23,'В',#16,' ',
|
||
#11,'Б',#19,'В','В','В','л',#16,'п',#19,'п',#16,'л','м','м','л',#19,
|
||
'п',#16,'п',#19,'л','В','В','В',#16,'Б', #3,'о',#11,'В',#19,'В','В',
|
||
'В', #3,#16,'м',' ',' ',#11,#19,'о','В','В',#16,'В','Б',' ', #3,'п',
|
||
#11,#19,'п','л','л','В','В','Б','А', #3,#16,'м', #8,'п',' ',#11,#19,
|
||
'А','В','В','В',#16,'Б',' ', #8,#19,'В',#16,' ',#11,#19,'В','В','м',
|
||
'Б','А',#16,' ',#15,#23,'л','л',#11,#19,'л','л',#16,'В','А','В',#19,
|
||
'В','В','Б',#16,' ', #8,'В',' ', #3,'о',#11,'В',#19,'В','В','А',#16,
|
||
' ', #8,#23,'В',#24,#16,'п',' ', #3,'л',#11,#19,'А','А','А', #3,#16,
|
||
'л',' ',' ','п',#11,#19,'п','п', #3,#16,'п',' ',' ','л',#11,#19,'А',
|
||
'А','А', #3,#16,'л',' ','п',#11,#19,#26, #3,'А', #3,#16,'л','м','л',
|
||
#11,#19,'А','А','А', #3,#16,'л',' ', #8,'п',' ',' ', #3,'п','п',#11,
|
||
#19,#26, #3,'А', #3,#16,'л',' ','л',#11,#19,'А','А','А', #3,#16,'л',
|
||
'н', #8,'Б',' ',#11,#19,#26, #3,'А', #3,#16,'л','А',#11,#19,#26, #3,
|
||
'В',#16,'В', #3,'л',#11,'Б',#19,'А','А','А', #3,#16,'н', #8,'п',' ',
|
||
#11,#19,'А','А','А', #3,#16,'л',#11,'А',' ', #8,#19,'В',#24, #3,#16,
|
||
'А', #0,#19,'В', #3,#16,'В','л','л',#19,' ',#16,'л',' ', #8,#19,'В',
|
||
#16,#26, #3,'м','В',' ', #3,#26, #4,'л',' ', #8,'Б','м',' ', #3,#26,
|
||
#3,'п',#26,#14,'л', #0,#19,'А','Б',#16,' ', #3,'п',#26, #3,'л','м',
|
||
'м',#26, #4,'л',#11,'Б',#19,#26, #4,'А',#16,' ', #3,'п',#26, #3,'л',
|
||
#26, #4,'м',' ', #8,'м','м','л',#24,'м','м','ў',' ', #3,'п','п','В',
|
||
' ', #8,'Б',' ',' ','А','А','В',#26, #6,'м','В',#26, #4,'п',' ', #3,
|
||
'В','л','л','л','н','В', #0,#19,'А', #3,#16,'В','л','л','л','В',#26,
|
||
#3,'п',' ', #8,'о','м','м',' ', #3,#26, #7,'п',' ',' ',#26, #4,'п',
|
||
#25, #3,#26, #6,'п',' ', #8,'н','А','А',#24,#25, #7,'А',#25,#11,'н',
|
||
#25, #5, #3,'А', #0,#19,'В',#16,#25,#10, #8,'ў',#25, #3,'о',#26,#12,
|
||
'п',' ','п',#25,#13,'п','м',#24,#25,#20,'п','м','м',#25,#17,'п',' ',
|
||
'м','м','п',#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#25,#17,
|
||
#7,'V','i','s','i','t',' ',#15,'w','w','w','.','m','y','s','t','i',
|
||
'c','b','b','s','.','c','o','m',' ', #7,'f','o','r',' ','l','a','t',
|
||
'e','s','t',' ','u','p','d','a','t','e','s','!',#24,#24, #8,#26,'N',
|
||
'Ф',#24);
|
||
Begin
|
||
Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
|
||
Screen.WriteXY (1, 13, 7, strPadC('Mystic BBS Installation Utility Version ' + mysVersion, 79, ' '));
|
||
Screen.WriteXY (1, 14, 7, strPadC('Copyright (C) 1997-2012 By James Coyle. All Rights Reserved.', 79, ' '));
|
||
End;
|