219 lines
6.5 KiB
ObjectPascal
219 lines
6.5 KiB
ObjectPascal
unit ascii_arts_m;
|
|
|
|
interface
|
|
|
|
const
|
|
DigitHeight = 5;
|
|
DigitWidth = 5;
|
|
DigitsAscii: array[0..9] of array[1..DigitHeight] of string = (
|
|
(
|
|
'@@@@@',
|
|
'@ @',
|
|
'@ @',
|
|
'@ @',
|
|
'@@@@@'
|
|
),
|
|
(
|
|
' @ ',
|
|
' @@ ',
|
|
'@ @ ',
|
|
' @ ',
|
|
'@@@@@'
|
|
),
|
|
(
|
|
'@@@@@',
|
|
' @',
|
|
'@@@@@',
|
|
'@ ',
|
|
'@@@@@'
|
|
),
|
|
(
|
|
'@@@@@',
|
|
' @',
|
|
'@@@@@',
|
|
' @',
|
|
'@@@@@'
|
|
),
|
|
(
|
|
'@ @',
|
|
'@ @',
|
|
'@@@@@',
|
|
' @',
|
|
' @'
|
|
),
|
|
(
|
|
'@@@@@',
|
|
'@ ',
|
|
'@@@@@',
|
|
' @',
|
|
'@@@@@'
|
|
),
|
|
(
|
|
'@@@@@',
|
|
'@ ',
|
|
'@@@@@',
|
|
'@ @',
|
|
'@@@@@'
|
|
),
|
|
(
|
|
'@@@@@',
|
|
' @',
|
|
' @',
|
|
' @',
|
|
' @'
|
|
),
|
|
(
|
|
'@@@@@',
|
|
'@ @',
|
|
'@@@@@',
|
|
'@ @',
|
|
'@@@@@'
|
|
),
|
|
(
|
|
'@@@@@',
|
|
'@ @',
|
|
'@@@@@',
|
|
' @',
|
|
'@@@@@'
|
|
)
|
|
);
|
|
|
|
GameNameHeight = 6;
|
|
GameNameWidth = 58;
|
|
GameNameAscii: array[1..GameNameHeight] of string = (
|
|
' _____ _ _ _ _',
|
|
' / ____| | | | | | | | |',
|
|
'| | __ ___ | | | |__| | __ _ _ __ ___ ___| |_ ___ _ __',
|
|
'| | |_ |/ _ \| | | __ |/ _` | ''_ ` _ \/ __| __/ _ \ ''__|',
|
|
'| |__| | (_) |_| | | | | (_| | | | | | \__ \ || __/ |',
|
|
' \_____|\___/(_) |_| |_|\__,_|_| |_| |_|___/\__\___|_|'
|
|
);
|
|
NewGameHeight = 6;
|
|
NewGameAscii: array[1..NewGameHeight] of string = (
|
|
' _ _ _____',
|
|
'| \ | | / ____|',
|
|
'| \| | _____ __ | | __ __ _ _ __ ___ ___',
|
|
'| . ` |/ _ \ \ /\ / / | | |_ |/ _` | ''_ ` _ \ / _ \',
|
|
'| |\ | __/\ V V / | |__| | (_| | | | | | | __/',
|
|
'|_| \_|\___| \_/\_/ \_____|\__,_|_| |_| |_|\___|'
|
|
);
|
|
HighScoreHeight = 8;
|
|
HighScoreAscii: array[1..HighScoreHeight] of string = (
|
|
' _ _ _ _ _____',
|
|
'| | | (_) | | / ____|',
|
|
'| |__| |_ __ _| |__ | (___ ___ ___ _ __ ___',
|
|
'| __ | |/ _` | ''_ \ \___ \ / __/ _ \| ''__/ _ \',
|
|
'| | | | | (_| | | | | ____) | (_| (_) | | | __/',
|
|
'|_| |_|_|\__, |_| |_| |_____/ \___\___/|_| \___|',
|
|
' __/ |',
|
|
' |___/'
|
|
);
|
|
|
|
KeyInfoHeight = 8;
|
|
KeyInfoAscii: array[1..KeyInfoHeight] of string = (
|
|
' _ __ _____ __',
|
|
'| |/ / |_ _| / _|',
|
|
'| '' / ___ _ _ | | _ __ | |_ ___',
|
|
'| < / _ \ | | | | | | ''_ \| _/ _ \',
|
|
'| . \ __/ |_| | _| |_| | | | || (_) |',
|
|
'|_|\_\___|\__, | |_____|_| |_|_| \___/',
|
|
' __/ |',
|
|
' |___/'
|
|
);
|
|
|
|
ContinueHeight = 6;
|
|
ContinueWidth = 41;
|
|
ContinueAscii: array[1..ContinueHeight] of string = (
|
|
' _____ _ _ ',
|
|
' / ____| | | (_) ',
|
|
'| | ___ _ __ | |_ _ _ __ _ _ ___ ',
|
|
'| | / _ \| ''_ \| __| | ''_ \| | | |/ _ \',
|
|
'| |___| (_) | | | | |_| | | | | |_| | __/',
|
|
' \_____\___/|_| |_|\__|_|_| |_|\__,_|\___|'
|
|
);
|
|
|
|
ExitHeight = 8;
|
|
ExitWidth = 70;
|
|
ExitAscii: array[1..ExitHeight] of string = (
|
|
' ______ _ _ _ _ ___',
|
|
'| ____| (_) | | | | | |__ \',
|
|
'| |__ __ ___| |_ | |_| |__ ___ __ _ __ _ _ __ ___ ___ ) |',
|
|
'| __| \ \/ / | __| | __| ''_ \ / _ \ / _` |/ _` | ''_ ` _ \ / _ \/ /',
|
|
'| |____ > <| | |_ | |_| | | | __/ | (_| | (_| | | | | | | __/_|',
|
|
'|______/_/\_\_|\__| \__|_| |_|\___| \__, |\__,_|_| |_| |_|\___(_)',
|
|
' __/ |',
|
|
' |___/'
|
|
);
|
|
|
|
PauseHeight = 22;
|
|
PauseWidth = 76;
|
|
|
|
{ Too long strings :(, lets following linux styleguide }
|
|
PauseAscii: array[1..PauseHeight] of string = (
|
|
' _',
|
|
' | |',
|
|
' _ __ __ _ _ _ ___ ___ __| |',
|
|
' | ''_ \ / _` | | | / __|/ _ \/ _` |',
|
|
' | |_) | (_| | |_| \__ \ __/ (_| |',
|
|
' | .__/ \__,_|\__,_|___/\___|\__,_| ',
|
|
' | | ',
|
|
' |_| _ _',
|
|
' | | (_)',
|
|
' ___ _ __ __ _ __ ___ ______ ___ ___ _ __ | |_ _ _ __ _ _ ___',
|
|
'/ __| ''_ \ / _` |/ __/ _ \ |______| / __/ _ \| ''_ \| __| | ''_ \| | | |/ _ \',
|
|
'\__ \ |_) | (_| | (_| __/ | (_| (_) | | | | |_| | | | | |_| | __/',
|
|
'|___/ .__/ \__,_|\___\___| \___\___/|_| |_|\__|_|_| |_|\__,_|\___|',
|
|
' | |',
|
|
' |_| _ _ _',
|
|
' (_) | | |',
|
|
' __ _ ______ __ _ _ _ _| |_ | |_ ___ _ __ ___ ___ _ __ _ _',
|
|
' / _` | |______| / _` | | | | | __| | __/ _ \ | ''_ ` _ \ / _ \ ''_ \| | | |',
|
|
'| (_| | | (_| | |_| | | |_ | || (_) | | | | | | | __/ | | | |_| |',
|
|
' \__, | \__, |\__,_|_|\__| \__\___/ |_| |_| |_|\___|_| |_|\__,_|',
|
|
' | | | |',
|
|
' |_| |_|'
|
|
);
|
|
|
|
|
|
YesHeight = 6;
|
|
YesAscii: array[1..YesHeight] of string = (
|
|
' _ _ ___ ___',
|
|
'| | | |/ _ \/ __|',
|
|
'| |_| | __/\__ \',
|
|
' \__, |\___||___/',
|
|
' __/ |',
|
|
' |___/'
|
|
);
|
|
|
|
NoHeight = 4;
|
|
NoWidth = 13;
|
|
NoAscii: array[1..NoHeight] of string = (
|
|
' _ __ ___',
|
|
'| ''_ \ / _ \',
|
|
'| | | | (_) |',
|
|
'|_| |_|\___/'
|
|
);
|
|
|
|
|
|
|
|
HamsterHeight = 5;
|
|
HamsterWidth = 7;
|
|
HamsterStayAscii: array[1..HamsterHeight] of string = (
|
|
' (\_/)',
|
|
'( 0_0 )',
|
|
'/-----\',
|
|
' |___|',
|
|
' / \'
|
|
);
|
|
HamsterGGAscii: array[1..HamsterHeight] of string = (
|
|
' (\_/)',
|
|
'( G_G )',
|
|
'/-----\',
|
|
' |___|',
|
|
' / \'
|
|
);
|
|
|
|
implementation
|
|
end.
|
|
|