Program: OH TOPMO3, Version: 1.1

Предыдущая тема :: Следующая тема

Автор

Сообщение

VolF
подонок

Пол:

Зарегистрирован: 25.11.2004
Сообщения: 3043
Откуда: Rammstein, GmbH

Статус: Offline

Program: OH TOPMO3, Version: 1.1, Released: 25 May 1993.
Author: Kirill Shirokov [The Future Hackers Co.], CoAuthor: Dmitry Moskovich

This program illustrates visual effect, when english combinations of characters looks like russian text. Original idea was researched by Viacheslav Slavinsky (Some years ago he wrote genius line: KACEKOB - TOPMO3).

Copyright by The Future Hackers Co., 1993 All rights reserved.

program OH_TOPMO3;
uses
CRT;
const
MHOrO_TEKCTOB = 15;
nPOPEXA = nil;
type
A_KTO_EBO_3HAET = (HO_KTO_TO_BEgb_3HAET, BCE_ETO_BECbMA_CTPAHHO);
HyMEP = Byte;
CTPOKA = String[15];
TEKCTuK = record
OHA: CTPOKA;
TOPMO3: HyMEP;
end;

TAM_ABTOMAT = ^ABTOMAT;
ABTOMAT = object
MOE_X, MOE_Y: HyMEP;
TEKCTOB_BCEBO: HyMEP;
TEKCTbl: array[1..MHOrO_TEKCTOB] of TEKCTuK;
KAKOE: HyMEP;
TOPMO3uM: HyMEP;
XPEH_EMy: TAM_ABTOMAT;
constructor BOT_EBOHOE_MECTO(X, Y: HyMEP);
procedure BOH_ETOT_XPEH
(KOMy_XPEH: TAM_ABTOMAT);
procedure ETO_CTPOKA(OHA_CAMA: CTPOKA;
EE_TOPMO3: HyMEP);
procedure BblBOg;
end;

XMblPb = object
HE_KACEKOB: A_KTO_EBO_3HAET;
KTO_TAM_CAMOE_TAKOE: TAM_ABTOMAT;
constructor Hy_HuKAK_MHE_EBO_HE_HA3BATb;
procedure B_nyTb;
procedure u_EBO_TO3E
(uMEHHO_ETO_MOXHATOE_OHO_CAMOE: TAM_ABTOMAT);
end;

procedure BAM_TEMHO;
begin
ClrScr;
end;

procedure TOPMO3HyTb(CKOKO: HyMEP);
begin
Delay(CKOKO);
end;

procedure rge_EMy_KBACuTb(EBO_X, EBO_Y: HyMEP);
begin
GoToXY(EBO_X, EBO_Y);
end;

function Wy***: Boolean;
begin
Wy***: = KeyPressed;
end;

constructor ABTOMAT.BOT_EBOHOE_MECTO(X, Y: HyMEP);
begin
MOE_X: = X;
MOE_Y: = Y;
TEKCTOB_BCEBO: = 0;
KAKOE: = 0;
TOPMO3uM: = 0;
end;

procedure ABTOMAT.BOH_ETOT_XPEH(KOMy_XPEH: TAM_ABTOMAT);
begin
XPEH_EMy: = KOMy_XPEH;
end;

procedure ABTOMAT.ETO_CTPOKA(OHA_CAMA: CTPOKA; EE_TOPMO3: HyMEP);
begin
if TEKCTOB_BCEBO < MHOrO_TEKCTOB then begin
Inc(TEKCTOB_BCEBO);
with TEKCTbl[TEKCTOB_BCEBO] do begin
OHA: = OHA_CAMA;
TOPMO3: = EE_TOPMO3;
end;
end;
end;

procedure ABTOMAT.BblBOg;
begin
if TEKCTOB_BCEBO> 0 then begin
if TOPMO3uM = 0 then begin
Inc(KAKOE);
if KAKOE> TEKCTOB_BCEBO then KAKOE: = 1;
rge_EMy_KBACuTb(MOE_X, MOE_Y);
with TEKCTbl[KAKOE] do begin
Write(OHA);
TOPMO3uM: = TOPMO3;
end;
end;
Dec(TOPMO3uM);
end;
end;

constructor XMblPb.Hy_HuKAK_MHE_EBO_HE_HA3BATb;
begin
KTO_TAM_CAMOE_TAKOE: = nPOPEXA;
HE_KACEKOB: = BCE_ETO_BECbMA_CTPAHHO;
end;

procedure XMblPb.u_EBO_TO3E
(uMEHHO_ETO_MOXHATOE_OHO_CAMOE: TAM_ABTOMAT);
begin
if KTO_TAM_CAMOE_TAKOE = nPOPEXA then begin
KTO_TAM_CAMOE_TAKOE: = uMEHHO_ETO_MOXHATOE_OHO_CAMOE;
uMEHHO_ETO_MOXHATOE_OHO_CAMOE^.XPEH_EMy: = uMEHHO_ETO_MOXHATOE_OHO_CAMOE;
end
else begin
uMEHHO_ETO_MOXHATOE_OHO_CAMOE^.XPEH_EMy: = KTO_TAM_CAMOE_TAKOE^.XPEH_EMy;
KTO_TAM_CAMOE_TAKOE^.XPEH_EMy: = uMEHHO_ETO_MOXHATOE_OHO_CAMOE;
end;
end;

procedure XMblPb.B_nyTb;
var
ETOT_PAXuT: TAM_ABTOMAT;
begin
ETOT_PAXuT: = KTO_TAM_CAMOE_TAKOE;
while not Wy*** do
with ETOT_PAXuT^ do begin
BblBOg;
ETOT_PAXuT: = XPEH_EMy;
rge_EMy_KBACuTb(1, 10);
TOPMO3HyTb(10);
end;
end;

procedure BAM_XOPOWO;
begin
BAM_TEMHO;
WriteLN('OH TOPMO3 v1.0 Copyright The Future Hackers, 1993');
WriteLN(" Written by Kirill Shirokov and Dmitry Moskovich, May 93');
WriteLN;
end;
var
EBO_3EHKu,
EBO_HOC,
EBO_POT,
EBO_XBOCT: ABTOMAT;
KACEKOB: XMblPb;
begin
with KACEKOB do begin
Hy_HuKAK_MHE_EBO_HE_HA3BATb;
with EBO_3EHKu do begin
BOT_EBOHOE_MECTO(1, 1);
ETO_CTPOKA('- -', 20);
ETO_CTPOKA('o o', 3);
ETO_CTPOKA('O O', 16);
ETO_CTPOKA('0 0', 23);
ETO_CTPOKA('O O', 14);
ETO_CTPOKA('o o', 5);
end;
u_EBO_TO3E(@EBO_3EHKu);
with EBO_HOC do begin
BOT_EBOHOE_MECTO(1, 2);
ETO_CTPOKA('..", 21);
ETO_CTPOKA(" oo ", 16);
end;
u_EBO_TO3E(@EBO_HOC);
with EBO_POT do begin
BOT_EBOHOE_MECTO(1, 3);
ETO_CTPOKA(" -- ", 22);
ETO_CTPOKA(" == ", 4);
ETO_CTPOKA('-==-', 6);
ETO_CTPOKA('/--', 19);
ETO_CTPOKA('-!! -', 16);
ETO_CTPOKA('\==/', 21);
ETO_CTPOKA('-!! -', 3);
end;
u_EBO_TO3E(@EBO_POT);
BAM_TEMHO;
B_nyTb;
BAM_XOPOWO;
end;

end.

Вернуться к началу

Мишаня_:-)
Запомнил кнопки...

Пол:

Зарегистрирован: 12.12.2004
Сообщения: 265

Статус: Offline

Это чушь какая то........

Вернуться к началу

xdsl
просто хороший человек

Пол: Пол:Муж.

Зарегистрирован: 25.11.2004
Сообщения: 1252
Откуда: shadrinsk

Статус: Offline

Не, это не чушь. Издевательство, но не чушь.

Вернуться к началу

radist
Запомнил кнопки...

Пол: Пол:Муж.

Зарегистрирован: 29.11.2004
Сообщения: 111

Статус: Offline

Скорее издевательство над чушью!!!

Вернуться к началу

Страница 1 из 1

Найти сообщения с вашего последнего посещения

Список форумов Шадринский форум -> Программирование -> Delphi, Pascal, C, C# -> Program: OH TOPMO3, Version: 1.1

Перейти:

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете вкладывать файлы
Вы можете скачивать файлы

Авторизация

Program: OH TOPMO3, Version: 1.1