Hack OS - text RPG
Posted: Wed May 20, 2020 9:21 pm
Всем привет!
Решил всё-таки кодить, и вдохновение подсказало безбашенную идею -
запилить игру про хакеров.
Причём реально хакерскую: никакого GUI, только командная строка!
Весь этот код был напечатан за несколько дней на Pascal ABC NET (слыхали про такой?).
У меня два вопроса к комьюнитиЖ
1) Идея годная?
2) Как это переписать на Oberon 07?
Ниже код этой задумки
Решил всё-таки кодить, и вдохновение подсказало безбашенную идею -
запилить игру про хакеров.
Причём реально хакерскую: никакого GUI, только командная строка!
Весь этот код был напечатан за несколько дней на Pascal ABC NET (слыхали про такой?).
У меня два вопроса к комьюнитиЖ
1) Идея годная?
2) Как это переписать на Oberon 07?
Ниже код этой задумки
Code: Select all
program Hack_OS_prealpha02;
uses CRT;
procedure help(var k: string);
begin
writeln(' ');
writeln('Это своеобразный порт HackerWars! Вот, держи, это команды, которые помогут тебе соориентироваться:');
writeln('clearscr - если вы дезориентированы в гуще строк попробуйте эту команду!');
writeln('profile - общая информация о тебе');
writeln('web - интернет, где можно найти как удачу, так и беду');
writeln(' ');
write('>user: ');
end;
procedure clearscr(var k: string);
begin
ClrScr;
write('>user: ');
end;
procedure web(var k: string);
begin
writeln('this is NET');
writeln(' ');
write('>user: ');
end;
procedure profile(var k: string);
begin
writeln('Ник (клан)');
writeln('Уровень: xxxxx');
writeln('Опыт: xxxx of xxxx');
Writeln('Деньги: xxxx');
Writeln('CryptoMoney: xxxx');
Writeln('Action: xxxx');
Writeln('Мотивация: xxxx');
writeln('----------------');
Writeln('Скилы');
writeln('');
writeln('Практика: хххх');
writeln('Теория: АА+ВВ');
writeln('Хитрость: xxxxx');
writeln('Мудрость: xxxxx');
writeln('Выносливость: 100%');
writeln('----------------');
writeln('Занятие');
writeln('');
writeln('Дела: работаешь, осталось х минут');
writeln('Ты собираешься атаковать ххххх');
writeln('До сна осталось хх часов хх минут');
writeln('');
write('>user: ');
end;
var
k, user: string;
begin
writeln('electron games presents...');
writeln('');
writeln('##### #####');
writeln('# #');
writeln('##### # ##');
writeln('# # #');
writeln('##### #####');
Delay(3000);
ClrScr;
write('Hack OS booting...');
Delay(1000);
ClrScr;
writeln('Welcome to HackOS 0.1.0!');
writeln('Вы в первый раз вошли! Настоятельно рекомендуем вам зарегистрироваться в системе');
write('>user: ');
read(user);
Writeln('Спасибо за регистрацию в системе!');
writeln('Для получения справки введите help');
writeln('');
write('>user: ');
readln(k);
while 2 > 1 do
begin
if k = 'help' then
help(k);
if k = 'profile' then
profile(k);
if k = 'web' then
web(k);
if k = 'clearscr' then
clearscr(k);
readln(k);
end;
end.