Board.KolibriOS.org

Official KolibriOS board
It is currently Tue Sep 29, 2020 7:52 am

All times are UTC+03:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
 Post subject: Hackers World - text RPG
PostPosted: Wed May 20, 2020 9:21 pm 
Offline
User avatar

Joined: Wed Mar 18, 2015 8:22 am
Posts: 305
Всем привет!
Решил всё-таки кодить, и вдохновение подсказало безбашенную идею -
запилить игру про хакеров.
Причём реально хакерскую: никакого GUI, только командная строка!
Весь этот код был напечатан за несколько дней на Pascal ABC NET (слыхали про такой?).
У меня два вопроса к комьюнитиЖ
1) Идея годная?
2) Как это переписать на Oberon 07?

Ниже код этой задумки
Code:
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.


Attachments:
File comment: Вирусов нет, скомпилировано мной лично
HWport console.rar [12.84 KiB]
Downloaded 32 times

_________________
Гордон Фримен - я из прошлого :D
Top
   
PostPosted: Mon Jun 22, 2020 2:26 am 
Offline
User avatar

Joined: Tue May 08, 2007 12:44 am
Posts: 353
С горячей версией SDK получилось скомпилировать исходник с небольшими правками. Процедуры ввода-вывода в CRT пока нестандартные, но игра работает. Новая версия SDK пока задерживается.


Attachments:
HackersWorld.7z [3.21 KiB]
Downloaded 22 times
Top
   
PostPosted: Wed Jun 24, 2020 9:07 pm 
Offline
User avatar

Joined: Wed Mar 18, 2015 8:22 am
Posts: 305
Freeman wrote:
С горячей версией SDK получилось скомпилировать исходник с небольшими правками. Процедуры ввода-вывода в CRT пока нестандартные, но игра работает. Новая версия SDK пока задерживается.

Слушай, документацией поделишься? Спасибо за порт!

_________________
Гордон Фримен - я из прошлого :D


Top
   
PostPosted: Sun Jun 28, 2020 8:41 pm 
Offline
User avatar

Joined: Tue May 08, 2007 12:44 am
Posts: 353
Документацией на что? Описаний CRT навалом в Интернете. Мы сделали его максимально приближенным к оригиналу, взяв за образец версию от FreePascal. Все консольные функции Колибри реализованы.

Как пользоваться SDK — в Readme, стоит только руку протянуть.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 4 posts ] 

All times are UTC+03:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited