PC-01 Lviv

“ЗАМОК” - гра для ПК-01 "Львів".

В “часи оригіналу ПК-01” ця гра мені дуже подобалась.Але коли настала “ера”
емуляторів, ПК-01 “Львів”, ця іграшка “вилетіла в трубу” в зв'язку зі
спецівкою управління. Іншими словами, клавіші в іграшці задіяні таким чином,
що в емуляторах не зручно або й навіть неможливо управляти. І ось, з
розробкою SEFA ( viewtopic.php?f=20&p=6041#p6041 ), де можна коригувати клавіатуру емулятору, (вихідний код
емулятору), під кожну іграшку окремо, я згадав цю гру та вирішив налагодити її.

Зроблені деякі правки в грі по кольору та інше. Емулятор теж “підточений” під
цю гру.
Для тих кому, не цікаві різні тонкощі запускаємо:

Замок\Delphi7.exe, - емулятор з вмонтованою іграшкою “Замок”, автозбереженням,
скомпільований Delphi7,
клавіші управління:
"2" — вниз; "4"- ліворуч; "6"- праворуч; "7" - прижок ліворуч;
"8" — вгору; "9" - прижок праворуч.
Грати потрібно на доп. клавіатурі. Хоча і не обов'язково.


Замок\FPC\_FPC_Project.exe, - емулятор з вмонтованою іграшкою “Замок”,
без автозбереження, скомпільований FPC 2.6.2,
клавіші управління:
"2" — вниз; "4"- ліворуч; "6"- праворуч; "7" - прижок ліворуч;
"8" — вгору; "9" - прижок праворуч.
Грати потрібно на доп. клавіатурі. Хоча і не обов'язково.


папка “ForMOB” - для компіляції в PascalGUI в мобільному, без автозбереження,
клавіші управління:
“4” - прижок ліворуч; “5” - вгору; “6” - прижок праворуч;
“7” - ліворуч; “8” - вниз; “9” - праворуч
Грати потрібно на доп. клавіатурі. Хоча і не обов'язково.


Для тих кому цікаві тонкощі:

Налаштування клавіш в вихідних файлах:

Для Delphi7:
Delphi7\uFORM\uFORM.pas (функція readmask):
...............
{Коригування ЗАМОК}
case keynum of
//{"1"}97:
{"2"}98:keynum:=188;{<}{вниз}
{"4"}100:keynum:=76;{L}{ліворуч}
{"6"}102:keynum:=88;{X}{праворуч}
{"7"}103:keynum:=66;{B}{прижок ліворуч}
{"8"}104:keynum:=190;{>}{вгогру}
{"9"}105:keynum:=77;{M}{прижок праворуч}
end;



Для FPC (2.6.2):
Замок\Program\Emulator\uEmulator_Keyboard.pas (процедура KeyboardProcessing)
..........
{Коригування ЗАМОК}
case ch1 of
{2}50:tmp1KeyStr:=#67;{<}{вниз}
{4}52:tmp1KeyStr:=#51;{L}{ліворуч}
{6}54:tmp1KeyStr:=#64;{X}{праворуч}
{7}55:tmp1KeyStr:=#65;{B}{прижок ліворуч}
{8}56:tmp1KeyStr:=#55;{>}{вгору}
{9}57:tmp1KeyStr:=#61;{M}{прижок праворуч}
end;



ДляPascalGUI (4.0.7):
Замок\Program\Emulator\uEmulator_Keyboard.pas (процедура KeyboardProcessing)
..........
{Коригування ЗАМОК}
case ch1 of
{4}52:tmp1KeyStr:=#65;{B}{прижок ліворуч}
{5}53:tmp1KeyStr:=#55;{>}{вгору}
{6}54:tmp1KeyStr:=#61;{M}{прижок праворуч}
{7}55:tmp1KeyStr:=#51;{L}{ліворуч}
{8}56:tmp1KeyStr:=#67;{<}{вниз}
{9}57:tmp1KeyStr:=#64;{X}{праворуч}
end;

Звернув увагу, що по закінченні спроб, відбувається вихід з гри в Бейсік і щоб заново почати
гру требу запускати “RUN”. Я наче було виправляв таку ситуацію, але мабуть файли зплутав,
а виправлений десь подівався. Виправляю.
Там, по суті, строку:
3330 IFJZ<1THENEND
треба виправити на:
3330 IFJZ<1THEN RUN

===============

Строка:
700 POKE48696,240:CLS:DIMT(255),XX(16),YY(16):T(251)=1:T(191)=2:T(253)=3:T(239)=4:
T(127)=5:T(247)=6:X=15:Y=18:L=16:JZ=6:LOCATE0,22:PRINT"жжжжжж":COLOR1,4,0
виправлена мною, убрано в кінці строки “COLOR1,4,0”
строка:
600 OUT 193,140
додана мною, так як попередній колір (COLOR1,4,0) мені не подобався.

Delphi7.exe — запускав на копіляцію C_FPC2.6.2fi_.Bat, - випралено.

Папки архіву
_UNITS
AutoSave
Delphi7
ForMOB
FPC
PascalGUI
Program
"Замок(Мої правки)"
"Замок(Оригинал)"
"Карта к?мнати"
"Оцифровка з касети"

ого жеесть який я старий цікава гра була в свій час

_________________
https://radiowave.com.ua/